[Resolvido]Checagem de preenchimento de campo com base em outro campo

Olá,

Estou com um probleminha que estou tentando resolver e não estou conseguindo. Vamos a ele...

Estou colocando uma rotina ao clicar no botão Salvar que checa se o campo Nota Fiscal foi preenchido caso o campo Convênio tenha sido preenchido com uma das opções "PARTICULAR DINHEIRO" ou "PARTICULAR CARTÃO".

Segue abaixo alguns dos códigos que tentei.

Private Sub Salvar_Click()

If Me.num_Nota_Fiscal = "" Then
If Me.txt_Convenio = "PARTICULAR DINHEIRO COM NF" Or Me.txt_Convenio = "PARTICULAR CARTÃO" Then
MsgBox "O campo Convênio foi preenchido com uma das opções ""Particular Cartão"" ou ""Particular Dinheiro com NF"", por isso, o campo Nota Fiscal é de preenchimento obrigatório!", vbInformation, "Atenção"
Me.num_Nota_Fiscal.SetFocus

End If
End If

End Sub

Outro...

Private Sub Salvar_Click()

If Me.num_Nota_Fiscal = "" And Me.txt_Convenio = "PARTICULAR DINHEIRO COM NF" Or Me.txt_Convenio = "PARTICULAR CARTÃO" Then
MsgBox "O campo Convênio foi preenchido com uma das opções ""Particular Cartão"" ou ""Particular Dinheiro com NF"", por isso, o campo Nota Fiscal é de preenchimento obrigatório!", vbInformation, "Atenção"
Me.num_Nota_Fiscal.SetFocus

End If

End Sub

Em ambas as opção, quando clico no botão Salvar, não acontece nada.

try;


If IsNull(Me.num_Nota_Fiscal) = True And (Me.txt_Convenio = "PARTICULAR DINHEIRO COM NF" Or Me.txt_Convenio = "PARTICULAR CARTÃO") Then
MsgBox "O campo Convênio foi preenchido com uma das opções ""Particular Cartão"" ou ""Particular Dinheiro com NF"", por isso, o campo Nota Fiscal é de preenchimento obrigatório!", vbCritical, "Atenção"
Me.num_Nota_Fiscal.SetFocus
Else
Exit Sub
End If

Caro JPaulo,

Obrigado pela ajuda. Porém não posso colocar Else Exit Sub, pois tenho outras checagens para fazer, tais como:

Private Sub Salvar_Click()

If IsNull(Me.num_Nota_Fiscal) = True And (Me.txt_Convenio = "PARTICULAR DINHEIRO COM NF" Or Me.txt_Convenio = "PARTICULAR CARTÃO") Then
MsgBox "O campo Convênio foi preenchido com uma das opções ""Particular Cartão"" ou ""Particular Dinheiro com NF"", por isso, o campo Nota Fiscal é de preenchimento obrigatório!", vbInformation, "Atenção"
Me.num_Nota_Fiscal.SetFocus

Else

