[Resolvido]Obrigar preenchimento de sbForm antes de salvar formulario

ola,

 Sou novato na utilização do acces e não tenho conhecimento em vba, porém estou fazendo um sistema ende tenho um Form cad Pedido com um sub Form itens pedidos, preciso saber como impedir que o usúario salve um pedido sem preencher os itens do form itens pedidos.

Achei o seguinte codigo na internet e tentei implementar no botão salvar,mas não tive sucesso.

Private Sub Comando17_Click()

Forms!formItensPedido.SetFocus


If IsNull(Me.FormItensPedido!CodProdFabrica) = True Then
  MsgBox "Favor preencher os intens do pedido!", vbInformation, "ATENÇÃO"
 
    Me.FormItensPedido!CodProdFabrica.SetFocus
   
   
Else

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

MsgBox "Pedido slvo com sucesso!", vbInformation, "Atenção"

DoCmd.Close
End If


End Sub



Não sei se fui claro,mas se puderem ajudar dese ja agradeço.

Ola amigo!

Eu li sua dúvida e é bastante comum no Access e Visual,

Acho a solução mais simples o seguinte:

- Na Elaboração da Tabela, eleja um campo e estabeleça a regra de validação como:
<> 0 (Diferente de Zero)

- No formulário nas propriedades deste campo, dê-lhe o valor padrão: = 0

De maneira que se o procedimento não preencher esse campo e o operador não
digitar nada, ele provoca um erro que desvia o procedimento para Mensagem.

Então ficaria mais ou menos assim:


Private Sub Comando17_Click()

On Error Goto Erro_Pedido ' * '

Forms!formItensPedido.SetFocus

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
MsgBox "Pedido slvo com sucesso!", vbInformation, "Atenção"

DoCmd.Close

Exit_Gravação:
Exit sub

Erro_Pedido:
docmd.cancelevent

MsgBox "Favor preencher os intens do pedido!", vbInformation, "ATENÇÃO"

Me.FormItensPedido!CodProdFabrica.SetFocus

Resume Exit_Salvação


End Sub




Vê se isso resolve ai parceiro, qq coisa da um help

Abraços.

Aqui  está um exemplo.

Abraços

Nb

boa noite
puderem me dar algum auxílio com este problema eu serei grato.
Tentei implementar o form seguindo os exemplos que me passaram, porem não obtive sucesso. Não sei aonde estou errando em seguir os exemplos, mas não funciona. Se

Desde já obrigado pela empenho.

Tentei implementar algo conforme os dois exemplos apresentados, porem, não obtive sucesso.

atualmente o maior avanço que tive foi no codigo original, onde ele até executa a pare else do codigo, porem, quanto tento referenciar uma das variaveis da tabela iPedidos elo não localiza o campo e da erro .


O codigo atualmente esta assim .

Private Sub Comando35_Click()


Forms!CadPedido.IPedido.SetFocus

If IsNull(Me.IPedido!CodPedFabrica) = True Then

 MsgBox "Favor preencher os intens do pedido!", vbInformation, "ATENÇÃO"
 
   Me.CodPedido.SetFocus
   
   
Else

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

MsgBox "Pedido salvo com sucesso!", vbInformation, "Atenção"

DoCmd.Close
End If



End Sub


Se puderem me dar alguma sugestão de como efetuar  essa referencia eu agradeço .

Este é o modelo do sistema que estou desenvolvendo. É bem básico, mas se puderem dar uma olhada agradeço.

Estou assinando para participar das discussões.
Em breve retorno

Amigo Marcos, tudo bem!
O exemplo de Noobezinho é o mais prático que vejo. Basta usar o código em um botão do formulário para forçar o deslocamento do cursos para o subform e ao mesmo tempo fazer a busca por campos não preenchidos.

Marcos

Aqui está teu aplicativo modificado

Algumas ponderações :
Procure usar prefixos no objetos, tblPedidos, tbl_ItensPedidos, frmPedidos, frm_Pedidos, qryMinhaConsulta ou ConsPedidos, etc...
Isso ajuda a você na hora de ler os códigos e a outros programadores que irão ler esses códigos.

Teu aplicativo:
Sugiro que use o CodPedido como autonumeração na tabela pedido e numero inteiro longo na tabela ItensPedidos,
assim não precisará digitar  esse código
Se fizer isso, modifique os códigos VBA desse campos de texto para nume rico, retirando as aspas simples deles.
A função TestaCampos() só verificará se os campos estão preenchidos, aqueles que tiver a Marca  "t" (sem as aspas) na folha de propriedades.
Essa função só testará os campos do formulário principal.

Os campos do subformulario itenspedidos serão testado na propriedade Ao Sair de cada controle. Veja na folha de propriedades e no módulo classe do formulário a função.
Como teu formulário tem os botões salvar e fechar, veja que ao clicar no botão fechar os mesmo chama o código do botão salvar.
Desative o botão Fechar do formulário ( o X do cabeçalho), assim o usuário só poderá fecha-lo clicando num dos botões Salvar e Fechar.

Noob

Amigo Noobezinho!
Tudo blz?

Na verdade o aplicativo é do Marcos Julio.

De qualquer forma, vou baixar para estudar os códigos.

Obrigado

Verdade, eu vi um post e o nome de outro.

Obrigado João


Nb

Gostaria de agradecer a todos pelo empenho e auxilio na solução. Obrigado ae .. Me ajudaram muito !!

Valeu o retorno Marcos

Boa sorte !!


Nb