DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Text Box populated by Combo Box

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Nov 2004

Posts: 259

Reputation: sam1 is an unknown quantity at this point

Solved Threads: 1

sam1

Offline

Posting Whiz in Training

Text Box populated by Combo Box

Apr 30th, 2009

Hello,

I have an access database with 3 tables. The table i am working on is tblemployee.

On a form i have a combo box with the employee numbers. Now, when a user chooses an employee number from the drop down box, i want the initial and name of that employee to appear in a non-editable text box.

I have been trying to get this to work but get errors.

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Sub Employee_Change()
If Employee.Text > 0 Then
txtname.Visible = True
Dim Sqltxt As String
Sqltxt = "SELECT surname FROM TBLEmployee where [employee number] = " & Employee
 
DoCmd.OpenQuery (Sqltxt)
 
Else
txtname.Visible = False
End If
End Sub
Private Sub Employee_Change()
If Employee.Text > 0 Then
txtname.Visible = True
Dim Sqltxt As String
Sqltxt = "SELECT surname FROM TBLEmployee where [employee number] = " & Employee

DoCmd.OpenQuery (Sqltxt)

Else
txtname.Visible = False
End If
End Sub