Private Sub CmdCancelReport_Click()
Dim a As Integer
Dim b As Integer
'CUSTOMERS_ORDERSstatus.SetFocus
If CUSTOMERS_ORDERSstatus.text = "" Then
a = MsgBox("Are you sure?", vbYesNo)
If a = vbYes Then
CmdCancelHeshbonit.Caption = "yes"
CUSTOMERS_ORDERSstatus.Text = "cancelled"
Else
Exit Sub
End If
Else
b = MsgBox("Are you sure?", vbYesNo)
If b = vbYes Then
CmdCancelHeshbonit.Caption = "go"
CUSTOMERS_ORDERSstatus.SetFocus
CUSTOMERS_ORDERSstatus.Text = ""
Else
Exit Sub
End If
End If
End Sub
Access sais that CUSTOMERS_ORDERSstatus should be on focus, however when I set focus onto it, Access sais I can't do it
Is that Bill or me?
Dim a As Integer
Dim b As Integer
'CUSTOMERS_ORDERSstatus.SetFocus
If CUSTOMERS_ORDERSstatus.text = "" Then
a = MsgBox("Are you sure?", vbYesNo)
If a = vbYes Then
CmdCancelHeshbonit.Caption = "yes"
CUSTOMERS_ORDERSstatus.Text = "cancelled"
Else
Exit Sub
End If
Else
b = MsgBox("Are you sure?", vbYesNo)
If b = vbYes Then
CmdCancelHeshbonit.Caption = "go"
CUSTOMERS_ORDERSstatus.SetFocus
CUSTOMERS_ORDERSstatus.Text = ""
Else
Exit Sub
End If
End If
End Sub
Access sais that CUSTOMERS_ORDERSstatus should be on focus, however when I set focus onto it, Access sais I can't do it
Is that Bill or me?