List Box Code

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello:

I have an Access data project that is connected to a SQL Server 200 database.

I have two forms: Employees and Employee List:

Employee List has a list box on it. In the double click event, I have
placed the following code:

DoCmd.OpenForm "frmEmployees", , , , , , "EmployeeID =" &
Me.lstEmployees.Column(3)


On the On Load Event of the Employee Form, I have placed the following code:

Me.EmployeeID = Me.OpenArgs

When I double click on an entry in my list bix, the Employee form opens but
it doesn't navigate to my selected record. Instead, I get the following
error:

Runtime Error '2147352567 (80020009)':
The field EmployeeID is read only.

The employee id field is an Int, Identity field and is the primary key.

Any ideas on what I'm doing wrong.

Thanks
Brennan
 
The openform command line include the following
docmd.OpenForm "Formname",,,WhereCondition,,,OpenArgs

So if you want to open the form with a filter then it should be
DoCmd.OpenForm "frmEmployees", , , "EmployeeID =" & Me.lstEmployees.Column(3)
===============================================
If you want to pass a parmeter with open args then it should be
DoCmd.OpenForm "frmEmployees", , , , , , Me.lstEmployees.Column(3)
===============================================
Now about moving to the desire record with the open args use

With Me.RecordsetClone
If .RecordCount > 0 Then
.FindFirst "EmployeeID = " & Me.OpenArgs ' If Employee Number
use that
.FindFirst "EmployeeID = '" & Me.OpenArgs & "'" ' If Employee
String Use that
If Not .NoMatch Then
Me.Bookmark = .Bookmark
End If
End If
End With
 
Back
Top