Search results

Your code seems to work fine for me. Which part isn't working, the invalid time message, the formatting of the text box entry or both? Check the "On Lost Focus" cell in the text box's property sheet, and make sure that it is linked to the event procedure you have in your code.

Use the statement: Expr1: Format(IIf([Field2]=0,":",[Field1]/[Field2]),"0.00") And you'll get two decimal places.

I would make the message box my own dialog from opened with the dialog window mode: DoCmd.OpenForm "frmMsgBox", , , , , acDialog And then I would put the quit database timer function on that form. Hope this helps.

My misinterpretation jwindon: I wasn't thinking that LittleMan's form in question was a bound form that was being used to navigate through records. I was viewing it as a switchboard type form where he merely wanted to select an item from a combo box have the "canadian status" control appear or...

You can delete records and set criteria on a field in another table as long as you add both tables to the query and join them on one or more fields that will uniquely associate the tables with one another. Only select fields from the table that contains the records you would like to delete however.

I'm obviously not clear as to what you are trying to do here Pat. If the procedure works when you select an item from the combo box (which triggers the after update event of that combo box), the only time the procedure isn't being called, when it needs to be, is when you are re-opening the form...

This should work better freshmaker. Sorry, logic problem in the first suggestion: RemainingHours: 480-(Nz(DSum("HoursUsed","datHours","DateUsed > #" & [DateUsed]-365 & "# And DateUsed < #" & [DateUsed] & "#")))

Underline the character in the caption by putting an ampersand before the character you want underlined (i.e. My &Caption) will underline the "C" the caption "My Caption". In the KeyDown event of the form place the following code: Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)...

Run the after update event of the canadian status field in the On Load event of the form. i.e. Private Sub Form_Load() CanadianStatus_AfterUpdate End Sub

Sorry, Take the "()" that following the last "Date" in the line. If you keep them in you will get the remaining hours for the period from today's date back 365 days, instead of 365 days back from the date in the "Date" field of the datHours table.

Assuming these fields come from the same table (for this example I'll call the table "datHours") the following line in the Field row of one of the query columns should work: RemainingBalance: 480-(DSum("HoursUsed","datHours","Date > Date()-365"))

Dim ctl As Control Set ctl = Forms![frmMain]![frmSub] ctl.Form![frmSubSub].Form![Field] Or Set ctl = Forms![frmMain]![frmSub].Form![frmSubSub] ctl.Form![Field]

Place this line before the DoCmd.DoMenuItem... line: SendKeys "{tab}{tab}a{tab}{tab}{tab}"