Search results

I'm assuming your search form is unbound and that every search field (text box) you have on the form is also unbound. Try this: Design a query that brings in all the fields of your table (double click on the "*" field in the query design grid for the displayed table you want to run the query...

Hi, Pat. Because of this (from the Nz function of the Acc97 help file):

Try this in your module: Public Function fncNextW() as Long fncNextW = Nz(DMax("[WLogNo]", "stLogW")) + 1 End Function Public Function fncNextE() as Long fncNextE = Nz(DMax("[ELogNo]", "stLogE")) + 1 End Function Public Function fncNextG() as Long fncNextG = Nz(DMax("[GLogNo]", "stLogG")) + 1...

Listen to Pat: She knows what she's talking about... You've got a couple of problems: strWhere = "WHERE strWhereValue;" should at least be: strWhere = "WHERE " & strWhereValue I don't see where you're setting a string value for strWhereValue at all and the ";" goes at the end of the sql...

Access97 Help says: Try the statement without the brackets []...

Actually, what I think your where condition is returning is any value for CatCODE OR all values where CatCode2 = Me.Combo2... Try this: flt = "[CatCODE] = '" & Me.Combo2 & "'" & " Or [CatCode2] = '" & Me.Combo2 & "'" (I think the syntax is correct...)

What does Sorting and Grouping (under the Veiw menu item) for the section say? Try changing those field names to the new field names.

Left click once on the control that's in the header section. Then change the Control Source property to SupplierID. Do you have any code behind that report? You might have to change that too...

Whew! Zipped file just made it under... Look at "testing 01" in reports and tell me if that's what you want it to do. "testing 01" is a copy of 01 WeeklyReport-Employee (and has a tricky bit of code behind it, if I do say so myself).

It seems to me that you need one 11 page report and not 11 seperate 1 page reports. IOW, the query for the report should eliminate the Where clause so as to grab all the data for all the departments into one query. Then use the report Sorting and Grouping to print individual page headers...

Me.Line (0 * 1440, 14400)-(9.46 * 1440, 14400) 'my attempt at horiz. line I think your Y coordinates are outside the area of the report that's being printed. Try: Me.Line (0, Me.Height)-(9.46 * 1440, Me.Height) hth, Doug.

I'm using Acc97 to design a db that'll be converted to A2k where I work. I need to know whether or not I can count on what I think A2k conditional formatting is capable of doing. I have a '97 subform that displays the first 10 records of a ~180 record recordset the user can scroll through from...

(never mind...) Doug.

Can you run a find duplicates query on your many to many table with the criteria in your dcount? Then use that query as the domain in the dcount... Doug. (edited: first solution wouldn't work... sorry!)

If CMD_Button_do is on the main form, try: Me![Dispatch - Sub(Status)].Form![Text_box_2] = Text_box_1 Or if CMD_Button_do is on the subform, try: Text_box_2 = Me.Parent![Text_box_1] I strongly suggest a name change for your subform: the current subform name can be interpretted by Access as...

If you're asking whether or not there is a control you can put on your form that'll parse it's value into a query's criteria expression, then no - at least not that I know of. The only other way I know to do what you want is to create an SQL Where clause and run the generated SQL statement...

This is not clean, but'll 'prolly work... Add 4 or 5 unbound check box controls (or however many "jobn"s you wish to include/exclude) to your form. Set the default value for each check box True for the jobs you'd normally expect to exclude & False for the jobs you don't normally exclude. In...

The code goes in the On Open event of your report. Open your report up in design view and look for the On Open event in the Properties list. Choose [Event Procedure] from the drop down list for the On Open property, then click on the (...). That'll open the code window for the Open event of the...

I only tested this using the debug window, but it should work: Private Sub Report_Open(Cancel As Integer) Dim Captxt(12) As String '13 elements in array Captxt(0) = "Everyone is responsible for Safety" Captxt(1) = "We look out for each other" Captxt(2) = "Safety will be planned into our work"...

Ah-yup! '97 & 2000 Helps are different, no doubt... I dunno... Designing a help for a 'puter has gotta be one of the hardest things there is to do (I usually quit 'bout half way through a help file for a db 'casue I don't know where to stop giving info. to a user...). All in all, I'd have to...