ส่งค่าตัวแปรไปยัง report
กระทู้เก่าบอร์ด อ.Yeadram

 863   7
URL.หัวข้อ / URL
ส่งค่าตัวแปรไปยัง report

สวัสดีครับ

ผมอยากจะส่งค่าตัวแปร เป็นข้อความ ไปยัง 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 ...

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

7 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R24103
ผมทำตัวอย่างไฟล์ไว้ ลองไปดาวน์โหลดมาศึกษาที่

ตัวอย่างไฟล์
2 @R24105
@คุณธัชชัย

ขอบคุณครับ
แต่ผมเข้าลิ้งไม่ได้เข้า ถ้าเข้าไปมันจะกลายเป็นหน้า dropbox ของผม

แต่ถ้าออกจากระบบ ผมก็จะเข้าดูลิ้งไม่ได้เช่นกันครับ

ต้องกดแชร์ลิ้งเอานะครับ
3 @R24106
4 @R24107
ทำไฟล์เป็น Share แล้วนะครับ ลองดูว่าได้มั๊ย
5 @R24110

ตอนนี้โหลดได้แล้วครับ

ขอบคุณมากครับ
6 @R24113
ในคำสั่ง คุณเขียน getSMonth ซ้ำสองครั้ง
จริงๆ น่าจะเป็น getSYear นะ ตัวหลังน่ะ

DoCmd.OpenReport "My_Report", acViewPreview, , "My_ID = " & Me.txt_ID & " AND [getSMonth] = '" & ConvertDate(Me.txtStartDate) & "' AND [getSMonth] = '" & Year(Me.txtStartDate) & "'"
7 @R24114
@yeadram

ผมทำตามคุณ ธัชชัย แล้วใช้ได้เลยครับ

ส่วนโค้ดตรงนั้นผมแก้แล้วก็อ้างอิงไม่ได้เหมือนเดิม ตรงนั้นบอกเลยว่าผมมั่วเอาครับ อิอิ

ขอบคุณครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3330s