(08/04/2020, 17:24)ozanakkaya yazdı: Modüle;
Function SayiBul(ByVal GVeri As String) As Long
Dim GMetin As String
Dim GGenislik As Integer
Dim GSayi As Integer
GMetin = Right(Left(GVeri, InStr(1, GVeri, "%") - 1), 3) & Left(Mid(GVeri, InStr(1, GVeri, "%") + 1), 3)
GGenislik = Len(GMetin)
GSayi = 1
Do
If Mid(GMetin, GSayi, 1) <> " " And Not IsNumeric(Mid(GMetin, GSayi, 1)) Then
GMetin = Left(GMetin, GSayi - 1) + Mid(GMetin, GSayi + 1)
GSayi = GSayi - 1
End If
GSayi = GSayi + 1
Loop Until Val(GMetin) > 0
SayiBul = Val(GMetin)
End Function
Kodu ekle. Sorguya da,
sonuc: SayiBul([metninbulundugualanadi])
kodu ekle.
Konunuz "Visual Basic Örnek Uygulamaları" bölümüne açılmış. Sorunuz Visual Basic mi? Access mi??
Bu konu ve bir önceki konuniza yazdığım cevaplara göre, tarafımca yazılan cevapların hiçbir anlam ifade etmediği anlaşılıyor.
Konunuz cevaplandığına göre taşınmıştır.
