Changing the input state of Control element between a choice list or type text input

[ThunderSpark]

Hello, I am currently trying to build a form (which is actually a subform) with some inputs that can be chosen from under certain circumstances.

There is a certain control element that has two inputs and that is the Type Uitlener (type of loaner) which can only be two value's, Intern and Extern.

Now the Idea is the following there a second control Element where the name of the Loaner has to been put in. Normally this input elements is choice list with typing. This will pull a list of Intern Loaners, however there is not list for the extern Loaners, so they have to be able to freely type their name.

So in essence this means the following:

If lstTUI = Extern
Then txtNUE = textcontrol typing no choice list
Else
TxtNUE = Combolist

[CJ_London]

can cannot dynamically change a control type. What you can do is have two controls place on top of each other then depending on the uitlener value, show one or the other.

txNue.visible=lstTut="Extern"
cboNue.visible=lstTut="Intern"

An alternative, more complex solution would be to build your own control combination. It might consist of a textbox, for the user to enter details, a button to represent the combo dropdown button and a list box to represent the dropdown values which appears below the textbox when required.

[isladogs]

In your If statement, use the row source property set to your existing value list, otherwise leave the row source blank.
Or, perhaps better, have a text box overlaying your combo.
Add code so the textbox is hidden when the combo is visible and vice versa

[ThunderSpark]

can cannot dynamically change a control type. What you can do is have two controls place on top of each other then depending on the uitlener value, show one or the other.




An alternative, more complex solution would be to build your own control combination. It might consist of a textbox, for the user to enter details, a button to represent the combo dropdown button and a list box to represent the dropdown values which appears below the textbox when required.

I see I will try the simple option but do I have to insert the VBA code as Form Load command, Click or change command?

[CJ_London]

suggest 2 places

1. the uitlener control afterupdate event
2. form current event so will display whatever is the right control when record is opened - or nothing for new records or where uitlener has not been populated


you can write the code once in the uitlener afterupdate event and in the form current event put

uitlener_afterupdate

[ThunderSpark]

Sorry but no further progress even doing both form Update and seperatly does not seem to work.

Private Sub Form_Current()
If lstTUI = "Intern" Then
txtNUIT.Visible = False
lstNUIT.Visible = True
ElseIf lstTUI = "Extern" Then
txtNUIT.Visible = True
lstNUIT.Visible = False
End If
End Sub
Private Sub lstTUI__lstTUI_AfterUpdate()
If lstTUI = "Intern" Then
txtNUIT.Visible = False
lstNUIT.Visible = True
ElseIf lstTUI = "Extern" Then
txtNUIT.Visible = True
lstNUIT.Visible = False
End If
End Sub

Screenshot:


Edit the Problem is Solved:

Private Sub Form_Load()
If lstTUI__lstTUI.Value = "Intern" Then
 lstNUIT.Visible = True
 txtNUIT.Visible = False
 txtNUIT.DefaultValue = vbNullString
 Else
 lstNUIT.Visible = False
 txtNUIT.Visible = True
 lstNUIT.DefaultValue = vbNullString
 End If
If txtstatus.Value = "Uitgeleend" Then
    lstTUI__lstTUI.Enabled = False
    lstNUIT.Enabled = False
    txtNUIT.Enabled = False
    Datum.Enabled = False
    Knop76.Enabled = False
    Knop83.Enabled = True
Else
    txtNUIT.Enabled = True
    Datum.Enabled = True
    Knop76.Enabled = True
    Knop83.Enabled = False
    txtuitlener.Enabled = False
    txtuitlener.DefaultValue = vbNullString
    txtuitgeleendtot.Enabled = False
    txtuitgeleendtot.DefaultValue = vbNullString
End If
End Sub

Private Sub lstTUI__lstTUI_AfterUpdate()
If lstTUI__lstTUI.Value = "Intern" Then
 lstNUIT.Visible = True
 txtNUIT.Visible = False
 txtNUIT.DefaultValue = vbNullString
 Else
 lstNUIT.Visible = False
 txtNUIT.Visible = True
 lstNUIT.DefaultValue = vbNullString
 End If
End Sub