troubleshooting Question

Need help updating a label name from another form

Avatar of PBLack
PBLack asked on
Visual Basic.NET
8 Comments1 Solution244 ViewsLast Modified:
VB.Net Vs 2003

Hi I have a textbox called txtUpdate on form7. It contains the original label name of a user defined label on the selected tab of form2

I want to be able to change the label name on form2 based on the input in a textbox called txtName on form7 while at the same time making sure that txtName on form7 does not include any other control names on form2

Here is what I have thus far but it does not seem to work properly and I do not know why.

Any help appreciated.

Thanks PB

        If butAdd.Text = "Update" Then 'in edit mode

            Dim upDateTag As String
            Dim ctrl As Control

            For Each ctrl In clsGlobals.Form2.TabControl1.SelectedTab.Controls

                If UCase(txtName.Text) = UCase(ctrl.Name) And UCase(txtUpdate.Text) <> UCase(ctrl.Name) Then
                    Beep()
                    MsgBox("Duplicate attribute names are not permitted.", MsgBoxStyle.Information)
                    Exit Sub
                ElseIf UCase(txtUpdate.Text) = UCase(ctrl.Name) Then
                    upDateTag = txtName.Text & vbCrLf
                    upDateTag = upDateTag & lstFormat.SelectedItem & vbCrLf
                    upDateTag = upDateTag & lstDefault.SelectedItem & vbCrLf
                    upDateTag = upDateTag & lstEntry.SelectedItem & vbCrLf
                    upDateTag = upDateTag & lstLife.SelectedItem
                    ctrl.Name = txtName.Text
                    ctrl.Text = txtName.Text
                    ctrl.Tag = upDateTag
                End If
            Next

            Beep()
            MsgBox("Attribute updated.", MsgBoxStyle.Information)
            Me.Close()
            Exit Sub
        End If
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 8 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 8 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros