AccessTr.neT

iyi günler
"% 52 DM tip2, Lumbalgo siyatik, Depresif belirtilerşe giden uyum bozukluğu"
"%52 DM tip2, Lumbalgo siyatik, Depresif belirtilerşe giden uyum bozukluğu"
"52% DM tip2, Lumbalgo siyatik, Depresif belirtilerşe giden uyum bozukluğu"
"52 % DM tip2, Lumbalgo siyatik, Depresif belirtilerşe giden uyum bozukluğu"

"DM tip2,  52 %  Lumbalgo siyatik, Depresif belirtilerşe giden uyum bozukluğu"
"DM tip2,  52%  Lumbalgo siyatik, Depresif belirtilerşe giden uyum bozukluğu"

bu sadece örnek bir veri
bu cümleden "%52" kısmını alıp başka alana güncelleyeceğiz 
bazan cümlenin başında yazılmış bazen ortasında bazen sonunda
bazen "%52" yazılmış bazen "52%"
bazen "%52" şeklinde bitişik bazen "% 52" arada boşlukla yazılmış
bunu nasıl bir kod ile cümlenin içinden çekip çıkarabiliriz

İnstr ile kaçıncı sırada bulunur mid ile parça alınır abey.
Mid("%52",instr(aranan kelime,"%52"),3)
Gibi tabii accesste mid özelliği varmı bilmiyorum varsa şöyle if koşulu aklenir kod başına if instr(veri,"52")> 0 then burda %52 varmı demek.

teşekkürler feraz ama benim istediğim 6 farklı ihtimalde de içindeki değeri alacak bir kod

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

(08/04/2020, 17:16)accessman yazdı: [ -> ]teşekkürler feraz ama benim istediğim 6 farklı ihtimalde de içindeki değeri alacak bir kod

O zaman 6 ihtimallik instr ve mid yazılır or ile.

şöyle bir şey yazdım olmuş mu

Private Function bulyuzde(metin As String) As Integer

On Error GoTo Err_hata



    Dim index As Integer

    Dim yuzde As Integer

    yuzde = 0



    index = InStr(metin, "%")

    

    If (index = 1) Then

        If (Mid(metin, index + 1, 1) = " ") Then

            If IsNumeric(Mid(metin, 3, 2)) Then

                yuzde = Mid(metin, 3, 2)

            End If

        Else

            If IsNumeric(Mid(metin, 2, 2)) Then

                yuzde = Mid(metin, 2, 2)

            End If

        End If

    ElseIf (index = 3) Then

        If IsNumeric(Mid(metin, 1, 2)) Then

            yuzde = Mid(metin, 1, 2)

        End If

    ElseIf (index > 3) Then

        If (Mid(metin, index - 1, 1) = " ") Then

            If IsNumeric(Mid(metin, index - 3, 2)) Then

                yuzde = Mid(metin, index - 3, 2)

            End If

        Else

            If IsNumeric(Mid(metin, index - 2, 2)) Then

                yuzde = Mid(metin, index - 2, 2)

            End If

        End If

    End If

    

Exit_kod:

    bulyuzde = yuzde

    Exit Function



Err_hata:

    yuzde = 0

    MsgBox Err.Description

    Resume Exit_kod

End Function