Very Simple Access Question

StanSandall · #1 (**permalink**) 01-27-12, 10:01

Hello ....
I want to add a simple statement to the statement below to test if field [Recorded Call Report] = False

If [Recorded_Call_report ] = False, then skip the statment below and exit

If [Recorded_Call_report ] = True, The run the statement below.

================================================== =======

Private Sub Notes_Exit(Cancel As Integer)
On Error GoTo Err_Command4596_Click
DoCmd.SetWarnings False

If MsgBox("Rosie ask....Do you want me to keep this record as all ready recorded is Siebel?", vbYesNo, "") = vbYes Then
Me.Recorded_Call_report = True
End If
DoCmd.SetWarnings True

Exit_Command4596_Click:
Exit Sub

Err_Command4596_Click:
MsgBox Err.Description
Resume Exit_Command4596_Click

End Sub

Sinndho · #2 (**permalink**) 01-27-12, 12:23

Quote:

Originally Posted by StanSandall

I want to add a simple statement to the statement below to test if field [Recorded Call Report] = False

If [Recorded_Call_report ] = False, then skip the statment below and exit

If [Recorded_Call_report ] = True, The run the statement below.

Which statement below and below which line in the procedure?

StanSandall · #3 (**permalink**) 01-27-12, 13:21

I have this enbeded in a form so that when this field is "updated" this code runs ... I want the code now to test first ....If [Recorded_Call_report ] = True (this is on the same form), Then run the statement below, otherwise if "False" just exit the procedure or do not run

-------------------------------------------------------------------------

If MsgBox("Rosie ask....Do you want me to keep this record as all ready recorded is Siebel?", vbYesNo, "") = vbYes Then
Me.Recorded_Call_report = True

Sinndho · #4 (**permalink**) 01-27-12, 15:21

Try:

Code:

Private Sub Notes_Exit(Cancel As Integer)

    On Error GoTo Err_Command4596_Click

    If Me.Recorded_Call_report.Value = True Then
        DoCmd.SetWarnings False
        If MsgBox("Rosie ask....Do you want me to keep this record as all ready recorded is Siebel?", vbYesNo, "") = vbYes Then
            Me.Recorded_Call_report = True
        End If
        DoCmd.SetWarnings True
    End If

Exit_Command4596_Click:
    Exit Sub

Err_Command4596_Click:
    MsgBox Err.Description
    Resume Exit_Command4596_Click

End Sub

However, there seems to be a discrepancy between 'Notes_Exit' and 'Command4596_Click'.

StanSandall · #5 (**permalink**) 01-27-12, 16:48

I removed

On Error GoTo Err_Command4596_Click

And the procedure runs fine ... so thanks for having me remove that statement.

Any Ideas how to add the check for the [Recorded_Call_report ] = True

Sinndho · #6 (**permalink**) 01-27-12, 17:04

Quote:

Originally Posted by StanSandall

Any Ideas how to add the check for the [Recorded_Call_report ] = True

I did it already:

Code:

Private Sub Notes_Exit(Cancel As Integer)

    On Error GoTo Err_Command4596_Click

    If Me.Recorded_Call_report.Value = True Then
        DoCmd.SetWarnings False
        If MsgBox("Rosie ask....Do you want me to keep this record as all ready recorded is Siebel?", vbYesNo, "") = vbYes Then
            Me.Recorded_Call_report = True
        End If
        DoCmd.SetWarnings True
    End If

Exit_Command4596_Click:
    Exit Sub

Err_Command4596_Click:
    MsgBox Err.Description
    Resume Exit_Command4596_Click

End Sub

StanSandall · #7 (**permalink**) 01-27-12, 22:28

Thanks ... It works Great .... Tell next time ....

Sinndho · #8 (**permalink**) 01-28-12, 00:44

Youre welcome!

Internet Services

Web Development

Digital Marketing

Consumer Tech