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