Msgbox VBA

Bom Dia

Alguém poderia me ajudar na seguinte questão..
Na tabela contas e receber tem       ( emitir_cobranca - tipo de dados Sim/Nao)

No Meu Formulário tem a consulta e os botoes

Ao Clicar no Botão Emitir Cobrança tem esse código abaixo Blz:   mas queria que antes de clicar no botão verificar se já foi emitida a cobrança se sim  aparece-se uma MsgBox Se gostaria de emitir nova-mente a cobrança.... Nao estou conseguindo acertar esse código:

If MsgBox("Emitir Cobrança?", vbYesNo, "Cobrança") = vbYes Then
DoCmd.OpenForm "CARNE P FISICA"
Me.txt_emitir_cobranca = True
MsgBox "Cobrança Emitida!", vbInformation, "Cobrança"
Else
Cancel = True
Me.txt_emitir_cobranca = False
End If

Obrigado
Diogo

Boa tarde,
Veja
If txt_emitir_cobranca then
If MsgBox("A cobrança já foi emitida." & vbcr & vbcr & "Quer voltar a emiti-la?", vbYesNo, "Cobrança") = vbYes Then
exit sub
ElseIf MsgBox("Emitir Cobrança?", vbYesNo, "Cobrança") = vbno Then
exit sub
End if
DoCmd.OpenForm "CARNE P FISICA"
Me.txt_emitir_cobranca = True
MsgBox "Cobrança Emitida!", vbInformation, "Cobrança"

Boa Tarde
Alexandre Neves

Você poderia implementar no código abaixo que você fez:

Caso o txt_emitir_cobranca for false com que poderia implementar no código abaixo para funcionar os dois verdadeira e false

Em Anexo uma imagem para você ter uma visualização do que eu queria fazer...

Mas o código funcionou perfeitamente  quando txt_emitir_cobranca está em  verdadeiro



If txt_emitir_cobranca then
If MsgBox("A cobrança já foi emitida." & vbcr & vbcr & "Quer voltar a emiti-la?", vbYesNo, "Cobrança") = vbYes Then
exit sub
ElseIf MsgBox("Emitir Cobrança?", vbYesNo, "Cobrança") = vbno Then
exit sub
End if
DoCmd.OpenForm "CARNE P FISICA"
Me.txt_emitir_cobranca = True
MsgBox "Cobrança Emitida!", vbInformation, "Cobrança"



Em anexo uma imagem ve se você consegui entender
Obrigado Diogo

Não percebi o que quer executar caso txt_emitir_cobranca seja falso

Boa Tarde

Caso o txt_emitir_cobranca for false quero  também emitir cobrança

E se for verdadeiro aparecerá uma mensagem que já foi feita a cobrança mas se eu querer imprimir a cobrança novamente também...



O Código que você me enviou funcionou com o txt_emitir_cobranca Verdadeiro

Queria que funciona-se também com os Dois Verdadeiro e False  

Mas se for verdadeira aparecerá uma mensagem que já foi feita a cobrança mas se eu querer imprimir a cobrança novamente também...




If txt_emitir_cobranca then
If MsgBox("A cobrança já foi emitida." & vbcr & vbcr & "Quer voltar a emiti-la?", vbYesNo, "Cobrança") = vbYes Then
exit sub
ElseIf MsgBox("Emitir Cobrança?", vbYesNo, "Cobrança") = vbno Then
exit sub
End if
DoCmd.OpenForm "CARNE P FISICA"
Me.txt_emitir_cobranca = True
MsgBox "Cobrança Emitida!", vbInformation, "Cobrança"

Boa Tarde
Alexandre Neves

Consegui resolver meu problema com o código Abaixo: Muito Obrigado Pela sua dica e pelo código que me passou ajudou muito




If txt_emitir_cobranca = True Then
If MsgBox("A cobrança já foi emitida." & vbCr & vbCr & "Quer voltar a emiti-la?", vbYesNo + vbDefaultButton2 + vbExclamation, "Cobrança") = vbYes Then
DoCmd.OpenForm "CARNE P FISICA"
MsgBox "Cobrança Emitida", vbInformation, "Cobrança"


End If

ElseIf txt_emitir_cobranca = False Then

If MsgBox("Deseja emitir a cobrança", vbYesNo + vbDefaultButton2 + vbInformation, "Cobrança") = vbYes Then
Me.txt_emitir_cobranca = True
DoCmd.OpenForm "CARNE P FISICA"
MsgBox "Cobrança Emitida", vbInformation, "Cobrança"

Exit Sub


End If
End If



End Sub

Boa tarde,
Faltou o "Resolvido"