Skip to main content

AccessTr.neT


Karakter Ayırma

Karakter Ayırma

#7
Sayın @haydarugur

Dosyanıza veri ekleyin ki yazacağımız kod sağlıklı çalışıyor mu çalışmıyor mu nerede ne hata yapıyor inceleyelim. İşin gücün arasında yardımcı olmaya çalışıyoruz sizin yerinize verileri de biz mi hazırlayacağız? Örneğinizi geliştirin inceleyelim, hiç birimizin her soru için tek tek veri hazırlayıp incelemeye vakti yok.
Cevapla
#8
Tablo1'de verileri biraz daha arttırarak ve Sorgu1'de Tablo1'deki verilerin sorgu sütunlarına nasıl gelmesi gerektiğine dair ikinci bir dosyayı tekrar ekliyorum. İlginize teşekkür ederim.
.zip hastatakip_SON.zip (Dosya Boyutu: 18,34 KB | İndirme Sayısı: 2)
Cevapla
#9
Çalışmanıza bir modül ekleyip ve aşağıdaki kodu kaydedin.
Function GetColumn(strProductCode As String, strColumn As String, Separator As String) As String


Dim arCode

Dim strReturn As String

    strReturn = ""

On Error GoTo Sub_Exit

    arCode = Split(strProductCode, Separator)

    Select Case strColumn

        Case "1"

            strReturn = arCode(0)

        Case "2"

            strReturn = arCode(1)

        Case "3"

            strReturn = arCode(2)

        Case "4"

            strReturn = arCode(3)

        Case "5"

            strReturn = arCode(4)
        Case "6"

            strReturn = arCode(5)
        Case "7"

            strReturn = arCode(6)
        Case "8"

            strReturn = arCode(7)
      Case Else

            strReturn = " "

    End Select

Sub_Exit:

GetColumn = strReturn

End Function

Akabinde
SELECT GetColumn([takip],"1"," ") AS [Hasta Adı], GetColumn([takip],"2"," ") AS [Hasta Soyadı], GetColumn([takip],"3"," ") AS Hastalık, GetColumn([takip],"5"," ") AS [Doktor Adı], GetColumn([takip],"6"," ") AS [Doktor Soyadı], GetColumn([takip],"7"," ") AS Karar
FROM Tablo1;
sorgusu ile istediğiniz sonuca ulaşacaksınız.

GetColumn([Alanadı],"1"," ") ifadesinde Alan seçimin yapılacağı alanı, 1 ilk kelimeyi, " " ise ayraç karakteri ifade eder. İster boşluk, ister - veya _ istediğiniz karaktere göre sütunu bölmenize yarar.

Ekli dosyanızda uygulama olarak mevcut inceleyip çalışmanıza uyarlayabilirsiniz.
.rar hastatakip_editedatoykan.rar (Dosya Boyutu: 21,95 KB | İndirme Sayısı: 4)
Cevapla
#10
Emeğinize ve ilginize çok teşekkür ederim. Tam istediğim gibi olmuş...
Cevapla
#11
Rica ederim, iyi çalışmalar.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da