Erro no código

[jviana]

Public Sub adicionar()
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox7.Text = "" Or TextBox8.Text = "" Then
            MsgBox("Preencha os campos todos!", MsgBoxStyle.Critical, MsgBoxStyle.OkOnly)
            Exit Sub
        Else
            numero = Form1.numero
            numero = numero + 1
            Form1.numero = numero
            nome = TextBox6.Text
            compositor = TextBox1.Text
            prgutilizado = TextBox4.Text
            ano = TextBox2.Text
            arranjo = TextBox3.Text
            tipo = TextBox5.Text
            ficheiro = TextBox7.Text
            pdf = TextBox7.Text
            Dim adpauta As New ListViewItem(numero)
            adpauta.SubItems.Add(nome)
            adpauta.SubItems.Add(compositor)
            adpauta.SubItems.Add(prgutilizado)
            adpauta.SubItems.Add(ano)
            adpauta.SubItems.Add(arranjo)
            adpauta.SubItems.Add(tipo)
            adpauta.SubItems.Add(ficheiro)
            adpauta.SubItems.Add(pdf)
            Form1.ListView1.Items.Add(adpauta)
            Dim SW As New IO.StreamWriter("C:\Users\João Viana\Desktop\S.F.T. - Organizador de Partituras de Maestro\S.F.T. - Organizador de Partituras de Maestro\Músicas Adicionadas.txt")
            SW.WriteLine(numero & "\" & nome & "\" & compositor & "\" & prgutilizado & "\" & ano & "\" & arranjo & "\" & tipo & "\" & ficheiro & "\" & pdf)
            SW.Close()
            Form1.ToolStripLabel1.Text = numero
            Me.Close()
        End If

    End Sub

Alguem me consegue responder porque dá este erro?

Cumps. J.Viana

[José Lopes]

Parece-me típico de uma incorrecta instancialização de variáveis...

experimenta por todas as condições ente  ()... if (......) then

[Lukas S.]

Coloca assim

TextBox1.text= (" ") or TextBox2.Text = ("")Or TextBox3.Text =("") Or TextBox4.Text =("") Or TextBox5.Text = ("") Or TextBox6.Text = ("") Or TextBox7.Text =("") Or TextBox8.Text = ("")

[jpaulino]

Que erro dá? Queres que adivinhem?

Eu não vejo erro nenhum.

Já agora sabes que é possível alterar o nome dos controlos? Não achas que se atribuires como nome txtTipo em vez de Textbox5 ou txtNome em vez de Textbox6 não é mais perceptivel?

[programadorvb6]

Olá

Acho que lhe falta as definições de : compositor | nome | Numero ......

Dim compositor,Nome, Numero  as String

[jviana]

Eu não vejo erro nenhum.

Nem eu

Olá

Acho que lhe falta as definições de : compositor | nome | Numero ......

Dim compositor,Nome, Numero  as String

O problema é que já funcionou, e agora não funciona.

A razão?

Querem que ponha o Source aqui?

Cumps. J.Viana

[emanuelx]

olha faz assim elimina as textbox e volta a cria-las, já me aconteceu isso.

fiz desta maneira funcionou

[jviana]

olha faz assim elimina as textbox e volta a cria-las, já me aconteceu isso.

fiz desta maneira funcionou

:notworthy:

Cumps. J.Viana

[programadorvb6]

Olá João.

Acho que seria o + aconselhável.