[AccessD] Push code help please

Jim Lawrence accessd at shaw.ca
Wed Jan 11 20:04:08 CST 2006


Hi Joe:

Instead of:
me.txtEmployeeName.Text= me.Combo32.Column.(5)

...it is:
me.txtEmployeeName.Text = me.Combo32.Column(ColumnPosition, RowPosition)

Remember it starts from 0 for column and row position so if it is the 10
record in the 3rd column:
me.Combo32.Column(2, 9)

HTH
Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: January 11, 2006 4:22 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push code help please

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

 

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




More information about the AccessD mailing list