Kayıt ekle butonu yeni kayıt eklemiyor.

[Orion1]

Üstadım olay aşağıdaki kodlarla çözülmüş.
Yani hazır sorgu değilde bizzat sql deyimini siz yazmışsınız.Bende bunu öğrenmek istiyordum.
Kodlarınız aşağıda teşekkür ederim.

Private Sub TextBox9_Updated(Code As Integer)
Dim txtSearchString As Variant
Dim strSQL As String

txtSearchString = Me![TextBox9]

If Not IsNull(Me![TextBox9]) Then
    
    strSQL = "SELECT Telefon.ID, Telefon.Ad, Telefon.Tel, Telefon.Cep, Telefon.email, Telefon.adres FROM Telefon "
    strSQL = strSQL & "WHERE ((Telefon.Ad) Like '" & txtSearchString & "*') "

  
   
End If

Me!Liste0.RowSource = strSQL

End Sub

 

[modalı]

Benim bahsettiğim ince nokta bu değildi.

Herhalde fark etmediniz. Aramayı yapacağımız metin kutusu standart metin kutusu değil. Active X nesnelerinden Microsoft Forms Text Box.

Özelliği ise içine bir karakter girildiğinde otomatik olarak entere basılmış gibi oluyor ve güncellenmiş sayılıyor.


İyi çalışmalar

 

[Orion1]

Benim bahsettiğim ince nokta bu değildi.

Herhalde fark etmediniz. Aramayı yapacağımız metin kutusu standart metin kutusu değil. Active X nesnelerinden Microsoft Forms Text Box.

Özelliği ise içine bir karakter girildiğinde otomatik olarak entere basılmış gibi oluyor ve güncellenmiş sayılıyor.


İyi çalışmalar

Evet üstadım farkettim.Hatta dahada ilerisinide gördüm.
Kodlarıda Bu nesnenin(TextBox9) Update olayına yazmışsınız.
Teşekkür ederim.