ตรง On Page event ของ report ให้ใช้คำสั่ง Line ในการตีเส้นครับ Line(x1,y1)-(x2,y2)

Private Sub Report_Page()
Me.ScaleMode = 7         'กำหนดให้หน่วยเป็น cm.
Me.Line (0.1, 7.4)-(0.1, 19.6)     'ลากเส้นจากตำแหน่งพิกัด 0.1 cm, 7.4 cm ไปที่พิกัด 0.1 cm, 19.6 cm
Me.Line (1.2, 7.4)-(1.2, 19.6)
Me.Line (3.1, 7.4)-(3.1, 19.6)
Me.Line (10.5, 7.4)-(10.5, 19.6)
Me.Line (12.2, 7.4)-(12.2, 19.6)
Me.Line (14.2, 7.4)-(14.2, 19.6)
Me.Line (16.2, 7.4)-(16.2, 19.6)
Me.Line (18.67, 7.4)-(18.67, 19.6)
Me.Line (0.1, 7.4)-(18.67, 7.4)
Me.Line (0.1, 8.6)-(18.67, 8.6)
Me.Line (0.1, 19.6)-(18.67, 19.6)

End Sub

การใช้เงื่อนไขที่เป็น Date ผมจะไม่ใช้รูปแบบนี้ #dd/mm/yy# ใน Query เลยครับ มันมีปัญหากับการตั้งค่าของวินโดวส์แต่ละเครื่อง
ผมตัดปัญหาโดยการใช้ตัวเลขของ Date แทนครับโดยใช้ CDbl(date_data) เช่น

"[MyFieldDate] = " & CDbl(Me.DateControl)
"[MyFieldDate] < " & CDbl(Me.DateControl)
"[MyFieldDate] Between " & CDbl(Me.DateControl1) & " AND " & CDbl(Me.DateControl2)

Private Function FilterOut()
Dim stCriteria As String

stCriteria = IIf(IsNull(Me.[Style No.]), "", "[Style No.] = '" & Me.[Style No.] & "' AND ") & _
                 IIf(IsNull(Me.Buyer), "", "[Buyer] = '" & Me.Buyer & "' AND ") & _
                 IIf(IsNull(Me.[OD#]), "", "[OD#] = '" & Me.[OD#] & "' AND ") & _
                 IIf(IsNull(Me.Currency), "", "[Currency] = '" & Me.[Currency] & "' AND ") & True

Me.SubFormName.Form.Filter = stCriteria
Me.SubFormName.Form.FilterOn = True

End Function

ใน Combobox ทุกอันในช่อง AfterUpdate ให้ใส่ = FilterOut() หรือจะ call FilterOut ใน Sub AfterUpdate event ก็ได้

ปล. พวกชื่อฟิลด์หรือคอนโทรลต่างๆ ให้ตรวจสอบกับชื่อที่ใช้จริงก่อนนะครับ

- ตาราง tblCabinet ให้เพิ่มฟิลด์ status ที่บอกว่าตู้ว่างหรือไม่ว่าง
- ตาราง tblCabinetUse อาจจะเพิ่มฟิลด์ วันที่ใช้ตู้ วันที่เลิกใช้ตู้
- เวลาใช้งานให้เขียนโปรแกรม เพิ่ม record เข้าไปใน tblCabinetUse ว่ามีลูกค้าเข้าใช้ตู้ไหนเมื่อไหร่ แล้วให้ Update ฟิลด์ status ในตาราง tblCabinet ว่าตู้นี้ไม่ว่าง
- เวลาลูกค้าเลิกใช้ตู้ ก็ Update วันเวลาที่ลูกค้าเลิกใช้ ในตาราง tblCabinetUse และ Update ฟิลด์ status ในตาราง tblCabinet ว่าตู้นี้ว่างแล้ว

เวลาจะดูสถานะว่าตู้ไหนว่างไม่ว่างก็แค่ดูใน ตาราง tblCabinet ในช่อง status ก็พอ

ตัวโปรแกรมที่เป็น interface ให้เอาไปไว้ที่ local ครับ จะทำให้เร็วขึ้นมาบ้างครับ แต่ทำงานพร้อมกัน 30 เครื่อง ถ้าฐานข้อมูลใหญ่ยังไงก็ไม่ไหวครับ

VBA มีคำสั่ง FileCopy SourceFile, DestinationFile ใช้สำหรับ copy file ไปยังที่เราต้องการได้ เช่น FileCopy "C:\pic1.jpg", "D:\pic1.jpg"

โปรแกรมทีทำอยู่ทำงานอย่างไร เรียก Query ขั้นตอนไหนอย่างไร จะเก็บไว้ที่ใดอย่างไร บอกให้ละเอียดครับ ไม่งั้นจะตอบไม่ได้

ใช่ครับ

Dim MyPath as String, MyName as String, FileCount as Integer

MyPath = "C:\GetPOB2S\B2SPO\B2S_PO_*.XML"
FileCount = 0
MyName = Dir(MyPath)    ' Retrieve the first entry.
Do While MyName <> ""    ' Start the loop.
    FileCount = FileCount +1
    MsgBox MyName
    MyName = Dir    ' Get next entry.
Loop
MsgBox "There were " & FileCount & " file(s) found."