Skip to main content

AccessTr.neT


Listede Doubleclick Yapıldığında Hata

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

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
#8
bir de sonraki kayda git ve önceki git komutlarında kontrol komutları ekledim ama onları isterseniz kaldırabilirsiniz.

Private Sub btnOncekiKaydaGit_Click()
If Not (CurrentRecord = 1) Then DoCmd.GoToRecord , , acPrevious
End Sub

Private Sub btnSonrakiKaydaGit_Click()
If Not (CurrentRecord = (DCount("*", RecordSource) Or NewRecord)) Then DoCmd.GoToRecord , , acNext
End Sub
Cevapla
#9
bir de şu örneği deneyin
doğrudan benim gönderdiklerim mi çalışmıyor
yoksa siz bendeki kodları sizin vtnize eklediğiniz de mi çalışmıyor?
.rar ISSE TEKLİF doubleclick_hy4.rar (Dosya Boyutu: 131,73 KB | İndirme Sayısı: 3)
Cevapla
#10
Halil bey iyi akşamlar Direk sizin gönderdiğiniz de denedim çalışmadı. Şu an başka bir bilgisayardayım eve geçince bu yazdıklarınızı deneyeceğim geceye doğru sonucu bildiririm.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#11
Halil Bey Tekrar merhaba 10 numaralı mesajdaki örneğe gerek kalmadı. 6 Nolu mesajdaki örnek Bende çalışmamış mesajlarınızdaki kodlardan bende eksik olanı tamamlayınca çalıştı. Fakat şöyle bir durum oluştu 'bir de sonraki kayda git ve önceki git komutlarında kontrol komutları ekledim ama onları isterseniz kaldırabilirsiniz.' bu söylediğinizi yaptığımda ileri geri tuşlarında bir süre sonra sapıtma oluşuyor ve debug oluyor. Yani kontrol komutlarınız işe yarıyor onlar olmadan düz kodlarla sapıtıyor access.Img-grin Vardır bir sebebi diyerek üstüne düşmeyelim benceImg-grin Emekleriniz için tekrar teşekkürler. Bir sonraki soruma kadar sağlıcakla kalın.Img-grin
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#12
(02/12/2018, 21:47)Oğuz Türkyılmaz yazdı: ileri geri tuşlarında bir süre sonra sapıtma oluşuyor ve debug oluyor. Yani kontrol komutlarınız işe yarıyor onlar olmadan düz kodlarla sapıtıyor access
aslında sapıtmıyor; 
son kayıtta olmasına rağmen ileri derseniz yeni kayıt oluşturuyor ama yeni kayıtta iken  ileri derseniz yada 
ilk kayıtta olmasına rağmen  bir önceki kayda git dediğinizden "iyi de böyle bir kayıt yok! ne istiyorsun benden "  diyor ))
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task