+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Listede Doubleclick Yapıldığında Hata (/konu-listede-doubleclick-yapildiginda-hata.html)
Sayfalar:
1
2
Cvp: Listede Doubleclick Yapıldığında Hata - berduş - 02/12/2018
oğuz bey öncelikle module "'FormAclist " değişkenini tanımladım
Public FormAclist As Integerbö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 SuF_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 Subformu kapatırken de FormAclist =0 yapılıyor
Private Sub Form_Close()
FormAclist = 0
End Subformun 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
Cvp: Listede Doubleclick Yapıldığında Hata - berduş - 02/12/2018
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 SubPrivate Sub btnSonrakiKaydaGit_Click()
If Not (CurrentRecord = (DCount("*", RecordSource) Or NewRecord)) Then DoCmd.GoToRecord , , acNext
End Sub
Cvp: Listede Doubleclick Yapıldığında Hata - berduş - 02/12/2018
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?
Cvp: Listede Doubleclick Yapıldığında Hata - Oğuz Türkyılmaz - 02/12/2018
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.
Cvp: Listede Doubleclick Yapıldığında Hata - Oğuz Türkyılmaz - 02/12/2018
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.
Vardır bir sebebi diyerek üstüne düşmeyelim bence Emekleriniz için tekrar teşekkürler. Bir sonraki soruma kadar sağlıcakla kalın.
Cvp: Listede Doubleclick Yapıldığında Hata - berduş - 02/12/2018
(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 accessaslı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 ))