Filter not working with "Select All" checkbox control

[bre1603]

I have a continuous form in Access 2007 called “Leadership Contact List.” It has a checkbox control for each record (bound to a field in the underlying table) that is used to email or create mailing labels for the selected contacts. In the form header, there is a “Select All” checkbox control which (of course) selects all the checkboxes. The form also has a combo box in the header that filters the records according to “agency type.”

What I want is to create labels or email only selected contacts within the filtered set, with the option to select them all at once using the "Select All" control.

The “Select All” works great, until the form is filtered. The code behind “Select All” continues to set all the checkboxes as true, even if they aren’t showing in the form. So when the “Email Selected Contacts” or “Create Mailing Labels for Selected Contacts” buttons are clicked, the results are not filtered at all.

I have tried to add additional criteria to the Where clause in the SQL statement of the On Click event to account for the filter, but I get the error “Too few parameters. Expected 1” (error #3061). I don’t know if it’s because I have the syntax wrong or because I’m trying to do something I can’t.

Here’s the code that works:

If Me.SelectAll = True Then
    strSQL = "Update [Secondary ManualContacts Table] SET [Secondary ManualContacts Table].[Send Email] = True"
    strSQL = strSQL & " WHERE [Secondary ManualContacts Table].[Send Email] = False" & ";"
    CurrentDb.Execute strSQL, dbFailOnError
    Me.Refresh
 
    ElseIf Me.SelectAll = False Then
        strSQL = "Update [Secondary ManualContacts Table] SET [Secondary ManualContacts Table].[Send Email] = False"
        strSQL = strSQL & " WHERE [Secondary ManualContacts Table].[Send Email] = True" & ";"
        CurrentDb.Execute strSQL, dbFailOnError
        Me.Refresh
    End If

Here's the code that errors out:

If Me.SelectAll = True Then
        strSQL = "Update [Secondary ManualContacts Table] SET [Secondary ManualContacts Table].[Send Email] = True"
        strSQL = strSQL & " WHERE (([Secondary ManualContacts Table].[Send Email] = False) AND ([ManualContacts Table].[Agency Type] ='" & Forms![LeadershipEmailListALL].[cbofltrAgencyType] & "'))"
        CurrentDb.Execute strSQL, dbFailOnError
        Me.Refresh
 
        ElseIf Me.SelectAll = False Then
            strSQL = "Update [Secondary ManualContacts Table] SET [Secondary ManualContacts Table].[Send Email] = False"
            strSQL = strSQL & " WHERE (([Secondary ManualContacts Table].[Send Email] = True) AND ([ManualContacts Table].[Agency Type]='" & Forms![LeadershipEmailListALL].[cbofltrAgencyType] & "'))"
            CurrentDb.Execute strSQL, dbFailOnError
            Me.Refresh
        End If

Any help (or alternative suggestions) would be greatly appreciated!

Thanks in advance.

[nico5038]

The error message is an indication that you have a typo in one of the field names.

Personally I would use the Me.Filter property of the form to execute the UPDATE query, as Access does allow additional filtering with the right-click pop-up menu.

Using the Me.Filter can be done with this code:

' test or filter has been set
IF Me.Filteron = False then
   currentdb.execute ("Update [Secondary ManualContacts Table] SET [Secondary ManualContacts Table].[Send Email] = True")
else
   currentdb.execute ("Update [Secondary ManualContacts Table] SET [Secondary ManualContacts Table].[Send Email] = True WHERE " & Me.Filter)
End if
 

Getting the idea ?

Nic;o)

[bre1603]

@nico5038
Thanks for the reply. I'm anxious to get some fresh perspective on this.

Okay, so I tried the form filter (after looking at my current code and unable to see the typo...)

When I first clicked the SelectAll checkbox, it seemed to work. All boxes were selected. But then I tried to filter it. And got the same error - Too Few Parameters.

Any ideas?

[nico5038]

Looks to me we first have to check the SQL.

The best way is to place a break point in the code (e.g. click left ruler for getting a dot) and execute the code till the strSQL is filled. Next type in the immediate window:

? strSQL

to get the string printed and copy the result.

Next open the query editor, create a new query without tables and switch to SQL mode. There post the SQL en execute it. Access will now give a pop-up window asking the value for a specific field it doesn't find i your table(s).

Nic;o)

[NeoPa]

If the code that is running is within Forms![LeadershipEmailListALL] then you can (and should) replace that with Me.
IE. Me.[cbofltrAgencyType]

