AccessTr.neT

F_01_TeklifGiris formunda çalıştırdığım F7 fonksiyonu nu F_05_SiparisFormunda da çalıştırmak için nasıl bir revize yapmam gerekir. Teşekkürler.

emin değilim ama yanılmıyorsam "vbkeyreturn" kodu enter tuşuna basıldığında çalışır F7 ile çalışması için vbkeyreturn kodunu vbKeyF7 değiştirmeyi dener misiniz

(30/01/2019, 13:40)haliliyas yazdı: [ -> ]emin değilim ama yanılmıyorsam "vbkeyreturn" kodu enter tuşuna basıldığında çalışır F7 ile çalışması için vbkeyreturn kodunu vbKeyF7 değiştirmeyi dener misiniz

Halil Bey F7 tuşu her iki formda da işlevini yerine getiriyor sorun F7 den sonra firma listesi ekranında arayıp bulduğunuz firmanın değerlerini enter tuşuyla forma çekmek istediğinizde teklif girişde bilgiler geliyor, SiparişGiriş formunda bilgileri getirmek mümkün olmadı.

"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
_____________________________________________________________

Halil bey Elinize Sağlık. Sorunum çözülmüş.Teşekkür ederim.

Me.Parent kodunun buradaki işlevi nedir Halil Bey.