Search results

I wish I had known you were using Access97 and I would converted the Survey db sooner. It is attached. Take a look and see if it makes sense. I am looking at your db and I will see if I can sort out what you are up to... Jack

You do not need to append each question and answer to the table. I don't know how you have your forms set up but if the user moves from one question to the next and the question and response tables are propely related Access will add the QuestionID and the Response directly to the Response table...

When it comes to Crosstab queries I am a total failure so for that part of your question it might be a good idea to check the MS KB for articles on the subject or post a new question. Ten append queries? Why so many? What are you trying to append? Jack

Sorry, I don't Excel or macros so I haven't a clue. Maybe someone else will have the answer.... Jack

You are welcome and good luck with your project, Government or not.... Jack

I am not quite sure what you mean by running a query automatically. A query can be the Record Source for a form or report or you can open it to have it display data. If a query is the Record Source of a form all you need to do is open the form to see the results of the query. You can open a...

Are you trying to do this in Access's VBA? If so, it will not work, as you have discovered. You will need to create code to do what you want.... Jack

Take a look at this article as I think it is what you are looking for. And you should not use a form but a report.... hth, Jack

You are welcome... You will find a survey db similar to yours here. Good luck with your project.... Jack

Try this: 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 I have assumed you have an unbound control on your form named ApTime...

Hmmm. The plot thickens... If you leave out the primary key in the DLookup() code then DLookup will return True for the first record it finds that meets that Date and Time criteria. Is this what you want or do you want to see if a specific record meets the criteria? If you only want to find...

snicker - DLookup will not make any changes to your table. It is merely trying to find a record that meets the criteria and if it does the code returns 'true' and runs the code right below the If statement. If it returns 'false' (the record does not exist) then it does the code in the Else...

Your table is not normalized and that is your problem. Your table(s) should look like this: tblRespondents RespondentID (PK and autonumber) LastName FirstName ....other fields... tblQuestions QuestionID (PK and autonumber) Question (Text field) tblResponses ResponseID (PK and autonumber)...

I did it with two queries.... Change the names of the fields in the table to reflect the names in your table.... SELECT tblData.Satisfaction, tblData.mDate FROM tblData WHERE (((tblData.mDate) Between #5/1/2003# And #8/30/2003#)); SELECT qryDates.Satisfaction, Count(qryDates.Satisfaction) AS...

Speed is the problem, obviously, if you have a slow network, but other than that you can have the BE on the server. I would put the FE's on the users machine and then link to the server. If each division (or whatever) has an intranet then the BE can be placed on that server as it may be faster...

You have that right! Replace Me.ApKey with the actual name of the control on your form that has the value you want for the ApKey criteria. Sorry I didn't spell that out in my response.... Jack

If you make modifications to forms, add reports, new queries, etc. how will you add these modifications to the users copy of the program without their tables and all the data that has been added since you first delivered the program? With a split db you just deliver a frontend and the user never...

Wayne has it right, your syntax is wrong. This is correct: If Not IsNull(DLookup("[ApKey]", "Apointments", "[ApKey] = " & Me.ApKey & " And Me.ApDate = #" & Me.cboDate & "# And Me.ApTime = #8:00AM#")) Then Jack

Something like this: If Not IsNull(DLookup("[RecordID]", "YourTableName", "[RecordID] = " & Me.RecordID & " And Me.ApDate = #10/23/2003# And Me.ApTime = #8:00AM#")) Then Run Update Query here Else Run Append Query here End if If you are going to use fields on your form for entry of the date...

Good Morning Edd! You must have been up for hours by now... Good luck with your project, if indeed you are back at it... Jack