Otherwise, check the types of the field and the return from the ComboBox. ComboBoxes particularly, are often set to show text whereas they return another (generally numeric) value.

[parodux]

You could do something like this:

private sub SelectAll_click()
dim rst as dao.recordset
set rst = me.recordset
rst.movefirst
do until rst.eof
rst![send email] = true
loop
rst.update
rst.close
set rst.nothing
end sub

eg. Too few parameters

You can declare the parameters in the query designer or if it's a dao recordset, you can use:

dim db as dao.database
dim qdf as dao.querydefs
dim rst as dao.recordset
set db = currentdb()
set qdf = db.querydefs("NameOfQuery")
qdf.parameters(0) = forms!YourForm!YourCriteriaField
qdf.parameters(1).... etc
set rst = qdf.openrecordset
with rst
.movefirst
etc.. etc.. etc!~)

[bre1603]

@NeoPa
I changed my original code to me.cbofltrAgencyType, to no avail. I still got the error about too few parameters.

I also checked the types of the field and the return of the combo box data - it's a text field all the way back to the table. The record source only has one column - the Agency Type, which is a text field. The SQL is as follows:
SELECT ManualContacts.[Agency Type] FROM ManualContacts GROUP BY ManualContacts.[Agency Type];

I was alomost hoping this was what I was missing. It would make sense as far as the error I'm getting. But I guess it's not going to be that easy...

[nico5038]

Did you check your query string strSQL in the query editor ?

Nic;o)

[bre1603]

@nico5038
I checked the SQL and the problem comes from [ManualContacts].[Agency Type]. It (of course) is not in the table "Secondary ManualContacts Table", which is what I'm trying to update.

So I'm wondering if I can reference a qry or alter the SQL to Update the "Secondary ManualContacts Table" while using parameters from both tables (the other one being "ManualContacts") to filter what gets updated?

[bre1603]

I added the ManualContacts Table to the SQL (after "Update")-

If Me.SelectAll = True Then
        strSQL = "Update [Secondary ManualContacts Table],[ManualContacts] SET [Secondary ManualContacts Table].[Send Email] = True"
        strSQL = strSQL & " WHERE (([Secondary ManualContacts Table].[Send Email] = " & False & ") AND ([ManualContacts].[Agency Type] ='" & Me.[cbofltrAgencyType] & "'))"
        CurrentDb.Execute strSQL, dbFailOnError
        Me.Refresh
 
        ElseIf Me.SelectAll = False Then
            strSQL = "Update [Secondary ManualContacts Table],[ManualContacts] SET [Secondary ManualContacts Table].[Send Email] = False"
            strSQL = strSQL & " WHERE (([Secondary ManualContacts Table].[Send Email] = True) AND ([ManualContacts].[Agency Type]='" & Me.[cbofltrAgencyType] & "'))"
            CurrentDb.Execute strSQL, dbFailOnError
            Me.Refresh
        End If

And I didn't the error!

However, it didn't filter what was selected when the SelectAll checkbox was clicked. All records were "selected" (their checkboxes filled), even those that were filtered out. And I'm back to the beginning!

Good times...

[NeoPa]

bre1603: I changed my original code to me.cbofltrAgencyType, to no avail. I still got the error about too few parameters.

This was not a fix to your problem, but just a simplification of your code. As a general rule, simpler is more reliable and leads to fewer problems.

bre1603: I also checked the types of the field and the return of the combo box data - it's a text field all the way back to the table. The record source only has one column - the Agency Type, which is a text field. The SQL is as follows:
SELECT ManualContacts.[Agency Type] FROM ManualContacts GROUP BY ManualContacts.[Agency Type];

That's important information. We can now rule that out as being a problem (as your SQL is correctly formatted for string data).

I would only echo Nico's request now that you print off the actual SQL before it is executed and post it in here for our perusal. Sometimes issues that aren't mentioned show up in the results. They may be overlooked for many reasons, chief of these is that the OP had no reason to suppose they were important. Post what you get anyway and let's see if our more experinced eyes can pick anything up.

[parodux]

You are missing the relation between [Secondary ManualContacts Table] and the [ManualContacts Table]

Right now you are just telling the db to update all that is false en [Secondary....] and that's what's happening!~)

[parodux]

@NeoPa
the change from forms!etc. to me.etc. would have made the 'too few parameters' error go away, because VBA is now putting the string in as a criteria. Where as before it's was a parametre that SQL was missing...

