Case "btnBrmYonKadet"
Kodunun üzerine
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
kodu ekleyiniz.