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

 
	![[Resim: img-cray.gif]](https://www.accesstr.net/images/smilies/img-cray.gif)
 Vardır bir sebebi diyerek üstüne düşmeyelim bence
 Vardır bir sebebi diyerek üstüne düşmeyelim bence