print งานจาก form โดยใช้ frame
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 329   4
URL.หัวข้อ / URL print งานจาก form โดยใช้ frame

รอบกวนอาจารย์และท่านผู้รู้ทุกท่านค่ะ รายละเอียดมีดังนี้ค่ะ ได้สร้าง form ขึ้นมา 1 form เรียบร้อยแล้ว ทำการ filter โดยใช้ Frame เป็นตัว Filter แต่ติดปัญหาอยู่ที่ว่า เวลาจะ print Report จะทำอย่างไรดีค่ะอาจารย์ จะใช้คำสั่งไหนดีเพื่อที่จะให้ไปยึดกับตัวที่เรา filter เพราะถ้าเป็นการใช้ combobox ก็จะใช้ Code ข้างล่างนี้

Dim strWhere As String
If Me.Combo91 <> "" Then
strWhere = "DrawingNo='" & Me.Combo91 & "' "
End If

แล้วถ้าเป็น frame ควรจะเปลี่ยนใช้อย่างไรค่ะ ขอบคุณค่ะอาจารย์
โดย: ฐิติมาภรณ์ เมื่อ: 19 มิ.ย. 2546 , 15:43

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

1 @R03614
ตอนนี้อาจารย์ คงกำลังยุ่งอยุ่ครับ
ลองดูแบบนี้ครับ
Dim strWhere As String
If Me.Combo91 <> "" Then
strWhere = "DrawingNo='" & Me.Framname.value & "' "
End If
โดย: Access2000 เมื่อ: 20 มิ.ย. 2546 , 09:16
2 @R03616
รายงานจะออกมาทั้งหมดเลยค่ะ
คือว่า Frame มีทั้งหมด10 Toggle โดยแต่ละตัว จะ apply filter ชื่อ filed คือ lotsname นั่นหมายถึงจะมี framelotsname1 ถึง framelotsname10 เวลาเรากด framelotsname1 ก็จะได้สิ่งที่เรา filter ใน form ฉะนั้น ก็อยากจะให้สั่งพิมพ์ได้ในขณะที่เรากด framdlotsname1 อยู่นั้นออกในรายงานตาม form เช่นกันค่ะ
โดย: ฐิติมาภรณ์ เมื่อ: 20 มิ.ย. 2546 , 13:58
3 @R03625
สร้าง Unboundtxt ไว้บนฟอร์มครับ เวลาคลิ๊กที่ Toggle แต่ละตัวก็ให้ส่งค่ามาที่ Unboundtxt
Private Sub Check1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)


Unboundtxt = 1 'ค่าหลังจากคลิ๊กที่ Toggle หรือ chekbox สามารถใช้เป็น Toggle ได้
End sub


ส่วนเวลาเรียกใช้
Dim strWhere As String
If Me.Combo91 <> "" Then
strWhere = "DrawingNo='" & Me.Unboundtxt.value & "' "
End If
โดย: Access2000 เมื่อ: 20 มิ.ย. 2546 , 23:09
4 @R03659
ขอบคุณมากๆ ค่ะท่าน Access2000
โดย: ฐิติมาภรณ์ เมื่อ: 23 มิ.ย. 2546 , 08:07
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 1.0707s