Can not pull up record with combo box

[George]

I am trying to use a combo box to pull up records.
When I select a name in the combo box then leave the
form open and then manually run the query it gives
me the results I want, so I know that part works. I read
to add this statement to the "Afterupdate" on my Combo Box
so I did and I keep getting an error message - which states

"You entered an expression that has an invalid reference to the Recordsetclone
property"

Here is the Afterupdate I added - I changed the Combo box name to mine

Private Sub Combo2_AfterUpdate()
Me.RecordsetClone.Findfirst "[ID] = " & Me![Combo2]
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

What am I doing wrong ?

Thanks - George

 

[Klatuu]

Private Sub Combo2_AfterUpdate()
Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.Findfirst "[ID] = " & Me![Combo2]
If rst.NoMatch Then
MsgBox "Record Not Found"
Else
Me.Bookmark = rst.Bookmark
End If
Set rst = Nothing
End Sub

 

[George]

Thanks for the response but now I am getting a new error message

"Method or data member not found"
The foloowing part of the code comes back highlighted " !Combo2 "

Thanks

Private Sub Combo2_AfterUpdate()
Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.Findfirst "[ID] = " & Me![Combo2]
If rst.NoMatch Then
MsgBox "Record Not Found"
Else
Me.Bookmark = rst.Bookmark
End If
Set rst = Nothing
End Sub

I am trying to use a combo box to pull up records.
When I select a name in the combo box then leave the
form open and then manually run the query it gives
me the results I want, so I know that part works. I read
to add this statement to the "Afterupdate" on my Combo Box
so I did and I keep getting an error message - which states

"You entered an expression that has an invalid reference to the Recordsetclone
property"

Here is the Afterupdate I added - I changed the Combo box name to mine

Private Sub Combo2_AfterUpdate()
Me.RecordsetClone.Findfirst "[ID] = " & Me![Combo2]
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

What am I doing wrong ?

Thanks - George

 

[Klatuu]

Is the name of your control Combo2?
I don't see the problem. This is the most common way to find a value in a
field and make the record found the current record in the form.

Thanks for the response but now I am getting a new error message

"Method or data member not found"
The foloowing part of the code comes back highlighted " !Combo2 "

Thanks

Private Sub Combo2_AfterUpdate()
Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.Findfirst "[ID] = " & Me![Combo2]
If rst.NoMatch Then
MsgBox "Record Not Found"
Else
Me.Bookmark = rst.Bookmark
End If
Set rst = Nothing
End Sub

I am trying to use a combo box to pull up records.
When I select a name in the combo box then leave the
form open and then manually run the query it gives
me the results I want, so I know that part works. I read
to add this statement to the "Afterupdate" on my Combo Box
so I did and I keep getting an error message - which states

"You entered an expression that has an invalid reference to the Recordsetclone
property"

Here is the Afterupdate I added - I changed the Combo box name to mine

Private Sub Combo2_AfterUpdate()
Me.RecordsetClone.Findfirst "[ID] = " & Me![Combo2]
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

What am I doing wrong ?

Thanks - George

 

[KML]

Thanks for the response but now I am getting a new error message

"Method or data member not found"
The foloowing part of the code comes back highlighted " !Combo2 "

Thanks

Did you forget the brackets by chance?

it should be Me![Combo2]

 

[George]

Yes - I rechecked and it is

George

Is the name of your control Combo2?
I don't see the problem. This is the most common way to find a value in a
field and make the record found the current record in the form.

Thanks for the response but now I am getting a new error message

"Method or data member not found"
The foloowing part of the code comes back highlighted " !Combo2 "

Thanks

Private Sub Combo2_AfterUpdate()
Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.Findfirst "[ID] = " & Me![Combo2]
If rst.NoMatch Then
MsgBox "Record Not Found"
Else
Me.Bookmark = rst.Bookmark
End If
Set rst = Nothing
End Sub


:

I am trying to use a combo box to pull up records.
When I select a name in the combo box then leave the
form open and then manually run the query it gives
me the results I want, so I know that part works. I read
to add this statement to the "Afterupdate" on my Combo Box
so I did and I keep getting an error message - which states

"You entered an expression that has an invalid reference to the Recordsetclone
property"

Here is the Afterupdate I added - I changed the Combo box name to mine

Private Sub Combo2_AfterUpdate()
Me.RecordsetClone.Findfirst "[ID] = " & Me![Combo2]
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

What am I doing wrong ?

Thanks - George

 

[George]

I created a new combo box and inserted the new name - same error message

