Bring messagebox from textbox

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

Quote:

---

Originally Posted by 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

---

use an if statement.

Code:

---

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

---

My Suggestions

vb Code:

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

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

Either

Code:

---

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

Code:

---

'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

---

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

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

Code:

---

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

---

Text1.Text = "ABC ABC ABC"

MsgBox Text1.Text, 48, "Message"

Code:

---

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

---

Code:

---

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

---

Quote:

---

Originally Posted by 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

---

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.