Cvp: Ribbon Menü - ozanakkaya - 18/07/2018
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
Cvp: Ribbon Menü - metin02 - 18/07/2018
Elinize sağlık.
Tablodan siliyor ancak klasörden silmiyor.
formdaki birimsil butonundaki kodu uygulayabilirmisiniz.
Cvp: Ribbon Menü - ozanakkaya - 18/07/2018
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
Cvp: Ribbon Menü - metin02 - 18/07/2018
Hocam teşekkürler.
Şimdi tam tersi oldu klasör siliniyor ama tablodan silinmiyor.
Birim içerisinde dönem varsa uyarı verecek birime ait dönem mevcut önce dönem silmeniz gerekiyor uyarısı çıkması lazım.
tamam basınca silme işlemi iptal edecek.
Cvp: Ribbon Menü - ozanakkaya - 18/07/2018
Kodu uyguladığınız örneği ekleyiniz.
Cvp: Ribbon Menü - metin02 - 18/07/2018
Özelden gönderme imkanı varmı.
|