Ekli örneğimde gerçekleştirmek istediğim birşey var. Bununla ilgili daha önce gönderdiğiniz şu kodu;
Kod:
Dim GRevizyon As Integer
If IsNull(Me.revizyon) Or Me.revizyon = "" Then
Me.revizyon = "R1"
Else
GRevizyon = Val(Mid(Me.revizyon, 2, Len(Me.revizyon)))
Me.revizyon = "R" & GRevizyon + 1
End If