Skip to main content

AccessTr.neT


Sayısı Sıra İle Artan Metin Uygulaması

Sayısı Sıra İle Artan Metin Uygulaması

Çözüldü #1
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?
.zip revizyon.zip (Dosya Boyutu: 23,8 KB | İndirme Sayısı: 1)
Cevapla
#2
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
Cevapla
#3
Evet aradığım buydu. Teşekkürler..
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da