Hayırlı akşamlar.
Eklemiş olduğum dosyada birim sil butonunu form üzerinde yapabildim ancak menüde yapamadım. Menüde Yeni birim ekle ve kaydet yaptım.
Yardımcı olursanız sevinirim teşekkürler.
![Çözüldü](images/icons/cozuldu.png)
Case "btnBrmYonKadet"
Case "btnBrmYonSil"
If MsgBox(Forms![FRM_BIRIM_YONETIMI]![txtBirimNo] & " numaralı birimi silmek istediğinize emin misiniz", vbCritical + vbYesNo) = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE BIRIMNO FROM TBLBİRİMLER WHERE (((TBLBİRİMLER.BIRIMNO)='" & Forms![FRM_BIRIM_YONETIMI]![txtBirimNo] & "'));"
DoCmd.SetWarnings True
Forms![FRM_BIRIM_YONETIMI].Requery
End If
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