circlestech
Registered User.
- Local time
- Today, 04:07
- Joined
- Aug 7, 2006
- Messages
- 10
Hello,
I'm pulling my hair out i now getting Block if without end if and it's showing a problem with my formload part.
Here's the code:
Private Sub Form_Load()
If frmOyezstrakerCustomerMailOrderSub!CustomerCardType.Enabled = False Then Me.CustomerAddress.Enabled = False
If frmOyezstrakerCustomerMailOrderSub!CustomerCardType.Enabled = False Then Me.CustomerPostCode.Enabled = False
RefreshDetails
If MsgBox("Would you like to start a new Customer Order?", vbYesNo, "New Customer Order?") = vbYes Then
DoCmd.GoToRecord , , acNewRec
If IsNull(Me.txtRecordNumber) = False Then Me.txtRecordNumber.Visible = False
If IsNull(Me.txtTotalRecords) = False Then Me.txtRecordNumber.Visible = False
If Above = False Then Me.Record_Label.Visible = False
If Above = False Then Me.RecordOf_Label.Visible = False
Else
If IsNull(Me.CustomerDetailsID) Then
If MsgBox("No Customer Orders Found!", vbOKOnly, "Error Message") = vbOK Then
DoCmd.RunCommand acCmdCloseWindow
End If
End Sub
Where have i gone wrong?
Thanks
I'm pulling my hair out i now getting Block if without end if and it's showing a problem with my formload part.
Here's the code:
Private Sub Form_Load()
If frmOyezstrakerCustomerMailOrderSub!CustomerCardType.Enabled = False Then Me.CustomerAddress.Enabled = False
If frmOyezstrakerCustomerMailOrderSub!CustomerCardType.Enabled = False Then Me.CustomerPostCode.Enabled = False
RefreshDetails
If MsgBox("Would you like to start a new Customer Order?", vbYesNo, "New Customer Order?") = vbYes Then
DoCmd.GoToRecord , , acNewRec
If IsNull(Me.txtRecordNumber) = False Then Me.txtRecordNumber.Visible = False
If IsNull(Me.txtTotalRecords) = False Then Me.txtRecordNumber.Visible = False
If Above = False Then Me.Record_Label.Visible = False
If Above = False Then Me.RecordOf_Label.Visible = False
Else
If IsNull(Me.CustomerDetailsID) Then
If MsgBox("No Customer Orders Found!", vbOKOnly, "Error Message") = vbOK Then
DoCmd.RunCommand acCmdCloseWindow
End If
End Sub
Where have i gone wrong?
Thanks