AccessTr.neT

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

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

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?

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.

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.

(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 ))