Não salvar sem preencher campo

2024 - VBA & Macros

Post Recente por fcarlosc 8 anos atrás

5 Posts

4 Usuários

0 Reactions

980 Visualizações

RSS

NERI S

(@neri-s)

Posts: 0

Estimable Member

Topic starter

Poxa.... parece simples mas estou "levando um baile".

Não pode salvar sem preencher os campos. O que ele faz: está dando a mensagem está em branco o cliente, depois o endereço e no final diz Salvo com sucesso...mas ..não salvou nada....onde eu errei...sei que é facil, mas eu nao sei mais onde alterar

Private Sub SalvaRegistro(ByVal id As Long, ByVal indice As Long)
    With wsCadastro
        .Cells(indice, colCodigo).Value = id
        
        If txtcliente.Value = "" Then
                MsgBox "Preencha o campo cliente", vbInformation + vbOKOnly, "teste"
                MultiPage1.Value = 1
                txtcliente.SetFocus
            Exit Sub
        End If

        If txtendereco.Value = "" Then
                MsgBox "Preencha o campo endereço", vbInformation + vbOKOnly, "teste"
                MultiPage1.Value = 1
                txtendereco.SetFocus
            Exit Sub
        End If

Postado : 24/04/2017 4:35 pm

MPrudencio

(@mprudencio)

Posts: 2749

Famed Member

Ja tentou depurar o codigo para ver o que acontece.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

Postado : 24/04/2017 5:30 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

A rotina que postou está incompleta.
E quando diz "Não pode Salvar", está se referindo a Salvar o arquivo ou lançar algum dado na planilha ?

Você está adaptando uma rotina do modelo de cadastro do Tomas, se for para lançar os valores na aba, a única instrução que tem no trecho da rotina que colocou é a linha:
.Cells(indice, colCodigo).Value = id

mas sem o restante da rotina nao da para saber o que esta fazendo apos a verificação dos dois campos Cliente e endereço.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 24/04/2017 7:02 pm

NERI S

(@neri-s)

Posts: 0

Estimable Member

Topic starter

Mauro

sim, estou adaptando a planilha do Tomas. Na verdade estou me referindo a não salvar os dados do formulário na planilha se os campos estiverem vazios.

obrigado por ajudar

Postado : 26/04/2017 9:16 am