Önceki mesajımda yazdığım kodu aşağıdaki ile değiştirerek deneyiniz.

Case "btnBrmYonSil"



 

    If MsgBox("Seçtiğiniz Birime ait çalışma dönemi mevcut." & vbCrLf & vbCrLf & "Birimi sildiğinizde çalışma dönemi de silinecektir. Dönemi ve Birimi Silmek İstediğinize emin misiniz?.", vbCritical + vbYesNo, "Mevcut Dönemler Var") = vbYes Then

     

        silinecek_firma = CurrentProject.Path & "\Birimler\DataBirim\Birim" & Forms![FRM_BIRIM_YONETIMI]![txtBirimNo]

        DoCmd.SetWarnings False

        RmDir silinecek_firma

    

        DoCmd.RunSQL "DELETE BIRIMNO FROM TBLDONEMLER WHERE (((BIRIMNO)='" & Forms![FRM_BIRIM_YONETIMI]![txtBirimNo] & "'));"

        DoCmd.RunSQL "DELETE BIRIMNO FROM TBLBİRİMLER WHERE (((BIRIMNO)='" & Forms![FRM_BIRIM_YONETIMI]![txtBirimNo] & "'));"

        DoCmd.SetWarnings True

        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