senin istediğini yapan kod bu
Private Sub taseronfirma_Exit(Cancel As Integer)
Dim rst As Recordset
Dim sd As String
sd = "SELECT * FROM taseronhakedisi WHERE isinkonusu Like '" & Me.isinkonusu & "*' And taseronfirma Like '" & Me.taseronfirma & "*'" & ""
Set rst = CurrentDb.OpenRecordset(sd)
If rst.RecordCount = 0 Then
Me.hakedisno = 1
Else
rst.MoveLast
Me.hakedisno = rst!hakedisno + 1
End If
rst.Close
Set rst = Nothing
End Sub

yalnız alan isimlerini hem tabloda hemde formda aynen yazdığı gibi değiştir ayrıca tablo adınıda taseronhakedisi bu şekilde değiştir birde unutma asla türkçe karakterler kullanma alan adlarında ve aralarında boşlukta bırakma illada bırakacam karışıyor diyorsan ali_gel diye altçizgi ile yap boşlukları