Dim rs As New ADODB.Recordset
rs.Open "SELECT Last(Mid([SIPARIS_NO],4)) AS SIPNO FROM SIP_KAYIT", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Not rs.EOF Then
Me.SIPARIS_NO = Format(Date, "yy") & "-" & rs("SIPNO") + 1
Else
End If
rs.Close
bu şekilde çözdüm,