Search results

... of sorting field ... the sorting field event, not the form event Otherwise the cursor will be reset Together: Use "After Insert" form ivent and "After Update" of sort field ivent.

Post #7

That's is better way!

01. Set "Order By" your form propery as you wish 02. On "After Insert" ivent of form set code: Private Sub Form_AfterInsert() Me.Requery End Sub

Ye-ee-e-s-ss!

Another way: Use a Label control instead of a button, it also has an "On Click" event. Private Sub LabelTest_Click() MsgBox "There's no border around the Lable!", _ vbInformation, "Use a label instead of a button!" End Sub

Try to set focus to enother control of form Private Sub cmdButton_Click() ' ... ' ... Me.EnotherControl.SetFocus End Sub

I showed this function only as an example. You can use similar calculations wherever you want

I know ... :) I forgot to multiply the days by 24 hours. I already corrected the line TimeTo10Base = Val(Mid(sVal, 1, iPos - 1)) to: TimeTo10Base = Val(Mid(sVal, 1, iPos - 1)) * 24 ... post #4

Make test application with just the form (with subforms) and required tables/queries. Just a few (fictitious) records to view error.

Test: Debug.Print TimeTo10Base("1 1:30:00") Debug.Print TimeTo10Base("0 1:15:00") Returns: 25,5 1,25

That's unexpected. It didn't happen to me. Can you post a sample DB with test data?

Please try this code:

With VBA you have a lot more possibilities.

use double quotes twice on each side of the value with apostrophe strSQL = strSQL & "WHERE ... Not In ('ELE/PP', ""EA/C'd"", 'JD', ... )"

Put code in any extended module Example of Use: SendEmailWtAttachment "name@domen.com; name02@domen02.com", "Subject Text", "Hi! ... message ...", "C:\Temp\filename.zip"

Oh that's easy, put the command: Me.Combo_Emp_Name.Requery After string: lDep = Me.Combo_Dep It should look like this: ' ... Else Me.Dirty = False sPeriod = Me.cboPayPeriod lDep = Me.Combo_Dep Me.Combo_Emp_Name.Requery...

Did you mean MS Outlook?

Try in "Salaries_Emp" form: ... and "Salaries_Temp" Form :