แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Teeyai

หน้า: [1] 2
1
ห้อง MS Access / : สอบถามวิธีย้าย Dialog ของหน้าต่างฟอร์มให้มาอยู่ตรงกลางจอหน่อยครับผม
« เมื่อ: 05 ก.ย. 62 , 14:49:55 »
ขอบคุณทุกท่านครับที่ให้ข้อมูลและความเห็น

ผมได้ตั้งค่า Center แล้วครับ

คือถ้าเปิดแบบ Form View หน้าต่างมันจะไปทางซ้าย ดังภาพที่ส่งมาให้ดูข้างต้นครับ
แต่ถ้า double click ที่ Navigation Pane หรือ ใช้คำสั่ง Open Form มันจะอยู่ตรงกลาง แต่ไปทางด้านบน ไม่ตรงกลางจอเสมอครับ อยากให้เวลา run form แล้วมันอยู่ตรงกลางเสมอ ไม่ว่าจอคอมจะเล็กหรือใหญ่ อะไรทำนองนี้อะครับ

ขอบคุณมากครับ

2
ห้อง MS Access / สอบถามวิธีย้าย Dialog ของหน้าต่างฟอร์มให้มาอยู่ตรงกลางจอหน่อยครับผม
« เมื่อ: 04 ก.ย. 62 , 14:37:26 »
ผมทำฟอร์มขึ้นมาแล้ว พอเวลาสั่ง form View แล้วหน้าต่างมันชอบไปอยู่ริม ๆ ซ้ายครับ ไม่ทราบว่าจะย้ายให้มาอยู่ตรงกลางจอต้องทำอย่างไรบ้างครับ



ขอบคุณมากครับ

3
ห้อง MS Access / : สอบถามวิธีเพิ่มบรรทัดว่างให้เต็มหน้าใบสรุปวางบิล
« เมื่อ: 03 ก.ย. 62 , 14:07:57 »
อ้อ! คิดออกแล้วครับ ว่าจะทำไง
ต้องสร้างฟอร์มกรองรีพอร์ทมันก่อน ให้เหลือแค่ 1 page
แล้ว Total>> ให้มาอยู่ใน Page Footer แทน Group Footer
แค่นี้เส้นที่ขึดโดยโค้ด ก็จะไม่ซ้อนกับ Page Footer แล้ว
เพราะ Page Footer จะอยู่ท้ายตารางตลอดอยู่แล้ว

4
ห้อง MS Access / : สอบถามวิธีเพิ่มบรรทัดว่างให้เต็มหน้าใบสรุปวางบิล
« เมื่อ: 03 ก.ย. 62 , 13:18:49 »
ผมลงโค้ดไว้ที่ On Page ดังนี้

Private Sub Report_Page()

Me.ScaleMode = 7         'กำหนดให้หน่วยเป็น cm.
Me.DrawStyle = vbSolid
Me.DrawWidth = 10
Me.Line (0, 9.8)-(0, 20)    cm
Me.Line (1, 9.8)-(1, 20)
Me.Line (2.6, 9.8)-(2.6, 20)
Me.Line (5.5, 9.8)-(5.5, 20)
Me.Line (7.2, 9.8)-(7.2, 20)
Me.Line (9.7, 9.8)-(9.7, 20)
Me.Line (11.6, 9.8)-(11.6, 20)
Me.Line (13.4, 9.8)-(13.4, 20)
Me.Line (15.4, 9.8)-(15.4, 20)
Me.Line (17, 9.8)-(17, 20)
Me.Line (19.1, 9.8)-(19.1, 20)
'Me.Line (0.1, 7.4)-(18.67, 7.4)
'Me.Line (0.1, 8.6)-(18.67, 8.6)
Me.Line (0, 20)-(19.1, 20)
Me.DrawWidth = 1
End Sub

ส่วนใน Design Report เป็นแบบนี้ดังข้างล่างครับ


5
ห้อง MS Access / : สอบถามวิธีเพิ่มบรรทัดว่างให้เต็มหน้าใบสรุปวางบิล
« เมื่อ: 03 ก.ย. 62 , 13:09:32 »
ผมใส่โค้ดลงไปแล้ว และปรับเพื่อให้เส้นพอดีกับช่องตารางที่ทำ
ปัญหาคือเส้นที่เขียนโดยโค้ดนั้น มันทับกับ Sum_Claim_ID Footer อะครับ
ดังรูป


จะต้องปรับอะไรเพิ่มอะครับ ถึงจะได้แบบข้างล่างนี้


