Disable Check Boxes

sweet4511 · July 13th, 2005, 10:41 AM

Ok I'm sorry, what I mean is if the customer selects EURO then I don't want the customer to be able to select GBP also. SO if one is selected I want the other one to be grayed. If neither is selected I want the invoice form to show U.S. dollars by default.

I hope this helps

gbianchi · July 13th, 2005, 12:11 PM

so your code fails why??

it's look ok for me.. what part is not doing the job?? when you click one check, the other grayed???

HTH

Gonzalo

sweet4511 · July 13th, 2005, 12:46 PM

I can still click both checkboxes at the same time

marcostraf · July 13th, 2005, 01:03 PM

The Value property of the checkbox control is not a boolean, but an int: vbChecked or vbUnchecked. A boolan False is 0, True is -1. Unchecked is 0, checked is 1.

Private Sub GBP_Click()
Euro.Value = iif(GBP.Value = vbChecked, vbUnchecked, vbChecked)
End Sub

Marco

gbianchi · July 13th, 2005, 01:07 PM

ok.. let's see..

if you trace the following code:

Code:

 
Private Sub GBP_Click()
If Me.GBP.Value = True Then
    Me.EURO.enabled= False
 Else
    Me.EURO.enabled= False
End If
End Sub

did this work??
it should be disabling one of them.. also you will have to uncheck it if when you disable it with

(thanks marco!) euro.value = vbunchecked

can you trace the code to see if no other part enable it again???

HTH

Gonzalo

sweet4511 · July 13th, 2005, 01:11 PM

I don't get what your saying

sweet4511 · July 13th, 2005, 02:28 PM

Ok guys I tried all your ideals, I don't know what I'm doing wrong

gbianchi · July 13th, 2005, 02:46 PM

try this...

on a new form paste to check boxes and this code

Code:

Private Sub Check1_Click()
    If Check1.Value = vbChecked Then
        Check2.Enabled = False
    Else
        Check2.Enabled = True
    End If
End Sub

Private Sub Check2_Click()
    If Check2.Value = vbChecked Then
        Check1.Enabled = False
    Else
        Check1.Enabled = True
    End If
End Sub

and tell me if that is what you want.. if that is not then you are not explaining ok what you want...

HTH

Gonzalo

sweet4511 · July 13th, 2005, 03:48 PM

Ok I'm so sorry after reviewing what I trying to accomplish I realized that I was writing the code in the wrong object. Thank you so much for your help.

sweet4511 · July 13th, 2005, 03:53 PM

Now I wrote the code to display U.S. Dollars as default if nothing is selected, however I need to write a line of code to clear the field so if I check EURO or GBP is will display that and not U.S. dollars. Here's the code I wrote. I also put the code for disabling the checkboxes just in case you wanted to see it.

Thank you

'If EURO is chcked display EURO on invoice form
If Forms![Invoice Scanner].EURO = True Then
   Forms![Invoice Scanner]!InvSub.Form!CurPayIn = "EURO"
Else
    Forms![Invoice Scanner]!InvSub.Form!CurPayIn = "U.S. Dollars"
End If
' If GBP is checked on the contracts then display GBP on Invoice
If Forms![Invoice Scanner].GBP = True Then
    Forms![Invoice Scanner]!InvSub.Form!CurPayIn = "GBP"
Else
    Forms![Invoice Scanner]!InvSub.Form!CurPayIn = "U.S. Dollars"

End If

'Disable Checkbox.
Private Sub GBP_Click()
If Me.GBP.Value = True Then
    Me.EURO.Enabled = False
Me.EURO.Value = False
   Else
    Me.EURO.Enabled = True

End If
End Sub

'Disabling Checkboxes
Private Sub EURO_Click()

If Me.EURO.Value = True Then
    Me.GBP.Value = False
Me.GBP.Enabled = False
Else
    Me.GBP.Enabled = True
End If