"F_01_TeklifGiris" formu ile "F_05_SiparisGiris" formunun tuşa basılırken olayını aşağıdaki kodla değişirin
_____________________________________________________________
Select Case KeyCode
Case vbKeyF7
KeyCode = 0
DoCmd.OpenForm "F_03_FirmaListe", , , , , , Me.Name
Case Else

End Select
_____________________________________________________________

"FirmaListeAF" formunun tuşa basılırken olayını aşağıdaki kodla değişirin
_____________________________________________________________
Select Case KeyCode
Case vbKeyReturn
KeyCode = 0
If (Me.Parent.OpenArgs) = "F_01_TeklifGiris" Then
Forms![F_01_TeklifGiris]![cboFirmaKodu] = Me.txtFirmaKodu
Forms![F_01_TeklifGiris]![cboFirmaUnvan] = Me.txtFirmaUnvan
Forms![F_01_TeklifGiris]![txtKisi] = Me.txtKisi
Forms![F_01_TeklifGiris]![txtE_Mail] = Me.txtE_Mail
Forms![F_01_TeklifGiris]![txtTelefonNo] = Me.txtTelefonNo
Forms![F_01_TeklifGiris]![txtCepNo] = Me.txtCepNo
Forms![F_01_TeklifGiris]![txtTedarikciFirma].SetFocus
End If


If (Me.Parent.OpenArgs) = "F_05_SiparisGiris" Then
Forms![F_05_SiparisGiris]![cboFirmaKodu] = Me.txtFirmaKodu
Forms![F_05_SiparisGiris]![cboFirmaUnvan] = Me.txtFirmaUnvan
Forms![F_05_SiparisGiris]![txtKisi] = Me.txtKisi
Forms![F_05_SiparisGiris]![txtE_Mail] = Me.txtE_Mail
Forms![F_05_SiparisGiris]![txtTelefonNo] = Me.txtTelefonNo
Forms![F_05_SiparisGiris]![txtCepNo] = Me.txtCepNo
Forms![F_05_SiparisGiris]![txtHedef].SetFocus
End If
DoCmd.Close acForm, "F_03_FirmaListe"

End Select
_____________________________________________________________