a siparisler isimli tablodaki Siparis_musteriadi alanının veri türü sayı olarak değiştirildi.
Formdaki musteri adı girilen alan açılan kutu olarak değiştirildi ve satır kaynağı musteri tablosu olarak belirlendi.
açılan kutunun listede yokken olayına
On Error GoTo Hata
X = MsgBox("Girilen Müşteri Adı Eklensin mi?", 52, "Bilgi")
If X = vbYes Then
strSQL = "Insert Into musteri ([muster_adi]) values ('" & NewData & "')"
MsgBox "Yeni Müşteri Eklendi", 64, "Kaydedildi"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
Hata: Exit Sub
Kodu eklendi.
Yeni kayıt sırasında açılan kutudan veri seçebilirsiniz, Bu alana girilen veri eğer musteri tablosunda yoksa tabloya yeni kayıt olarak ekler.
Mevzuyu ben yanlış anladıysam belirtiniz.
Ayrıca, tablo ve form yapısı için tebrik ederim.