[Resolvido]Duvida função dlookup

Boa tarde!
Estou usando Dlookup para trazer um dado no forumario como segue abaixo.
Porem esta retornando o "codigo de cadastro e não o turno da respectiva linha cadastrada"

Desejo este exemplo abaixo.
Tab_Cad_Linha:
Campos: LinhaCadastrada Entrada/Saida Turno(Fonte de pesquisa)
1 Entrada Adm
Esta retornando: 1 Entrada 2
Estou usando:

Private Sub LinhaCadastrada_AfterUpdate() 'apos atualizar trazer dados respectivos a este
If LinhaCadastrada.Value > 0 Then

Me.Texto3 = DLookup("[Entr/said]", "Tab_Cad_Linha", "[Cód_Cadastro_Linha]=" & LinhaCadastrada.Value)
'Ao digitar a linha no campo "LinhaCadastrada" traz se é ENTRADA OU SAIDA

Me.Texto5 = DLookup("[Turno]", "Tab_Cad_Linha", "[Cód_Cadastro_Linha]=" & LinhaCadastrada.Value)
'Ao digitar linha no campo "LinhaCadastrada" traz se é ADMINISTRATIVO OU ROTATIVO

Esta retornando o codigo de cadastro do turno pois este É PREENCHIDO NA TABELA "Tab_Cad_Linha" por fonte de pesquisa
End If

Talvez devo colocar alguma coisa neste local do tipo mas emite erro...é claro..
Me.Texto5 = DLookup("[Turno]", "Tab_Cad_Linha", "[Cód_Cadastro_Linha.turno]=" & LinhaCadastrada.Value)


Desde já agradeço atenção...
ORIVAL JUNIOR

Ola Amigo tudo bem?

bom tente usar assim:

Me.Texto3 = DLookup("[Entr/said]", "Tab_Cad_Linha", "[Cód_Cadastro_Linha]=" & LinhaCadastrada & "")

mas veja o seguinte, o módulo irá buscar o valor contido dentro de [Entr/said] na sua Tabela Tab_Cad_Linha, verifique se o valor que vc quer esta neste campo da tabela, caso contrário mude o nome do campo no módulo.

Boa Tarde Colega:

Esta é a sala própria para colocara as suas dúvidas. A sala anterior destina-se a exemplos. Obrigado.

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

Boa tarde!
Ao verificar diretamente na Tabela Tab_Cad_Linha o valor esta lá, corretamente....

Mas ainda o modulo ainda continua trazendo o Codigo ao invês do texto...

Quando eu seleciono a linha: ( Por exemplo 01)
Esta me trazendo corretamente se é entrada ou saída.. Mas o TURNO ainda esta retornando o codigo e não o texto... que esta na tabela_Cad_Linha...

tem outra sugestão?

Orival_Junior

Amigo me mande o seu BD para eu dar uma olhada.

Ola boa tarde!

Anexei o Bd no link abaixo...
Caso ocorra algum problema como o Bd é pequeno posso enviar por email...
orivaljunior@terra.com.br

Obrigado..


http://www.4shared.com/file/_1--skzx/PLANEJAMENTO_TRANSPORTE.html

Reabrindo o topico..

amigo vou olhar o se banco hoje por volta de uma 19:30 se estiver conectado manteremos contato...

por enquanto eu vi e esta pegando os valores certinho....

Boa noite amigo,

acredito que seja isso: você estava chamando o Dlookup baseado no campo chave primaria, e creio que o que precisava era chamar pela linha cadastrada, segue abaixo o código modificado:

Me.Texto3 = DLookup("[Entr/said]", "Tab_Cad_Linha", "[Linha]=" & LinhaCadastrada.Value)
Me.Turno = DLookup("[Turno]", "Tab_Cad_Linha", "[Linha]=" & LinhaCadastrada.Value)
Me.Cidade = DLookup("[Cidade]", "Tab_Cad_Linha", "[Linha]=" & LinhaCadastrada.Value & "")


