Ir para o conteúdo
_Rest_

[VB6] Textbox

Mensagens Recomendadas

_Rest_    2
_Rest_

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Tiago Salgado    2
Tiago Salgado

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.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
_Rest_    2
_Rest_

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Tiago Salgado    2
Tiago Salgado

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:

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade