สวัสดีครับ

ผมอยากจะส่งค่าตัวแปร เป็นข้อความ ไปยัง report
โดยค่าที่ส่งไปไม่ใช่ ค่าในตาราง หรือ record source ของ report

ผมจะให้ผู้ใช้เลือกวันที่ แล้วผมจะ แตกวันที่เป็น อักษรไทย และเลขปี แล้วแสดงแค่เดือน กับ ปี ใน textbox



โค้ด ที่ปุ่ม สร้างรายงาน
DoCmd.OpenReport "My_Report", acViewPreview, , "My_ID = " & Me.txt_ID & " AND [getSMonth] = '" & ConvertDate(Me.txtStartDate) & "' AND [getSMonth] = '" & Year(Me.txtStartDate) & "'"

ฟังก์ชั่นแปลงเดือน

Public Function ConvertDate(InputDate As Date) As String
Dim MonthTHArray As Variant
MonthTHArray = Array("มกราคม", "กุมภาพันธ์", "มีนาคม", "เมษายน", "พฤษภาคม", "มิถุนายน", "กรกฎาคม", "สิงหาคม", "กันยายน", "ตุลาคม", "พฤศจิกายน", "ธันวาคม")
ConvertDateNum2ThaiFormat = MonthTHArray(Month(InputDate) - 1)
End Function

แต่พอรันโปรแกรม กดปุ่มสร้างรายงาน โปรแกรมจะให้ enter parameter ซึ่งแน่นอนว่า โค้ดผมใช้ไม่ได้


ซึ่งผมก็ไม่รู้นะว่าโปรแกรมมันสามารถทำได้รึป่าว นี่ลองมั่วดู
มันน่าจะผิดที่การอ้างใน DoCmd.OpenReport ...

รบกวนแนะนำหน่อยครับ