• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

_Rest_

[VB6] Textbox

5 mensagens neste tópico

Boas,

Eu tenho um form numa aplicação em que regista na BD os dados introduzidos nas textbox só que eu queria definir que quando elas estivessem em branco que aparecesse uma Msbox a avisar que era inválido. Só que com este código só avisa se o txtNome estiver em branco, os outros dá logo erro.

If TxtNome.Text = "" And TxtContacto.Text = "" And TxtMail.Text = "" Then
    MsgBox "Fornecedor invalido!"
Else
    Set rs = New ADODB.Recordset
    rs.CursorType = adOpenStatic
    rs.CursorLocation = adUseClient
    rs.LockType = adLockPessimistic
    rs.Source = "SELECT * FROM Fornecedores"
    rs.ActiveConnection = CONDecsis
    rs.Open

    
    rs.AddNew
    Call Gravar

    rs.Update
    Call LimparText
    
End If

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tens um erro no teu If..substitui o And pelo Or...assim já consegues que apareça a mensagem caso 1 deles esteja em branco.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Obrigado. Já agora, existe alguma maneira de optimizar o código se forem muitas textbox para não ficar uma linha muito extensa?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Como o nram disse, podes usar arrays. Outra forma é incluires os objectos que queres validar numa estrutura e depois fazes um ctype para textbox e validas. É um bocado mais complexo, mas é uma alternativa :cheesygrin:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora