DataType Mismatch (1 Viewer)

[Bigmo2u]

Having a an issue and not sure how this is happenning because I have used this code in a lot of forms.

Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[OwnerID] = '" & Me![lstUsers] & "'"
Me.Bookmark = rs.Bookmark [COLOR="SeaGreen"]<---- error is here for the datatype mismatch or No record found[/COLOR]

OwnerID is a string.

I have tried

rs.FindFirst "[OwnerID] = '" & Me.lstUsers & "'"
Me.Bookmark = rs.Bookmark

I have tried

Set rs = Me.Recordset.Clone
rs.FindFirst "[OwnerID] = " & Me![lstUsers] 
Me.Bookmark = rs.Bookmark

Not sure how to fix this issue, any help would be greatly appreciated.

 

[pr2-eugin]

Use rs.NoMatch if the finding record fails.

Check Paul's website on more info about using Bookmarks : http://baldyweb.com/Bookmark.htm

 

[Bigmo2u]

pr2-eugin ~ Thank you for the advice, but I know the record is there. they can only select from a listbox of choices, so they can't enter there own data to do the search.

 

[namliam]

Dim RS as Dao.Recordset

Bookmark is a part of a recordset, you need to define your RS as a DAO.Recordset....

NOTE the DAO, to make sure you get a DAO one, not a ADO one.... becuase you will get the same error message if you get an ADO recordset since forms are DAO.

 

[Bigmo2u]

Changed to rs As DAO.Recordset and still get he same error.

Now and I am getting no record found.

 

[pr2-eugin]

What is the value you are getting from the Listbox? check that properly.

 

[bob fitz]

What value/s are shown in message box if you use:

Msgbox Me.lstUsers & " and " & Me!lstUsers
rs.FindFirst "[OwnerID] = '" & Me![lstUsers] & "'"
Me.Bookmark = rs.Bookmark <

 

[Bigmo2u]

Bob I am getting the word:

and

in the msgbox

 

[pr2-eugin]

Its a String

We get that, but what is the listbox properties, bound column, column count, column widths.

The value you see might not be what it is returned.

 

[bob fitz]

What is the Row Source property of the list box

 

[Bigmo2u]

Bob if I change it variable back to

rs as Object

I get lthompson and ltompson in the msgbox

 

[bob fitz]

Please answer Paul's question post #9 and mine post #10

 

[Bigmo2u]

pr2-eugin properties are as follows:

Bound Column 1
Column Count 2 column 1 = OwnerID COlumn 2 = FullName
Column widths = 0";1.5"

 

[Bigmo2u]

Bob

Rowsource Property is:

SELECT tblOwner.OwnerID, tblOwner.FullName FROM tblOwner WHERE (((tblOwner.OwnerID)<>"<---SELECT--->"));

 

[bob fitz]

What result do you get if you use:
EDIT

[COLOR="red"][B]Dim [COLOR="Red"][B]DAO[/B][/COLOR].rs As Recordset
[/B][/COLOR]
Set rs = Me.Recordset.Clone
Msgbox Me.lstUsers
rs.FindFirst "[OwnerID] = " & Me.[lstUsers]
Me.Bookmark = rs.Bookmark

 

[Bigmo2u]

Compile error:

Syntax error

DAO.rs AS Recordset

 

[bob fitz]

Sorry, that should be:
Dim rs As DAO.Recordset

 

[Bigmo2u]

No current record found '3021', but the msgbox is still showing the names.

 

[Bigmo2u]

If i do:

rs.FindFirst "[OwnerID] =  " & Str(Me.lstUsers)

I get dataType mismatch

 

[bob fitz]

And using:

Dim rs As DAO.Recordset

Set rs = Me.Recordset.Clone
Msgbox Me.lstUsers.Column(0) & " : " & Me.lstUsers.Column(1)
rs.FindFirst "[OwnerID] = " & Me.lstUsers.Column(0)
Me.Bookmark = rs.Bookmark