Çözüldü Userforma Yeni Alan ekleme sonrası acces kaydetme sorunu

tukayf · 12 Ara 2022

Merhabalar hocalarım. Userforma yeni alan ekledim. Ancak yeni alanı acces e kaydettiremiyorum. Kodları kısaltma sonrası oluşan bir durum oluştu. İlgilenebilirseniz sevinirim.

tukayf · 12 Ara 2022

Değerli hocalarım güncelleme kodundaki kalın karakterli alanı nasıl düzeltebilirim. Bu kısmı çözemedim.

Private Sub GUNCELLEME_YAPSANA_Click()
'GÜNCELLE
Dim adoCN As ADODB.Connection
Dim RS As ADODB.Recordset
Dim strSQL As String
Dim i As Long, countRows As Long
On Error GoTo ErrorHandler:
DatabasePath = ThisWorkbook.Path & "\VT.mdb"
Set adoCN = New ADODB.Connection
' Office 2007 ve alt surumler icin Provider olarak "Jet.OLEDB.4.0", sonrasi icin "ACE.OLEDB.12.0" kullan...
If Val(Application.Version) < 14 Then
adoCN.Provider = "Microsoft.Jet.OLEDB.4.0"
Else
adoCN.Provider = "Microsoft.ACE.OLEDB.12.0"
End If
adoCN.ConnectionString = DatabasePath
adoCN.Open
Set RS = New ADODB.Recordset
strSQL = "Select * from [personel] where [ID]=" & ID
RS.CursorType = adOpenKeyset
RS.LockType = adLockOptimistic
RS.ActiveConnection = adoCN
RS.Source = strSQL
RS.Open
guncelle.Value = Date
For Each fld In RS.Fields
RS(fld.Name) = Controls(fld.Name)
Next fld

RS.Update
If RS.State = 1 Then
RS.ActiveConnection.Close
End If
MsgBox "İşlem tamamlandı!...", vbInformation, "...Koruma Şube Personel Bilgi Sistemi..."
If adoCN.State = 1 Then adoCN.Close
Set RS = Nothing
'Call RefreshForm
ExitHere:
temizle
Set RS = Nothing
Set adoCN = Nothing
Exit Sub
ErrorHandler:
MsgBox "Error No: " & Err.Number & vbCrLf & vbCrLf & _
Err.Description & vbCrLf & vbCrLf & "Source: " & Err.Source, vbApplicationModal, "...Koruma Şube Personel Bilgi Sistemi..."
GoTo ExitHere:
End Sub

Not : KVKK Nedeni ile dosya silinmistir.

halily · 12 Ara 2022

Eklediğiniz yeni alanın özellği ne?
Nesne turu ne

tukayf · 12 Ara 2022

Combobox eklemiştim ama textbox a da dönüştürebilirim. Güncelleme yaptıramadım. Daha önce sn. Balta nın kodlarını kullanıyordum. Başlıklar şeklindeki ancak yeni alan ekleyince o koda da ilave ettim ancak çözemedim.
Alan özelliği kısa metin.

halily · 12 Ara 2022

Comboboxin kaç sütunu var?
Ayrıca alan adı ıle nesne adı birebir aynı mi? Alan adı ne, nesne adı ne
Combodan değer seçilmiş mi?
Şu an hata mesajı mi veriyor yoksa hata uyarısı vermemesine rağmen işlem mi yapmiyor?
Hata mesajı veriyorsa nerede ne mesajı veriyor

tukayf · 12 Ara 2022

Merhabalar sn. halily. Hata mesajı vermiyor. Combobox tek sütun. Alan adı Nufus_ilce, nesne adı Nufus_ilce.
Combodan değer seçip seçmeme değiştirmiyor. Kayıtları güncellemiyor. Uyarı mesajı yok.
Kayıt yapıyorum, siliyorum ancak güncelleme yapamıyorum. Hiç bir şekilde.
For i = 0 To 109
RS(baslik(i)) = Controls(baslik(i))
Next i
daha önce bu kodu kullanıyordum. Yeni alandan sonra güncelleme yapmama rağmen kodda. Veritabanında güncelleme yaptıramadım

Alparslan · 12 Ara 2022

Merhaba, Access ve Excel dosyanızda değiştirmeniz gereken yerler.
Acces
1- Personel isimli tabloyu tasarım görünümünde açıp Nufus_ilce ve guncelle başlıklarının yerini değiştirmelisiniz.

