Merhaba  pmsata, yazdığınız kodu denedim çalışmadı.bende araştırma yaptım select case komutunda aktif ettiğimiz alt form bolumune şu kodu yazınca istediğim oldu form aktif olunca alt forma gidiyorum ve alt forma son kayıta git diyorum.

Private Sub Açılan_Kutu31_AfterUpdate()

On Error GoTo Açılan_Kutu31_AfterUpdate_Err



DoCmd.SearchForRecord , "", acFirst, "[PLAKA] = " & "'" & Screen.ActiveControl & "'"



     Select Case ARAC_CINSI

   

   Case "TIR"

      Me.TIR.Visible = True

      Me.KAMYON.Visible = False

      Me.KIRKAYAK.Visible = False

      Me.ESKIDOC.Visible = False

           DoCmd.GoToControl "TIR"

           DoCmd.GoToRecord , , acLast[/color]