When I select one field the other fields are displayed. (1 Viewer)

[milly62]

I would like to help someone solve the following problem.
When I select one field the other fields are displayed.
See the pictures attached.

Thanks in advance

 

[jdraw]

We need more info. My suspicion is that you are using lookups in the table field definition. Please show us table definitions and any code related to the picture you posted.

 

[cheekybuddha]

What are the names of the controls?

You have:
checkbox
combobox
textbox

 

[cheekybuddha]

Also, is the checkbox bound to a field in the form's RecordSource?

 

[milly62]

My code is
Private Sub CheckBoxName_AfterUpdate()

With Me
.FirstTextBoxName.Visible = .CheckBoxName
.SecondTextBoxName.Visible = .CheckBoxName
End With

End Sub

 

[Micron]

If by "When I select one field the other fields are displayed" if the "one" field is the checkbox, it seems it will do exactly what you want so I don't see what the problem is. If by "one" field you mean one of the textboxes then you must have code on one or both of those textboxes and it's interfering with your desired result. The problem isn't clear.

 

[milly62]

Thanks for explaining

 

[Micron]

then you must have code on one or both of those textboxes and it's interfering with your desired result.

I hope you didn't think I meant "you must have" to mean you need to add something. I meant it is a possible reason for why it would not be functioning correctly if that's the case. For me, I still don't understand what the problem is, or even if there is one.

 

[zeroaccess]

FirstTextBoxName.Visible = (CheckBoxName = True)
SecondTextBoxName.Visible = (CheckBoxName = True)

Or

Select Case True
    Case CheckBoxName = True
        Me.FirstTextBoxName.Visible = True
        Me.SecondTextBoxName.Visible = True
    Case CheckBoxName = False
        Me.FirstTextBoxName.Visible = False
        Me.SecondTextBoxName.Visible = False
    End Select

 

[arnelgp]

the code you posted on post#5 will work.
if the checkbox is bound, then you need to add code to the
Current Event of the form to automatically show/hide the 2 textboxes:

Private Sub Form_Current()
Me.CheckboxName.SetFocus
Call CheckboxName_AfterUpdate()
End Sub

 

[milly62]

Thanks zeroaccess


What actions do I attach to this code?

 

[milly62]

Here is my form with problems.
It is in romanian language.

 

[arnelgp]

cannot edit form without getting error ('coz of extendend character sets on your control name):
add code to AfterUpdate event of checkbox (Bifare191).
add code to the Form's Current event:

Private Sub Bifare191_AfterUpdate()
'Bifare191
With Me
    .Controls("Etichetã194").Visible = Nz(.Controls("Bifare191").Value, 0)
    .Controls("Etichetă196").Visible = Nz(.Controls("Bifare191").Value, 0)

    .Controls("Combo193").Visible = Nz(.Controls("Bifare191").Value, 0)
    .Controls("Text195").Visible = Nz(.Controls("Bifare191").Value, 0)
End With
End Sub

Private Sub Form_Current()
    Dim strControlName As String
  
    strControlName = "~"
    On Error Resume Next
    strControlName = Me.ActiveControl.Name
  
    If InStr("/Combo193/Text195/", strControlName) > 0 Then
        Me.Controls("Bifare191").SetFocus
  
    End If
  
    Call Bifare191_AfterUpdate
  
End Sub

 

[milly62]

Private Sub Bifare191_AfterUpdate() 'Bifare191 With Me .Controls("Etichetã194").Visible = Nz(.Controls("Bifare191").Value, 0) .Controls("Etichetă196").Visible = Nz(.Controls("Bifare191").Value, 0) .Controls("Combo193").Visible = Nz(.Controls("Bifare191").Value, 0) .Controls("Text195").Visible = Nz(.Controls("Bifare191").Value, 0) End With End Sub Private Sub Form_Current() Dim strControlName As String strControlName = "~" On Error Resume Next strControlName = Me.ActiveControl.Name If InStr("/Combo193/Text195/", strControlName) > 0 Then Me.Controls("Bifare191").SetFocus End If Call Bifare191_AfterUpdate End Sub

I do, but see attachment 1, 2 and 3

 

[arnelgp]

you must edit the db using the Language where the db is created.

 

[milly62]

What are the names of the controls?

You have:
checkbox
combobox
textbox

See database