Skip to main content

AccessTr.neT


Listede Yoksa Ekle

Listede Yoksa Ekle

#7
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da