[Resolvido]Duvidas com novo registro desacoplado via DAO

Ola pessoal estou tentando implementar o form principal desacoplado via DAO mas estou com dificuldades

vamos a lógica

Ao abrir o form
adiciona 1 no ID por não ser autonum
Abre a tabela
.AddNew
adiciona o campo ID na tabela
.update
.close

Botão Salvar
abre a tabela com where = ID do form
.edit
adiciona os campos no ID criado ao abrir o form
.close

Botão novo
adicina 1 no ID
.addnew
Adiciona o campo ID na tabela
.update

ele executa tudo certo, porem quando abre um novo registro ele não executa as relações e o campo calculado fica "#tipo"

segue o banco.

1- tentei apagar o máximo para evitar erros
2 - o form em questão é o 'frm_comanda' e a tabela é 'tbl_comanda'
3 - a estrutura do form: ao inserir os campos você pode 'fechar a comanda' (salvar) ou ir para um novo sem fechar (salva e vai para um novo)
4 - ai ir para um novo ele apresenta os erros.
5 - desculpe a bagunça nos códigos.
6 - no zip tem 2 versões tentei salvar em 2003 deu erro na declaração do DAO
7 - opniões relevantes ao projeto como um todo são válidas e bem vindas

Olá..

Na fonte de controle do controle SubServico:

Código:

=SeImed(ÉNulo([Serviços].[Formulário]![subtotalservicos]);0;[Serviços].[Formulário]![subtotalservicos])

No Controle SubProduto não consegui testar por erro no subformulário, mas tente:

Código:

=SeImed(ÉNulo([subfrm_venda_produto].[Formulário]![subtotalprodutos]);0;[subfrm_venda_produto].[Formulário]![subtotalprodutos])

Aguardamos o seu retorno

Abraços e sucesso

Grande Celso, obrigado pela atenção.


no campo total que é a soma dos 2 campos menos o desconto segui a mesma ideia, mas sem sucesso, ainda aparece no campo total "#tipo"

Olá..

Faça as devidas correções no segundo subformulario, pois esta sem os vinculos com os campos necessários das tabela e anexe aqui para que eu possa verificar para voce.

neste campo que é a soma dos dois campos não vai este critério.

Aguardo

Ola...

os vínculos dos subforms estão idênticos


segue o banco com as correções mas o erro continua

Olá...

Antes de anexar atualização, tente o seguinte no frm_comanda:


Na fonte de controle do campo SubServico:

Código:

=SeImed(ÉNulo([Serviços].[Formulário]![subtotalservicos]);0;[Serviços].[Formulário]![subtotalservicos])

Na fonte de controle do Campo SubProduto:

Código:

=SeImed(ÉNulo([subfrm_venda_produto].[Formulário]![subtotalprodutos]);0;[subfrm_venda_produto].[Formulário]![subtotalprodutos])

Na fonte de controle do Campo Desconto:

Código:

=SeImed(Nz([SubProduto]+[SubServico])=0;0;[Desconto])

Na fonte de controle do Campo Valor_total:

Código:

=Nz((([SubProduto]+[SubServico])-[Desconto]);0)

Faça testes e retorne

Abraços

fiz as alterações, funciona tudo beleza, mas quando cria o segundo registro continua com a inscrição "#TIPO" e só efetua o calculo se adicionar algo em desconto, senão permanece com "#TIPO"

Olá..

Tente da seguinte forma:

Na fonte de controle do campo SubServico:

Código:

=SeImed(ÉNulo([Serviços].[Formulário]![subtotalservicos]);0;[Serviços].[Formulário]![subtotalservicos])

Na fonte de controle do Campo SubProduto:

Código:

=SeImed(ÉNulo([subfrm_venda_produto].[Formulário]![subtotalprodutos]);0;[subfrm_venda_produto].[Formulário]![subtotalprodutos])

O controle do Campo Desconto deixe como desacoplado.

No código do Botão da nova Comanda:

Abaixo desta linha lá no final:
Cod_comanda = DMax("Cod_comanda", "tbl_comanda") + 1

Acrescente:
Me.Desconto = 0

Ficando assim:

Cod_comanda = DMax("Cod_comanda", "tbl_comanda") + 1
Me.Desconto = 0


Aguardamos retorno

Abraços

Boa Celso,

funcionou perfeitamente, e consigo enxergar onde estava o problema, ele calculava o desconto e não reconhecia quando nulo, por isso aparecia o #Tipo. estou correto ?

resolvido

Olá..

patrickdanielli1 escreveu:

funcionou perfeitamente, e consigo enxergar onde estava o problema, ele calculava o desconto e não reconhecia quando nulo, por isso aparecia o #Tipo. estou correto ?:

É exatamente isso.

Ficamos felizes por ter ajudado e obrigado pelo retorno. O fórum agradece.

Abraços e sucesso