Need Help Please In capturing the value in text in Access 2010

I have created a form and need access to capture the value ( which is email address ) in text34 which is a text box and have written the below code however when access tries to send the email in the To section Text34.text appears instead of the value in the text 34. Please advise how can access capture the value (email address ) which is in textbox 34 in the form.

DoCmd.SendObject acForm, "Leave Approval Form", "PDFFormat(*.pdf)", "Text34.text", "", "", "RE : Leave Request Status", "Please review the status in the attachment.", True, ""

Alan,

You are brilliant. Thank you very much. It works like a flower.

Another question. I need the form ( acForm ) to be empty for the next user after the email is sent with the below code. Currently the user has to navigate using the next button to go to a blank form to update the details. Please advise how do i do it.

DoCmd.SendObject acForm, "Leave Approval Form", "PDFFormat(*.pdf)", "Text34.text", "", "", "RE : Leave Request Status", "Please review the status in the attachment.", True, ""

Thank you. It works. I have created a module for datediffexclude to exclude saturdays & sundays while calculating the total days between two days however i get an error station undefined function when i try to call it in a query & if i try to use it under calculated field in a table i get a message stating it cannot be used in calculated fields. Please advise.

Function DateDiffExclude(pstartdte As Date, _
penddte As Date, _
pexclude As String) As Integer

Dim WeekHold As String
Dim WeekKeep As String
Dim FullWeek As Integer
Dim OddDays As Integer
Dim n As Integer

WeekHold = "1234567123456"
FullWeek = Int((penddte - pstartdte + 1) / 7) * (7 - Len(pexclude))
OddDays = (penddte - pstartdte + 1) Mod 7
WeekKeep = Mid(WeekHold, Weekday(pstartdte), OddDays)
For n = 1 To Len(pexclude)
OddDays = OddDays + (InStr(WeekKeep, Mid(pexclude, n, 1)) > 0)
Next n

DateDiffExclude = FullWeek + OddDays


End Function

SELECT [Main Table].Employee_Name, [Main Table].Leave_Apply_Date, [Main Table].Leave_Start_Date, [Main Table].Leave_End_Date, [Main Table].Total_Daysof_Leave, [Main Table].Comments, [Main Table].Approval_Status, [Main Table].Manager_Comments, [Main Table].[Email Address]
FROM [Main Table]
WHERE ((([Main Table].Employee_Name) Is Not Null) AND (([Main Table].Leave_Apply_Date) Is Not Null) AND (([Main Table].Leave_Start_Date) Is Not Null) AND (([Main Table].Leave_End_Date) Is Not Null) AND (([Main Table].Total_Daysof_Leave) Is Not Null) AND (([Main Table].Comments) Is Not Null) AND (([Main Table].Approval_Status) Is Not Null) AND (([Main Table].Manager_Comments) Is Null) AND (([Main Table].[Email Address]) Is Not Null));


I want to call the function/module datediffexclude for which the code is given above under Total_DaysOf_Leave. Please advise.

Please see attached screenshot where i have used an expresion for Total days of leave in the main table which will give me the number of days between leave start date & leave end date. However i need the total days of leave to exclude saturdays & sundays while doing the calculation. When i try to call the function DateDiffExclude in the query under total days of leave i get an error stating undefined function per attached screenshot. Please advise.

I have removed the calculated field in the table. Could you please tell me what expression i should use to call UDF to calculate the number of days between dates excluding weekends.

Thank you.