What's wrong with this code?

  • Thread starter Thread starter Sue Compelling
  • Start date Start date
S

Sue Compelling

Hi

I have the following code which works perfectly when a user selects "1"
though does not work for when they select "10" ... what have I done wrong? ...

My code is ...

Private Sub Form_Current()

Me![contactsorg subform].Form.Visible = False = (Me.Type = 1) or (Me.Type =
10)
Me.Org_NameLabel.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.OName.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.OrgContacts_Label.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.Website.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.Website_Label.Visible = False = (Me.Type = 1) or (Me.Type = 10)
--


TIA


Sue Compelling
 
Sue Compelling said:
Hi

I have the following code which works perfectly when a user selects "1"
though does not work for when they select "10" ... what have I done wrong?
...

My code is ...

Private Sub Form_Current()

Me![contactsorg subform].Form.Visible = False = (Me.Type = 1) or (Me.Type
=
10)
Me.Org_NameLabel.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.OName.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.OrgContacts_Label.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.Website.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.Website_Label.Visible = False = (Me.Type = 1) or (Me.Type = 10)
--


TIA


Sue Compelling
Click to expand...

Lose the '= False' from each line.
 
Hi Sue,

The following 2 examples of code should explain it for you. Basically you
want to equate to True or False. The second example shows how to obtain the
opposite result.

'Example 1. Equates to True if Me.Type is 1 or 10
MsgBox "Me.Type = " & Me.Type & Chr(13) & _
"Result = " & ((Me.Type = 1) Or (Me.Type = 10))

Me.Text1.Visible = ((Me.Type = 1) Or (Me.Type = 10))
Me.Text2.Visible = ((Me.Type = 1) Or (Me.Type = 10))
Me.Text3.Visible = ((Me.Type = 1) Or (Me.Type = 10))

'Example 2. Equates to False if Me.Type is 1 or 10
MsgBox "Me.Type = " & Me.Type & Chr(13) & _
"Result = " & Not ((Me.Type = 1) Or (Me.Type = 10))

Me.Text1.Visible = Not ((Me.Type = 1) Or (Me.Type = 10))
Me.Text2.Visible = Not ((Me.Type = 1) Or (Me.Type = 10))
Me.Text3.Visible = Not ((Me.Type = 1) Or (Me.Type = 10))
 
Brilliant Stuart - that worked perfectly for existing records.

Is there a way I can stop the "Runtime Error 13 - type mismatch" happening
when I go to add a new record with this code (I think it's something to do
with the subform?)

--
Sue Compelling


Stuart McCall said:
Sue Compelling said:
Hi

I have the following code which works perfectly when a user selects "1"
though does not work for when they select "10" ... what have I done wrong?
...

My code is ...

Private Sub Form_Current()

Me![contactsorg subform].Form.Visible = False = (Me.Type = 1) or (Me.Type
=
10)
Me.Org_NameLabel.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.OName.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.OrgContacts_Label.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.Website.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.Website_Label.Visible = False = (Me.Type = 1) or (Me.Type = 10)
--


TIA


Sue Compelling
Click to expand...

Lose the '= False' from each line.
Click to expand...
 
Thanks OssieMac for the breakdown - Cheers
--
Sue Compelling


OssieMac said:
Hi Sue,

The following 2 examples of code should explain it for you. Basically you
want to equate to True or False. The second example shows how to obtain the
opposite result.

'Example 1. Equates to True if Me.Type is 1 or 10
MsgBox "Me.Type = " & Me.Type & Chr(13) & _
"Result = " & ((Me.Type = 1) Or (Me.Type = 10))

Me.Text1.Visible = ((Me.Type = 1) Or (Me.Type = 10))
Me.Text2.Visible = ((Me.Type = 1) Or (Me.Type = 10))
Me.Text3.Visible = ((Me.Type = 1) Or (Me.Type = 10))

'Example 2. Equates to False if Me.Type is 1 or 10
MsgBox "Me.Type = " & Me.Type & Chr(13) & _
"Result = " & Not ((Me.Type = 1) Or (Me.Type = 10))

Me.Text1.Visible = Not ((Me.Type = 1) Or (Me.Type = 10))
Me.Text2.Visible = Not ((Me.Type = 1) Or (Me.Type = 10))
Me.Text3.Visible = Not ((Me.Type = 1) Or (Me.Type = 10))


--
Regards,

OssieMac


Sue Compelling said:
Hi

I have the following code which works perfectly when a user selects "1"
though does not work for when they select "10" ... what have I done wrong? ...

My code is ...

Private Sub Form_Current()

Me![contactsorg subform].Form.Visible = False = (Me.Type = 1) or (Me.Type =
10)
Me.Org_NameLabel.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.OName.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.OrgContacts_Label.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.Website.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.Website_Label.Visible = False = (Me.Type = 1) or (Me.Type = 10)
--


TIA


Sue Compelling
Click to expand...
Click to expand...
 
Pleased to help Sue. On the question in your reply to Stuart. That error is
normally due to incorrect data type. Quote from help: For example, a variable
that requires an integer value can't accept a string value unless the whole
string can be recognized as an integer.