(Sorry about my English!~)

...and my confusion about this reply system...

[bre1603]

@NeoPa
Here's what I get when I print off the actual SQL before it's executed:

Update [Secondary ManualContacts Table],[ManualContacts] SET [Secondary ManualContacts Table].[Send Email] = True WHERE (([Secondary ManualContacts Table].[Send Email] = False) AND ([ManualContacts].[Agency Type]=''))

This is when the cbofltrAgencyType is null. When there's a value in it, it ends like this:

... AND ([ManualContacts].[Agency Type]='PS'))

Please peruse away. :D

[parodux]

Could you tell us what the post/recordsource for the form is.. That would help!~)

[bre1603]

@parodux
The form's recordsource is "qryLeadershipEmailListALL" - which includes tables "ManualContacts" and "Secondary ManualContacts Table"

The query includes [Send Email] (a checkbox control), as well as [Agency Type], and the name and email address for the contacts. The only criteria is that the contact name is not null.

HTH

[parodux]

What is the SQL for qryLeadershipEmailListALL?~)

[parodux]

It's more than night time here... so I will switch off.. but make a copy of qryLeadershipEmailListALL and change it into your update query, that will work... Good night!~)

[bre1603]

@parodux
I'll give it a try, thanks

[NeoPa]

Bre,

I think there might be some confusion here. It is rarely a good idea to mix up instructions from different posters in the same thread. That is not to say members shouldn't post their ideas, but you should treat them separately.

I was interested in the situation as you'd described it prior to your making the change to add an extra table into the UPDATE clause. I'm afraid I cannot see why that would be recommended and it's not something I would recommend. That SQL I wouldn't expect to work. What I'm interested in is the difference between known working SQL and that which doesn't work when you've tried the suggestion I was working on (put forward by Nico I believe). It gets very difficult to follow if you mix up different conversations.

[NeoPa]

parodux: the change from forms!etc. to me.etc. would have made the 'too few parameters' error go away, because VBA is now putting the string in as a criteria. Where as before it's was a parametre that SQL was missing...

I don't believe that's true. It should have no real difference at all. The effect would be nil. It's simply another, much simpler, way to reference the same object.

[NeoPa]

bre1603:

... WHERE (([Secondary ManualContacts Table].[Send Email] = False) AND ([ManualContacts].[Agency Type]=''))

... WHERE (([Secondary ManualContacts Table].[Send Email] = False) AND ([ManualContacts].[Agency Type]='PS'))

I looked again just at the WHERE clauses.
The first is incorrect, as when [cbofltrAgencyType] is Null then presumably there is no filter applied. This is not the same as filter [Agency Type] by an empty string (as you have it in your SQL).
As for the second version, the WHERE clause seems spot on. I can't answer for the rest of the SQL but that part should work for you.

I'd like to know what results each produced, but not while the UPDATE clause is like that. It makes no sense to me, so I wouldn't know how to interpret any such results.

[bre1603]

I apologize for the confusion... I'm a little confused myself! I've got three different scenarios I'm testing and it seems like nothing is working.

As for the difference between the working SQL and the one I'm trying to create - it's the filter. Without the reference to [ManualContacts].[Agency Type] = me.cbofltrAgenctType, the SQL executes without any issues. I thought this might be because I hadn't referenced the table "ManualContacts" anywhere else in the SQL, so that's why I added it to the UPDATE clause. I’ll take it out.

Here’s the adjusted SQL:

Update [Secondary ManualContacts Table]
SET    [Secondary ManualContacts Table].[Send Email] = False
WHERE  [Secondary ManualContacts Table].[Send Email] = True
  AND  [ManualContacts].[Agency Type]= ''

(*sorry for the lack of [code] tags on that last post...I wasn't sure if there was a length requirement or not.)

[bre1603]

@NeoPa
So how do I handle the SQL when there isn't a filter applied (they want to see all agencies at the same time)?

Also, the above SQL still gives me the error of too few parameters. Even when there is a filter applied. And I just opened up the form again, and the SelectAll checkbox isn't even selecting anything.

Am I missing something here?

[bre1603]

@NeoPa
The following code is highlighted when I get the Too Few Parameters" error:

CurrentDb.Execute strSQL, dbFailOnError

The cursor shows "dbFailOnError = 128"

I've done a quick search of the forum for this, but I haven't found anything similar to what I'm doing. I don't see any reason why it should get hung up here.

[nico5038]

The 128 is the numerical value of the dbFailOnError parameter.

The error is caused by a typo (or non existing field) as described earlier.

In general to be able to update a database you should use tables in the UPDATE statement and no queries, as they are often "read only".

It might help when you attach (part of) the .mdb here so NeoPa and I can have a look.

Nic;o)

