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
Butonun tıklandığında olayına aşağıdaki kodu yazarak deneyiniz