+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sayısı Sıra İle Artan Metin Uygulaması (/konu-sayisi-sira-ile-artan-metin-uygulamasi.html)
Sayısı Sıra İle Artan Metin Uygulaması - notrino - 21/08/2018
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?
Cvp: Sayısı Sıra İle Artan Metin Uygulaması - ozanakkaya - 21/08/2018
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 IfCvp: Sayısı Sıra İle Artan Metin Uygulaması - notrino - 21/08/2018
Evet aradığım buydu. Teşekkürler..