How to disable/enable a textbox, from Combobox

[jhazziejhazz]

I have this user form, with various textboxes, and my goal is to disable some these textbox.

I have a combobox with options "Inventory In" and "Inventory Out" - I want to disable some textboxes whenever I pick "inventory in".

Please check attached image.

Thanks you everyone.

Jhazzie

 

[fadee2]

try

sub abc()
if combobox1.value = "Inventory In" then 
textbox1.enabled = false
textbox2.enabled = false
textbox3.enabled = false
....
....
end if
end sub

where combobox1 is your transaction type and textbox1, 2, 3, .... are your Inventory out textboxes.
Rename your controls with reference to your userform....



hth...

 

[mohadin]

May be

Private Sub ComboBox1_Change()
    Select Case Me.ComboBox1.Value
    Case "Inventory In" 
        TextBox1.Enabled = False
    Case "Inventory Out" 
        TextBox1.Enabled = True
    End If
End Sub

 

[mohadin]

Hi again
a typo in the previous code
Correction

Private Sub ComboBox1_Change()
    Select Case Me.ComboBox1.Value
    Case "Inventory In"
        TextBox1.Enabled = False
    Case "Inventory Out"
        TextBox1.Enabled = True
    End Select
End Sub

 

[jhazziejhazz]

try

sub abc()
if combobox1.value = "Inventory In" then
textbox1.enabled = false
textbox2.enabled = false
textbox3.enabled = false
....
....
end if
end sub

where combobox1 is your transaction type and textbox1, 2, 3, .... are your Inventory out textboxes.
Rename your controls with reference to your userform....



hth...

Hi Mohadin,

Thank you for your quick response. The code did work just fine, just that when I pick inventory IN, it did disable the textboxes I want to disable (cmbCustName, txtSelling and the rest), however if I switch the transaction type to "Inventory Out" the disabled textboxes such as cbmCustName, txtSelling doesn not go back to being enable again. Is there any trick to fix this.
(please checked attached image)
Thanks again

Here are the codes I used.


Private Sub cmbTransType_Change()

If Me.cmbTransType.Value = "Inventory In" Then

Me.cmbCustName.Enabled = False
Me.txtSelling.Enabled = False
Me.txtQty.Enabled = False
Me.txtDate.Enabled = False
Me.txtProforma.Enabled = False
Me.txtPONo.Enabled = False

Me.cmbCustName.BackColor = 16777215
End If

If Me.cmbTransType.Value = "Inventory Out" Then

Me.txtRRNo.Enabled = False
Me.cmbOrderType.Enabled = False
Me.txtTransdate.Enabled = False
Me.txt_Qty.Enabled = False
Me.txt_Cost.Enabled = False
Me.txtSupplierInvoice.Enabled = False
End If

End Sub

 

[mohadin]

Hi
you are addressing me and showing other code
Any way try

Private Sub cmbTransType_Change()
    Select Case Me.cmbTransType.Value
    Case "Inventory In"
        Me.cmbCustName.Enabled = False
        Me.txtSelling.Enabled = False
        Me.txtQty.Enabled = False
        Me.txtDate.Enabled = False
        Me.txtProforma.Enabled = False
        Me.txtPONo.Enabled = False
        Me.cmbCustName.BackColor = 16777215
    Case "Inventory Out"
        Me.cmbCustName.Enabled = True
        Me.txtSelling.Enabled = True
        Me.txtQty.Enabled = True
        Me.txtDate.Enabled = True
        Me.txtProforma.Enabled = True
        Me.txtPONo.Enabled = True
        Me.cmbCustName.BackColor = &H80000005
    End Select
End Sub

And for your original code should be

Private Sub cmbTransType_Change()
    If Me.cmbTransType.Value = "Inventory In" Then
        Me.cmbCustName.Enabled = False
        Me.txtSelling.Enabled = False
        Me.txtQty.Enabled = False
        Me.txtDate.Enabled = False
        Me.txtProforma.Enabled = False
        Me.txtPONo.Enabled = False
        Me.cmbCustName.BackColor = 16777215
    End If
    If Me.cmbTransType.Value = "Inventory Out" Then
        Me.txtRRNo.Enabled = True
        Me.cmbOrderType.Enabled = True
        Me.txtTransdate.Enabled = True
        Me.txt_Qty.Enabled = True
        Me.txt_Cost.Enabled = True
        Me.txtSupplierInvoice.Enabled = True
        Me.cmbCustName.BackColor = &HFFFFFF
    End If
End Sub

 

[dmt32]

I want to disable (cmbCustName, txtSelling and the rest), however if I switch the transaction type to "Inventory Out" the disabled textboxes such as cbmCustName, txtSelling doesn not go back to being enable again. Is there any trick to fix this.

Hi,
untested but try this update to your code & see if helps

Private Sub cmbTransType_Change()
    Dim i       As Integer
    Dim State   As Boolean
    State = Me.cmbTransType.Value Like "*Out"
    For i = 1 To 6
        Choose(i, Me.cmbCustName, Me.txtSelling, Me.txtQty, Me.txtDate, Me.txtProforma, Me.txtPONo).Enabled = State
    Next i
    Me.cmbCustName.BackColor = IIf(State, &H80000005, 16777215)
End Sub

Dave

 

[jhazziejhazz]

Its working.
Thank you Mohadin.
You're amazing.

Hi
you are addressing me and showing other code
Any way try

Private Sub cmbTransType_Change()
    Select Case Me.cmbTransType.Value
    Case "Inventory In"
        Me.cmbCustName.Enabled = False
        Me.txtSelling.Enabled = False
        Me.txtQty.Enabled = False
        Me.txtDate.Enabled = False
        Me.txtProforma.Enabled = False
        Me.txtPONo.Enabled = False
        Me.cmbCustName.BackColor = 16777215
    Case "Inventory Out"
        Me.cmbCustName.Enabled = True
        Me.txtSelling.Enabled = True
        Me.txtQty.Enabled = True
        Me.txtDate.Enabled = True
        Me.txtProforma.Enabled = True
        Me.txtPONo.Enabled = True
        Me.cmbCustName.BackColor = &H80000005
    End Select
End Sub

And for your original code should be

Private Sub cmbTransType_Change()
    If Me.cmbTransType.Value = "Inventory In" Then
        Me.cmbCustName.Enabled = False
        Me.txtSelling.Enabled = False
        Me.txtQty.Enabled = False
        Me.txtDate.Enabled = False
        Me.txtProforma.Enabled = False
        Me.txtPONo.Enabled = False
        Me.cmbCustName.BackColor = 16777215
    End If
    If Me.cmbTransType.Value = "Inventory Out" Then
        Me.txtRRNo.Enabled = True
        Me.cmbOrderType.Enabled = True
        Me.txtTransdate.Enabled = True
        Me.txt_Qty.Enabled = True
        Me.txt_Cost.Enabled = True
        Me.txtSupplierInvoice.Enabled = True
        Me.cmbCustName.BackColor = &HFFFFFF
    End If
End Sub

 

[jhazziejhazz]

Hi,
untested but try this update to your code & see if helps

Private Sub cmbTransType_Change()
    Dim i       As Integer
    Dim State   As Boolean
    State = Me.cmbTransType.Value Like "*Out"
    For i = 1 To 6
        Choose(i, Me.cmbCustName, Me.txtSelling, Me.txtQty, Me.txtDate, Me.txtProforma, Me.txtPONo).Enabled = State
    Next i
    Me.cmbCustName.BackColor = IIf(State, &H80000005, 16777215)
End Sub

Dave

Hi dave,

Thanks again for your reply.

The code is working too. You guys are so amazing.


Jhazzie