Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Não salvar sem pree...
 
Notifications
Clear all

Não salvar sem preencher campo

 
2024 - VBA & Macros
Post Recente por fcarlosc 8 anos atrás
5 Posts
4 Usuários
0 Reactions
974 Visualizações
RSS
NERI S
 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
 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.

]s

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
(@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
fcarlosc
 fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
 

Boa-tarde,

Não é melhor fazer a verificação ao sair do textbox ?

Private Sub txtNome_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If txtNome = "" Then
MsgBox ("Nome Obrigatório !"), vbInformation, "Atenção!"
Cancel = True
txtNome.SetFocus
End If

End Sub

Att,

Francisco

 
Postado : 26/04/2017 11:05 am
Forum Jump:
  Tópico Anterior
Próximo Tópico