Boa noite a todos! Bom é o seguinte amigos do forum, eu tenho um formulário de uma tabela, e nesse formulário tenho um subformulário de uma outra tabela, as tabelas estão relacionadas de um para muitos, o que eu quero é que quando eu clicar no botão salvar,se tiver registro na tabela do formulário e na tabela do subformulário não tiver registro ou estiver em branco não salve informando que para salvar é preciso que haja algum dado preenchido no subformulário. Não sei se fui claro na dúvida, mas podem perguntar que eu tento esclarecer melhor
3 participantes
[Resolvido]Salvar na condição de ter registro no subformulário
emacsabino- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 190
Registrado : 29/08/2011
- Mensagem nº1
Salvar na condição de ter registro no subformulário
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Talvez algo assim:
If IsNull(Forms!NomeDoForm!NomeDoSubForm.Form!Campo1DoSubform) Or IsNull(Forms!NomeDoForm!NomeDoSubForm.Form!Campo2DoSubform) Then
MsgBox "Mensagem"
Else
Salva
End If
If IsNull(Forms!NomeDoForm!NomeDoSubForm.Form!Campo1DoSubform) Or IsNull(Forms!NomeDoForm!NomeDoSubForm.Form!Campo2DoSubform) Then
MsgBox "Mensagem"
Else
Salva
End If
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
emacsabino- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 190
Registrado : 29/08/2011
Grande Críquio, vou só reformular a minha dúvida para ficar melhor, eu quero que na tabela pai só seja salva o registro se na tabela filho tiver pelo menos 1 registro ligado ao registro que tá na tabela pai. Sendo que de Pai para filho é de um para muitos.
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
- Código:
If DCount("*", "NomeDaSubTabela", "Código=" & Me.Código) < 1 Then
MsgBox "Sua Mensagem", vbCritical, "Atenção"
Else
Salva o esquema
End If
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
emacsabino- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 190
Registrado : 29/08/2011
Valeu críquio deu certo aqui
emacsabino- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 190
Registrado : 29/08/2011
um abraço
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Grato pelo retorno. O forum agradece.
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Bom dia Criquio
Pergunto:
Isto será para aplicar num comando de gravar do formulário pai ?
If DCount("*", "TabelaFilho", "Código=" & Me.Código) < 1 Then
MsgBox "Sua Mensagem", vbCritical, "Atenção"
Else
Salva o esquema
End If
Pergunto:
Isto será para aplicar num comando de gravar do formulário pai ?
If DCount("*", "TabelaFilho", "Código=" & Me.Código) < 1 Then
MsgBox "Sua Mensagem", vbCritical, "Atenção"
Else
Salva o esquema
End If
.................................................................................
*** Só sei que nada sei ***
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Olá Assis! Pelo que entendi da dúvida do amigo criador do tópico, minha ideia foi nesse sentido
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Obrigado Criquio
.................................................................................
*** Só sei que nada sei ***
Conteúdo patrocinado
» [Resolvido]Salvar registro somente se o botão salvar for clicado
» [Resolvido]Condição nos campos do subformulario
» [Resolvido]Permitir somente 1 registro no subformulário para cada registro selecionado no formulário.
» [Resolvido]Cadastrar registro somente depois de clicar em salvar registro?
» [Resolvido]Em registro Subformulario indentificar se outro Subformulario ha ou não registros
» [Resolvido]Condição nos campos do subformulario
» [Resolvido]Permitir somente 1 registro no subformulário para cada registro selecionado no formulário.
» [Resolvido]Cadastrar registro somente depois de clicar em salvar registro?
» [Resolvido]Em registro Subformulario indentificar se outro Subformulario ha ou não registros
|
|