+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Listede Yoksa Ekle (/konu-listede-yoksa-ekle.html)
Sayfalar:
1
2
Cvp: Listede Yoksa Ekle - berduş - 01/03/2020
yine de eklemiş olayım
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