[AccessD] FW: Hi I am back and stuck Follow up

Joe Hecht jmhecht at earthlink.net
Sun Jun 17 11:18:51 CDT 2007


Its Joe

The code refers to "str"

If the record number is a long integer would that cause my issue and what is
the easiest way to fix it?

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Saturday, June 16, 2007 8:50 PM
To: AccessD at databaseadvisors.com
Subject: [AccessD] Hi I am back and stuck

Hi Gang,

 

I am back and feeling silly. Can not make combo box work.

 

I want to go to the record the combo selects

 

 

 

Private Sub Combo27_AfterUpdate()

    ' Find the record that matches the control.

    Dim rs As Object

 

    Set rs = Me.Recordset.Clone

    rs.FindFirst "[EmpRecNum] = " & Str(Nz(Me![Combo27], 0))

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

 

The sql

 

SELECT tblEmployee.EmpRecNum, tblEmployee.EmpNumber, tblEmployee.EmpFname,
tblEmployee.EmpLName, [emplname] & ", " & [empfname] & " " & [empNumber] AS
Expr1

FROM tblEmployee

ORDER BY tblEmployee.EmpLName;

 

I have it so that it is showing expression one but I get 

 

Run time error 13 on the following code line:

 

rs.FindFirst "[EmpRecNum] = " & Str(Nz(Me![Combo27], 0))

 

 

Please advise

 

Thanks

 

Joe

-- 
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