Replies

Thanks, Wendell.

Thanks to everyone that responded. It’s strange…the report that is populated by this query works fine, but I can’t execute the query outside of the report. That makes the situation acceptable.

Is there a practical or theoretical limit to the ‘complexity’ of a query? This query, which I designed using the Query Design Grid, is supported by 35+ other queries (it’s a very complex report). I realize there are probably other, more efficient ways to do what I did, but I’m not there yet.

Thanks.

Steve,

Thank you, it worked perfectly. I’m new to the module concept, but I’m beginning to like it already! Thanks again.

I can’t get this to work. I know it’s a code problem:

Function IsLoaded(ByVal frmSUBINFO As String) As Boolean
Const conObjStateClosed = 0
Const conDesignView = 0

If SysCmd(acSysCmdGetObjectState, acForm, frmSUBINFO) conObjStateClosed Then
DoCmd.Close ‘will close Company form to return to already open main data entry form (frmSUBINFO)
Else
DoCmd.Close ‘will close Company form to return to switchboard
DoCmd.OpenForm “frmSWITCHBOARD”
End If

Exit_ExitAccess_Click:
Exit Function

Err_ExitAccess_Click:
MsgBox Err.Description
Resume Exit_ExitAccess_Click

End Function

Quantum was purchased by Maxtor.

I upgraded my Win XP Home to SP-1 2 weeks ago. Machine is used 12 hours a day. Not a single problem. Slight performance improvement. Recommended.

Poor, poor Mr./Ms. Nobody! Cha-ching!

That did it, Francois. Works perfectly. Many thanks.

Here’s the code:

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
Set db = CurrentDb
strSQL = “SELECT tblDVCPERSONNEL.FirstName & Chr(32) & tblDVCPERSONNEL.LastName As FullName ” _
& “FROM tblDVCPERSONNEL ” _
& “WHERE ((tblDVCPERSONNEL.Initials)=[Forms]![frmSUBINFO2]![L4])”
Set rst = db.OpenRecordSet(strSQL, dbOpenDynaset)
If rst.RecordCount 0 Then
Me!ShipContact = rst!FullName
Else
Me!ShipContact = “”
End If
Set rst = Nothing
Set db = Nothing
End Sub

Now I’m getting ‘Run-time error: ‘3061’, Too few parameters. Expected 1.’ for the ‘Set rst=db.OpenRecordSet(strSQL,dbOpenDynaset) line.

Francois,

When running your code, I’m presented with an error message on the ‘Me!ShipContact = rst.FullName’ line that says ‘Compile Error: Method or data member not found’. I double-checked to ensure the code was typed correctly and I added the MS DAO 3.6 Object Library reference. Suggestions?

Thank you, Francois. It’s great to hear from you again. I’ll give this a try.

Many things come to mind, but have you tried:

* Defragging the hard drive.
* Running a spyware detection and cleaning program such as Ad-Aware (http://www.nusoft.com).
* Running a registry repair/cleaning program such a WinDoctor included with Norton Utilities.
* Running Microsoft RegClean, included with the free Microsoft Power Toys utilities package.

If you surf the Internet frequently, I suspect running a spyware cleaning program will take care of a lot of your problem. It sounds like you have many background processes running, most likely the result of spyware intrusion. Go to http://www.nusoft.com (or do a Google search for Ad-Aware), install it, and run it. It’ll probably clean out a lot of unwanted stuff.

Good luck!

I highly recommend the Plextor 40/12/40a or, even better, Plextor’s newer 48/24/48a. I have the 40/12/40a…works exactly as advertised. Excellent. Regarding software, I’m using Roxio CD Creator, but full versions of either Nero Burning ROM or Roxio will take care of business.

To support what Mark said, I am using Money 2001 with IE6 XP SP1 update with no problems at all. You might want to re-install Money.

Ad-Aware is a spyware removal program. It is first rate, free, and it works perfectly. Currently running it on Win XP with no problems whatsoever. Get it a lavasoft.com.