Private Sub kolu_NotInList(NewData As String, Response As Integer)
Dim strsql, txtDgr As String
Response = 0
txtDgr = Me.kolu.Text
strsql = "Insert Into [StokKartlari] (StokKartiAdi,StokGrupID) values ('" & txtDgr & "',10)"
CurrentDb.Execute strsql, dbFailOnError
kolu.RowSource = "SELECT StokKartlari.StokKartiID, StokKartlari.StokKartiAdi, StokKartlari.BirimID, StokKartlari.Fiyatı, StokKartlari.StokGrupID FROM StokKartlari WHERE (((StokKartlari.StokGrupID)=10)) "
Me.kolu.Text = txtDgr
End Sub
yine de eklemiş olayım
