[Resolvido]Guardar SubForm

boas



On Error Resume Next

If MsgBox("Guardar Registo?", vbExclamation + vbYesNo, Me.Caption) = vbYes Then
DoCmd.RunCommand acCmdSave
Me.combOF = ""

Else
DoCmd.CancelEvent

End If

Olá marco

Troque para:

DoCmd.RunCommand acCmdSaveRecord


Mas verifique o relacionamento entre a tabela do formulário principal e a tabela do subform
que deve estar com relacionamento de 1 para muitos.


Abraços


Noob

boas

Obrigado amigão... mas não resultou   

Então o problema deve estar nas tabelas

Por favor, envie as duas tabelas e os dois formulários, para poder ajudar?

Me diga: O que é Utente?

Abraços

Noob

boas

https://www.dropbox.com/s/1s7nl3o8fqxbonv/GesREG%20-%20v1.0%20-%20A1TESTE%20-%20C%C3%B3pia.rar

ora aí esta . . . Obrigado

Marco

Qual é o formulário com problemas?
Explique como devo proceder para verificar o erro

Noob

meu amigo - Entre no form FrontOffice

lá em cima tem o botão Gravar... as forms saão frontoffice e TLBMovimentos

Obrigado

boas
Noobezinho consegui ver o bd ? Obrigado
Abraço

Olá Marco

Desculpe a demora, estou "pestiado", com acessos severos de tosses,
garganta inflamada, etc, parar por aqui, pra você não chorar,    

Antes de tudo, tuas tabelas:

Funcionario, user e utentes, não são tudo a mesma coisa? melhor ver isso, como já tinha dito.

Olhando a tblUtentes tem os campos:

ID
NúmeroUtente
NomeUtente.

Pergunto, porque dois numeros para o utente?
Veja que você relacionou o NumeroUtente com o códigoUtente da tblMovimentos. sendo que os dois são TEXTOS.
Ao contrario disso, você deve usar o Id, CÓDIGO, ou o campo que é numero automático relacionado com o um campo numero inteiro longo
da outra tabela.
Nunca use campos de texto para fazer relação entre tabela, pois texto, usuário tem que digitar e digitando erros vão existir.

Então meu amigo, faça um pente fino nessas tabelas
Creio que consertando as duas tabelas ira funcionar.

Abraços

Noob

Olá a todos.

Marco ja tenho ajudado em algumas questões, mas é mesmo isso aí.
A estrutura das tuas tabelas tem que ser bem elaborada, se não vais ter sempre problemas.
Deves ter a informação bem estruturada.
User , acho bem utilizadores que tem acesso à tua aplicação.
Utentes, muito bem ficheiro dos utentes da tua base de dados.
Funcionario, aqui levanta-se a questão, pois podes ter utilizadores (users) que vão lançar movimentos e pode ser o caso da tua aplicação terem que atribuir o movimento a um funcionario além do utente.
Caso o funcionario seja o mesmo que utilizador (user) é desnecessário duplicação dos campos.
Pelo que compreendi da tua aplicação é um registo de artigos gastos por utente.
Se o meu pensamento está bem, então a base da tua aplicação é tblMovimentos em que as restantes poderemos de chamar tabelas auxiliares:

Utentes
Funcionarios
Artigos

Quanto ao user uma vez que não está associado ao funcionario, vou considerar que existe apenas para controlo de acesso à tua aplicação.

Voltando à explicação do colega, se a base da tua aplicação é a tblMovimentos, quando é efetuado um registo de movimento de artigo, no ficheiro dever ter

IDmovimento
DataMovimento
CodArtigo
QtdArtigo
CodUtente
CodFuncionario
caso pretendas saber qual foi o user que lançou movimento, também deverá ter CodUser

