[Resolvido]Colocar o nome da unidade ( lt, un, kg ) ao invés do numero da identificação da unidade IDunidade em formulários

Boa tarde galera,

Seguinte estou com a seguinte duvida como colocar o nome da unidade ( lt, un, kg ) ao invés do numero da identificação da unidade IDunidade nos dois formulários abaixo consulta.

O arquivo do BD é grande por isso estou printando as telas abaixo (anexado) para dar um norte para solução do problema.
Podem me ajudar,

Obrigado
Adilson

poste o codigo do evento "apos atualizar" do campo [produtos]

Private sub produtos.afterupdate()



end sub

Oi tauron, boa tarde, obrigado pelo retorno,

Na verdade não tem esse evento não,
Funciona assim no primeiro formulario: eu seleciono o produto na caixa drop down e clico em visualizar, com isso puxa todos os dados que são exibidos na tela que printei, acontece que ao invés de puxar o nome da unidade (un, lt, kg) ta puxando o IDUnidade ( 1 )

o código é esse que esta anexo

Private Sub btnVisualizar_Click()
Me.txtMaiorPreco = DMax("PrecoUnitarioProduto", "Cs_Produtos")
Me.txtMenorPreco = DMin("PrecoUnitarioProduto", "Cs_Produtos")
Me.txtQuantidadeTotal = DCount("NomeProduto", "Cs_Produtos")
Me.txtMedia = DAvg("PrecoUnitarioProduto", "Cs_Produtos")
Me.txtConsumo = DSum("QuantidadeProduto", "Cs_Produtos")
Me.txtCustoTotal = DSum("[QuantidadeProduto] * [PrecoUnitarioProduto]", "Cs_Produtos")
Me.txtUnidade = DLookup("UnidadeProduto", "Cs_Produtos")
Me.txtCompra = DLookup("IdCompras", "Cs_Produtos")

End Sub



obrigado,

Adilson

Boa Noite....

Private Sub btnVisualizar_Click()
Me.txtMaiorPreco = DMax("PrecoUnitarioProduto", "Cs_Produtos")
Me.txtMenorPreco = DMin("PrecoUnitarioProduto", "Cs_Produtos")
Me.txtQuantidadeTotal = DCount("NomeProduto", "Cs_Produtos")
Me.txtMedia = DAvg("PrecoUnitarioProduto", "Cs_Produtos")
Me.txtConsumo = DSum("QuantidadeProduto", "Cs_Produtos")
Me.txtCustoTotal = DSum("[QuantidadeProduto] * [PrecoUnitarioProduto]", "Cs_Produtos")
Me.txtUnidade = DLookup("UnidadeProduto", "Cs_Produtos")
Me.txtCompra = DLookup("IdCompras", "Cs_Produtos")

End Sub


Na linha que marquei você teria que chamar a unidade cadastrada na tabela de unidades, pois no cadastro do produto, está ficando gravado o código da unidade.

Talvez assim dê certo:
dim varIDUnid as integer
varIDUnid = DLookup("UnidadeProduto", "Cs_Produtos")
Me.txtUnidade = DLookup("Campo de descrição da Unidade", "Tabela de Unidades","[ID=" & varIDUnid )

Oi Jungli, boa noite ( bom dia),

Veja 2 coisas, considerando sua resposta:

1 - "Na linha que marquei você teria que chamar a unidade cadastrada na tabela de unidades, pois no cadastro do produto, está ficando gravado o código da unidade", nesse caso, usando relacionamentos apenas não teria como trazer o nome da unidade ao invés do código ?  Como seria ?

2 - Incluindo a linha que voce sugeri, dá erro de compilação conforme anexo, fiquei na duvida do que seria o ID que voce inseriu, veja a tela que anexei, por favor,

A varIDUnid está puxando corretamente o código (1), mas na ultima linha é que aparece o erro;

obrigado,

Adilson

Agora fiquei confuso.

Na tabela o campo de unidade, se chama "Unidade" ou "UnidadeProduto"? Atente para informar o nome correto

Na linha de comando disponibilizada pelo Jungli, me parece ter um colchete a mais ou a menos (penso ser a mais).

Ola, bom dia

Veja, anexei a relação entre as tabelas esta correto tabelaUnidade o campo é unidade ; tabelaProduto o campo é unidadeproduto; nao estou entendendo e o codigo que o Jungli escreveu;

Observe que a tabela Produtos busca a unidade ( e categoria ) das tabelas unidade e categoria e nao é inserido diretamente na tabela detalhe das compras a unidade e categoria;

obrigado,

Adilson