[NeoPa]

This is more complicated than I thought. There appear to be a number of issues involved in this which tends to muddy the waters somewhat. Parodux saw one of them and tried to help, but I'm afraid I didn't realise what he was saying clearly enough.

When you update a recordset (normally a simple table but it can be more complicated) and want to filter out some of the records, the filter should be specified relative to the recordset available. In your case you seem to be attempting something akin to :
Update all records in A where items in B qualify.
As there is no correlation defined between A and B the SQL engine hasn't enough information to work out what you want. [ManualContacts].[Agency Type] is something in the SQL that the SQL engine has no reference for. Hence it asks for the extra parameter. It would help here to have a clearer idea of what you want to do and why. Particularly why the filtering would pertain to a separate table.

The other issue is the one I mentioned before. When there is no filtering, remove the part of the string that filters rather than filter against an empty string. The latter will have a completely different effect than the one required. Essentially bypassing most, if not all, of the records.

As for posting code. It certainly helps if SQL is formulated for reading within the relatively narrow confines of our CODE boxes, but it will take any width. Using the CODE boxes is mandatory. Posting wide data in there simply puts people off from helping you.

[parodux]

@NeoPa
thanks for clearing this issue.. I was getting a bit tense here!~)

[NeoPa]

My apologies. I had been getting a bit confused myself I must admit.

Normally we like to encourage different posters to submit their ideas, even if they sometimes disagree. In some cases though, like this one, this can make it somewhat difficult for the OP to manage. It is still the right thing to do in my opinion. Just that sometimes it gets complicated. Better complicated than answers not offered though. It's rare enough to be a small issue.

By the way, it's always good to see a new member posting help so early. Welcome to Bytes!

[parodux]

thanks, now I'm going to stay!~)

[bre1603]

Well I certainly don't want to put anyone off from helping me. I've never posted on a forum in my life though, so I might need a bit of time to learn the ropes. Thank you in advance for your understanding.

NeoPa: It would help here to have a clearer idea of what you want to do and why. Particularly why the filtering would pertain to a separate table.

Maybe we should go back to the beginning (pre confusing-cross-replies).

I have two tables, one with agency information, "ManualContacts" and one with the agency leaders' contact information, "Secondary ManualContacts Table". These tables make up the query "qryLeadershipEmailListALL" which my form "LeadershipEmailListALL" is based on.

The form is a continuous form that shows the following fields for each record:
[Send Email] – a checkbox control
[Agency Number] – text control
[Agency Type] – text control
[Agency Name] – text control
[Leadership Contact] – text control
[Leadership Email] – text control

In the form header, there is a checkbox control, [SelectAll] that fills and clears all the checkboxes below with an event procedure in the OnClick event. The form header also has a combo box, [cbofltrAgencyType] that uses a query to filter the records by Agency Type (code takes place in the AfterUpdate event).
(There are command buttons in the header as well that allow the user to email selected contacts or create mailing labels for them.)

What I need is for the user to be able to filter the form to show only one agency type and then use the [SelectAll] checkbox to select all the records of that agency type to either email or create mailing labels.

The code I was using in the [SelectAll] OnClick event updates the Secondary Manual Table, and it works great. But not when the data is filtered. In that case, even records that are filtered out still have [Send Email] selected/updated to True or False, making the filtering pointless.

That’s why I was trying to alter the code to include the filter as a parameter to the Update clause.

So is there a way that I can get what I want out of this form? If not, I'll be building 5 identical forms, one per agency type.

I really hope that's not the case...

[NeoPa]

