SendMessage (FileSavePath, txtEmpID) looking for = Compile Error

[sanderson]

Hello:



SendMessage is a sub (VBA Access 2013)

It turns red and says Compile error: Expected: =

If I remove the second item and just call FileSavePath, the code runs great!

Thanks in advance for any help!

Private Sub SendMessage(FileSavePath As String, txtempid As String)
    Dim appOutLook As Outlook.Application
    Dim MailOutLook As Outlook.MailItem


    'Dim txtempname As String
    'txtempname = DLookup("name", "dbo_empbasic", "empid = '" & txtEmpID & "' ")
    'MsgBox ("txtempname: " & txtempname)
    
    Set appOutLook = CreateObject("Outlook.Application")
    Set MailOutLook = appOutLook.CreateItem(olMailItem)


    With MailOutLook
        .BodyFormat = olFormatRichText
        .To = "sanderson@metromachine.com"
        ''.cc = ""
        ''.bcc = ""
        .Subject = "Weekly Timecard for "
        .HTMLBody = ""
        '.HTMLBody = "Attached is the timecard for " & txtempname & ", employee number " & txtempno & " for the week of " & CStr(datPeriodStart) & " through " & CStr(datPeriodEnd) & "."
        .Attachments.Add (FileSavePath)
        .Send
        '.Display    'Used during testing without sending (Comment out .Send if using this line)
            
    End With
  
End Sub

[June7]

What line causes error? What is 'second item'?

Is empid a text or number type field?

Name is a reserved word. Should not use reserved words as field names.

Is there possibility the DLookup will not find a match?

Try:

txtempname = Nz(DLookup("[name]", "dbo_empbasic", "empid = '" & txtEmpID & "'"),"")

Where are txtempno and datPeriodStart and datPeriodEnd coming from? If those are VBA variables, they are not declared and set.

[sanderson]

When I add the second field in both places, I get the compile error "expected =" When I try to run, I get a Compile error, "Syntax Error"

Both fields are text, and the second is the employee number, also text.

Nz. good idea.

Thanks. Let me know if you have any ideas.

[June7]

I am lost. Add in what both places?

Did not answer my last question in previous thread.

[sanderson]

Is empid a text or number type field? text

Name is a reserved word. Should not use reserved words as field names. Unfortunately it exists in a sql table and I cannot change it.

Is there possibility the DLookup will not find a match? I believe dLookup will work great, however it is remmed out and not part of this problem. I cannot test it until I have an employee number to feed it with.


Both places refers to the sub, and the sub call.

Thanks!

[June7]

I am lost. Exactly what line in the posted code errors?

I still don't know where txtempno and datPeriodStart and datPeriodEnd are coming from.

If you use reserved words as names or if names have spaces or special characters, enclose in [].