Registros inseridos em branco

[Edson_csi 0]

Olá!Tenho um formulário onde está ocorrendo o problema de inserir registros em branco.EX:Quando clico no botão incluir e depois em salvar mesmo sem inserir nada em nenhum campo, ele grava o registro assim mesmo, só que em branco. Fica um espasso entre os registros.Teria como bloquear isso?

[acma88 0]

eh o seguinte ....você tem q colocar condições antes da função de inserir o registro no banco de dados seje executada !recomendo usar if,else .. talz !!exemplo:if txtNome.text = "" then msgbox "Preencha o campo nome ! "elseif txtEndereco.text = "" then msgbox "Preencha o campo endereço ! "end if....elsefunção q inseri o registro no banco de dados !abraço

[Edson_csi 0]

eh o seguinte ....você tem q colocar condições antes da função de inserir o registro no banco de dados seje executada !recomendo usar if,else .. talz !!exemplo:if txtNome.text = "" then msgbox "Preencha o campo nome ! "elseif txtEndereco.text = "" then msgbox "Preencha o campo endereço ! "end if....elsefunção q inseri o registro no banco de dados !abraço

Ok!Deu certo!Obrigado!

[Edson_csi 0]

eh o seguinte ....você tem q colocar condições antes da função de inserir o registro no banco de dados seje executada !recomendo usar if,else .. talz !!exemplo:if txtNome.text = "" then msgbox "Preencha o campo nome ! "elseif txtEndereco.text = "" then msgbox "Preencha o campo endereço ! "end if....elsefunção q inseri o registro no banco de dados !abraço

Não havia percebido, mas após gerar a mensagem ele grava em branco assim mesmo!Achei q havia dado certo!De qualquer forma obrigado!

[acma88 0]

um trecho do codigo fonte do meu sistema pra te ajudar Private Sub BiBox1_Click() Set cn = New ADODB.Connection Set cn = New ADODB.Connection With cn '.Provider = "MSDASQL" .ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=admin;Data Source=Bd" .Open '(Usuário) (Senha) (Caminho e Nome do banco de dados) End With If txtNomeCli.Text = "" Then msgboax"Preencha o campo Nome !", 2, "ERRO", 16 txtNomeCli.SetFocus ElseIf txtEndereco.Text = "" The msgbox "Preencha o campo Endereço !", 2, "ERRO", 16 txtEndereco.SetFocus ElseIf txtBairro.Text = "" Then msgbox "Preencha o campo Bairro !", 2, "ERRO", 16 txtBairro.SetFocus ElseIf txtCidade.Text = "" Then msgbox "Preencha o campo Cidade !", 2, "ERRO", 16 txtCidade.SetFocus ElseIf txtUf.Text = "" Then msgbox "Preencha o campo UF !", 2, "ERRO", 16 txtUf.SetFocus Else Set op = New ADODB.Command With op .ActiveConnection = cn .CommandText = "insert into tbl_clientes (cli_nome,cli_endereco,cli_bairro,cli_cidade,cli_estado,cli_email,cli_cadastro) values ('" & txtNomeCli.Text & "','" & txtEndereco.Text & "','" & txtBairro.Text & "','" & txtCidade.Text & "','" & txtUf.Text & "','" & txtemail.Text & "','" & txt_data.Text & "');" .Execute End With MsgBox "Cadastro realizado com sucesso !" Set op = Nothing cn.Close

[Fernando Almeida 0]

Edson_csi é só apos escrever a mensagem de erro colocar um exit function, ou exit sub. ou ainda colocar dentro do if todos os campos que não poderem ser vazio.

ex:

if cond1 thenelseif cond2 thenelseif cond3 thenelseinsert into end if