That looks like it could work...my problem now is this..might be a state problem? When I submit the form the first time it works, but then even if I have a value in say fnameTxt, it still keeps the fnameLbl red...maybe the solution that was just provided to me will fix that though?
On Tue, 7 Dec 2004 08:36:40 -0500, Charles Carroll <[EMAIL PROTECTED]> wrote: > I wa thinking something like this (much shorter): > > Private Sub submitBtn_Click(ByVal sender As System.Object, ByVal e > As System.EventArgs) Handles submitBtn.Click > IF DoesFieldHaveBlanks(fname,lname,city,state,zip) THEN > return() > END IF > end sub > > sub DoesFieldHaveBlanks(ByVal ParamArray ArrayTextBoxes() as TextBox) > dim counter as integer > dim badfield as boolean=false > for counter=0 to Ubound(ArrayTextBoxes) > If Arraytextboxes(counter).Text.Trim() > Arraytextboxes(counter).ForeColor=Color.Red > badfield=false > End IF > next > end sub > > > > On Mon, 6 Dec 2004 17:34:30 -0600, Peter Brunone <[EMAIL PROTECTED]> > wrote: > > > > Well, I was thinking something like this: > > > > Private Sub submitBtn_Click(ByVal sender As System.Object, ByVal e > > As System.EventArgs) Handles submitBtn.Click > > Dim binFailed As Boolean = False > > > > If fnameTxt.Text.Trim() = "" Then > > fnameLbl.ForeColor = Color.Red > > binFailed = True > > End If > > If lnameTxt.Text.Trim() = "" Then > > lnameLbl.ForeColor = Color.Red > > binFailed = True > > End If > > > > ...and so on until the end, where you'd do this right before the > > database operation: > > > > If binFailed = True Then > > Return > > End If > > > > > > > > > > -----Original Message----- > > From: mappenzellar [mailto:[EMAIL PROTECTED] > > > > Peter, > > > > Can you be more specific with a couple lines of code as an example? I > > am a newbie so please be patient with me. As far as the gazillion if > > statements, how else can I achieve what I am after? What I am after > > is this, I have a form and am doing validation. What I want is to > > check each text box for validation and if it is empty for example > > then turn the Lbl to red. I know there are built in validation > > functions but I dont' think they can achieve turning a label to red. > > > > --- In [EMAIL PROTECTED], "Peter Brunone" > > <[EMAIL PROTECTED]> wrote: > > > Hi Mike, > > > > > > Without commenting on the gazillion If statements, why do you > > have a > > > Return in each one? You could just set a boolean variable > > when > > > one of the conditions is met, and then when the If statements are > > > finished, if the variable is flipped, you don't do the insert. > > > > > > Cheers, > > > > > > Peter > > > > > > -----Original Message----- > > > From: Mike Appenzellar [mailto:[EMAIL PROTECTED] > > > > > > As you will see below, I have some pretty simple code. My question > > is > > > this...On each If stament, I have a Return, which works, but what I > > want > > > to happen is when onSubmit show everything that is required in > > red...the > > > Return in each if now forces it to only show one at a time until > > that > > > condition is met. So...if fname and lname is blank, fname will turn > > to > > > red, once I fill in fname and hit submit, then lname is red and > > fname is > > > black which is correct, but on the initial click both fname and > > lname > > > should be red. > > > > > > Private Sub submitBtn_Click(ByVal sender As System.Object, ByVal e > > As > > > System.EventArgs) Handles submitBtn.Click > > > If fnameTxt.Text.Trim() = "" Then > > > fnameLbl.ForeColor = Color.Red > > > Return > > > End If > > > If lnameTxt.Text.Trim() = "" Then > > > lnameLbl.ForeColor = Color.Red > > > Return > > > End If > > > If streetAddressTxt.Text.Trim() = "" Then > > > streetAddressLbl.ForeColor = Color.Red > > > Return > > > End If > > > If cityTxt.Text.Trim() = "" Or stateTxt.Text.Trim() = "" Or > > > zipTxt.Text.Trim() = "" Then > > > cityStateZipLbl.ForeColor = Color.Red > > > Return > > > End If > > > If telephoneTxt.Text.Trim() = "" Then > > > telephoneLbl.ForeColor = Color.Red > > > Return > > > End If > > > If sexTxt.SelectedValue = "" Then > > > sexLbl.ForeColor = Color.Red > > > Return > > > End If > > > If dobTxt.Text.Trim() = "" Then > > > dobLbl.ForeColor = Color.Red > > > Return > > > End If > > > If userIdTxt.Text = "" Then > > > userIdLbl.ForeColor = Color.Red > > > Return > > > End If > > > If passwordTxt.Text.Trim() = "" Then > > > passwordLbl.ForeColor = Color.Red > > > Return > > > End If > > > If confirmPasswordTxt.Text.Trim() = "" Then > > > confirmPasswordLbl.ForeColor = Color.Red > > > Return > > > End If > > > If Not IsDate(dobTxt.Text) Then > > > dobLbl.ForeColor = Color.Red > > > Return > > > End If > > > > > > 'SQL Insert data' > > > Dim Conn As SqlConnection > > > Dim Rdr As SqlDataReader > > > Dim strConn As String = AppSettings("ConnectInfoHere") > > > Dim strSQL As String = "INSERT INTO ONLINE_SUBSCRIBERS > > (fname, > > > lname, streetAddress, city, state, zip, userID, password, > > phoneNumber, > > > dob) VALUES ('" + fnameTxt.Text.Trim() + "', '" + lnameTxt.Text.Trim > > () > > > + "', '" + streetAddressTxt.Text.Trim() + "','" + cityTxt.Text.Trim > > () > > > + "','" + stateTxt.Text.Trim() + "','" + zipTxt.Text.Trim() + "','" > > + > > > userIdTxt.Text.Trim() + "','" + passwordTxt.Text.Trim() + "','" + > > > telephoneTxt.Text.Trim() + "','" + dobTxt.Text.Trim() + "')" > > > Conn = New SqlConnection(strConn) > > > Dim Cmd As New SqlCommand(strSQL, Conn) > > > Conn.Open() > > > Cmd.ExecuteNonQuery() > > > Response.Redirect("/nextpage.aspx") > > > End Sub > > > > > > > > > > > > > > Yahoo! Groups Sponsor > > > > ADVERTISEMENT > > > > > > ________________________________ > > Yahoo! Groups Links > > > > To visit your group on the web, go to: > > http://groups.yahoo.com/group/AspNetAnyQuestionIsOk/ > > > > To unsubscribe from this group, send an email to: > > [EMAIL PROTECTED] > > > > Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service. > > > > > Yahoo! Groups Sponsor > > ADVERTISEMENT > > > ________________________________ > Yahoo! Groups Links > > To visit your group on the web, go to: > http://groups.yahoo.com/group/AspNetAnyQuestionIsOk/ > > To unsubscribe from this group, send an email to: > [EMAIL PROTECTED] > > Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service. ------------------------ Yahoo! Groups Sponsor --------------------~--> $4.98 domain names from Yahoo!. Register anything. http://us.click.yahoo.com/Q7_YsB/neXJAA/yQLSAA/saFolB/TM --------------------------------------------------------------------~-> Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/AspNetAnyQuestionIsOk/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
