Se houver campos em branco, não cadastrar

[Tony_carlos]

Tenho um form com vários textbox e combobox, onde através de um botão, jogo essas informações intercalando em uma planilha formando um bd. Mas preciso que todas as caixas sejam preenchidas, de modo que eu use um "if" dizendo que se ex.: if textbox1.text <> "" and textbox2.text<>"" then, etc. faça o cadastro, senão, mensagem para preencher as caixas. Assim dá certo, mas só funciona em três campos, eu preciso que se ficou uma caixa em branco não cadastre, lembrando que tenho 11 caixas.

alguém prodeira me ajudar ????

Obrigado

Editado Julho 1, 2009 por Jonathan Queiroz
Não são permitidos posts em caixa alta (Jonathan)

[raphael_suporte]

cara, coloca uma variável para fazer o controle tipo assim:

dim grava as string

grava = "sim"

if isNull(campo1) then 
    grava = "não"
end if

if isNull(campo2 )then 
    grava = "não"
end if

if isNull(campo3) then 
    grava = "não"
end if



if grava = "não" then
     msgBox " Existem campos que ainda não foram preenchidos"
else
  evento
end if

[Tony_carlos]

Eu coloquei seu codigo, 1 para cada caixa, no espaço entre parenteses (campo1) eu coloquei (textbox1.text) está certo ?

fiz com todos, mas agora mesmo eu deixando todos em branco efetua o cadasto, não esta restringindo nenhuma caixa ?

[Jonathan Queiroz]

Tente assim:

sub cadastra
if caixa1.text="" or caixa2.text="" then
msgbox "Preencha todos os campos !"
exit sub
end if
[...]
resto da sub para cadastrar
end sub

[Tony_carlos]

nessa linha abaixo dá erro e diz que o objeto é obrigatorio

if textbox1.text="" or textbox2.text="" then

[raphael_suporte]

você tem algum objeto com o nome textBox2.text??

você vai alterar esses valores pelo nome dos seus objetos

[Tony_carlos]

então, eu alterei os nomes para textbox1, textbox2 ........ não dá erro, mas também não funciona, ou seja, se eu deixar todos as caixa em branco, e clicar em salvar, ele joga todas as informações em branco , ao invés de dar a mensagem....

[raphael_suporte]

onde você está colocando esse código?? após inserir o código tente mudar de aba e voltar pois pode não está carregando as alterações

[Tony_carlos]

eu inclui seu codigo junto com o meu no botão do form que eu uso para salvar .....

[raphael_suporte]

como está o código? o IF tem que ser antes do comando gravar, poderia colocar o código aqui, apenas a parte do botão