Sanırım sorununuzun çözümü aşağıdaki kodda.
acLast ifadesi son kayıt için yeterli olacaktır. Deneyip bildirirmisiniz..?
Private Sub Açılan_Kutu31_AfterUpdate()
On Error GoTo Açılan_Kutu31_AfterUpdate_Err
DoCmd.SearchForRecord , "", acLast, "[PLAKA] = " & "'" & Screen.ActiveControl & "'"