Control set to visible depending on text value of another control

[PhilTFC]

Hi i am sure this is a easy question for you guys

I need a [Location] control on a form when = "First*" set [Invoiced] on the sameform to visible

this is the code i am trying

Private Sub Location_BeforeUpdate(Cancel As Integer)
If Me.Location.Value = "First*" or "Arriva*" Then
Me.Invoiced.Visible = True


Else: Me.Invoiced.Visible = False
End If
End Sub

any help will be greatly appreciated

[Rod]

Er - what's the question?

[PhilTFC]

Hi Rod

Thank you for your reply

i need the [Invoiced] control on frmRecords to be visible when the [Location] on the frmRecords control contains the text "First*" or "Arriva*"
and not visible when the [Location] control contains other text.

[Rod]

Sorry, this sometimes still catches me out too.

If Me.Location.Value = "First*" or "Arriva*" Then

should be If Me.Location.Value = "First*" or Me.Location.Value = "Arriva*" Then

Also Else: is a little unusual but should be OK. More normal to see the Else by its own on a separate line.

All should now work.

[PhilTFC]

Have i got the code on the correct procedure setting (BeforeUpdate)? because the [Invoiced] control text box is not visible at all now


Private Sub Location_BeforeUpdate(Cancel As Integer)
If Me.Location.Value = "First*" Or Me.Location.Value = "Arriva*" Then
Me.Invoiced.Visible = True
Else: Me.Invoiced.Visible = False
End If
End Sub

[Rod]

Private Sub Location_BeforeUpdate(Cancel As Integer)
    If Me.Location.Value = "First*" Or Me.Location.Value = "Arriva*" Then
        Me.Invoiced.Visible = True
    Else
        Me.Invoiced.Visible = False
    End If
End Sub

In this case the before update event or the after update event may be used. After update may be marginally preferrable if you need to set the focus away from the [Invoiced] control.

... the [Invoiced] control text box is not visible at all now

There's nothing wrong with the code. Do you mean that the control is hidden upon form load? Either go to the form design window and set the [Invoiced] control's visible property to Yes or include a small procedure in the form's on load and on current events.

[PhilTFC]

I have tried your suggestions and the [Invoiced] control is still not showing at all.
There is only one form which is visible all the time. Could it have something to do with the widcard "*" ("First*" Or Me.Location.Value = "Arriva*") because there is more text so find in the [Location] control text box?

[Rod]

Argh!

Private Sub Location_BeforeUpdate(Cancel As Integer)
    If Me.Location.Value Like "First*" Or Me.Location.Value Like "Arriva*" Then
        Me.Invoiced.Visible = True
    Else
        Me.Invoiced.Visible = False
    End If
End Sub

Use the 'Like' operator! I thought you were testing for an asterisk.

[PhilTFC]

i thought that might do it but its still not showing the [Invoiced] control
i just tried it with the text "First" only and it worked but i need it to work on "First South Yorkshire" or "First West Yorkshire"for example
so it could be the way i am using the wildcard... almost there i can feel it

[Rod]

Can you post your db? Meanwhile I shall try to replicate your problem.

P.S. Later - works like a charm for me! Something else is going on - usually something quite obvious that will lead to that 'Duh!' moment. We'll have to debug your db.

[PhilTFC]

i keep getting a message saying the db is to big

[Rod]

Is that a forum message? You may have to Zip it.

[PhilTFC]

Hi Rod

The problem has now been solved, thank you so much for your time.
i attached this code on the OnCurrent event and it works a treat
Private Sub Form_Current()
If Left(Me.Location.Value, 5) = "First" Or _
Left(Me.Location.Value, 6) = "Arriva" Then
Me.txtInvoiced.Visible = True
Else
Me.txtInvoiced.Visible = False

End If
End Sub