[AccessD] Hi I am back and stuck

Darren D darrend at nimble.com.au
Sun Jun 17 19:23:41 CDT 2007


Hi Arthur

Thanks for this

Just to try

1	I made sure the DAO was above the ActiveX Data Objects ref in the list
	All worked well - as expected

2	Made the ActiveX Data Objects Ref higher than the DAO 
	compacted and repaired and re-opened - it still worked

3	So to take it to the fullest level I removed the DAO ref altogether
	Compacted repaired and re-opened 
	(Couldn't compile because of explicit DAO references) 
	but the (search feature) combo still worked

What gives?

Full Ref list = 
1	Visual Basic for Applications
2	Microsoft Access 11 Object Library
3 	OLE Automation
4	Microsoft ActiveX data Objects 2.1 Library

Darren
------------------
T: 0424 696 433

-----Original Message-----
From: Arthur Fuller [mailto:fuller.artful at gmail.com] 
Sent: Monday, 18 June 2007 9:48 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Hi I am back and stuck

As I mentioned previously, this code will get busted if the default data
access method is ADO. There is no FindFirst in ADO; only Find.

A.


On 6/17/07, Darren D <darrend at nimble.com.au> wrote:
>
> Hi Joe
>
> In my code I use just the following - without referencing recordsets
>
> Private Sub SomeCombo_AfterUpdate()
>
>       Me.RecordsetClone.FindFirst "SomePKinThedB =" &
> Me![cmbSomeCoolCombo]
>       Me.Bookmark = Me.RecordsetClone.Bookmark
>
> End sub
>
> Pretty much the same as what you have - slightly different though
>
> That's it
>
> Darren
> ------------------
> T: 0424 696 433
> -----Original Message-----
> From: Joe Hecht [mailto:jmhecht at earthlink.net]
> Sent: Monday, 18 June 2007 1:16 AM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Hi I am back and stuck
>
> Arthur,
>
> It is the wizard code. I am going to check the references and see if I
> need
> to load something.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
> Sent: Sunday, June 17, 2007 3:49 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Hi I am back and stuck
>
> The syntax looks solid. I write it slightly differently but that's not the
> issue. My guess is that you're using a version that defaults to ADO rather
> than DAO. I forget when that began, but ensure that you have a reference
> to
> DAO that is above the ADO reference in the list and try your code again.
>
> Arthur
>
>
> On 6/16/07, Joe Hecht <jmhecht at earthlink.net> wrote:
> >
> > 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
> >
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.5.472 / Virus Database: 269.8.16/849 - Release Date: 14/06/2007
> 12:44
> PM
>
>
> No virus found in this outgoing message.
> Checked by AVG Free Edition.
> Version: 7.5.472 / Virus Database: 269.8.16/849 - Release Date: 14/06/2007
> 12:44
> PM
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

No virus found in this incoming message.
Checked by AVG Free Edition. 
Version: 7.5.472 / Virus Database: 269.8.16/849 - Release Date: 14/06/2007 12:44
PM
 

No virus found in this outgoing message.
Checked by AVG Free Edition. 
Version: 7.5.472 / Virus Database: 269.8.16/849 - Release Date: 14/06/2007 12:44
PM
 




More information about the AccessD mailing list