macro triggering another macro

[shrive22]

I have a macro which has several actions inside it and one of the actions triggers another macro I have assigned to the ondelete property of a form. I get an error from the first macro when I cancel the deletion of the record is there any way to put a condition to capture if the cancel delete button has been selected so that I can cancel the first macro(the one im getting errors on)???

thanks for teh help

 

[SydneyGeek]

There are a couple of ways to do it but if you post the code, we will have a better idea of what you are after.

Use the VB HTML Maker (link at the bottom of this board)

HTH

Denis

 

[bat17]

If you are actualy using Macro's rather than code you can convert the marcos to code using File>Save As/Export and the select "Save as Visual Basic Module".

HTH

Peter

 

[shrive22]

this is the code that is executed when i click the delete record button

'------------------------------------------------------------
' DeleteGroup1
'
'------------------------------------------------------------
Function DeleteGroup1()
On Error GoTo DeleteGroup1_Err

DoCmd.OpenForm "ChangeGroup", acNormal, "", "[group]=[Forms]![Groups]![group]", , acNormal
DoCmd.Close acForm, "Groups"
Call Setwarningoff
DoCmd.RunCommand acCmdDeleteRecord
Call Setwarningon
DoCmd.Close acForm, "ChangeGroup"


DeleteGroup1_Exit:
Exit Function

DeleteGroup1_Err:
MsgBox Error$
Resume DeleteGroup1_Exit

End Function


then when the this is the code that is executed wehn the ondelete event is triggered

'------------------------------------------------------------
' ConfirmDelete
'
'------------------------------------------------------------
Function ConfirmDelete()
On Error GoTo ConfirmDelete_Err

If (MsgBox("Do you want to delete this record?", 273, "Confirm Delete") <> 1) Then
DoCmd.CancelEvent
Exit Function
End If
SendKeys "{Enter}", False


ConfirmDelete_Exit:
Exit Function

ConfirmDelete_Err:
MsgBox Error$
Resume ConfirmDelete_Exit

End Function



thanks

 

[bat17]

I am not sure why you are running code in the OnDelete event for, If you want to double check that they really want to delete the record do it before calling the delete group function.( which is really a Sub as it does not return any information!)

HTH

Peter

 

[shrive22]

ok so if I run the confirmdelete macro before the deletegroup macro then how do I capture teh cancel button and then cancel the deletion of the record?

 

[bat17]

I would add it to the DeleteGroup1 Function, that way if they don’t confirm you will not even try to delete the group.


Function DeleteGroup1()
On Error GoTo DeleteGroup1_Err
If (MsgBox("Do you want to delete this record?", 273, "Confirm Delete") <> 1) Then
Exit Sub
End If
DoCmd.OpenForm "ChangeGroup", acNormal, "", "[group]=[Forms]![Groups]![group]", , acNormal
DoCmd.Close acForm, "Groups"
DoCmd.setwarning False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
DoCmd.Close acForm, "ChangeGroup"


DeleteGroup1_Exit:
Exit Function

DeleteGroup1_Err:
MsgBox Error$
Resume DeleteGroup1_Exit

End Function


HTH

Peter

 

[shrive22]

thanks worked great