Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 'MsgBox Parent.Name
 If KeyCode = 17 Then
     if parent.name =  "hambezsiparis1" then Forms!hambezsiparis1!ad.SetFocus
     if parent.name =  "t_sorgu" then Forms!t_sorgu!ad.SetFocus
 end if
 End Sub