+- 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ığı: Satır İçindeki Sayıyı Almak (/konu-satir-icindeki-sayiyi-almak.html)
Satır İçindeki Sayıyı Almak - xoseng - 24/02/2020
Ahmet belge numarası 12356 dir.
Mustafa 27. oldu.
gibi verilen satır ifadelerindeki sadece sayı kısmını hangi visual basic kodu ile alabiliriz.
Cvp: Satır İçindeki Sayıyı Almak - berduş - 24/02/2020
aşağıdaki fonksiyon işinize yarayabilir ama şöyle bir sorun var metin içindeki sayılar Cuma 0123 ali 000 gibi dağınıksa 0123000 şeklinde alır.
Function SayiAl(Mtn As String)
Dim Sayi As String
For x = 1 To Len(Mtn)
SayInt = Mid(Mtn, x, 1)
If IsNumeric(SayInt) Then SayiAl = SayiAl & SayInt
Next x
End FunctionPrivate Sub SayiA_Click()
Me.Metin2 = SayiAl(Me.Metin0)
End Sub
Cvp: Satır İçindeki Sayıyı Almak - xoseng - 24/02/2020
(24/02/2020, 09:42)berduş yazdı: aşağıdaki fonksiyon işinize yarayabilir ama şöyle bir sorun var metin içindeki sayılar Cuma 0123 ali 000 gibi dağınıksa 0123000 şeklinde alır.Teşekkür ederim. Süper oldu.
fonksiyonu aşağıdaki şekilde çağırabilirsinizFunction SayiAl(Mtn As String)
Dim Sayi As String
For x = 1 To Len(Mtn)
SayInt = Mid(Mtn, x, 1)
If IsNumeric(SayInt) Then SayiAl = SayiAl & SayInt
Next x
End Function
Private Sub SayiA_Click()
Me.Metin2 = SayiAl(Me.Metin0)
End Sub
Cvp: Satır İçindeki Sayıyı Almak - berduş - 24/02/2020
iyi çalışmalar)
Rep için teşekkürler
Cvp: Satır İçindeki Sayıyı Almak - userx - 24/02/2020
Ben de farklı bir yöntem göstereyim. Mid komutuyla da istenilen alanları çağırabilirsiniz.
Me.Metin2 = Mid([Me.Metin0], 6, 4) & " " & Mid([Me.Metin0], 15, 4)