If Dir(StrKlasor, vbDirectory) = "" Then 'Klasör yoksa oluştur varsa kullan
MkDir StrKlasor
End If
If Not (GetAttr(StrTempKlasor) And vbHidden) = 2 Then 'Gizli TempKlasörü yoksa oluştur varsa kullan
MkDir StrTempKlasor
SetAttr StrTempKlasor, vbHidden 'TempKlasörü gizle
End If
satırları OneEmpRpts() metodunda yoktu.Yanlış çalışmasına sebep olan diğer etken;
StrWhere = "TACALISANKAYDI.KIMNO = " & StrKimNo & " AND TYILLIK2024.MUAYENETARIHI = #" & Format(rsMuayene!MUAYENETARIHI, "yyyy-mm-dd") & "#"
bu satırda yanlış tablonun olması. TYILLIK2024 tablosu TRADYASYON2024 ile değişince düzeldi.Şimdi sağlıklı çalışıyor.
Tek sorunum kaldı. Raporun where koşuluna kodla nasıl atandığı konusu üzerinde çalışıyorum. Henüz ilerleme sağlayamadım. Access Sql Vba konuları benim çok aşina olduğum alanlar değil, en azından referans kaynak belirtirseniz sevinirim. FVERIGIRIS formunda açılan kutular ile giriş çıkış yaptığımızda raporun kayıt kaynağını önceki haline getirecek yani boş seçecek kodlar istediğim. Tıpkı bunun gibi bir düzenleme. Tabi burda kendi içinde bir tutarlılık ve mimari var.
rsMuayene.Close
Set rsMuayene = Nothing