[Resolvido]Caixa de combinação que alimente uma tabela

Ola pessoal sera que alguem pode me ajudar?

Eu tenho um formulario que alimenta uma tabela pagamentos.
eu fiz uma caixa de combinação nesse formulario que quando eu escolho o nome, automaticamente ja insere os demais campos: endereço, telefone, CPF, etc. os dados são pusados de uma tabela fornecedor.

meu problema:
eu nao consigo como fazer esses campos automáticos alimentar a tabela (pagamentos, os dados nao vão para a tabela, fica so no formulario.

podem me ajudar?
Saguio

Boa tarde, saguio
Pelo princípio da bd relacional, deve registar número identificativo único em vez de nome (que pode repetir). Os dadosde cliente/fornecedor/funcionário/... devem apenas constar numa tabela. Esses dados são acedidos através do relacionamento das tabelas em vez de serem registados em cada uma das tabelas envolvidas

Poste um modelo do BD para que possamos ver...

Cumprimentos.

Caro PILOTO, seria demais lhe pedir que fizesse nesse exeplo anexo e me mandasse no email: saguio13@gmail.com ????

por favor, eu nao to conseguindo


saguio

Na caixa texto NomeDespesa, apague a expresão contida na mesma, acople ela ao campo da tabela, e em eventos após atualizar da combo:

Private Sub codDespesa_AfterUpdate()
Me.nomeDespesas = codDespesa.Column(1)
End Sub


Cumprimentos.

Caro PILOTO, seria demais lhe pedir que fizesse nesse exeplo anexo e me mandasse no email: saguio13@gmail.com ????

por favor, eu nao to conseguindo

Eis:

Caro piloto,
nao ta funcionando ainda, veja:
no formulario quando eu escolher o coodDesp, na COMBO, preciso que o o nome da despesa apareça automaticamente na caixa de texto (nome da despesa)e que ao atualizar os dados da caixa de texto (nome da despesa) seja inserido na tabela (pagamento)

isso nao ta havendo, continuo necessitando da ajuda, po rever? por favor?

Amigão Saguio Moreira bom dia, você não estudou a lição passada pelo Harry;

Veja como funciona, no evento VBA depois de atualizar na combo codDespesa;

Private Sub codDespesa_AfterUpdate()
    Me.nomeDespesas.Value = Me.codDespesa.Column(1)
    Me.nomeDespesas.Requery
End Sub

Meu amigo J Paulo, nao to conseguindo me fazer entender, a COMBO continua a nao fazer o que eu quero, talvez nao seja possivel.

A COMBO, quando acionada tem tem duas colunas: (CoodeDespesas) e (Nome da Despesa),

a) no formulario, percidso que ao escolher apareca nas caixa de texto (coodeDespesa e Nome da despesa)ta parecendo apenas (Coodedespesa)

b) preciso que essas informaçoes sejam levadas para a tabela "pagamento" nos respectivos campos, ta indo apenas o (coodeDespesa)

é isso, sserá possivel?

rsssr

Esta colocando sim, só que após atualizar a combo se você não salvar ou clicar nas setas de navegação ainda não será atualizado na tabela.
coloque no código da seguinte maneira

Private Sub codDespesa_AfterUpdate()
    Me.nomeDespesas.Value = Me.codDespesa.Column(1)
    Me.nomeDespesas.Requery
    DoCmd.RunCommand AcCmdSaveRecord
End Sub

Cumprimentos.

Veja se assim, resolve seu problema:

Private Sub codDespesa_AfterUpdate()
Me.nomeDespesas.Value = Me.codDespesa.Column(1)
Me.Código.Value = Me.codDespesa.Column(0)
Me.nomeDespesas.Requery

End Sub

Pessoal, nao deu certo, a ultima versão postada o formulario ate funciona, ta atualizando, mas se eu escolher um novo registro e digitar novo valor em (VALOR), ele ja nao atualiza mais.


quanto a levar os dados para a tabela PAGAMENTO, a combo so leva o condigo de despesa. (CooDespesa).

quando escolho novo registro, a tabela abre um novo registro, mais nao recebe as informaçoes da caixa de texto (nome da despesa)automaticamente.
complicado ne?

Não há nenhuma complicação.. todos os exemplos postados aqui.. estão a funcionar perfeitamente...

Sinceramente eu não sei qual a tua dúvida.

Cumprimentos.

Piloto,
Quando eu escolho uma opção na caixa de combinação ela nao alimenta a tabela pagamento. so vai para a tabela as informaçoes da caixa de combinação que á o (CooDespea), a informação da Caixa de texto (Nome da Despesa) nao vai para tabela pagamento.
pode fazer o texte ai que nao ta alimentando a tabela, so alimenta com o (coodespesa.

va para novo registro, prencha o formulario, atualiza e depois veja na tabela.

saguio

Fiz o teste novamente aqui e deu tudo certinho, não encontrei erro.

Galera que contribuiram, muito obrigado, vou continuar tentando ate ver o que da errado aqui no meu PC, pois aqui a combo nao alimentou a tabela, mais valeu, dou como resolvido pois aprendir o caminho de como se faz, a pesar de que nao funcionaou ainda.

grato
saguio

Bem.. Aqui funciona tambem..

O Fórum agradece o Retorno.