ถ้าสามารถแก้ฟิลด์ในเทเบิลให้มีความยาว 500 ตัวอักษรได้ เวลาป้อนก็จะถูกจำกัดไปโดยปริยาย  แต่ถ้าไม่ได้ ก็ใส่โค้ดข้างล่างไว้ใน KeyPress event procedure ของ collection
Private Sub collection_KeyPress(KeyAscii As Integer)
    If KeyAscii <> vbKeyBack Then
        If Len(Me.collection.Text) = 500 Then
            KeyAscii = 0
            Msgbox "ข้อความแจ้งเตือน"
        End If
    End If
End Sub


ถ้าจะป้องกันการกดคีย์ภาษาไทยลงเท็กซ์บ็อกซ์ ก็ใส่โค้ดนี้ไว้ใน KeyPress event procedure
Private Sub xxx_KeyPress(KeyAscii As Integer)
    If KeyAscii >= 3585 And KeyAscii <= 3675 Then KeyAscii = 0
End Sub

ถ้าต้องการตรวจสอบว่ามีภาษาไทยอยู่ในเท็กซ์บ็อกซ์หรือไม่ ก็ใช้โค้ดนี้ครับ
    Dim i As Integer
    Dim c As String
   
    For i = 1 To Len(Me.Text2)
        c = Mid$(Me.Text2, i, 1)
        If AscW(c) >= 3585 And AscW(c) <= 3675 Then
            MsgBox "Found"
            Exit Sub
        End If
    Next i


ไม่เคยรู้มาก่อนว่า OnPaint event สามารถควบคุมให้ Unbound Control ในแต่ละบรรทัดของ Continuous Form มีสีที่แตกต่างกันได้ .. ความรู้ใหม่ ขอบคุณครับ

ไม่เข้าใจครับ สงสัยจุดไหน ยังไงครับ รายละเอียดด้วย

1. ลองดูว่าไฟล์ฐานข้อมูลของ Access มีขนาดใกล้ 2 GB ซึ่งเป็นขนาดสูงสุดที่ Access ให้ใช้ได้หรือเปล่า ถ้าใกล้หรือเต็มแล้ว ก็ต้องทำ Compact and Repair Database ของตัว Access เพื่อกระชับฐานข้อมูลให้เล็กลงก่อนครับ เพราะการลบเรคอร์ด,เทเบิล หรืออะไรต่างๆในไฟล์ Access จะไม่ได้ทำให้ขนาดของไฟล์ลดลงไปในทันทีครับ

2. อยากให้ปรับ SQL จากการอ้างหลายๆเทเบิลใน FROM cluase โดยไม่มีการ JOIN กันเลย แต่ไปใช้เงื่อนไขใน WHERE clause เป็นตัวจับคู่เรคอร์ดระหว่างเทเบิล S,B,W,T แทน ซึ่งผลของ FROM cluse แบบนี้ เป็นไปได้ว่า Oracle จะหาผลทุกเรคอร์ดจากทุกเทเบิลจับคู่กันหมดก่อน แล้วค่อยเอาผมมากรองโดย WHERE cluase เป็นลำดับถัดไป (ลำดับการทำงานของ Oracle-SQL https://oracle.readthedocs.io/en/latest/sql/basics/query-processing-order.html) ถ้าแต่ละเทเบิลมีแค่ 100 เรคอร์ด เราจะได้ 100x100x100x100 = 100 ล้านเรคอร์ดออกมาก่อน ถึงจะค่อยถูกกรองโดย WHERE cluase อีกที ดังนั้นอยากให้ใส่ JOIN ใน FROM cluase เพื่อเชื่อมเรคอร์ดที่สัมพันธ์กันของแต่ละเทเบิลให้เสร็จก่อนจะมีประสิทธิภาพกว่าครับ ... ***แต่***ก็ไม่แน่ครับ ถ้าตัว Query Processing ของ Oracle ฉลาด มันก็จะไปเอาเงื่อนไขใน WHERE cluase ผนวกเข้าไปคิดพร้อมขั้นตอน FROM cluase เลยก็ได้

ต้องใช้การเขียนโค้ดเพื่ออ่านเรคอร์ดจากคำสั่ง SQL แล้วนำค่าของฟิลด์ที่ต้องการ ไปต่อๆกันให้ครบทุกเรคอร์ด เก็บลงตัวแปร แล้วจะเอาตัวแปรไปแสดงบนหน้าฟอร์ม หรือไปเขียนลงเท็กซ์ไฟล์ก็แล้วแต่ต้องการ

ตย.โค้ด

Dim RS As DAO.Recordset ' ชุดของเรคอร์ดที่อ่านได้
Dim SQL As String
Dim S As String  ' เก็บผลลัพธ์

' สร้าง SQL
SQL = "select ชื่อฟิลด์ as F from ชื่อเทเบิลหรือคิวรี่ where เงื่อนไข order by ฟิลด์ที่ใช้เรียงลำดับข้อมูล"

' เปิดชุดเรคอร์ดที่ได้จาก SQL
Set RS = CurrentDB.OpenRecordset(SQL)

' ทำจนกว่าจะอ่านเรคอร์ดไม่ได้แล้ว
Do Until RS.EOF

     If S = "" Then
          S = RS!F
     Else
          S = S & "," & RS!F  ' ต่อเท็กซ์ในตัวแปรด้วยเครื่องหมาย "," ถ้าก่อนหน้านี้ ตัวแปรมีค่าอยู่ก่อนแล้ว
     End If

     ' อ่านเรคอร์ดต่อไป
     RS.MoveNext

' วนลูปต่อไป
Loop

' ปิดชุดเรคอร์ด
RS.Close

' ต่อจากนี้ก็เอาตัวแปร S ไปใช้ครับ

1. ให้คอมไพล์โค้ดก่อนที่จะเอาไปลงเครื่องต่างๆ
2. ที่บอกว่าเปิดได้ หมายถึง เปิดจากตัว Runtime ที่ไปดาวน์โหลดมาใช่ไหม
2. ฟ้องว่าไม่เจอ ข้อความเต็มๆ คืออะไรครับ แสดงรายละเอียดด้วย
3. ถ้าเทเบิลเป็น Linked Table เช็คดีๆว่าแหล่งของเทเบิลต้นทางมีอยู่จริง และพาธที่ลิงค์ไปถูกต้องด้วย

1. เปิดไม่ได้ มีข้อความแสดงออกมาว่าอะไร
2. ที่เขียน v.7 คือเวอร์ชั่น 2007 หรือไม่
3. สร้างไฟล์นามสกุลอะไร
4. ใช้ Access ระบบ 32 bit หรือ 64 bit ในการสร้างไฟล์ เพราะ Access 32 bit จะไม่สามารถเปิดไฟล์ .mde/.accde ที่สร้างจาก 64 bit

Visit_Date เปลี่ยนเป็น VisitDate (ไม่แน่ใจ)