Alert podczas nie uzupełnienia opcji

Siema, bez owijania w bawełne napisze o co chodzi. Otóż mam 2 textboxy a pod nimi button. Chcę zrobić tak, aby wyskakiwał error podczas nie uzupełniania któregoś z boxów a kliknięciu w button. Wie ktoś jak takie coś zrobić?

Siema, bez owijania w bawełne napisze o co chodzi. Otóż mam 2 textboxy a pod nimi button. Chcę zrobić tak, aby wyskakiwał error podczas nie uzupełniania któregoś z boxów a kliknięciu w button. Wie ktoś jak takie coś zrobić?

Wrzuć kod który wpisałem poniżej pod button. Gdy JAKIEKOLWIEK pole textbox na formie jest puste to wyrzuca błąd "nie wpisales tekst choyu!" , jeżeli we wszystkich polach są wartości wyrzuca komunikat "wacek" , 

Dim t        For Each t In Me.Controls            If TypeOf t Is TextBox Then                If t.Text = "" Then                    MsgBox("nie wpisales tekst choyu!")                    Exit Sub                    Exit For                End If            End If        Next         ' USUWASZ MSGBOX("WACEK") i wstawiasz swój kod który jest wywoływany jeżeli wszystkie pola są wypelnione        MsgBox("wacek")    End Sub

Jak coś to cytuj mnie w tym temacie.

Dzięki, wszystko jest ok

Wrzuć kod który wpisałem poniżej pod button. Gdy JAKIEKOLWIEK pole textbox na formie jest puste to wyrzuca błąd "nie wpisales tekst choyu!" , jeżeli we wszystkich polach są wartości wyrzuca komunikat "wacek" , 

Dim t        For Each t In Me.Controls            If TypeOf t Is TextBox Then                If t.Text = "" Then                    MsgBox("nie wpisales tekst choyu!")                    Exit Sub                    Exit For                End If            End If        Next         ' USUWASZ MSGBOX("WACEK") i wstawiasz swój kod który jest wywoływany jeżeli wszystkie pola są wypelnione        MsgBox("wacek")    End Sub

Jak coś to cytuj mnie w tym temacie.

A wiesz może jak zrobić żeby alert wyskakiwał podczas nieuzupełnienia poszczególnych textbox'ów np. 2 z 5 ??

A wiesz może jak zrobić żeby alert wyskakiwał podczas nieuzupełnienia poszczególnych textbox'ów np. 2 z 5 ??

Zrobie Ci to ale w tym momencie nie mam dostępu do VB

A wiesz może jak zrobić żeby alert wyskakiwał podczas nieuzupełnienia poszczególnych textbox'ów np. 2 z 5 ??

If String.IsNullOrEmpty(TextBox1.Text) Then            MsgBox("nie wpisales nic w textboxa1 pedaule!")        ElseIf String.IsNullOrEmpty(TextBox2.Text) Then            MsgBox("nie wpisales nic w textboxa2 pedaule!")        Else            MsgBox("Oba textboxy sa uzupelnione , dawaj dolary!!!!")        End If    End Sub

If String.IsNullOrEmpty(TextBox1.Text) Then            MsgBox("nie wpisales nic w textboxa1 pedaule!")        ElseIf String.IsNullOrEmpty(TextBox2.Text) Then            MsgBox("nie wpisales nic w textboxa2 pedaule!")        ElseIf String.IsNullOrEmpty(TextBox3.Text) Then            MsgBox("nie wpisales nic w textboxa3 pedaule!")        Else            MsgBox("trzy textboxy sa uzupelnione , dawaj dolary!!!!")        End If    End Sub

 

If String.IsNullOrEmpty(TextBox1.Text) Then            MsgBox("nie wpisales nic w textboxa1 pedaule!")        ElseIf String.IsNullOrEmpty(TextBox2.Text) Then            MsgBox("nie wpisales nic w textboxa2 pedaule!")        Else            MsgBox("Oba textboxy sa uzupelnione , dawaj dolary!!!!")        End If    End Sub

Wrzuć ten kod pod button w przykładowym programie , na formę dodaj 3 x textbox i 1 button. Jeżeli jeden z textboxow (TextBox1 ald TextBox2) będzie pusty to wyskoczy komunikat "nie wpisales nic w textboxa1 pedaule!" a przy textboxie2 "nie wpisales nic w textboxa1 pedaule!". Jeżeli oba textboxy są uzupełnione a textbox3 jest pusty to aplikacja wyrzuci komunikat "Oba textboxy sa uzupelnione , dawaj dolary!!!!". Jeżeli chcesz zrobić więcej TextBoxów wystarczy że odpowiednio zmodyfikujesz kod tzn.

If String.IsNullOrEmpty(TextBox1.Text) Then            MsgBox("nie wpisales nic w textboxa1 pedaule!")        ElseIf String.IsNullOrEmpty(TextBox2.Text) Then            MsgBox("nie wpisales nic w textboxa2 pedaule!")        ElseIf String.IsNullOrEmpty(TextBox3.Text) Then            MsgBox("nie wpisales nic w textboxa3 pedaule!")        Else            MsgBox("trzy textboxy sa uzupelnione , dawaj dolary!!!!")        End If    End Sub

W tym przypadku są 3 textboxy do sprawdzenia , analogicznie jak poprzedni kod to zadziała.

 

Dzięki za pomoc