Form1 de textbox var ona tıklayınca Tablo adındaki Form süzülecek.
Textboxun altındada Tablo formu gösterilecek aynı listbox gibi mesela.
Accessi fazla bilmediğim için ekteki kadar ilerleyebildim

Saygılar.
Option Compare Database
Const textSorgu As String = "SELECT ad, soyad, yas FROM Tablo1"
Sub TabloFormAc()
DoCmd.OpenForm "Tablo", acFormDS, , , acFormReadOnly, acWindowNormal 'acFormDS demek veri sayfa görünüm
End Sub
Private Sub Form_Load()
Call TabloFormAc
Forms!Tablo.RecordSource = textSorgu
End Sub
Private Sub textbox2_Change()
Dim sql As String
If Me.textbox2.text = "" Then
DoCmd.Close acForm, "Tablo", acSaveNo
Exit Sub
End If
sql = textSorgu & " WHERE Tablo1.ad Like '*" & Me.textbox2.text & "*'"
Call TabloFormAc
Forms!Tablo.RecordSource = sql
Me.SetFocus
End Sub
(19/01/2020, 08:56)accessman yazdı: Form açılma olayına formun localizasyonunu ayarlayabilirsinlocalizasyonunu bunun özelliklerdeki Türkçesi nedir.
Option Compare Database
Sub AltForAyarlar()
With Me.AltForm1
.Locked = True 'Kilitli
.Form.AllowAdditions = False 'Yeni Kayit ekleme yeri gizlenir
.Enabled = True
With .Form
.NavigationButtons = False 'Kayit ekleme yeri gizlenir alttaki
.Visible = True 'Form görürünür
End With
End With
End Sub
Private Sub Form_Load()
Call AltForAyarlar
End Sub
Private Sub textAd_Change()
Dim Sql As String
' Call AltForAyarlar
Sql = "SELECT ad, soyad, yas FROM Tablo1 WHERE ad Like '*" & Me.textAd.text & "*'"
Me.AltForm1.Form.RecordSource = sql
End Sub