Teşekkürler.
Kodlar çalışıyor ancak bu birimlerin altında birde dönemler var. Dönem olduğu zaman hata veriyor.
Aşağıdaki kodlar form üzerinde bulunan butona ait.
On Error GoTo Hata_Yakala
Dim varmi_donem As Byte
Dim silinecek_firma As String
varmi_donem = DCount("DONEMYILI", "TBLDONEMLER", "BIRIMNO='" & Me.txtBirimNo & "'")
If varmi_donem > 0 Then
MsgBox "Seçtiğiniz Birime ait çalışma dönemi mevcut." & vbCrLf & vbCrLf & "Birimi silmek istediğinizden eminseniz önce tüm dönemleri silmelisiniz.", vbCritical + vbOKOnly, "Mevcut Dönemler Var"
Me.Undo
Exit Sub
Else
If MsgBox("Birimi sildiğiniz takdirde tüm bilgilerinizi kaybedeceksiniz!!!" & vbCrLf & vbCrLf & " " & Me.txtBirimAdi & " Biriminin kayıtlarını silmek istediğinize emin misiniz?", vbCritical + vbYesNo, "Kritik İşlem Kararı!") = vbYes Then
silinecek_firma = CurrentProject.Path & "\Birimler\DataBirim\Birim" & Me.txtBirimNo
DoCmd.SetWarnings False
RmDir silinecek_firma
DoCmd.RunCommand acCmdDeleteRecord
Me.Lst_Birim.Requery
Me.txtEmpTotal = Me.Lst_Birim.ListCount
MsgBox "Birim başarıyla silindi.", vbInformation + vbOKOnly, "İşlem Başarılı"
DoCmd.SetWarnings True
End If
Hata_Cikis:
Me.Undo
End If
Exit Sub
Hata_Yakala:
If Err.Number = 75 Then
MsgBox "Silme işlemi gerçekleştirilemedi. Eğer program açık ise programdan çıkış yapmalısınız.", vbCritical + vbOKOnly, "Kritik Hata"
End If
Resume Hata_Cikis
Son Düzenleme: 18/07/2018, 08:55, Düzenleyen: metin02.