DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[id] = " & Str(Nz(Me![[COLOR=red]Metin7[/COLOR]], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Merhaba..metin 7 i combo box ile değiştirdikten sonra after update ine
Private Sub Metin7_AfterUpdate()
Dim sql As String
sql = "Select * from tablo1 where id= " & Form_Tablo1.Metin7 & ""
Forms!Tablo1.RecordSource = sql
End Sub
yazın
tabii combobox ın özelliklerini ayarlayacaksınız.