พิมม์ข้อความเกินให้ msg แจ้งเตือน

[naekkhung]

มี text ชื่อ collection กำหนดให้คีย์ข้อความได้ไม่เกิน 500 ถ้าเกินให้ขึ้น msg แจ้งเตือนเขียนหน้า form ยังไงครับ

[สันติสุข]

ถ้าสามารถแก้ฟิลด์ในเทเบิลให้มีความยาว 500 ตัวอักษรได้ เวลาป้อนก็จะถูกจำกัดไปโดยปริยาย  แต่ถ้าไม่ได้ ก็ใส่โค้ดข้างล่างไว้ใน KeyPress event procedure ของ collection

โค๊ด: [Select]

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


[naekkhung]

ขอบคุณ อ.สันติสุข มากครับได้แล้วครับ