If the results of that QueryDef ([cbofltrAgencyType]) are updatable (I expect they are otherwise you wouldn't be able to make any amendments to it via the form) then do your UPDATE query on that ([cbofltrAgencyType]) instead of the table.

That last post makes everything clear again. Well done. That's not often easy.

[bre1603]

@NeoPa
Thank you. I'm finding it's very easy to get muddled going back and forth between posts! I'm happy to clarify because it helps me get back to what I was trying to do in the first place. And I figure if I can explain it, I understand it (which is good).

And thank you - I'll give it a try and let you know how it goes.

[NeoPa]

Please do. I'm confident we have it cracked now though :)

[bre1603]

SUCCESS!!! Well, sort of. I'm considering it a definite step in the right direction.

For the first time, I was able to select just the filtered records using [SelectAll]. However, now I can't select anything with the [SelectAll] checkbox if there's not a filter applied. I thought I took care of this in the code, but it would appear not. Here's what I've got:

Private Sub SelectAll_Click()
On Error GoTo SelectAll_Error
 
If Me.Dirty Then Me.Dirty = False
 
    Dim strSQL As String
 
  If Me.SelectAll = True Then
    If Me.cbofltrAgencyType = Null Then
        strSQL = "UPDATE qryLeadershipEmailListALL SET qryLeadershipEmailListALL.[Send Email] = True"
        strSQL = strSQL & " WHERE [qryLeadershipEmailListALL].[Send Email] = False"
        CurrentDb.Execute strSQL, dbFailOnError
        Me.Refresh
        Else
            strSQL = "UPDATE qryLeadershipEmailListALL SET qryLeadershipEmailListALL.[Send Email] = True"
            strSQL = strSQL & " WHERE [qryLeadershipEmailListALL].[Send Email] = False AND [qryLeadershipEmailListALL].[Agency Type]= '" & Me.[cbofltrAgencyType] & "'"
            CurrentDb.Execute strSQL, dbFailOnError
            Me.Refresh
        End If
 
    ElseIf Me.SelectAll = False Then
        If Me.cbofltrAgencyType = Null Then
            strSQL = "UPDATE [qryLeadershipEmailListALL] SET [qryLeadershipEmailListALL].[Send Email] = False"
            strSQL = strSQL & " WHERE [qryLeadershipEmailListALL].[Send Email] = True"
            CurrentDb.Execute strSQL, dbFailOnError
            Me.Refresh
            Else
                strSQL = "UPDATE [qryLeadershipEmailListALL] SET [qryLeadershipEmailListALL].[Send Email] = False"
                strSQL = strSQL & " WHERE [qryLeadershipEmailListALL].[Send Email] = True AND [qryLeadershipEmailListALL].[Agency Type]= '" & Me.[cbofltrAgencyType] & "'"
                CurrentDb.Execute strSQL, dbFailOnError
                Me.Refresh
            End If
    End If
 
SelectAll_Exit:
        Exit Sub
SelectAll_Error:
        MsgBox "Error# " & Err.Number & " " & Err.Description
        Resume SelectAll_Exit
 
End Sub

But at least I'm not erroring out! :)

[bre1603]

I feel like it might have something to do with the combo box/filter [cbofltrAgencyType]. After filter is removed / when the box is empty, [SelectAll] still sees only the filtered records. Those filtered out initially are left "un-selected."

Here's the code for the combo box:

Private Sub cbofltrAgencyType_AfterUpdate()
On Error GoTo cbofltrAgencyType_AfterUpdate_Err
 
    If Me.cbofltrAgencyType = Null Then
        Me.FilterOn = False
        Me.Filter = vbNullString
        Else
            DoCmd.OpenForm "LeadershipEmailListALL", acNormal, "qryLeadershipEmailListALL_Filter"
             ' Find the record that matches the control.
            Forms![LeadershipEmailListALL].RecordsetClone.FindFirst "[Agency Type] = '" & Me![cbofltrAgencyType] & "'"
            Forms![LeadershipEmailListALL].Bookmark = Forms![LeadershipEmailListALL].RecordsetClone.Bookmark
           'Forms![LeadershipEmailListALL].cbofltrAgencyType = ""
            End If
 
cbofltrAgencyType_AfterUpdate_Exit:
    Exit Sub
 
cbofltrAgencyType_AfterUpdate_Err:
    If Err.Number = 2465 Then
        'Forms![LeadershipEmailListALL].cbofltrAgencyType = ""
        Resume cbofltrAgencyType_AfterUpdate_Exit
    Else
        MsgBox Error$
        Me.FilterOn = False
        Me.Filter = vbNullString
    End If
    Resume cbofltrAgencyType_AfterUpdate_Exit
 
End Sub

Any ideas?

[NeoPa]

If Me.cbofltrAgencyType = Null Then

On line #4 you are comparing the value against the value of Null. This doesn't work as Null is an absence of a value. IsNull() returns True or False depending on the contents, but the value can never be equal to Null. This should read :

If IsNull(Me.cbofltrAgencyType) Then

[NeoPa]

bre1603: For the first time, I was able to select just the filtered records using [SelectAll]. However, now I can't select anything with the [SelectAll] checkbox if there's not a filter applied.

I see nothing wrong with your code (The logic at least). Possibly using parentheses around the separate sections joined together by AND may help in the WHERE clause, but fundametally nothing I'm afraid.

I would suggest however, especially when posting publicly, but also for your own benefit, that you use indenting more consistently. Indenting is not random, and if it's used at all (Highly recommended) it absolutely must be done consistently so all code that is at the same level is indented the same amount. I say must, because indenting without consistency is (a lot) worse than no indenting at all. It is actually misleading and uncomfortable to read (as you get normal clues from it, but you have to ignore them as they are often meaningless).

This may sound critical, but it's not supposed to. I merely try to help you understand the importance, and ultimately the benefits, of properly indenting code (and the reverse of course).

While I'm here, why don't I give an example, and I'll simplify the code somewhat while I'm about it :

Private Sub SelectAll_Click()
    Dim strSQL As String, strSet As String, strClear As String
 
On Error GoTo SelectAll_Error
 
    With Me
        'Save record if changes pending
        If .Dirty Then .Dirty = False
 
        strSet = Format(.SelectAll, "True/False")
        strClear = IIf(strSet = "True", "False", "True")
        strSQL = "UPDATE [qryLeadershipEmailListALL] " & _
                 "SET    [Send Email]=%S " & _
                 "WHERE  ([Send Email]=%C)"
        'Apply the correct True/False or False/True depending on [SelectAll]
        strSQL = Replace(strSQL, "%S", Format(.SelectAll, "True/False")
        strSQL = Replace(strSQL, "%C", Format(Not .SelectAll, "True/False")
 
        'Only if necessary add the AgencyType filtering
        If Not IsNull(.cbofltrAgencyType) Then _
            strSQL = strSQL & " AND ([Agency Type]='" & .[cbofltrAgencyType] & "')"
        'SQL all ready to execute now
        CurrentDb.Execute strSQL, dbFailOnError
        Me.Refresh
    End With
 
SelectAll_Exit:
    Exit Sub
 
SelectAll_Error:
    MsgBox "Error# " & Err.Number & " " & Err.Description
    Resume SelectAll_Exit
End Sub

[bre1603]

Okay, I made the changes you suggested - I added parentheses around the separate sections in the WHERE clause, and changed “= Null” to “IsNull()”.

And good news, it worked! I think it was changing the Null code that really did it. I changed it in the [cbofltrAgencyType] code as well as in the [SelectAll] coding, and that made all the difference.

I’ve been struggling with this form for some time now and I’m ecstatic now that it’s working how I wanted it to. Thank you so much for all your help.

Your simplified code was much, well, simpler! I’m not to the point where I can write code that looks like that (I tend to take the long way around), but maybe someday. ;)

I’m pretty new to VBA and I’m still figuring out all the nuances (there seem to be a lot, so I don’t feel too bad about it). But I like trying it and I learn something every time! Thanks for the tip on using indenting. I was aware it was preferred, but not that it was super important. I’ll have to educate myself more on it now that I know I’m not doing it correctly/consistently. Maybe I’ll be able to clean up some coding in the process.

Thanks again for all the help NeoPa and Nico!

[bre1603]

P.S. I found some code that works very well with the SelectAll checkbox, and also worked with my filter combo box. If I'd been able to make it work sooner, I might have saved myself some time and frustration. For those of you wishing to avoid that part, you might try this first:

"Loop through checkboxes using ADO - Access 2003" (the code works for DAO too). Here's the link to the string:

http://bytes.com/topic/access/answer...-access-2003-a

Good luck. :)

[NeoPa]

On the plus side - you learnt about a much better way (SQL is so much more scalable than Recordset coding). Learning is often the result of painful times. In this case I'm sure the benefits outweigh the setbacks.

[bre1603]

Too true... I'm glad I pushed through - it was a close one. But I do learn the most when I'm about to go insane. And it makes the solution that much sweeter, of course.

And this "experience" helps me in more ways than one. By applying my new knowledge to a sister form, it will mean building one form instead of five. And the user gets what he wants, which is good news for him and me! Those are pretty big benefits...