However, I have previously seen incorrect error messages for the actual
error so ensure that it is not a Null value causing the problem. Try the Nz
function in conjunction with Me.Type so that it will equate to zero in lieu
of Null. See help for more info if you are not familiar with it.

Example
Me.Text1.Visible = ((Nz(Me.Type,0) = 1) Or (Nz(Me.Type,0) = 10))
--
Regards,

OssieMac


Sue Compelling said:
Thanks OssieMac for the breakdown - Cheers
--
Sue Compelling


OssieMac said:
Hi Sue,

The following 2 examples of code should explain it for you. Basically you
want to equate to True or False. The second example shows how to obtain the
opposite result.

'Example 1. Equates to True if Me.Type is 1 or 10
MsgBox "Me.Type = " & Me.Type & Chr(13) & _
"Result = " & ((Me.Type = 1) Or (Me.Type = 10))

Me.Text1.Visible = ((Me.Type = 1) Or (Me.Type = 10))
Me.Text2.Visible = ((Me.Type = 1) Or (Me.Type = 10))
Me.Text3.Visible = ((Me.Type = 1) Or (Me.Type = 10))

'Example 2. Equates to False if Me.Type is 1 or 10
MsgBox "Me.Type = " & Me.Type & Chr(13) & _
"Result = " & Not ((Me.Type = 1) Or (Me.Type = 10))

Me.Text1.Visible = Not ((Me.Type = 1) Or (Me.Type = 10))
Me.Text2.Visible = Not ((Me.Type = 1) Or (Me.Type = 10))
Me.Text3.Visible = Not ((Me.Type = 1) Or (Me.Type = 10))


--
Regards,

OssieMac


Sue Compelling said:
Hi

I have the following code which works perfectly when a user selects "1"
though does not work for when they select "10" ... what have I done wrong? ...

My code is ...

Private Sub Form_Current()

Me![contactsorg subform].Form.Visible = False = (Me.Type = 1) or (Me.Type =
10)
Me.Org_NameLabel.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.OName.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.OrgContacts_Label.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.Website.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.Website_Label.Visible = False = (Me.Type = 1) or (Me.Type = 10)
--


TIA


Sue Compelling
Click to expand...
Click to expand...
Click to expand...
 
Sue Compelling said:
Brilliant Stuart - that worked perfectly for existing records.

Is there a way I can stop the "Runtime Error 13 - type mismatch" happening
when I go to add a new record with this code (I think it's something to
do
with the subform?)
Click to expand...
<snip>

Surround your code with a test for the new record being current, like this:

If Not Me.NewRecord Then

'Your code here

End If

So the code will now only execute when an existing record is current.
 
Thanks OssieMac for following through ... I did Stuart's trick and it worked
a charm ... cheers
--
Sue Compelling


OssieMac said:
Pleased to help Sue. On the question in your reply to Stuart. That error is
normally due to incorrect data type. Quote from help: For example, a variable
that requires an integer value can't accept a string value unless the whole
string can be recognized as an integer.

However, I have previously seen incorrect error messages for the actual
error so ensure that it is not a Null value causing the problem. Try the Nz
function in conjunction with Me.Type so that it will equate to zero in lieu
of Null. See help for more info if you are not familiar with it.

Example
Me.Text1.Visible = ((Nz(Me.Type,0) = 1) Or (Nz(Me.Type,0) = 10))
--
Regards,

OssieMac


Sue Compelling said:
Thanks OssieMac for the breakdown - Cheers
--
Sue Compelling


OssieMac said:
Hi Sue,

The following 2 examples of code should explain it for you. Basically you
want to equate to True or False. The second example shows how to obtain the
opposite result.

'Example 1. Equates to True if Me.Type is 1 or 10
MsgBox "Me.Type = " & Me.Type & Chr(13) & _
"Result = " & ((Me.Type = 1) Or (Me.Type = 10))

Me.Text1.Visible = ((Me.Type = 1) Or (Me.Type = 10))
Me.Text2.Visible = ((Me.Type = 1) Or (Me.Type = 10))
Me.Text3.Visible = ((Me.Type = 1) Or (Me.Type = 10))

'Example 2. Equates to False if Me.Type is 1 or 10
MsgBox "Me.Type = " & Me.Type & Chr(13) & _
"Result = " & Not ((Me.Type = 1) Or (Me.Type = 10))

Me.Text1.Visible = Not ((Me.Type = 1) Or (Me.Type = 10))
Me.Text2.Visible = Not ((Me.Type = 1) Or (Me.Type = 10))
Me.Text3.Visible = Not ((Me.Type = 1) Or (Me.Type = 10))


--
Regards,

OssieMac


:

Hi

I have the following code which works perfectly when a user selects "1"
though does not work for when they select "10" ... what have I done wrong? ...

My code is ...

Private Sub Form_Current()

Me![contactsorg subform].Form.Visible = False = (Me.Type = 1) or (Me.Type =
10)
Me.Org_NameLabel.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.OName.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.OrgContacts_Label.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.Website.Visible = False = (Me.Type = 1) or (Me.Type = 10)
Me.Website_Label.Visible = False = (Me.Type = 1) or (Me.Type = 10)
--


TIA


Sue Compelling
Click to expand...
Click to expand...
Click to expand...
 
Back
Top