You can only enter numbers or uppercase text box
'只能输入大写 'Dim checkjs As String 'checkjs += "" '只能输入输字 Dim checkjs As String checkjs += "" Me.RegisterClientScriptBlock("KeyPressCheckCap", checkjs) Me.TextBox1.Attributes("onkeypress") = "KeyPressCheckCap();"
Original: Large columns can only enter numbers or uppercase text box