لدى كود فى قاعدة بيانات لا يعمل وهو كود حذف صنف (سجل) من النموذج الفرعى بواسطة زر حذف فى النموذج الرئيسى
وهاهو الكود
Private Sub cmd_delsubrec_Click()
On Error GoTo Err_cmd_delsubrec_Click
If Me!Posted Then
Style = vbOKOnly 'vbOKCancel
Title = " ãßÊÈ ÇáÊæÍíÏ" ' Define title.
If MsgBox(" åÐå ÇáÝÇÊæÑÉ Êã ÊÑÍíáåÇ .. áÍÐÝ ÕäÝ Þã ÈÇáÛÇÁ ÇáÊÑÍíá ", Style, Title) = _
vbOK Then
End If
Else
'----------------------------------------
Me.cmd_undo.Enabled = False
Me.cmd_add.Enabled = False
Me.cmd_mod.Enabled = False
Me.cmdfindrec.Enabled = False
Me.cmd_fresh.Enabled = False
Me.cmddelrec.Enabled = False
Me.cmdexitrec.Enabled = False
Me.cmdfirstrec.Enabled = False
Me.cmdlastrec.Enabled = False
Me.cmdnextrec.Enabled = False
Me.cmdprevrec.Enabled = False
Me.cmd_add_sub_tr_no.Enabled = False
Me.cmd_Undo_sub.Enabled = False
Me.cmdsaverec.Enabled = True
Me.cmd_delsubrec.Enabled = True
'-------------------------------
With Me
.AllowAdditions = False
.AllowEdits = True
.AllowDeletions = False
.PurInvDt.Form.AllowEdits = True
.PurInvDt.Form.AllowAdditions = False
.PurInvDt.Form.AllowDeletions = True
End With
'----------------------------
Me.PurInvDt.SetFocus
Style = vbYesNo 'vbOKCancel
Title = " ãßÊÈ ÇáÊæÍíÏ" ' Define title.
If MsgBox(" åÜÜÜá ÊÑíÜÜÜÏ ÍÜÜÜÜÐÝ ÇáÕäÝ ÇáÍÇáì ", Style, Title) = _
vbYes Then
Me.PurInvDt.SetFocus
DoCmd.SetWarnings True
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
user_licence
no_add_mod_del
Else
user_licence
no_add_mod_del
End If
DoCmd.SetWarnings True
End If
Exit_Err_cmd_delsubrec_Click:
Me.cmdfirstrec.SetFocus
Me.cmdsaverec.Enabled = False
Me.cmd_undo.Enabled = False
Me.cmd_Undo_sub.Enabled = False
Me.PurInvDt.SetFocus
Exit Sub
Err_cmd_delsubrec_Click:
If Err.Number = 2046 Or Err.Number = 3201 Or Err.Number = 3314 Or Err.Number = 2105 Then
Resume Exit_Err_cmd_delsubrec_Click
End If
Handle_Errors_ADO "", Err.Number, Err.Description
Resume Exit_Err_cmd_delsubrec_Click
End Sub
هو ده النموذج الفرعى PurInvDt
