aşağıdaki kodda ne hatası veriyor acaba sorun nedir yardımlarınız rica ediyorum.

' Create folder with time stamp and username in CoCo Folder

MyPath = "P:\Cost - Core\20 - Cost and Commitment\BLIO Reports -" & Format(Now, "yy-m-dd(hhmm) - " & (Environ$("Username")) & "\\")
If MsgBox(MyPath, vbOKCancel) = vbCancel Then
Cancel = True
Else
MkDir MyPath
End If

Arkadaslar kirmizi olan yer Debug diyince gozukuyor. Yardiminiza ihtiyacim var. Simdiden tesekkur ederim.

Şuan ekteki dosyam Strsql için variable not found uyarısı veriyor. Bunu dim ile tanıttığımda bu defa aynı uyarıyı kayıteklenecek tablo için veriyor. Birşeyler eksik sanırım benim veritabanımda. Yeni dosyayı vtaktar3 olarak düzenledim.

Table kismina "Maliyet Kodu" adli bir field adi ekledim ve bu adi formuma tasidim fakat ne zaman Maliyet Kodu alanina veri girmeye kalksam yukaridaki hatayi aliyirum

 If Not IsNull(Me.txtFilterMaliyetKodu) Then
        strWhere = strWhere & "([MaliyetKodu] Like ""*" & Me.txtFilterMaliyetKodu & "*"") AND "
    End If
-----------------------------------------------------------------------------------------------------------------------------------------------------------
   




Option