Bring messagebox from textbox

[Leite33]

Hi
I have a textbox and the users type something there.. Now there is a button and i want when you pust the button a message will appear(Messagebox) with the text that exist in the textbox.. if the textbox is empty bring an another message "like sorry you have to type something"... Any code ideas....
Thanks

[Midol]

Hi
I have a textbox and the users type something there.. Now there is a button and i want when you pust the button a message will appear(Messagebox) with the text that exist in the textbox.. if the textbox is empty bring an another message "like sorry you have to type something"... Any code ideas....
Thanks

use an if statement.

if txtInput.text = "" then
msgbox "You have to input some text"
else
msgbox txtInput.text
end if

[Siddharth Rout]

My Suggestions

Sub Test()
    'Trim() will remove Leading and Trailing spaces before and
    'after the text. Len() will give the length of the string.
    'Together they will ensure that even when the user enters
    'a blank space, it will prompt the user to enter a text
    Select Case Len(Trim(Text1.Text))
    Case 0
        MsgBox "You have to input some text"
    Case Is > 0
        MsgBox Text1.Text
    End Select
End Sub

[Leite33]

Thanks guys.. This site is great. Everyone can learn.. And what about if the case of if is number for example...
I wanna check the textbox if its number ok else bring a message that you have to put numbers... Generall check if its number or letter

[Hack]

Either

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
    Case 32 To 64, 91 To 96, 123 To 126
        MsgBox ("Must be a letter! Please try again!")
        KeyAscii = 0
        Exit Sub
End Select
End Sub

'also place this code in the change event
Private Sub Text1_Change()
    If IsNumeric(Text1.Text) Then
       MsgBox "Only Letters Are Allowed"
       Text1.Text = ""
       Exit Sub
    End If
End Sub

Or

'Place in keypress event of text box to prevent
'typing in non numeric text
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 46 And KeyAscii <> 13 Then
    MsgBox "Only numbers are allowed for this entries"
    KeyAscii = 0
    Exit Sub
End If
End Sub

'also, in the change event put this code
'to prevent pasting in non numeric text
Private Sub Text1_Change()
If Not IsNumeric(Text1.Text) Then
   MsgBox "Only Numbers Are Allowed"
   Text1.Text = vbNullString
   Exit Sub
End If
End Sub

[Leite33]

Wow thanks...
If i want for example 2 TextBoxes... And i wanna write a if statement to check both Text boxes what is the symbols....
To be more specifiec:

If Text1.Text="Car" .... and (the symbol) Text2.Text="Cat"
same with or
How the syntaz will be so check the boxes for and or for or

[si_the_geek]

For VB it is just the words And/Or, eg:

If Text1.Text="Car" And Text2.Text="Cat" Then

[ThEiMp]

Text1.Text = "ABC ABC ABC"

MsgBox Text1.Text, 48, "Message"

[akhileshbc]

If Text1.Text="Car" And Text2.Text="Cat" Then

If Text1.Text="Car" Or Text2.Text="Cat" Then

[Hack]

Wow thanks...
If i want for example 2 TextBoxes... And i wanna write a if statement to check both Text boxes what is the symbols....
To be more specifiec:

If Text1.Text="Car" .... and (the symbol) Text2.Text="Cat"
same with or
How the syntaz will be so check the boxes for and or for or

Whether you use AND or OR will depend on what you need to check for.

AND will require BOTH be true
OR will only require one to be true

In akhileshbc's example, the first statement will evaluate to True ONLY is Car is in text1 and Cat is in text2 - anything else will evaluate to False

In the second example, True will be returned if only one it correct.

A very common new person mistake is using AND when you actually need OR, or, vice versa.