Case "btnBrmYonSil"

   

Dim silinecek_firma As String

Dim fso

AccessTrneT_BirimNo = Forms![FRM_BIRIM_YONETIMI]![txtBirimNo]

   

Dim varmi_donem As Byte

    varmi_donem = DCount("DONEMYILI", "TBLDONEMLER", "BIRIMNO='" & AccessTrneT_BirimNo & "'")

    If varmi_donem > 0 Then

        MsgBox "Seçtiğiniz Birime ait çalışma dönemi mevcut." & vbCrLf & vbCrLf & "Birimi silmek istediğinizden eminseniz önce tüm dönemleri silmelisiniz.", vbCritical + vbOKOnly, "Mevcut Dönemler Var"

        Forms![FRM_BIRIM_YONETIMI].Undo

        Exit Sub

    Else

        If MsgBox("Birimi sildiğiniz takdirde tüm bilgilerinizi kaybedeceksiniz!!!" & vbCrLf & vbCrLf & " " & Forms![FRM_BIRIM_YONETIMI]![txtBirimAdi] & " Biriminin kayıtlarını silmek istediğinize emin misiniz?", vbCritical + vbYesNo, "Kritik İşlem Kararı!") = vbYes Then

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

            DoCmd.SetWarnings False

            Set fso = CreateObject("Scripting.FileSystemObject")

                If fso.FolderExists(silinecek_firma) = True Then

                    fso.deleteFolder (silinecek_firma)

                End If

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

            Forms![FRM_BIRIM_YONETIMI].Requery

            Forms![FRM_BIRIM_YONETIMI]!Lst_Birim.Requery

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

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

            DoCmd.SetWarnings True

            End If

End If