capture msgbox actions

[yessir]

I have a yes/no msgbox which is thrown if a value entered is not part of the maintanence tables.

HOW do I capture the yes and no selections?

if YES is selected then I want it to open a form "frmMatrix" to acNewRec

if NO is selected then I want to open another form "frmRecEdit"

If IsNull(DLookup("ID", "tblMatrix", "Matrix = Forms!frmWater_Sample_Import.frmWater_Sample_Import_Temp.Form.Matrix.Value")) Then
   MsgBox "" & i & " > NULL > " & DLookup("ID", "tblMatrix", "Matrix = Forms!frmWater_Sample_Import.frmWater_Sample_Import_Temp.Form.Matrix.Value")
   MsgBox "Would you like to ADD this NEW VALUE?", vbYesNo, "Value Not Valid"
End If

Please help
~

 

[ray705]

Try this.

If IsNull(DLookup("ID", "tblMatrix", "Matrix = Forms!frmWater_Sample_Import.frmWater_Sample_Import_Temp.Form.Matrix.Value")) Then
   MsgBox "" & i & " > NULL > " & DLookup("ID", "tblMatrix", "Matrix = Forms!frmWater_Sample_Import.frmWater_Sample_Import_Temp.Form.Matrix.Value")
   If MsgBox ("Would you like to ADD this NEW VALUE?", vbYesNo, "Value Not Valid") = vbOK Then
      ......
      End If
End If