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??