O facto de ter na tabela apenas os códigos, depois nas listagens e forms é possivel mostrar a restante informação (nome utente, morada, etc; Descrição do artigo; nome do funcionario; etc

Deves efetuar uma analise do que pretendes que a tua aplicação venha a efetuar.

Abraço

Ok...
Irei rever as tabelas tentar emenda-las . . . isto de acordo com o que falaram assim como eliminar a tabela Funcionários...
Fico a emendar . . .
até já
No entanto AHTeixeira você não sabe o que te agradeço pelas ajudas todas e as posteriores que me possa dar... assim como a todos aqui do forum sem exceção... assim como ao amigão . . . Noobezinho a quem desejo as melhoras... se cuide " cara " . . .

Olá de novo,

Não sei se tens mesmo que eliminar funcionários, pode-te fazer falta, o que poderias fazer para te ajudar-mos era uma breve descrição do que precisas que a tua aplicação faça, qual o objectivo, que tipo de informação necessitas de reportar ou consultar.

Eu pela leitura que vi da tua APP pareceu-me um registo de movimentos de artigos por utente.

Olá amigos Lusitanos !!

Faço das palavras do Alvaro, as minhas

Sim, estaremos aqui para ajudar, no que for preciso,
mas no meu caso, sempre procurando fazer com que você aprenda.
Jamais iria tirar essa oportunidade de ti, entregando um sistema já pronto.
Quero que você,assim como eu fiz, aprenda fazendo.
Quanto as tabelas, pondere sobre o que precisa.
Como brasileiro, nunca vi ou ouvi a palavra "Utente".
Tive que recorrer ao que chamamos carinhosamente aqui de
"Pai dos Burros", para descobrir do que se tratava.
Bom, se Utente=Cliente, essa é uma das tabelas principais do teu projeto.
O que realmente me incomodou, foi o fato de ter uma tabela Funcionários
e outra para Usuários.
No meu entendimento, um usuário , o que irá usar ou operar o teu programa, deve ser um funcionário da empresa, estou certo?
Ou talvez seja um cenário onde um usuário pode ser ou não um funcionário.
Você falou de pronto em eliminar a tblFuncionários.
Se as informações de funcionário para você é irrelevante, tudo bem.
Portanto, estude direitinho, o que pretende e estaremos aqui  pra ajudar.
Mas ante de tudo, conserte ou reveja o relacionamento entre as duas tabela já mencionada, para
verificamos se funciona,ok?

Grande  abraço

Noob

Desculpe o jornal,  

boas
volto antes demais a agradecer-vos... Obrigado.
o bd ira servir para se registar aos Utentes/Clientes as fraldas que estes irão gastar ao longo do dia/mês... a cada mudança de fralda as Funcionaras registam chamando o Utente/ Cliente e lançando/registando nestes as mudanças de fraldas assim como a sua quantidade. Posteriormente iram existir consultas para obter o numero de fraldas gastas por utente e o seu valor para serem faturadas... Se o bd for satisfatório irá crescer para stocks etc...
Os Funcionários e users inicialmente a ideia era ter um user que entra-se no bd mas podiam os funcionários com este user mas chego a conclusão que é duplicar tabelas ficará mais funcional a sua eliminação e ficar com os user como funcionários.
Noobezinho eu também concordo consigo relação ao não fazerem por mim em relação entregarem o bd já feito eu prefiro mesmo ajuda e eu desenvolver e aprendendo... Obrigado.

Estou vendo as tabelas...

boas

bem alterei as tabelas deixando de lado a de funcionários e utilizando agora ados user... Irei utilizar esta tabela para controlar os utilizadores mas também par substituir a dos funcionarios e assim saber quem fez o registo...  
Corrigi os campos de relacionamentos para Número...
Noobezinho mantive ID, e NumeroUtente pois este ultimo campo é o Número que a Contabilidade utiliza na Facturação e é mais fácil na altura de facturar sendo o ID o Número do bd.

bem no entanto ao fazer gravar continuo a ficar com os Dados na subform !
Codigo do botão Gravar

Private Sub GravarFO_Click()
On Error Resume Next
If MsgBox("Guardar Lançamentos?", vbExclamation + vbYesNo, Me.Caption) = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
Me.combOF = ""
Else
DoCmd.CancelEvent
End If
End Sub

Como na combo que chama os Utentes continua a manter os Dados anteriormente lançados e o que pretendia era ao chamar o Utente na sub form apareceria apenas uma nova linha para ser lançado o Artigo e apenas com as barras laterais( barras de deslocament ) e ao rolarestas aparecessem as anteriores...
Codigo da combo

Private Sub combOF_Click()
DoCmd.ApplyFilter , "ID = " & Me!combOF.Column(0)
Me!NomeUtente.SetFocus
Me!combOF = Null
End Sub

Obrigado

Marco

Por favor, envie o bd modificado

Obrigado

Noob

boas

Noob cá está o bd alterado...

https://www.dropbox.com/s/85sjcop1dnw6kb4/GesREG%20-%20v1.0.rar

Obrigado pela força . . .

Noob . . . toc! toc! melhor_zinho da constipação ? conseguiu dar uma vista de olhos no bd ? Abraço

To vivo ainda !!!  

Se segure ai , que to vendo coisas cabeludas aqui

Logo retorno   


Noob

aH aH aH . . .

ok ... amigo . . . mas repare depois de sair, ou seja se o utilizador sair e entrar no form - FrontOffice e chamar outra vez o Utente já lá não " mora " os Dados(Fraldas) lançadas anteriormente... resolvido esta parte . . .   

agora só tenho aqui 2 questões p/ fechar este tópico :
cá vai amigão . . .

On Error Resume Next
If MsgBox("Guardar Lançamentos?", vbExclamation + vbYesNo, Me.Caption) = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
Me.combOF = ""
Else
DoCmd.CancelEvent
End If

Este é o código que tenho para gravar e solicitar outro Utente mas ao gravar ficam os registos no form( no campo : esta a registar dados no utente: ) e subform e o pretendido era ao gravar este não estarem a aparecer ! Fiz-me entender ?
repare
IMG]https://2img.net/h/oi58.tinypic.com/ejeceo.png[/IMG]

por outro lado liguei as 2 tabelas User + Movimentos isto para saber o Utilizador que está a registar os Movimentos mas não ,e aparece o User...  

Ola Marco

Já tinha resolvido antes de você postar.

Estou enviado o bd modificado.

Na realidade só acrescentei uma linha no código do botão atualizar,

Veja ai qual foi     

OBS.: refiz os relacionamentos, dê uma olhada.

ABraços

Noob

Irei ver meu amigo ! No entanto a primeira vista retirou o relacionamento a tabela de artigos ? ! assim n/ irei ter o resultados das / nas consultas . . . Certo ?
Em relação ao botão 5 Estrelas... Dou-te o retorno logo logo . . . Obrigado por tudo Noob.

Obrigado a todos Sr. Nood e Sr. Alvaro... Está resolvido ! Obrigado mesmo...

Que ótimo Marco !

Valeu pelo retorno.

Boa Sorte !!


Noob

Olá estive afastado, mas ainda bem que está resolvido.

Agradecemos retorno.

Abraço