Show certain fields based on the value of a field on the same form

[craig1988]

Hi



I have a field on my form called "QueryType" (it is a query management DB). When a user wants to log a query they must select a query type. It is a drop down box currently with 14 options. It gets its possible values from a lookup of another table.

Certain Queries require additional fields. When the query type is changed to lets say "DDIC", I want two additional fields to become visible (they are currently invisible) "OrigName" and "OrigNum".


I have tried the following code as onChange event of the field "QueryType" but to no avail

DDIC Has an ID of "3"

Private Sub QueryType_Change()
    Dim QueryID As Integer
    
    QueryID = DLookup("ID", "tblQueryTypes", "Type='" & Me.QueryType.Value & "'")
    If (QueryID) = 3 Then
        Me.lblOriginatorName.Visible = True
    End If
End Sub

[ranman256]

You're almost there,
first, you declared QueryID as INTEGER, yet you Dlookup the "Type='" & Me.QueryType.Value & "'" AS STRING.
Is the ID numeric or string?

I dont see the need to do the Dlookup if the user has already picked it in the combo box.
IF the table tblQueryTypes uses unique text codes (DDIC), then it doesnt need numeric keys. But if youve already started with numerics, keep it.

Does the combo box QUERY, have ID# keys AND text (DDIC) fields showing? It could be the combo box is set to the wrong BOUND COLUMN.

I would use:

Private Sub QueryType_Change()                              'combo boxs should be named with cbo prefix  ...cboQueryType
         lblOriginatorName.Visible = (QueryType) = 3        '  (with correct bound column)
         lblOrigNum.Visible = (QueryType) = 3
end sub