Alttaki kodlarla yaptım ve Altforum ekledim.
Sayın @accessman  koddaki ayarlar kodlarını ancak bu kadar yaptım.Oraya kazdırma çubuklarını gizleme kodlarını felan ekleyecektim bulamadım.

O kod kısmına bildiklerinizi eklermisiniz açıklamalarıyla.Sizin araştırmalarınız kuvvetli.

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