[Resolvido]Ajuda com erro no código vba

Bom dia,

Estou com uma dúvida quanto ao código abaixo, poia ao clicar em Salvar, caso o campo Comb esteja vazio, deve acusar uma mensagem informando que o mesmo está vazio, e perguntando se quero continuar mesmo assim, ou não, e para o comando que eu coloquei, se eu clicar em não, coloca o foco direto no campo, mas se eu clicar em sim para continuar, não faz nada, não dá sequência. Onde posso estar errando?





Private Sub Salvar_Click()

Dim Resultado As VbMsgBoxResult

If IsNull(Me.Comb) Or Me.Comb.Value = "" Or Me.Comb.Value = 0 Then

Resultado = MsgBox("Campo Comb está vazio. Deseja continuar mesmo assim?.", vbInformation + vbYesNo, "Atenção")
If Resultado = vbNo Then

Exit Sub

me.comb.SetFocus

End if


Obrigado desde já.

Algo parecido com isso

If IsNull(Me.Comb.value) Or Me.Comb.Value = ""  Then
MsgBox("Campo Comb está vazio. Deseja continuar mesmo assim?.", vbInformation + vbYesNo, "Atenção")= vbyes then
docmd.save
msgbox"....Registro Salvo !", vbinformation, "AVISO..."
exit sub
else
msgbox"....Registro NÃO Salvo !", vbinformation, "AVISO..."
me.comb.SetFocus
End if

Silvio,

Ainda não deu certo, pois se eu clico em sim para continuar, não limpa os campos.

Bom dia...

Bem vamos ver...

Qual o nome que fora dado a essa combobox : me.combo.value ?

Se for o caso, zipa as tabelas, formulários envolvidos na duvida e posta aqui para lhe ajudarmos.

Abraços

Silvio,

Segue o link abaixo.

O nome da combobox é Comb.

Eu testei o seu código no botão salvar (Ao clicar), e como não consegui fazer ficar da forma que queria, mantive o código que tinha anteriormente.

Repare que o que eu quero, é que ao deixar o campo vazio, ao clicar em salvar, no caso do campo Comb, vai perguntar se quero continuar mesmo assim, se eu dizer que sim, que salve todos os dados e limpe todos os campos, se dizer que não, que coloque o foco no campo Comb, para que eu possa escolher alguma opção.

1Frm_Lançamentos


https://www.dropbox.com/s/6fw6iyso98lw9zj/Controle%20de%20Abastecimentos.accdb?dl=0

Bom dia...

A lógica do comando ao salvar está meio confusa...
Se eu colocar sim nessa combobox e salvar e limpar os campos que deseja...como fica o preenchimento dos demais campos que na rotina estão ? Sendo que ao salvar você vai para um novo registro ?

Creio que o correto seria colocar o comando para salvar e ir para um novo registro no teu último campo a ser preenchido pelo usuário.

No aguardo da resposta.

Silvio,

Nesta rotina, a cada vez que que eu deixar um campo em branco, ao salvar vai acusar alguma coisa, caso não fique nada em branco, vai salvar e posterior limpar os campos, na rotina que tenho funciona desta forma e corretamente, apenas gostaria de mudar a rotina neste caso específico do campo Comb.
Caso não dê pra fazer, paciência, deixo assim mesmo.

Obrigado.

ok, vamos mexer então.

Teste a seguinte rotina...

Código:

Private Sub Salvar_Click()
On Error Resume Next
Dim Resultado As VbMsgBoxResult

'Observação....acrescentado o Else nas rotinas.

If IsNull(Me.NF) Or Me.NF.Value = "" Or Me.NF.Value = 0 Then
MsgBox "NF é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.NF.SetFocus

ElseIf IsNull(Me.CBOPlaca) Or Me.CBOPlaca.Value = "" Or Me.CBOPlaca.Value = 0 Then
MsgBox "Placa é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.CBOPlaca.SetFocus


ElseIf IsNull(Me.Hora_Abast) Or Me.Hora_Abast.Value = "" Or Me.Hora_Abast.Value = 0 Then
MsgBox "Hora_Abast é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
Me.Hora_Abast.SetFocus

'rotina abaixo acrescentada
ElseIf IsNull(Me.Comb) Or Me.Comb.Value = "" Then
If MsgBox("Campo Comb está vazio. Deseja continuar mesmo assim?.", vbInformation + vbYesNo, "Atenção") = vbNo Then
MsgBox "Escolher combustível !!", vbCritical, "AVISO..."
Me.Comb.SetFocus
Exit Sub
Else
DoCmd.Save
MsgBox "Registro salvo parcialmente", vbInformation, "AVISO..."
Exit Sub
End If




If IsNull(Me.Valor_Unit) Or Me.Valor_Unit.Value < 1 Then

Resultado = MsgBox("Campo Valor Unitário está vazio. Deseja continuar mesmo assim?.", vbInformation + vbYesNo, "Atenção")


'If Resultado = vbNo Then

Me.Valor_Unit.SetFocus

Me.[Valor_Unit].BackColor = 26367
End If

' Aqui pergunta ao salvar se deseja informar alguma observação

Resultado = MsgBox(" Deseja informar uma Observação?", vbInformation + vbYesNo, "Inserção de Observação")

If Resultado = vbYes Then

Me.Atencao = True

Me.Lista_Obs.Requery

'MsgBox "Registro salvo com sucesso!", vbInformation, "Inserção de registro"

Else

Me.Atencao = False

MsgBox "Registro salvo com sucesso!", vbInformation, "Inserção de registro"

End If

Me.Lista_Obs.Requery
Me.Recalc

If IsNull(Me.Conta) Or Me.Conta.Value = "" Or Me.Conta.Value >= 1 Then

Me.Lista_Msg = "Contém " & " " & Conta & " registros em observação"

Else

Me.Lista_Msg = ""

End If

Dcmd.Save
End If

End Sub
End If

Dando como resolvido.