Skip to main content

AccessTr.neT


Listede Doubleclick Yapıldığında Hata

Oğuz Türkyılmaz
Oğuz Türkyılmaz
11
1950

Listede Doubleclick Yapıldığında Hata

#7
oğuz bey öncelikle module "'FormAclist " değişkenini tanımladım 
Public FormAclist As Integer

 böylece liste kutunuza çift tıkladığınızda önce seçtiğiniz teklifin "TeklifID" alınıayor 

Private Sub txtTeklifListesi_DblClick(Cancel As Integer)
FormAclist = Me.txtTeklifListesi      ' FormAclist'in değeri TeklifID oluyor
DoCmd.OpenForm "F_02_TeklifDetay"     ' F_02_TeklifDetay formu parametresiz açılıyor
End Su

 F_02_TeklifDetay formu açılınca form yükleme olayı çalışıyor

Private Sub Form_Load()
If FormAclist <> 0 Then         'eğer "FormAclist " belli bil kaydı işaret ediyorsa kayıtnoları 1 den başladığı için
Me.Recordset.FindFirst "TeklifID=" & FormAclist  'FormAclist'e atanan kayda gidiyor
Exit Sub                                         'exit sub komutu formload olayını sonlandırıyor
End If
DoCmd.GoToRecord , , acNewRec                    'eğer FormAclist'e herhngi bir değer atanmamışsa sizin istediğiniz
txtTeklifVerilenFirma.SetFocus                   'gibi formu yeni kayıt ekleme modunda açıyor
End Sub

formu kapatırken de FormAclist =0 yapılıyor
Private Sub Form_Close()
FormAclist = 0
End Sub


formun listekutusu aracılığıyla açılmasını sağlayan kriteri sıfırlıyor
böylece formu bağımsız olarak açıldığında sizin en başta yaptığınız gibi yeni kayıt ekleme modunda açılıyor
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Listede Doubleclick Yapıldığında Hata - Yazar: berduş - 02/12/2018, 12:46
Task