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