[Resolvido]Cx. de Combinação - Form

boas,
tenho o seguinte codigo no form :

Private Sub Caixa_de_combinação49_AfterUpdate()
Funcionario = DLookup("Funcionario", "Ddos", "Código=" & Me.Caixa_de_combinação49)
Endereço = DLookup("Endereço", "Ddos", "Código=" & Me.Caixa_de_combinação49)
Telefone = DLookup("Telefone", "Ddos", "Código=" & Me.Caixa_de_combinação49)
End Sub

E esta alteração do numero é feita onde?
para que serve a caixa de combinacao acima...

explique com mais clareza de detalhes

Saudações

boas,
bem... ca vai... a caixa de combinação serve para consultar dados... ex/ Ficha de Clientes e aqui chama/pesquisa toda a ficha de Cliente se porventura pretendia-mos saber o Número de Telefone do mesmo Etc Etc...

Em relação a alteração do Número, é assim imagine-mos que a bd tem 5 Clientes, 1, 2, 3, 4, 5, e se nos chamar-mos/pesquisar-mos o Cliente 5 e se mexemos por exemplo e sem querer no N.º de Telefone este altera o Numero de Telefone e nome do Cliente 1...

Obrigado

Bem amigo... fica dificil respoder se ver os códigos ou como estão seus relacionamentos..

Se puder poste parte do BD aqui, para que possamos ajudá-lo

Saudações

all right vou colocar a parte do teste que estava a fazer...
Obrigado

Ele ai... o teste antes de finalizar na bd Oficial.
Obrigado

http://dl.dropbox.com/u/37350411/ACX.rar

ui... errei... e este o link correcto ! Desculpe

http://dl.dropbox.com/u/37350411/CxCombinacao.rar

boas,
harysohn conseguiu descarregar ?
Falou em relacionamentos, mas eu não existe neste teste relacionamentos, vai buscar directamente a tabela ?!!?
Obrigado

Bom dia Marcos.. Observei o teu exemplo... os códigos que está utilizando no evento após atualizar da cbo não serve neste caso para a busca do cliente... veja porque:

Ao abrir o form..ele abre no primeiro registro, pois bem:

acontece que o dlookup apenas pega os valores contidos na cbo e os lança por sobre os registros do primeiro cliente.. observe que se ativa os botões de navegação de registro no form e navegar através deles para os registros.. isso acontecerá em qualquer registro.. ou seja, gravará por sobre o registro...

Ele está gravando sobre o primeiro porque o form ja abre no primeiro registro...
O Dlookup neste caso serve para ao clicar em novo registro, adicionar registro contido na cbo em um novo registro, geralmente se utiliza em um form de Vendas... onde vais relacionar a venda com o cliente ja contido na tabela cliente..


O código para buscar um registro que coincida com o controle (Cbo) é este:

Private Sub CboFunc_AfterUpdate()
' Localizar o registo que corresponde ao controle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Código] = " & Str(Nz(Me![CboFunc], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Observe que renommei sua combo, sempre coloque nomes sintetizados para os teus controles e campos, evite a sugestão automática do Access, acentos e espaços entre nomes, tanto em campos nas tabelas bem como em controles no form. Isto evita problemas futuros. Evite tambem a utilização de palavras reservadas do Acess como Valor, total, nome etc...

http://dl.dropbox.com/u/26441349/MarcosSousa_10_08_11.rar

Saudações

O simples;

http://dl.dropbox.com/u/771097/bd2_OLD.rar

all right...
se eu acrescentar mais algum campo tipo Fax, Email... Etc aparece ?
( bem posso experimentar )
Obrigado

Claro que sim amigão tanto no Código do Meste JP como o enviado por mim.. ele apenas filtra o registro...

Exibirá quantos campos tiver em sua tabela... sem precisar modificar mais nada no código.. Basta inserir os campos na tabela e os mesmos no form

Saudáções e bom trabalho