Userform textbox update

Hi Joe..

In the attached file, I firstly modified your code for Private Sub txtBx4_AfterUpdate()  behind the Testdb UserFormto:

1. act when Enter is pressed after text is added to txtBx3 (under "Code" in the form)
2. be a series of If/ Then statements as leblow:

Private Sub txtBx3_AfterUpdate()
    'Updated to change txtBx4 based txtBx3 text

    If Me.txtBx3.Value = "" Then
    Me.txtBx4 = ""
    End If
    If Me.txtBx3 = "Al" Then
    Me.txtBx4 = "Aluminium"
    End If
    If Me.txtBx3 = "St" Then
    Me.txtBx4 = "Steel"

    End If
End Sub

While that works, I've commented that out in favour of the Select Case approach - which detects incorrect codes.(see the "Case Else" lines after the blank line "Case Else"):and would allow you to easily expand it for other Code categories e.g."Tu" for Tungsten Steel"):

Private Sub txtBx3_AfterUpdate()
    ' Alternative code using Cases (easily expanable)
    Select Case Me.txtBx3.Value
        Case ""
        Me.txtBx4 = ""
        Case "Al"
        Me.txtBx4 = "Aluminium"
        Case "St"
        Me.txtBx4 = "Steel"
        ' add more cases as you like here:

        Case Else
        Me.txtBx4 = "Wrong Code?"
    End Select

End Sub

Note that each Case match has just one action above (change tctBx4 to suit) but you could add lines do other actions e.g. change the font/ colour.

Both codes are in in the attached, revised file.

Hope this solves your problem. If so, please mark this Answer as Selected. Thanks