Public FormAclist As Integer

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

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

Private Sub Form_Close()
FormAclist = 0
End Sub

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