haklısınız hocam ama inanın çoğu zaman soruyu çözmeye çalışırken o kadar çok hata veriyor ki kod doğru çalıştığında daha fazla uğraşıp basitleştirmeye çalışmak aklıma bile gelmiyor
çünkü aslolan çözümü bulmak bence gerisi işin estetiği.
ama sizi mi kıracağım)
SQL = "SELECT " & _
"[Prs].[F1], " & _
"[Prs].[F2], " & _
"[Prs].[F3], " & _
"[Prs].[F6], " & _
"[Prs].[F7], " & _
"[Prs].[F8], " & _
"[Prs].[F9], " & _
"[Prs].[F10], " & _
"Cdate(DateAdd(""yyyy"",1,[Prs].[F13])), " & _
"[OgDr].[F4], " & _
"[OgDr].[F5] " & _
"FROM [Personel$B2:N] as [Prs] INNER JOIN [ÖğrenimDurumu$A3:E] as [OgDr] ON ([Prs].[F12] = [OgDr].[F3]) " & _
"AND ([Prs].[F11] = [OgDr].[F2]) AND ([Prs].[F10] = [OgDr].[F1]) " & _
"WHERE ((([Prs].[F13])>=" & BasTrh & " And ([Prs].[F13])<=" & BitTrh & "));"