I am trying to write a script so that when two text boxes from different forms are compared, if they are not equal a msgbox pops up and give two btns Yes and Calcel.

So when "If Forms![Main Details]!TS <> Forms![AZ Fees & Costs]!TS = True" a msg box appears with a yes btn and a cancel btn. The yes btn I need to open a blank form, which I believe I already have writen code for. As of right now the only btn I get is "Okay" and then I can't have the btn do any action.

Code:

Private Sub Command152_Click()
On Error GoTo Command152_Click_Err

If State = "AZ" Then
DoCmd.OpenForm "AZ Fees & Costs"
DoCmd.RunMacro "Find_on_click_TS2"

If Forms![Main Details]!TS <> Forms![AZ Fees & Costs]!TS = True Then
Select Case MsgBox("TS# is not in Fees & Costs, would you like to add it now?" _
& vbYesCalcel)
Case vbYes
DoCmd.OpenForm "AZ Fees & Costs"
DoCmd.GoToRecord , , acNewRec
Case vbCalcel
'Do Nothing
End Select

End If