Excel
1-Module2 içindeki kodlarda başlıkları 0 dan sıralama yapmışınız ancak Personel tablosunda 0 ID kolonuna denk gelir.
Buradaki sıralamayı 1 den başlatırsanız sondaki Nufus_ilce başlığı 111. sırada olur ve Nufus_ilce yi çift tırnak içinde yazmalısınız.

2- Kaydet işlemindeki döngüyü de For i = 1 To 111 olarak kullanmalısınız.

Patron · 12 Ara 2022

Deneyiniz.

Not : KVKK Nedeni ile dosya silinmistir.

tukayf · 12 Ara 2022

Sn. Balta son alanı eklemeden de 110 du sayı. Son alanı ekledikten sonra 111 yaptım ama hata verdi nerde yanlış yapmışım.

tukayf · 12 Ara 2022

Alparslan' Alıntı:
Merhaba, Access ve Excel dosyanızda değiştirmeniz gereken yerler.
Acces
1- Personel isimli tabloyu tasarım görünümünde açıp Nufus_ilce ve guncelle başlıklarının yerini değiştirmelisiniz.
Ekli dosyayı görüntüle 13966

Excel
1-Module2 içindeki kodlarda başlıkları 0 dan sıralama yapmışınız ancak Personel tablosunda 0 ID kolonuna denk gelir.
Buradaki sıralamayı 1 den başlatırsanız sondaki Nufus_ilce başlığı 111. sırada olur ve Nufus_ilce yi çift tırnak içinde yazmalısınız.

2- Kaydet işlemindeki döngüyü de For i = 1 To 111 olarak kullanmalısınız

Hocam çift tırnağı sonra fark edip düzelttim ama yine de çözememiştim.

halily · 12 Ara 2022

sorun; for each kullandığınızda ID alanını da güncellemeye çalışması. oysa ID alanı otomatik tamsayı alanı yani ne eklemede ne de güncellemede siz bu alanın değerini belirleyemezsiniz eğer for each kullanacaksanız kodu aşağıdaki şekilde düzenlemelisiniz
HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

eğer for x kullanacaksanız
HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Not: eğer for x kullanacaksanız alan sayısını RS.Fields.Count - 1 ile otomatik olarak belirleyebilirsiniz

tukayf · 12 Ara 2022

halily' Alıntı:
sorun; for each kullandığınızda ID alanını da güncellemeye çalışması. oysa ID alanı otomatik tamsayı alanı yani ne eklemede ne de güncellemede siz bu alanın değerini belirleyemezsiniz eğer for each kullanacaksanız kodu aşağıdaki şekilde düzenlemelisiniz
HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

eğer for x kullanacaksanız
HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Not: eğer for x kullanacaksanız alan sayısını RS.Fields.Count - 1 ile otomatik olarak belirleyebilirsiniz

Hocam çok teşekkür ederim. Zihninize sağlık.

Çözüme katkı veren diğer hocalarıma da çok teşekkürler.

Patron · 12 Ara 2022

tukayf' Alıntı:
Sn. Balta son alanı eklemeden de 110 du sayı. Son alanı ekledikten sonra 111 yaptım ama hata verdi nerde yanlış yapmışım.

Basliklar makrosu 111 satır tanımlama var ancak dizimiz 0 dan başlıyor ve 110 da bitiyor. Yani yine 111 veri var ama dizi eleman sıralama düzeni gereği böyle olmaktadır.

Alparslan · 12 Ara 2022

tukayf' Alıntı:
Hocam çift tırnağı sonra fark edip düzelttim ama yine de çözememiştim.

Olay sadece çift tırnakta değildi ki, aşama olarak ne yapmanız gerektiğini yazmıştım.
Sorun çözüldüğü için konu kapanmıştır. :)

tukayf · 12 Ara 2022

Alparslan' Alıntı:
Olay sadece çift tırnakta değildi ki, aşama olarak ne yapmanız gerektiğini yazmıştım.
Sorun çözüldüğü için konu kapanmıştır. :)

:) Bir çok şeyi denemiştim ama Balta ve halily çözdüler sağolsunlar.

DİKKAT ! Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir. Giriş yap veya Şimdi kayıt ol

Çözüldü Userforma Yeni Alan ekleme sonrası acces kaydetme sorunu

DİKKAT !
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Giriş yap veya Şimdi kayıt ol