Basit bir örnek hazırladım. Sonraki sorularınızda örnek uygulamanızı ekleyiniz.

Dim Veriler As String

Veriler = Val(Mid(Me.sno, 3))

If Len(Veriler) = 1 Then

   If Veriler = 9 Then

   Me.sno = Left(Me.sno, 3) & Veriler + 1

   Else

   Me.sno = Left(Me.sno, 4) & Veriler + 1

   End If

ElseIf Len(Veriler) = 2 Then

   If Veriler = 99 Then

   Me.sno = Left(Me.sno, 2) & Veriler + 1

   Else

   Me.sno = Left(Me.sno, 3) & Veriler + 1

   End If

ElseIf Len(Veriler) = 3 Then

   If Veriler = 999 Then

   Exit Sub

   Else

   Me.sno = Left(Me.sno, 2) & Veriler + 1

   End If

End If