Search:

I suggest that you always use the full year rather then the last two digits. This article may help shed some light...

<A target="_blank"...

DoCmd.OpenReport "ReportName", acPreview
DoCmd.RunCommand acCmdZoom150

When you put in the RunCommand you can choose your magnifcation....

hth,
Jack

Try putting this all on one line -

DoCmd.OpenForm "frmParticipantsInWorkshops", , , "ParticipantID = " & ParticipantID, , acDialog

Just a guess on my part because you are not using the...

I would suggest that you look into Rick Fishers Find and Replace program. The price is certainly right and it is in indispensible tool in my opinion. Go to <A target="_blank"...

I think I now understand what you are saying. What is happening is that the first form comes up with the right student but when you click on a command button to go to another form it shows all...

I am not sure how you are going about your search. Are you are using combo boxes to list last and first names? Text boxes? Do you have a query that gets its criteria from the combo or text boxes? If...

I am sorry but I don't have an answer for your first question. As for your second question it is a bit hard to give you an answer but here is a start. The Option button returns either Yes or No. How...

If you have an unbound text box named Text1 on your form then code like this in the After Update event of the text box will fill the rest of the fields on the form with the correct data:

Dim...

Are you saying that you do NOT want to select the information from a combo box but type it in to a text box instead? Look at the code created by the combo box that does what you want and modify that...

Access2000 has a database that comes with it called "Inventory Control". You should be able to find this with the first dialog box that opens when you open Access. The first dialog box has a choice...

Do you make selections from one or more of the List boxes? If so then I would suggest that you take a look at this article for information on how to create a dynamic query.

<A target="_blank"...

I think you want to use MsgBox. MsgBox = "Bad Entry". Search help for more details on MsgBox.

hth,
Jack

I am glad you got it to work as that is all that really matters. Continued success!

Jack

I guess we would need to see the code in your Module or tell us what the code is supposed to do. My suggestion is just one way to call code and may not be the correct way in your case.

Jack

If you want to call your function from the On Click event of a command button you would put something similar to this in the On Click event: =YourFunctionName(Arguments).

I haven't used macros...

See if this article will work for you...

<A target="_blank" HREF=http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q210581>http://support.microsoft.com/default.aspx?...b;EN-US;Q210581</A>
...

I think this article is what you are looking for. It is for Access2000 but it works with Acccess97 as well.

<A target="_blank"...

I do not use the Lookup tab in a table as I prefer to make them as I need them. This is just a personal preference, but it works for me. Anyway, I am glad you found your problem.

Jack

My only other suggestion would be to put a Stop in your code and step through it one line at a time and see what values the variables are holding, etc.

Good luck!

Jack

Here is your original code:

Rs![Dist_Div] = InputBox(Msg)
' Assign the NewData argument to the CompanyName field.
Rs![Dist_Div] = NewData

First you save the value that the user inputs into...

If you want to use your code in the Not In List event then the Limit To List property must be set to Yes. If you want to have Access add whatever is input into your combo box then delete the Not In...

Instead of using a Msgbox create a form that resembles the Msgbox and then have your timed event close the form.

hth,
Jack

This should do it for you:

LastDayOfPreviousMonth = DateSerial(Year(Date()), Month(Date()),0)

hth,
Jack

The important things is that you have it sorted and it is working....

Do you have code similar to this in the second forms On Open event?

If Not IsNull(Me.OpenArgs) Then
Me.ContactID = Me.OpenArgs
End if

Jack