İşlem yaptığınız formda ürün seçimi için bir açılır kutu var diyelim ve siz seçeceğiniz ürünü orada bulamadınız ama yine de girmek istiyorsunuz ve ürünler listesine de eklemesini istiyorsunuz. Bu durumda aşağıda kodları kullanarakta yapabilirsiniz..
Kod:
Option Compare Database
Option Explicit
Private Sub AcilanKutu1_NotInList(NewData As String, Response As Integer)
If MsgBox("Yazılan değer listede yok. Eklensin mi?") = vbNo then exit sub
Dim db As Database
Set db = CurrentDb
db.Execute "insert into urunler([urunadi]) values (" & [AcilanKutu1].Text & ")"
'ürün kodu sanırım otamatik ayarlanmıştır. Bu nedenle bizim otomatik kod vermemize gerek yok.
Dim deger
deger = AcilanKutu1.Text
AcilanKutu1.Undo
AcilanKutu1.Requery
Response = acDataErrAdded
AcilanKutu1.Value = deger
End Sub