แล้วถ้าเกิน 100 จะเป็นอย่างไรต่อครับ

(ถามเผื่อคนอื่นที่จะมาตอบ)

คีย์ต่อไม่ได้ค่ะ และให้มี Msg box แจ้งเตือนว่าพิมพ์ได้ถึงแค่ 100 ตัวอักษร น่ะค่ะ

เข้าใจว่าอยากให้ขึ้นเลข จำนวนตัวอักษรที่มีอยู่ใน Remark ใช่หรือเปล่าครับ

ถ้าใช่ก็ประมาณนี้ครับ
Sub Text1_OnKeyPress
Textbox2 = Len(Textbox1)
End Sub

ลองแล้วค่ะ แต่ว่าตัวเลขไม่รันอัตโนมัติน่ะค่ะ T_T

คือที่เป็นอยู่ตอนนี้คือต้องพิมพ์ใน Remarksจนเสร็จแล้วมีการEnterหรือคลิก ถึงจะมีตัวเลขที่โชว์ขึ้นมา

ขอบคุณนะคะ PichaiTC สำหรับเกร็ดข้อมูลที่ให้มาค่ะ จะพยายามเพิ่มโค้ดไปต่อยอดค่ะ

อื่มใช้ Event > On Key Down ของ Textbox ชื่อ Remarks
สมมุติ อีก Textbox ที่จะแสดงตัวเลขจำนวนนับตัวอักษรชื่อ Text1

Private Sub Remarks_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 8 Or KeyCode = 46 Then
        Me.Text1 = Len(Me.Remarks.Text) - 1
    Else
        Me.Text1 = Len(Me.Remarks.Text) + 1
        If Me.Text1 > 100 Then
            MsgBox "อักษรเกิน 100 ตัว"
            KeyCode = 0
            Me.Text1 = Len(Me.Remarks.Text)
        End If
    End If
End Sub

สำคัญคือ Len(Me.Remarks.Text) ต้องใส่ Property .Text ต่อท้ายด้วยมันถึงจะ Active อ่านข้อมูลที่ยังไม่ได้บันทึกให้นะครับ ปรับใช้ดู