6
ห้อง MS Access / : สอบถามวิธีเพิ่มบรรทัดว่างให้เต็มหน้าใบสรุปวางบิล
« เมื่อ: 02 ก.ย. 62 , 14:40:52 »
จะลองใหม่ครับ TT

7
ห้อง MS Access / : สอบถามวิธีเพิ่มบรรทัดว่างให้เต็มหน้าใบสรุปวางบิล
« เมื่อ: 01 ก.ย. 62 , 10:05:01 »
ทำยังไม่ได้เ่ลยครับ
พอเป็น Group เลยงงเลยครับ
ดูโค้ดจากตัวอื่นงงมากครับ

8
ห้อง MS Access / : วิธีการ Freeze Page Header ใน report
« เมื่อ: 30 ส.ค. 62 , 12:22:54 »
ขอบคุณมากครับ

9
ห้อง MS Access / วิธีการ Freeze Page Header ใน report
« เมื่อ: 30 ส.ค. 62 , 09:53:58 »
ผมได้สร้าง rptTaxinvoice ขึ้นมาแล้ว ดังภาพข้างล่าง



Page Header ของ Report คือดังภาพข้างล่าง



ผมต้องการให้ Page Header มัน Freeze ค้างไว้ตลอดเวลาที่เลื่อนดูข้อมูลทั้งหมดครับ
พยายามหาข้อมูลแล้วไม่ทราบวิธีจริง ๆ ครับ

ขอรบกวนด้วยครับ

ขอบคุณมากครับ

10
ห้อง MS Access / : สอบถามวิธีเพิ่มบรรทัดว่างให้เต็มหน้าใบสรุปวางบิล
« เมื่อ: 27 ส.ค. 62 , 15:37:12 »
ขอบคุณมาก ๆ เลยครับ

11
ห้อง MS Access / สอบถามวิธีเพิ่มบรรทัดว่างให้เต็มหน้าใบสรุปวางบิล
« เมื่อ: 26 ส.ค. 62 , 15:53:48 »
ผมได้ทำ rptSumClaim เพื่อรายงานใบสรุปวางบิลออกมาเป็นหน้าตาดังข้างล่าง





สังเกตว่าแต่ละรายงานที่แสดงออกมาขึ้นอยู่กับจำนวน Record ไม่เท่ากัน แล้วแต่ที่เราบันทึกไว้ในกรุ๊ปนั้น เวลาพิมพ์ใบสรุปวางบิลในแต่ละชุด มันจะออกมาไม่เต็มหน้ากระดาษ ถ้ามีรายการลำดับเยอะ ๆ มันก็จะเกือบเต็มหน้า แต่ถ้ามีรายการน้อย ๆ มันก็จะไม่ถึงครึ่งหน้าด้วยซ้ำไป ผมจึงอยากให้มันพิมพ์บรรทัดเปล่าเพิ่มขึ้นไปอีกให้เต็มหน้าใบสรุปวางบิล โดยอาจจะลิมิตไว้ที่ 20 รายการ ไม่ทราบว่าต้องดำเนินการอย่างไรบ้างครับ
.....ประมาณ ๆ รูปข้างล่างแบบนี้ครับ



ขอบคุณมากครับ

12
ห้อง MS Access / : สอบถามวิธีเปลี่ยนลูกศรของเมาท์ไปเป็นรูปมือ เวลาเคลื่อนเมาท์ไปบนรูปภาพ
« เมื่อ: 02 ส.ค. 62 , 13:34:14 »
ขอบคุณมาก ๆ ครับ  :confused:

13
ห้อง MS Access / : สอบถามวิธีเปลี่ยนลูกศรของเมาท์ไปเป็นรูปมือ เวลาเคลื่อนเมาท์ไปบนรูปภาพ
« เมื่อ: 30 ก.ค. 62 , 11:03:17 »
ผมเข้าไปใช้ไม่ได้ครับ มันให้ login อ่ะครับ ต้องใส่รหัสอะไรอ่ะครับ

ขอบคุณมากครับ

14
ห้อง MS Access / : สอบถามวิธีเปลี่ยนลูกศรของเมาท์ไปเป็นรูปมือ เวลาเคลื่อนเมาท์ไปบนรูปภาพ
« เมื่อ: 30 ก.ค. 62 , 10:43:33 »
ขอบคุณมากครับ

