I have a form called frmFallVariancePastEntries that has field called FallID. 
 This is an autonumber field which is visible but not updatable.  I have 
thousands of records available and want to create a lookup combo box.  I 
created one called cblFindFallID.  It is based on a query which lists all 
FallIDs. I want to be able to go directly to the specific record based on the 
Fall ID but am getting an error which says “Run Time Error 3464 Data Type 
Mismatch in Criteria Expression”.  Below is the vba code for this object.  I 
am doing the same thing in another database that I use but the field in that 
database is not an autonumber field.  Can someone help me modify this code to 
look up this automnumber field?

Private Sub cboFindFallID_AfterUpdate()
Dim rst As Object
    Set rst = Me.Recordset.Clone
    rst.FindFirst "FallID = """ & cboFindFallID & """"
    Me.Bookmark = rst.Bookmark
End Sub

Chuck

Warning!  JOPO - Just one person's opinion ...

The folks who use my apps are very unforgiving about making them 
remember/use IDs.  They'd much rather be looking up a person's name, or a 
part description, or a ...

Is there a chance your combobox could store (but hide) the FallID, and give 
the users something they could relate to/understand better?

Regards

Jeff Boyce
Microsoft Access MVP

-- 
Disclaimer: This author may have received products and services mentioned
in this post. Mention and/or description of a product or service herein
does not constitute endorsement thereof.

Any code or pseudocode included in this post is offered "as is", with no
guarantee as to suitability.

You can thank the FTC of the USA for making this disclaimer
possible/necessary.


"Chuck W" <ChuckW@discussions.microsoft.com> wrote in message 
news:60E5B9B6-B83B-48EC-A981-55E6E1B1C58E@microsoft.com...
>I have a form called frmFallVariancePastEntries that has field called 
>FallID.
> This is an autonumber field which is visible but not updatable.  I have
> thousands of records available and want to create a lookup combo box.  I
> created one called cblFindFallID.  It is based on a query which lists all
> FallIDs. I want to be able to go directly to the specific record based on 
> the
> Fall ID but am getting an error which says "Run Time Error 3464 Data Type
> Mismatch in Criteria Expression".  Below is the vba code for this object. 
> I
> am doing the same thing in another database that I use but the field in 
> that
> database is not an autonumber field.  Can someone help me modify this code 
> to
> look up this automnumber field?
>
> Private Sub cboFindFallID_AfterUpdate()
> Dim rst As Object
>    Set rst = Me.Recordset.Clone
>    rst.FindFirst "FallID = """ & cboFindFallID & """"
>    Me.Bookmark = rst.Bookmark
> End Sub
> 

Chuck,
If you are after a autonumber field (numerical data) you should lose the 
apostrophs. Try this:

Private Sub cboFindFallID_AfterUpdate()
Dim rst As Object
     Set rst = Me.Recordset.Clone
     rst.FindFirst "FallID = " & cboFindFallID
     Me.Bookmark = rst.Bookmark
 End Sub


if the finvalue you are after is a string then you should use apostrophs en 
not only double quotes.

hth
-- 
Maurice Ausum


"Chuck W" wrote:

> I have a form called frmFallVariancePastEntries that has field called FallID. 
>  This is an autonumber field which is visible but not updatable.  I have 
> thousands of records available and want to create a lookup combo box.  I 
> created one called cblFindFallID.  It is based on a query which lists all 
> FallIDs. I want to be able to go directly to the specific record based on the 
> Fall ID but am getting an error which says “Run Time Error 3464 Data Type 
> Mismatch in Criteria Expression”.  Below is the vba code for this object.  I 
> am doing the same thing in another database that I use but the field in that 
> database is not an autonumber field.  Can someone help me modify this code to 
> look up this automnumber field?
> 
> Private Sub cboFindFallID_AfterUpdate()
> Dim rst As Object
>     Set rst = Me.Recordset.Clone
>     rst.FindFirst "FallID = """ & cboFindFallID & """"
>     Me.Bookmark = rst.Bookmark
> End Sub
>