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.

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.

Ç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.

Emeğinize ve ilginize çok teşekkür ederim. Tam istediğim gibi olmuş...

Rica ederim, iyi çalışmalar.