If [txt_Convenio] = "PARTICULAR DINHEIRO" Then
If MsgBox("O campo Convênio foi preenchido com a opção Particular Dinheiro." & Chr(13) & Chr(13) & "O paciente solicitou a emissão de Nota Fiscal?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
Me.num_Nota_Fiscal.SetFocus

Else

If IsNull(Me.txt_Nome_Profissional) = True Then
MsgBox "O campo Profissional é de preenchimento obrigatório!", vbInformation, "Atenção"
Me.txt_Nome_Profissional.SetFocus

End If
End If
End If

End Sub

Com o código que você sugeriu, quando o campo num_Nota_Fiscal está vazio ele funciona, porém quando preencho o campo nada acontece. O que pode ser?

.
Teste só com o bloco que lhe passei;

If IsNull(Me.num_Nota_Fiscal) = True And (Me.txt_Convenio = "PARTICULAR DINHEIRO COM NF" Or Me.txt_Convenio = "PARTICULAR CARTÃO") Then
MsgBox "O campo Convênio foi preenchido com uma das opções ""Particular Cartão"" ou ""Particular Dinheiro com NF"", por isso, o campo Nota Fiscal é de preenchimento obrigatório!", vbCritical, "Atenção"
Me.num_Nota_Fiscal.SetFocus
End If

Está acontecendo a mesma coisa. Quando clico em Salvar com o campo num_Nota_Fiscal preenchido, nada acontece. Se eu finalizar com o End If como no seu exemplo, as demais checagens não seria ignoradas?

Apenas lhe pedi para testar com o campo vazio, pois é essa a sua duvida uma vez que a sua mensgem diz;

MsgBox "O campo Convênio foi preenchido com uma das opções ""Particular Cartão"" ou ""Particular Dinheiro com NF"", por isso, o campo Nota Fiscal é de preenchimento obrigatório!",vbCritical, "Atenção"

Entendi. Funcionou conforme seu código, porém, fiz o seguinte, coloquei o código que você informou no final do bloco de instruções do botão Salvar, antes de:

Else

'Salva o formulário caso os campos obrigatórios estejam devidamente preenchidos.
DoCmd.RunCommand acCmdSaveRecord
Beep
MsgBox "Cadastro salvo com sucesso!", vbInformation, "Salvamento de Registro"
DoCmd.RunCommand acCmdRecordsGoToNew

End If

End Sub

Então está Resolvido ?

Surgiu outro problema.

Precisei colocar outra instrução (vide abaixo) entre as instruções anteriores, porém, agora ao preencher o campo num_Nota_Fiscal, não está salvando.

If IsNull(Me.num_Nota_Fiscal) = True And (Me.txt_Convenio = "PARTICULAR DINHEIRO COM NF" Or Me.txt_Convenio = "PARTICULAR CARTÃO") Then
MsgBox "O campo Convênio foi preenchido com uma das opções ""Particular Cartão"" ou ""Particular Dinheiro com NF"", por isso, o campo Nota Fiscal é de preenchimento obrigatório!", vbCritical, "Atenção"
Me.num_Nota_Fiscal.SetFocus

Else

If Me.txt_Convenio = "PARTICULAR DINHEIRO" Then
If MsgBox("O campo Convênio foi preenchido com a opção Particular Dinheiro." & Chr(13) & Chr(13) & "O paciente solicitou a emissão de Nota Fiscal?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
Me.num_Nota_Fiscal.SetFocus

Else

'Salva o formulário caso os campos obrigatórios estejam devidamente preenchidos.
DoCmd.RunCommand acCmdSaveRecord
Beep
MsgBox "Cadastro salvo com sucesso!", vbInformation, "Salvamento de Registro"
DoCmd.RunCommand acCmdRecordsGoToNew

End If
End If
End If

End Sub

Com o código acima ele fica, a cada vez que clico no botão Salvar, perguntando se o paciente solicitou Nota Fiscal.

Alterei o código para:

If IsNull(Me.num_Nota_Fiscal) = True And (Me.txt_Convenio = "PARTICULAR DINHEIRO") Then

Quando clico na resposta Não ele salva o registro certinho.
Quando clico na resposta Sim ele coloca o foco no campo num_Nota_Fiscal certinho.
Porém, quando preencho o campo num_Nota_Fiscal, nada acontece.

O que será que está acontecendo?

Caro JPaulo,

Consegui resolver o problema acrescentando a seguinte linha de código no início:

If IsNull(Me.num_Nota_Fiscal) = False Then GoTo Local1

O botão Salvar ficou assim:

Private Sub Salvar_Click()

If IsNull(Me.num_Nota_Fiscal) = False Then GoTo Local1

If Me.txt_Convenio = "PARTICULAR DINHEIRO" And IsNull(Me.num_Nota_Fiscal) = True Then
If MsgBox("O campo Convênio foi preenchido com a opção Particular Dinheiro." & Chr(13) & Chr(13) & "O paciente solicitou a emissão de Nota Fiscal?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
Me.num_Nota_Fiscal.SetFocus

Else

Local1:
If IsNull(Me.num_Nota_Fiscal) And (Me.txt_Convenio = "PARTICULAR DINHEIRO COM NF" Or Me.txt_Convenio = "PARTICULAR CARTÃO") Then
MsgBox "O campo Convênio foi preenchido com uma das opções ""Particular Cartão"" ou ""Particular Dinheiro com NF"", por isso, o campo Nota Fiscal é de preenchimento obrigatório!", vbCritical, "Atenção"
Me.num_Nota_Fiscal.SetFocus

Else

'Salva o formulário caso os campos obrigatórios estejam devidamente preenchidos.
DoCmd.RunCommand acCmdSaveRecord
Beep
MsgBox "Cadastro salvo com sucesso!", vbInformation, "Salvamento de Registro"
DoCmd.RunCommand acCmdRecordsGoToNew

End If
End If
End If
End If

End Sub

Faltou o Resolvido

Marcado como resolvido.