ilk durum için yani açılır kutu değiştiğinde verilerin hemen ekrana gelmesi için

Private Sub txtFirmaUnvan_AfterUpdate()   'açılır kutu güncellendikten sonra olayını tanımlıyor

Dim kytno As Integer                      '

kytno = Me.CurrentRecord                  'aktif kaydın sırasını belirlemek için

Me.Requery                                ' tazeler ve ilk kayda gider

DoCmd.GoToRecord acDataForm, "F_01_TeklifGirisFormu", acGoTo, kytno ' son çalıştığımız aktif kayda gider

End Sub

yapmayı denediniz mi