Search results

Thanks mate! Everything's working great now. I can keep my job. :P

Ahh, it seems to have had to do with the way I was dim'ing my recordsets. It's working now. Thanks guys.

Man, I never want to start coding from someone elses project ever again. I changed everything the way you explianed here and it works MUCH better now. Thank you so much for your help. My only real remaining issue is, like you mentioned earlier, if I don't get any data back in my query and I go...

Oh ok, I get it. And no, absolutely nothing. This is exactly what I've tested it with when it wouldn't work in my code: Dim db1 As Database Dim rsTable, rs2, rs3 As DAO.Recordset Dim strSQL1 As String Dim counter as Double Public Function ErrorReports() DoCmd.SetWarnings False DoCmd.RunSQL...

Nah, still does the same thing. If I have more than two recordsets open it says "Method or Datamember not found" as soon as I try to add anything to the third one. The first one will work fine. The second one will work fine. But if I attempt to do anything to rs3 it just gives me that error.

You'll have to excuse me, I'm a noob at all this, but when you say "clean up recordsets etc" what do you mean exactly?

Yeah, I do have that On Error Resume Next in there. Someone else actually started writing this and I took over, so they had that in there.

Might be worth mentioning I didn't dim my recordsets as recordsets. Just Dim rsTable, rs1, rs2 I dunno why but it won't work if I put "As Recordset"

When I did that it hung for a long time but eventually it came back with results. But in code it never seems to reach my recordset. I've left it for 45 minutes in an abysmal waste of time lol. Still nothin.

If TableExists("bif955") = True Then strSQL1 = "SELECT bif955.[I_TRANSNUM], bif955.[I_BILLNUMBER] FROM bif955 WHERE (((bif955.[I_TRANSNUM]) In (SELECT [I_TRANSNUM] FROM [bif955] As Tmp GROUP BY [I_TRANSNUM] HAVING Count(*)>1 ))) ORDER BY bif955.[I_TRANSNUM];" Set db1 = CurrentDb...

So how do I check if an error was raised? It seems to just go into the loop and loop forever as it is now. I can step into it and it will just continually loop.

Hi there, I have a long function that checks for errors in a series of tables. Basically I'm using one recordset to step through my tables and check for errors and one recordset to update my error report table. I'll usually populate my first recordset with something like this: strSQL1 =...

Thanks! I don't exactly get how it works, but it works! lol

The database is under the limit. It's still less than a gig.

Ok, so I'm a little new to this but here's what I'm doing: At the beginning of my code I'm dim'ing my database (db1) and recordsets. rsTable is a recordset I use to go through each table and check for missing fields and other errors. rs2 and 3 are used to update my two error tables. At the...

The SQL statement I cut/pasted from the query design wizard into my code. Also, I checked all that data for npap001.C_PLANTYPE and there are no empty strings. All rows have a value for C_PLANTYPE in this particular database, so it should be returning no records at all, which is what I want...

Hmmm weirdest thing is I can SELECT * FROM nbif951 just fine. That should bring back even more records than the other conditional select would. hmmmmmm.

Hi there, So the first part of my function selects all records in table nbif951 that have no matching record in npap001 using the field C_PLANTYPE. Now I used the query wizard to create this select statement, but it works fine when I test it on a smaller table. It's just when I try to run it on...

Hey, that is awesome. Exactly what I wanted to do, I just didn't know about that feature. Thanks mate!

Hi there, So I'm making a report where I have one text box (txtTotalLabel) that says "Total:" and another textbox (txtRecords) that contains a different value for each set of records. All I want to do is, if txtRecords gets populated with "0" then txtTotalLabel should have a forecolor of...