Form1 de bulunan açılır kutuların bağlı olduğu tablolar var. Verileri buradan geliyor. Benim sorum, açılan kutuya değer yazdığımda tablodaki daha önceden girmiş olduğum veriler geliyor. Fakat tabloda olmayan değeri yazdığımda tabloda yoksa ilgili tabloya nasıl aktarabiliriz. Forumda buldum çok karmaşık olduğundan yapamadım. Örnek olarak, adı soyadı açılır kutusuna nasıl uygulama yapabiliriz.Teşekkürler.
Merhaba,
Söylediginiz konuya göre örneği yeni eklenen Form2 de bulabilirsiniz..
Ancak sizin bundan önce yapmanız gereken şey tablolarınıza ve bu tablolar içerisindeki alanlara verdiğiniz isimlerdeki Türkçe karekterleri kaldırıp, kelimeler arasındaki boşlukları gidererek projenizi sağlıklı bir hal kazandırmanızdır.
Sayın SCavusoglu, Başka formda olmasını istemediğimden,bunu Form1 yapıştırıp düzenlemeyi yaptım fakat çalıştıramadım.
Açılır kutunun adınıda cmb_adisoyadi olarak değiştirdim. yine olmadı.
Private Sub cmb_adisoyadi_NotInList(NewData As String, Response As Integer)
Dim strSQL As String, x As Integer
Dim K1 As String
x = MsgBox("Girdiginiz Isim Listede Yok! Eklensin mi ?", 52, "S O R U")
If x = vbYes Then
strSQL = "Insert Into isim_listesi ([adi_soyadi]) values ('" & NewData & "')"
MsgBox "Kaydetme Islemi Tamamlandi.", 64, "Kaydedildi"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
End If
sayın 53rize,
bahsini yaptığınız talebinize yönelik olarak,aşağıdaki açıklama yeterli görülmektedir.
sayın scavusoglu bey'in kodlarını,kendi asıl formunuza aktarma işlemini uygularken,form1 üzerindeki cmb_adisoyadi adlı açılan kutunun ÖZELLİKLER-VERİ-LİSTEYLE SINIRLA satırını eğer HAYIR olarak kalmışsa EVET olarak değiştiriniz.yeniden değiştirdiğinizi beyan ettiğiniz adlandırmalarınız ve yapılandırmalarınız doğru ve geçerli ise,istediğiniz çözüme ulaşabileceksinizdir.
eklediğiniz kodlamadaki else...end if arasına aşağıdaki kod ifadesini de dahil ediniz.
Kod:
Response = acDataErrContinue
bilginize...iyi çalışmalar,saygılar.
Sayın atoz112, aşağıdaki kod'ta, dbFailOnError renkli seçiyor.
Private Sub cmb_adisoyadi_NotInList(NewData As String, Response As Integer)
Dim strSQL As String, x As Integer
Dim K1 As String
x = MsgBox("Girdiginiz Isim Listede Yok! Eklensin mi ?", 52, "S O R U")
If x = vbYes Then
strSQL = "Insert Into isim_listesi ([adi_soyadi]) values ('" & NewData & "')"
MsgBox "Kaydetme Islemi Tamamlandi.", 64, "Kaydedildi"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub
sayın 53rize,
bahsettiğiniz hatayı almanızın nedeni,referans sorunu.
ÇÖZÜM
formunuzu kapatınız ve Visual Basic Kod sayfasındaki Üst Menüden TOOLS-REFERENCES sekmesini açınız ve listeden Microsoft DAO 3.6 Object Library adlı referansı bulup işaretleyip TAMAM butonuna basınız.ardından da,formunuzu tekrar çalıştırınız.bilginize.
iyi çalışmalar,
saygılar.