tente substituir essas tres linhas.

aguardo retorno.

Caro Ton0612....
continua chamando o codigo no campo cidade...

Vc tentou colocar este codigo que vc me passou no evento After update no campo Linha cadastrada...para vc deu certo?

orival

Grande ton0612..
Fiz o seguinte...eu estava chamando o campo cidade em uma caixa de texto chamada cidade.....sendo assim deletei essa caixa de texto e adicionei o campo cidade da propria tabela...dai OK.....

o campo cidade funfou...apenas ficou como caixa pesquisa(dropDown).....mas pelo que estou testando aqui...esta tudo OK....

Valeu pelo modulo...

Abraços...
orival_junior

Fiz o seguinte.. entrei no aplicativo e cliquei no botão CADASTRO DE VIAGENS e em seguida preenchi os campos:

Data = 01-11-11, Linha = 87 entao ele completou o campo Entra/Saida = Saida, Turno: Terceiro, coloquei o horario como 00:00 e onibus 2461, ja completou a capacidade como 48 e o restante ficou em Branco e cidade ficou como 2. pois no tipo de Dados esta definido como Numero e pelo que me parece é um campo de pesquisa.... entao eu sugiro que faça o seguinte:


Private Sub LinhaCadastrada_AfterUpdate()
Dim NCidade As String


If LinhaCadastrada.Value > 0 Then
Me.Texto3 = DLookup("[Entr/said]", "Tab_Cad_Linha", "[Cód_Cadastro_Linha]=" & LinhaCadastrada.Value)
Me.Turno = DLookup("[Turno]", "Tab_Cad_Linha", "[Cód_Cadastro_Linha]=" & LinhaCadastrada.Value)
'Nesta Linha temos o número da Cidade
NCidade = DLookup("[Cidade]", "Tab_Cad_Linha", "[Cód_Cadastro_Linha]=" & LinhaCadastrada & "")
'Nesta definimos o valor por extenso da cidade
Me.Cidade = DLookup("Cidade", "Tab_Cad_Cidade", "[Cód_Cad_Cidade]=" & NCidade & "")
End If
End Sub


Criar uma variavel para buscar este numero na tabela de cadastro de cliente.

tente substituir pelo código acima... mas de uma olhada, pois acho que o certo seria assim:


Private Sub LinhaCadastrada_AfterUpdate()
Dim NCidade As String


If LinhaCadastrada.Value > 0 Then
Me.Texto3 = DLookup("[Entr/said]", "Tab_Cad_Linha", "[Linha]=" & LinhaCadastrada.Value)
Me.Turno = DLookup("[Turno]", "Tab_Cad_Linha", "[Linha]=" & LinhaCadastrada.Value)
'Nesta Linha temos o número da Cidade
NCidade = DLookup("[Cidade]", "Tab_Cad_Linha", "[Linha]=" & LinhaCadastrada & "")
'Nesta definimos o valor por extenso da cidade
Me.Cidade = DLookup("Cidade", "Tab_Cad_Cidade", "[Cód_Cad_Cidade]=" & NCidade & "")
End If
End Sub

Pois pelo que vi pela sua combox ele busca pela LINHA e nao pelo Cadastro dela.

Creio que seja isso.

Perfeito amigo... também é uma solução... mas se nao quiser deixar a combobox, pode criar uma consulta com os campos e fazer buscar o nome da cidade direto nela... Vale a pena tentar.

Muito obrigado pela atenção...
Vou tentar e retorno em breve..

Até logo..
orival junior

Amigo Ton0612..

Apliquei o modulo sugerido por vc...pelo visto ficou como queriamos...tudo OK.

Assim,
Eu digito a Linha - retorna Entrada/Saida....Turno e Cidade. - Horario e preenchido manualmente mesmo..

Digito o onibus - retorna a Capacidade e o motorista...
Digito o nº de ocupacao - os campos Ociosidade e Tx Ocupacao faz o calculo automatico..

Obrigado pela atencao..
grato..
Orival_junior