Is the name of your control Combo2?
I don't see the problem. This is the most common way to find a value in a
field and make the record found the current record in the form.

Thanks for the response but now I am getting a new error message

"Method or data member not found"
The foloowing part of the code comes back highlighted " !Combo2 "

Thanks

Private Sub Combo2_AfterUpdate()
Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.Findfirst "[ID] = " & Me![Combo2]
If rst.NoMatch Then
MsgBox "Record Not Found"
Else
Me.Bookmark = rst.Bookmark
End If
Set rst = Nothing
End Sub


:

I am trying to use a combo box to pull up records.
When I select a name in the combo box then leave the
form open and then manually run the query it gives
me the results I want, so I know that part works. I read
to add this statement to the "Afterupdate" on my Combo Box
so I did and I keep getting an error message - which states

"You entered an expression that has an invalid reference to the Recordsetclone
property"

Here is the Afterupdate I added - I changed the Combo box name to mine

Private Sub Combo2_AfterUpdate()
Me.RecordsetClone.Findfirst "[ID] = " & Me![Combo2]
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

What am I doing wrong ?

Thanks - George

 

[Klatuu]

Something is amiss. Try putting breakpoint in the first line of code in the
sub
Set rst = Me.RecordsetClone
Then in the immediate window, type
?Me.Combo2
See what happens.

Yes - I rechecked and it is

George

Is the name of your control Combo2?
I don't see the problem. This is the most common way to find a value in a
field and make the record found the current record in the form.

Thanks for the response but now I am getting a new error message

"Method or data member not found"
The foloowing part of the code comes back highlighted " !Combo2 "

Thanks



:

Private Sub Combo2_AfterUpdate()
Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.Findfirst "[ID] = " & Me![Combo2]
If rst.NoMatch Then
MsgBox "Record Not Found"
Else
Me.Bookmark = rst.Bookmark
End If
Set rst = Nothing
End Sub


:

I am trying to use a combo box to pull up records.
When I select a name in the combo box then leave the
form open and then manually run the query it gives
me the results I want, so I know that part works. I read
to add this statement to the "Afterupdate" on my Combo Box
so I did and I keep getting an error message - which states

"You entered an expression that has an invalid reference to the Recordsetclone
property"

Here is the Afterupdate I added - I changed the Combo box name to mine

Private Sub Combo2_AfterUpdate()
Me.RecordsetClone.Findfirst "[ID] = " & Me![Combo2]
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

What am I doing wrong ?

Thanks - George

 

[Klatuu]

That is not required. Brackets are only required if characters that are not
valid for naming or names that are reserved words are used.

Thanks for the response but now I am getting a new error message

"Method or data member not found"
The foloowing part of the code comes back highlighted " !Combo2 "

Thanks

Did you forget the brackets by chance?

it should be Me![Combo2]

 

[Klatuu]

Is this the line you are having trouble with?
rst.Findfirst "[ID] = " & Me![Combo2]

If it still is a problem with a new control name, it may be a reference
problem.
What version of Access?
Have you checked for missing references?
Are you using DAO or ADO?

I created a new combo box and inserted the new name - same error message

Is the name of your control Combo2?
I don't see the problem. This is the most common way to find a value in a
field and make the record found the current record in the form.

Thanks for the response but now I am getting a new error message

"Method or data member not found"
The foloowing part of the code comes back highlighted " !Combo2 "

Thanks



:

Private Sub Combo2_AfterUpdate()
Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.Findfirst "[ID] = " & Me![Combo2]
If rst.NoMatch Then
MsgBox "Record Not Found"
Else
Me.Bookmark = rst.Bookmark
End If
Set rst = Nothing
End Sub


:

I am trying to use a combo box to pull up records.
When I select a name in the combo box then leave the
form open and then manually run the query it gives
me the results I want, so I know that part works. I read
to add this statement to the "Afterupdate" on my Combo Box
so I did and I keep getting an error message - which states

"You entered an expression that has an invalid reference to the Recordsetclone
property"

Here is the Afterupdate I added - I changed the Combo box name to mine

Private Sub Combo2_AfterUpdate()
Me.RecordsetClone.Findfirst "[ID] = " & Me![Combo2]
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

What am I doing wrong ?

Thanks - George

 

[George]

I am running Access 2003 - SP2

That is not required. Brackets are only required if characters that are not
valid for naming or names that are reserved words are used.

Thanks for the response but now I am getting a new error message

"Method or data member not found"
The foloowing part of the code comes back highlighted " !Combo2 "

Thanks

Did you forget the brackets by chance?

it should be Me![Combo2]