24/04/2021, 03:17
berduş
))
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)
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 & "));"