Search results

I would suggest that you set up three tables as the way you are doing it is the hard way, in my humble opinion.... tblCommodities CommodityID (PK and autonumber) CommodityName CommodityDate Price tblBuyersSellers BuyerSellerID (PK and autonumber) CommodityID (FK) BuyerSellerName...

Philljp390 - Me.ID assumes you have a control on your form called ID that contains the Incident ID... Also, look into normalizing your data as suggested by Wayne (the linear code guy) as it will make getting the answer you are looking for much easier... Jack

I assume you are using Access2000 where ADO is the native code and not DAO. To get DAO to work in Access2000 and above make the following changes: Dim dbs As DAO.Database Dim rs1 As DAO.Recorset Dim rs2 As DAO.Recordset From the Code Editor select Tools > References. Scroll down until you find...

If your tables are properly normalized and related then a query should do the trick. It would appear from your example that the adressess are not normalized, but I am not sure. If there can be multiple addressess for a record then they should be in a separate table rather than fields in your...

This article, if you haven't read it already, should answer your questions... Stick your Office CD in to your drive and select Repair when the dialog box appears on the monitor. Hopefully that will fix the problem. If not, you may need to do a re-install. hth, Jack

You will find your answer here. hth, Jack

How are you entering the criteria? If you have a form where the user fills in the dates and then clicks a button to run the query you can get the values from that form, if you don't close it. Or you can put the values in a global variables and refer to the variables. If you want to use variables...

In the forms On Open event put code similar to this: Me.NameOfCalendarControl.Value = Date() Now the calendar will open at todays date.... hth, Jack PS. If the parenthesis disappear after Date that is OK. Just do not have any controls or fields named Date as Date is a reserved word in Access.

If you have Office XP your are using Access2002.... Glad you have your code working! Continued success with the project. Jack

Maybe you should look into Data Access Pages as a way for your users to deal with this at your website... Just a thought... Jack

You are welcome. Continued success with Access! Jack

You can create or copy your existing search or display form but use Dynamic_Query as the Record Source. Place the word Search Results at the top of this form so the users are not confused. In your code, after the code that saves the Dynamic_Query add" DoCmd.OpenForm "NameOfSearchResultsForm"...

It looks intimidating, but I can assure you that you can do it. Just stick with it and once you sort it out it will become one of your favorite bits of code... Just take each bit of code a step at a time and it will work for you... Heck, even I figued out how to do it so you certainly can! Be...

Edd - You came to the right place! You will find exactly what you are looking for right here. It works a treat in all situations... Jack

I do not know how you get our date automatically so it is hard to tell you where to put the code so that it will add 7 days to your date and place it in the control for Date Due. If you are getting your date by using =Date() in the Default Value of the Date Field then use = Date() + 7 in the...

I am sure you have triple checked the Combo but something is wrong if Access does not reconize it. Delete the combo and create a new one using a new name. Then change the code to refect the new name. If you are going to use 8:00AM then the code should read: If Not IsNull(DLookup("[ApTime] &...

There is a Snapshot View version 9.0 so hopefully that one works with Access2000. You can download the viewer from the MS KB and it should give you the information you need. I do not use it so I am stumbling a little with this... Good luck with your project! hth, Jack

You don't say what errors you are getting so give this a go... If Not IsNull(DLookup("[ApDate]", "Apointments", "[ApDate] = '" & Me.cboDate & "' And Me.ApTime = '" & Me.ApTime & "'")) Then DoCmd.RunMacro "Appoint.Update800" Else DoCmd.RunMacro "Appoint.Append800" End If hth, Jack

Attached is a revised version of your db. You will need to run Query1 when you add a new Survey. And you will want to add Next and Previous buttons to the Question subform. this needs work but the basics are here. hth, Jack

I have looked at your db and would suggest you set up up like the Survey sample I just sent you. Much easier all the way round in my opinion... Jack