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.