add +1 value to textbox

**vbnoob00** · Oct 27th, 2015, 04:49 AM

genius thanxxxx

Originally Posted by masoudk1990

Code:

    If Val(Text1.Text < 1000) Then
        Text1.Text = Format(Val(Text1.Text + 1), "0000")
    Else
        MsgBox "Overflow!", vbCritical, "Error!"
    End If

**vbnoob00** · Oct 27th, 2015, 06:23 PM

Originally Posted by vbnoob00

genius thanxxxx

i keep getting that msgbox even on 0001

**masoudk1990** · Oct 28th, 2015, 01:20 AM

Originally Posted by vbnoob00

i keep getting that msgbox even on 0001

Sorry

Code:

    If (Val(Text1.Text) < 9999) Then
        Text1.Text = Format(Val(Text1.Text + 1), "0000")
    Else
        MsgBox "Overflow!", vbCritical, "Error!"
    End If

Thread: add +1 value to textbox

Thread Tools

Display

Hybrid View

Re: add +1 value to textbox

Re: add +1 value to textbox

Re: add +1 value to textbox

Tags for this Thread

Posting Permissions