Joe Hecht
jmhecht at earthlink.net
Wed Jan 11 18:22:12 CST 2006
This is the sql that controls Combo32
SELECT [20_tblAIMaster340].ACCIDENT,
[20_tblAIMaster340].DRIV_NUM,
[10_tbl_PersonelMasterData].LAST_NAME,
[10_tbl_PersonelMasterData].FIRST_NAME,
[10_tbl_PersonelMasterData].MIDDLE_Name, [Last_Name] & ", "
& [First_Name] & " " & [Middle_Name] AS Fname
FROM 10_tbl_PersonelMasterData INNER JOIN 20_tblAIMaster340
ON [10_tbl_PersonelMasterData].DRIV_NUM =
[20_tblAIMaster340].DRIV_NUM;
I want to put FNAME from above into txtEmployeeName
Private Sub Combo32_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ACCIDENT] = '" & Me![Combo32] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
me.txtEmployeeName.Text= me.Combo32.Column.(6)
I can not trace syntax error I get when I added bottom line
of code.
The get the record code is good.
Is it source = target or target = source
About to put my head my ADH
Thanks
Joe Hecht
jmhecht at earthlink.net