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
![Img-cray Img-cray](https://accesstr.net/images/smilies/img-cray.gif)
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