AccessTr.neT

Tam Versiyon: Sayısı Sıra İle Artan Metin Uygulaması
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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?
Butonun tıklandığında olayına aşağıdaki kodu yazarak deneyiniz

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
Evet aradığım buydu. Teşekkürler..