Private Sub Form_Load()
Me.Metin17.SetFocus
DoCmd.RunCommand acCmdPaste
DoCmd.ApplyFilter , "[Alan] = '" & Me.Metin17.Text & "'"
End Sub
sizin çalışmanıza uyarlarsak