Search results

textual arguments must be enclosed in quotes aa = DSum("IncTotal", "Income", "mmyy = '" & vmth & "' AND IncCA = & vt & " AND Incyy = 'vcy'") ... AND Incyy = 'vcy' ... :) Hint: The third argument of the Dsum() function (and similar ones) is constructed according to SQL WHERE rules Good luck!

... 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?