KODU Case "btnBrmYonKadet" KODUNUN ÜZERİNE YAZIN.
Case "btnBrmYonSil"
Dim silinecek_firma As String
Dim fso
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
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(silinecek_firma) = True Then
fso.deleteFolder (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