Merhabalar,
Öncelikle iyi bayramlar. Ekli örneğimde, revizyon metin kutusunun içinde, butona her basışımda R1, R2, R3 şeklinde sırayla artan bir metin oluşturmak istiyorum. Nasıl yapabilirim?

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