Search results

It would be very similar ... use the form's recordsetclone as your recordset: Set rsEmail = Me.RecordsetClone or Set rsEmail = Forms!FormName.RecordsetClone rsEmail.movefirst do until rsEmail.eof 'email stuff here loop you wouldn't need to check for SEND = true if you've already filtered...

Mike I had this exact same problem a while ago - and it drove me nuts until I asked in a newsgroup and a wonderful lady named Martha sent me this (which fixed the problem completely): "Sounds like your DAO library got un-registered somehow. (Office 97 installation doesn't register it properly...

No, it's not a bug. The convention for rounding that MS uses is sometimes called 'rounding to the even number' and is a bit more sophisticated than just always rounding up. 7.5 gets rounded to 8 but 6.5 gets rounded to 6 This is an attempt to smooth out the error that creeps in when you round...

Ignoring all the email stuff (which is not relevant to the loop problem) here is one approach ... You have: Set rsEmail = CurrentDb.OpenRecordset("tbl") Do While Send = True rsEmail.MoveNext EmailSend.Subject = "Information Systems - Hardware Audit" EmailSend.HTMLBody = "TESTING"...

Backup, backup, backup! Work with a copy! Very likely you have some corruption crept in. This occurs most often with memo fields. If this is the case you'll have to recreate the table structure, copy all the rows before the faulty row, copy all the rows after the faulty row, copy as much of...

This worked for me in testing ... Between IIf(IsNull([forms]![frmTest]![xDate1]),#01/01/1950#,[forms]![frmTest]![xDate1]) And IIf(IsNull([forms]![frmTest]![xDate2]),#31/12/2010#,[forms]![frmTest]![xDate2]) What I have done is chosen 2 arbitrary dates as my start and end dates which I am...

Hi Q1. One approach would be to 'check' the relevant records and then change the recordsource of the form to be a query that has TRUE as it's criterion for that field. That way you would not see any records that are unchecked. You'd maybe want a way to restore the original recordsource...

You'll need to place a copy of the code in the After Update event procedures for any of the fields that affect the result of the calculation (so that the result is recalculated if you change any of the fields). To get at the event procedure ... Open the form in design view. Open the property...

Looks like a Select Case situation to me ... Dim xDiff as long (or maybe double if decimal values are poss.) xDiff = g-c Select case xDiff Case Is < = 0 h = 0 Case Is > 0 if xDiff < e then h = ((g-c)/100)*d else h = (e/100)*d...

You'll probably need the code in two places: The On Current event for the form so that you enable/disable your field as you move from one record to another (assuming single forms view). The After Update event for the check box. Jeff

If MyCheckBox = True then MyControl.Enabled = True Else MyControl.Enabled = False End if You can 'shorten' this MyControl.Enabled = (MyCheckBox = True) since (MyCheckBox = True) evaluates to True or False or even MyControl.Enabled = MyCheckBox The shorter versions are 'cleverer'...

What I would try Make as many copies as you can bear to do. You can NEVER have too much back up! Don't overwrite earlier backups (just in case). Compile your code in A97 (in any module Tools, Compile and Save). If no errors are reported try again to convert. Try Repair. Try JetComp. In...

In case anyone is interested ... It turned out that the problem was with the recordsetclone. The reason the search was failing was that the form's Data Entry property had been set to Yes, meaning that there were no rows in the recordsetclone. Very easy to miss that! Jeff

Tracy If you import enough stuff to show your problem into a test MDB and email me it I'll have a look to see if I can figure out what's going on ... Jeff jeff@dateline.gg

OK Use another criterion to get rs to the relevant row and then look to see what you get if you use a msgbox to show you the 2 dates ... msgbox "rs date is " & rs!TestDate msgbox " Form date is " & Me!txtFromDate Jeff

See my earlier reply. No need for cash reward - payment in kindness, please: pass it on! Jeff

Tracy I've done a bit of testing and I have 2 ideas to offer. First, as you have noted, you must have dates in US format in VB coding (MM/DD/YY) - but even that doesn't solve your problem. So, Second - your 'date' field may well be storing time info as well as just dates. When I tested I...

Assuming text fields ... try strSQL = strSQL & "WHERE Payee='3105500000' AND Bookmarked='No';" note the single quotes (apostrophes) Jeff

From Help on Index Property "You can create a table-type Recordset object from a base table of a Microsoft Jet database, but not from an ODBC or linked table." Your problem is that the .Index object is an object in the Indexes (Indices?) collection of the TableDefs object (i.e. table-type...

A key violation (probably) means one of 2 things is happening You are trying to save 2 or more identical items in a field indexed No Duplicates You have a primary key field which is being left blank. In the first case you'll have to set the index on the relevant field to Duplicates OK In the...