User Profile

dontbe · Nov 23 '07, 07:29 AM

Hi,

Maybe You can add this code on Change event in your textbox

Code:

Dim ChrSet As String, chrpos As Integer, getchr As String
ChrSet = Text1.Text
If IsNumeric(ChrSet) = False Then
    If Len(ChrSet) <> 0 Then
        chrpos = InStr(1, ChrSet, Right(ChrSet, 1), vbTextCompare)
        getchr = Right(ChrSet, 1)
        Text1.SelStart = chrpos - 1
        Text1.SelLength

...

dontbe · Nov 23 '07, 06:12 AM

You use this to only number can accept by a Textbox
1. Declare this API at You Declration Section (in your form/module):

Code:

'&& Only Allowing Number In Texttbox
Public Declare Function GetWindowLong Lib "user32"  Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    
Public Declare Function SetWindowLong Lib "user32" Alias    "SetWindowLongA"

...

User Profile

Profile Sidebar

Leave a comment:

Leave a comment:

Add formula to Data Report