Bom dia, Tente assim,
A noite passo uma explicação melhor,


dim varIDUnid as integer
varIDUnid = DLookup("UnidadeProduto", "Cs_Produtos")
Me.txtUnidade = DLookup("Unidade", "Tbl_Unidades","[IdUnidades]=" & varIDUnid )

Ou

dim varIDUnid as integer
varIDUnid = DLookup("UnidadeProduto", "Cs_Produtos")
Me.txtUnidade = DLookup("DescricaoUnidade", "Tbl_Unidades","[IdUnidades]=" & varIDUnid )

Boa noite Jungli,

Vou aproveitar o tópico, pois é o mesmo assunto (setar nome de unidades e não ID), e gostaria que me ajudasse na mesma situação do formulário de pesquisa (ABAIXO ). Ele não apresenta o nome das unidades ( lt, un, kg), inclusive categoriaProduto, e sim o código das unidades (1,4,2) e categoria Produto, o que estou errando !

Pode me ajudar ?

Por fim se tiver um passo a passo ou explicação para solução que me passou (e se tem alguma sugestao para melhorar esse formulário ), fico muito grato por isso.

Obrigado
Adilson

Adilson, vamos pela logica, se o problema eh semelhante, tente o adaptar o codigo que resolveu no outro formulario.

oi tauron, bom dia, obrigado pelo retorno,

Pois é, nao abri outro topico devido a semelhança, talvez tenha escrevindo de uma forma que possa parecer que a solução anterior atende, isso sem ver os anexos, pois estao mais detalhados a duvida.

O cenario muda completamente, a solução do Jungli nao atende na solução do problema, e minha intenção e evitar utilizar codigo VBA no Access e sim os recursos mais basicos da ferramenta,

Se puder ver os anexos fica mais claro a duvida, ou se achar melhor posso encerrar o topico abrindo outro ( que era minha intenção antes de complementar essa duvida ),

Adilson

Bom dia Adilson,

Neste caso você somente está esquecendo de inserir os campos referentes às tabelas especificas de Unidades e categorias.

Veja como ficaria sua consulta:

Oi Jungli, obrigado pelo retorno,

Mas acho que não é isso ,

Veja nas telas que capturei fiz a observação sobre a tabela produtos ( para puxar nome da unidade e categoria ) utilizei o recurso de assistente de consulta, ao levar para essa consulta carregando as tabelas unidade e categoria (como voce orienta) dá bode e nao filtra nada (vou postar isso que fez no meu BD e o resultado)

Anexei novas telas exibindo sobre suas correções.


" Lembrando como eu fiz a consulta (pesquisa) na tabela produto ( caixa de combinação) para puxar unidade e categoria dos produtos."


Adilson

Boa tarde Adilson,

Precisaria ver o que fizeste no seu banco de dados para entender melhor, acredito que tenha alguma coisa em desacordo nos seus relacionamentos, teria como você enviar uma cópia para analisarmos?

abs.

Oi Jungli, obrigado pelo retorno,

Compactei e vou upar o arquivo do banco (reduzido). Tava muito grande tive que excluir varios dados mas a estrutura esta ok.


Adilson

Oi, Boa noite.

Adilson dê uma conferida nos tipos de dados em que você está tentando fazer ligações, se você criar um campo IdCategorias (Autonumeração) na tabela CATEGORIAS e quiser liga-lo ao campo IdDaCategoria uma tabela de PRODUTOS este campo terá que receber o mesmo tipo de dados, no caso de Autonumeração na tabela CATEGORIAS, teria que ser  Inteiro Longo na tabela PRODUTOS.

Recomendo antes de mais nada, rever todas as suas tabelas para que não tenhas dor de cabeça futuramente.

seguem as telas de produtos e consulta de produtos remediadas.

Somente alterei o tipo de dados dos campos UnidadeProduto e CategoriaProduto na tabela tbl_Produtos para Inteiro longo, estavam no formato texto.

E fiz o ligamento de lhe passei anteriormente nas consultas ultilizadas nos formulários.

abs.

Oi Jungli,

Cara obrigado pela consultoria ,

vou seguir suas orientações que foram bastantes claras.

Outro problema que citei foi utilizar a consulta (pesquisa) na tabela produto ( caixa de combinação) para puxar unidade e categoria dos produtos, que é um recurso do Access mas que tava trolando as outras relações e consultas, penso que tem recurso no access que é só perfumaria e nao funciona ou pode funcionar em outras situações (deveria nao ter utilizado esse recurso mas fui insistir devido as aulas que vi pelo youtube ).

muito agradecido mesmo, valeu

encerrado o topico !

Adilson