Case "btnBrmYonSil"



AccessTrneT_BirimNo = Forms![FRM_BIRIM_YONETIMI]![txtBirimNo]



DoCmd.SetWarnings False

 

    If MsgBox("Seçtiğiniz Birime ait Veri slinecektir. " & vbCrLf & vbCrLf & "Birimi Silmek İstediğinize emin misiniz?.", vbCritical + vbYesNo, "birimSilmeOnayi") = vbYes Then

     

        silinecek_firma = CurrentProject.Path & "\Birimler\DataBirim\Birim" & AccessTrneT_BirimNo

               

        If Len(Dir(silinecek_firma)) > 0 Then

        

            RmDir silinecek_firma

            

        End If

                

        DoCmd.RunSQL "DELETE BIRIMNO FROM TBLBİRİMLER WHERE (((BIRIMNO)='" & AccessTrneT_BirimNo & "'));"

        MsgBox "Birim başarıyla silindi.", vbInformation + vbOKOnly, "İşlem Başarılı"

        

    End If

        

        If Nz(DCount("*", "TBLDONEMLER", "BIRIMNO='" & AccessTrneT_BirimNo & "'"), 0) > 0 Then

        

            If MsgBox("Birime Ait Dönem Kaydı Mevcut. Kayıt Silinsin mi?", vbYesNo) = vbYes Then

            

                DoCmd.RunSQL "DELETE BIRIMNO FROM TBLDONEMLER WHERE (((BIRIMNO)='" & AccessTrneT_BirimNo & "'));"

                MsgBox "Dönem başarıyla silindi.", vbInformation + vbOKOnly, "İşlem Başarılı"

            End If

        

        End If

        

        

    

        Forms![FRM_BIRIM_YONETIMI].Requery

        Forms![FRM_BIRIM_YONETIMI]!Lst_Birim.Requery

        Forms![FRM_BIRIM_YONETIMI]!txtEmpTotal = Forms![FRM_BIRIM_YONETIMI]!Lst_Birim.ListCount

        

        DoCmd.SetWarnings True

    

Elinize sağlık.
Tablodan siliyor ancak klasörden silmiyor.
formdaki birimsil butonundaki kodu uygulayabilirmisiniz.

Case "btnBrmYonSil"

Dim silinecek_firma As String

Dim fso

AccessTrneT_BirimNo = Forms![FRM_BIRIM_YONETIMI]![txtBirimNo]



DoCmd.SetWarnings False

 

    If MsgBox("Seçtiğiniz Birime ait Veri slinecektir. " & vbCrLf & vbCrLf & "Birimi Silmek İstediğinize emin misiniz?.", vbCritical + vbYesNo, "birimSilmeOnayi") = vbYes Then

     

        silinecek_firma = CurrentProject.Path & "\Birimler\DataBirim\Birim" & AccessTrneT_BirimNo

                       

            Set fso = CreateObject("Scripting.FileSystemObject")

            If fso.FolderExists(silinecek_firma) = True Then

                fso.deleteFolder (silinecek_firma)

            End If

                   

        DoCmd.RunSQL "DELETE BIRIMNO FROM TBLBİRİMLER WHERE (((BIRIMNO)='" & AccessTrneT_BirimNo & "'));"

        MsgBox "Birim başarıyla silindi.", vbInformation + vbOKOnly, "İşlem Başarılı"

        

    End If

        

        If Nz(DCount("*", "TBLDONEMLER", "BIRIMNO='" & AccessTrneT_BirimNo & "'"), 0) > 0 Then

        

            If MsgBox("Birime Ait Dönem Kaydı Mevcut. Kayıt Silinsin mi?", vbYesNo) = vbYes Then

            

                DoCmd.RunSQL "DELETE BIRIMNO FROM TBLDONEMLER WHERE (((BIRIMNO)='" & AccessTrneT_BirimNo & "'));"

                MsgBox "Dönem başarıyla silindi.", vbInformation + vbOKOnly, "İşlem Başarılı"

            End If

        

        End If

        

        

    

        Forms![FRM_BIRIM_YONETIMI].Requery

        Forms![FRM_BIRIM_YONETIMI]!Lst_Birim.Requery

        Forms![FRM_BIRIM_YONETIMI]!txtEmpTotal = Forms![FRM_BIRIM_YONETIMI]!Lst_Birim.ListCount

        

        DoCmd.SetWarnings True

Hocam teşekkürler.
Şimdi tam tersi oldu klasör siliniyor ama tablodan silinmiyor.
Birim içerisinde dönem varsa uyarı verecek birime ait dönem mevcut önce dönem silmeniz gerekiyor uyarısı çıkması lazım.
tamam basınca silme işlemi iptal edecek.

Kodu uyguladığınız örneği ekleyiniz.

Özelden gönderme imkanı varmı.