กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
345 5
URL.หัวข้อ /
URL
ต้องพิมพ์ สิ่งที่เราค้นหามาได้ทำไงครับ
คือว่า Sub Form ผมค้นหาได้แต่ผมต้องการพิมพ์ข้อมูลที่ผม Select หรือค้นหาได้นะพิมพ์ออกมาโดยผ่าน รายงาน (Report) ทำไงครับ
Dim strsql As String
Dim rst As Recordset
strsql = " คำสั่ง SQL "
Set rst = CurrentDb.OpenRecordset(strsql)
Me.index.Form.RecordSource = strsql
Me.FilterOn = True
Me.Refresh
Set rst = Nothing
Dim strsql As String
Dim rst As Recordset
strsql = " คำสั่ง SQL "
Set rst = CurrentDb.OpenRecordset(strsql)
Me.index.Form.RecordSource = strsql
Me.FilterOn = True
Me.Refresh
Set rst = Nothing
5 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R01926
1. สร้าง รายงาน โดยมี Record Source เช่นเดียวกับ SubForm (รวมทั้ง textbox ต่างๆที่จะ
ออกรายงาน)
2. ที่ Event On Open ลองใส่ code นี้ลงไป
Report.RecordSource = [Forms]![Form_Name].RecordSource
3. ที่ MainForm สร้างปุ่มสำหรับเปิดรายงานที่สร้างไว้ที่ข้อ 1 ครับ
4. ลองประยุกต์ใช้ดู
2 @R01931
Forms =?
Form_Name =?
หมายถึงอะไรครับ
3 @R01934
Forms เป็นคำเฉพาะที่หมายถึง Object ที่เป็น ฟอร์มใดๆ "จำเป็นต้องเขียนแบบนี้ครับ"
Form_Name หมายถึง ชื่อฟอร์มที่คุณตั้งขึ้นมาครับ
4 @R01935
อ้อ ถ้าเป็น Subform อาจจะต้องเปลี่ยน [Forms]![Form_Name].RecordSource เป็น
[Forms]![Form_Name]![Subform_Name].[Form].Recordsource
Subform_Name= ชื่อของ Subform ทึ่คุณตั้งขึ้นมา
Form = เป็นคำเฉพาะหมายถึง Subform ใดๆ "จำเป็นต้องเขียนเช่นนี้"
5 @R01936
ขอบคุณมากครับ ทำได้แล้ว Thank you. มากๆๆ
Time: 0.1016s