15
ห้อง MS Access / สอบถามวิธีเปลี่ยนลูกศรของเมาท์ไปเป็นรูปมือ เวลาเคลื่อนเมาท์ไปบนรูปภาพ
« เมื่อ: 29 ก.ค. 62 , 11:55:55 »
ผมดึงรูปภาพมาไว้บนฟอร์ม แล้วสร้าง on_click Event ไว้แล้ว
ต้องการให้เวลาเคลื่อนเมาท์ไปบนรูปภาพ แล้วรูปลูกศรเมาท์เปลี่ยนเป็นรูปมือ
จะต้องเขียนคำสั่งยังไงอะครับ

ขอบคุณมากครับ

16
ห้อง MS Access / : เรียงลำดับใน SubForm
« เมื่อ: 06 ก.ค. 62 , 23:52:35 »
ผมได้ความรู้เพิ่มเติมมากมาย ก็จากเว็บบอร์ดนี้แหละครับ  :grin:
ต้องขอขอบคุณทุก ๆ ท่านที่มีส่วนให้ข้อมูล และแลกเปลี่ยนความคิดเห็นต่าง ๆ ครับ

ขอบคุณคร้าบบบบ

17
ห้อง MS Access / : เรียงลำดับใน SubForm
« เมื่อ: 05 ก.ค. 62 , 09:08:47 »
*****************************************************************************************
***ผมทำได้แล้วครับ โง่มากเลยผม ลองผิดลองถูกมาทั้งวัน เนื่องจากไม่มีพื้นฐาน ไม่ค่อยเข้าใจเรื่องเครื่องหมาย ' " ในคำสั่ง SQL ครับ***
*****************************************************************************************

Private Sub SearchCombo()

    Dim sql As String
    If IsNull(Me.Combo1) Then
        sql = "SELECT * FROM qryFilterFileName"
   ElseIf Not IsNull(Me.Combo1) Then
        sql = "SELECT * FROM qryFilterFileName WHERE [Project_Code] = '" & Me.Combo1 & "' ORDER BY [File_Name]"
    End If
    Forms!frmFilterFileByCombo!FrmFilterFile.Form.RecordSource = sql
    Forms!frmFilterFileByCombo!FrmFilterFile.Form.Requery
   
End Sub

18
ห้อง MS Access / เรียงลำดับใน SubForm
« เมื่อ: 04 ก.ค. 62 , 15:06:06 »
ผมไม่ทราบว่าจะต้อง เขียนโค้ด order by เข้าไปอย่างไรครับ เพื่อให้Field [File_Name] ของ SubForm ชื่อ frmFilterFile เรียงลำดับตัวอักษร

ผมเพิ่งฝึกเขียนได้ไม่นานครับ พยายามแกะ และหัดเขียน โค้ดข้างล่างก็ดูตัวอย่างของคนอื่นมาปรับแต่งเอาด้วยครับ

Private Sub SearchCombo()

    Dim sql As String
    If IsNull(Me.Combo1) Then
        sql = "SELECT * FROM qryFilterFileName"
   ElseIf Not IsNull(Me.Combo1) Then
        sql = "SELECT * FROM qryFilterFileName WHERE [Project_Code] = '" & Me.Combo1 & "'"
    End If
    Forms!frmFilterFileByCombo!FrmFilterFile.Form.RecordSource = sql
    Forms!frmFilterFileByCombo!FrmFilterFile.Form.Requery

End Sub

รายละเอียดฟอร์มเป็นดังข้างล่างครับ

       

ผมตั้ง Combo1 ไว้เพื่อเลือกรหัสโครงการ เมื่อเลือกแล้วข้อมูลจาก qryFilterFileName จะถูกกรองและแสดงใน Form ชื่อ frmFilterFileByCombo ซึ่งในนี้ได้แทรก SubForm ชื่อ FrmFilterFile ไว้ เพื่อให้แสดงตารางไว้ 3 Fields

เมื่อกดเลือกรหัสโครงการที่ Combo1แล้ว จะได้ผลลัพธ์ดังข้างล่าง

       

ข้อมูลในฟิลด์ชื่อไฟล์ [File_Name] ยังไม่ได้เรียงลำดับ ผมไม่ทราบว่าจะต้องแทรก order by [File_Name] ไว้ตรงไหน อย่างไรครับ ไม่ทราบจริง ๆ ครับ พยายามแกะหามาครึ่งวันแล้วครับ TT

ขอรบกวนด้วยครับ
ขอบพระคุณอย่างสูงครับ

หน้า: [1] 2