[Resolvido]Problema no comando

Olá boa noite,

Tenho um form de Pedidos de Venda e outro subform detalhe da venda
nele eu deixei o numero do pedido invisilvel com este codigo ( me.GeraPedido.visible=false)e um botao de gerar pedido que da visibilidade a este pedido em questao.
Tambem tenho um botao Concluir Pedido que ira registrar no banco de dados.

Minha duvida:
Como fazer com que ao clicar do botao registrar pedido se o gerar pedido estiver invisivel não deixar registrar?

estou usando assim, mas ele registra normalmente

If Me.GerarPedido.Visible = False Then
MsgBox ("É necessario Gerar Pedido"), vbCritical, "AVISO"
Else
DoCmd.Save
MsgBox ("Pedido concluido"), vbInformation, "Pedidos de Venda"
DoCmd.GoToRecord , , acNewRec

End If

Bom dia Danilo....

Apenas uma sugestão. Ao iniciar o frm em questão, inicie ele com todos os campos em enabled=false

me.nome.enabled=false
me.endereco.enabled=false
...
...

E quando for iniciar um novo pedido, você pode habilita-los novamente, através do teu código, usando o if.

Abraços.

Bom dia Silvio,

Gostei da ideia eu vou tentar implantar isto e logo posto ok!

O fórum agradece o retorno.

Olá Silvio obrigado pela sugestão, eu fiz alguns testes aqui e gostei muito. Mas a minha ideia era gerar o pedido após a confirmação do pedido de venda.
Estava pensando assim:

Após os dados serem preenchidos fosse gerado o pedido, entao fiz o pedido ficar invisible e criei um botao chamado confirmar pedido e fiz o seguinte procedimento ao clicar de um botao:

if me.GerarPedido.enable=False then

Msgbox "Precisa gerar o Pedido para confimar vendo", vbcritical, "Aviso"

Else
Docmd.Save
End if
End sub

Este procedimento mostra tudo certinho, mas ele salva o registro.
Não consigo pensar em uma forma dele impedir que o pedido seja salvo sem Gerar o pedido de venda.

Olá, apenas uma ideia,

if me.GerarPedido.enable=False then
Msgbox ("Precisa gerar o Pedido para confimar vendo", vbcritical + vbokcancel + vbdefaultbutton1 "Aviso")= vbok then
me.GerarPedido.enable=true
Else
Docmd.undo
End if
End sub

Por estar em cliente, não testei o código acima. Teste o mesmo e me de retorno, devo estar na empresa por volta de 17:00hs.

Grato.

Oi Silvio,

Obrigado pela ajuda. Esta dando o erro no docmd.Undo e tentei tambem no Me.Undo mas ele apenas limpa os campos não aparece a mensagem.

Danilo,boa tarde.

retira as seguinte linhas...

Else
Docmd.undo

Ola amigo Silvio desculpa a demora,

Eu retirei conforme me orientou mas nao deu certo, a mensagem de erro desapareceu, mas parece que nada acontece,estou a pensar em fazer assim o que acha:

Private Sub Comando15_Click()
If Me.numeroPedido.Visible = False Then
MsgBox ("É necessario Gerar Pedido, deseja Gerar o pedido agora?"), vbInformation, "AVISO"
'Aqui poderiamos inserir o codigo se no caso Sim tornar visible o comando GerarPedido, caso não Simplismente cancelaria a ação
Estou a pensar em como fazer o que acha?'
Me.GerarPedido.SetFocus

Else
Me.numeroPedido.Visible = True

DoCmd.Save
MsgBox ("Pedido concluido"), vbInformation, "Pedidos de Venda"
DoCmd.GoToRecord , , acNewRec

End If

Perfeito...manda ver.

Silvio ate agora funcionou direitinho o problema que este procedimento abaixo:

If Me.numeroPedido.Visible = False Then
MsgBox ("É necessario Gerar Pedido"), vbCritical, "AVISO"
Me.GerarPedido.SetFocus

Else
Me.numeroPedido.Visible = True
If IsNull(Me.numeroPedido) Then
MsgBox "Não há dados para Salvar", vbCritical, "Aviso"

Else

If MsgBox("Gerar pedido de Venda?", vbYesNo, "Aviso") = vbNo Then
'SE NÃO, CANCELA E DIZ QUE CANCELOU
Me.Undo
MsgBox "PROCESSO CANCELADO PELO USUÁRIO", vbInformation
Else
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Seu Foi Pedido Concluido", vbInformation, "Advantage - Pedido de Venda "
End If
End If
DoCmd.GoToRecord , , acNewRec


DoCmd.GoToRecord , , acNewRec

End If

Obrigado pela ajuda Silvio.