Skip to main content

AccessTr.neT


Keydown İle Aynı Arama Listesinden 2 Ayrı Formdan Birine Veri Çekebildim.

Oğuz Türkyılmaz
Oğuz Türkyılmaz
7
1898

Keydown İle Aynı Arama Listesinden 2 Ayrı Formdan Birine Veri Çekebildim.

Çözüldü #1
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.

[Resim: do.php?img=8803]
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#2
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
Cevapla
#3
(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ı.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#4
"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
_____________________________________________________________
Cevapla
#5
Halil bey Elinize Sağlık. Sorunum çözülmüş.Teşekkür ederim.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#6
Me.Parent kodunun buradaki işlevi nedir Halil Bey.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task