URGENTE
Boa tarde,
Sempre tento criar conta de um novo farmaceutico, aparece-me este erro.
Não sei como resolver.
Preciso de ajuda urgentemente!
Obrigada
Private Sub bt_criarconta_Click(sender As Object, e As EventArgs) Handles bt_criarconta.Click
If TextBox1.Text <> "" And TextBox3.Text <> "" And TextBox4.Text <> "" And TextBox5.Text <> "" And tb_nrohoras.Text <> "" And TextBox6.Text <>
"" Then
Dim farm As ClassFarmaceutico
farm = New ClassFarmaceutico(TextBox1.Text, tb_nrohoras.Text, TextBox6.Text, TextBox5.Text, TextBox4.Text, TextBox3.Text)
farmacia.Farmaceuticos.Add(farm)
MsgBox("Conta criada com sucesso!")
farmacia.gravar()
Close()
Else
MsgBox("Preencha os espaços todos a fim de criar conta.")
End If
End Sub