none
Comando salvar com campos de preenchimento obrigatório - VBA RRS feed

  • Pergunta

  • Pessoal,

    Criei uma VBA para cadastro de clientes. Gostaria que alguns campos fossem de preenchimento obrigatório. Fiz a programação mas quando digito algo nos campos que programei para não serem obrigatórios e clico em salvar, aparece as msgs para preenchimento dos obrigatórios mas salva no planilha de banco de dados da mesma forma. Como faço para corrigir isso. Segue minha programação:

    Private Sub SALVAR_Click()
    totalregistro = Worksheets("BANCO DE DADOS").UsedRange.Rows.Count + 1
    With Worksheets("BANCO DE DADOS")
    .Cells(totalregistro, 1) = Cliente
    .Cells(totalregistro, 2) = Função
    .Cells(totalregistro, 3) = RAZÃO
    .Cells(totalregistro, 4) = FANTASIA
    .Cells(totalregistro, 5) = Pessoa
    .Cells(totalregistro, 6) = CPF
    .Cells(totalregistro, 7) = INSCRIÇÃO
    .Cells(totalregistro, 8) = FONE1
    .Cells(totalregistro, 9) = FONE2
    .Cells(totalregistro, 10) = FAX
    .Cells(totalregistro, 11) = CELULAR
    .Cells(totalregistro, 12) = CONTATO
    .Cells(totalregistro, 13) = EMAIL1
    .Cells(totalregistro, 14) = EMAIL2
    .Cells(totalregistro, 15) = SITE
    .Cells(totalregistro, 16) = CEP
    .Cells(totalregistro, 17) = ENDEREÇO
    .Cells(totalregistro, 18) = NÚMERO
    .Cells(totalregistro, 19) = BAIRRO
    .Cells(totalregistro, 20) = CIDADE
    .Cells(totalregistro, 21) = estado
    .Cells(totalregistro, 22) = OBSERVAÇÕES

    End With

    If Cliente.Text = "" Then
    MsgBox "Escolher cliente, Fornecedor, ou Colaborador"
    Exit Sub
    ElseIf RAZÃO.Text = "" Then
    MsgBox "Preencha o campo Nome/Razão Social"
    ElseIf CPF.Text = "" Then
    MsgBox "Preencha o campo CPF/ CNPJ"
    ElseIf FONE1.Text = "" Then
    MsgBox "Peencha o campo Fone1"

    Else
    MsgBox "Salvo com sucesso"

    End If

    End Sub

    Obrigado desde já!

    Abraços


    sábado, 13 de abril de 2013 15:21

Respostas

  • Ao inserir um código no fórum, utilize blocos de código. Para utilizar essa
    ferramenta, clique no botão cuja legenda é “Inserir bloco de código” na barra
    do editor de mensagens do fórum.

    ---

    Declare variáveis!

    http://www.ambienteoffice.com.br/officevba/declaracao_de_variavel/

    ---

    Private Sub SALVAR_Click()
        Dim strErro As String
        
        If Cliente = "" Then strErro = "Escolher cliente, Fornecedor, ou Colaborador"
        If RAZÃO = "" Then strErro = "Preencha o campo Nome/Razão Social"
        If CPF = "" Then strErro = "Preencha o campo CPF/ CNPJ"
        If FONE1 = "" Then strErro = "Peencha o campo Fone1"
        
        If strErro = "" Then
            MsgBox strErro, vbCritical
            Exit Sub
        End If
        
        totalregistro = Worksheets("BANCO DE DADOS").UsedRange.Rows.Count + 1
        
        With Worksheets("BANCO DE DADOS")
            .Cells(totalregistro, 1) = Cliente
            .Cells(totalregistro, 2) = Função
            .Cells(totalregistro, 3) = RAZÃO
            .Cells(totalregistro, 4) = FANTASIA
            .Cells(totalregistro, 5) = Pessoa
            .Cells(totalregistro, 6) = CPF
            .Cells(totalregistro, 7) = INSCRIÇÃO
            .Cells(totalregistro, 8) = FONE1
            .Cells(totalregistro, 9) = FONE2
            .Cells(totalregistro, 10) = FAX
            .Cells(totalregistro, 11) = CELULAR
            .Cells(totalregistro, 12) = CONTATO
            .Cells(totalregistro, 13) = EMAIL1
            .Cells(totalregistro, 14) = EMAIL2
            .Cells(totalregistro, 15) = SITE
            .Cells(totalregistro, 16) = CEP
            .Cells(totalregistro, 17) = ENDEREÇO
            .Cells(totalregistro, 18) = NÚMERO
            .Cells(totalregistro, 19) = BAIRRO
            .Cells(totalregistro, 20) = CIDADE
            .Cells(totalregistro, 21) = estado
            .Cells(totalregistro, 22) = OBSERVAÇÕES
        End With
        
        MsgBox "Salvo com sucesso", vbInformation
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br


    sábado, 13 de abril de 2013 21:10
    Moderador