Como salvar dados em um formulário access 2007

Criei um formulário de Compras no Accesss 2007, com Windows7, utilizando uma tabela de compras e uma de fornecedores.
No preenchimento das informações no formulário compras, alguns eu preencho no momento através do teclado, e outros como dados do fornecedor, aproveito seus dados da tabela fornecedor.
No Nome do fornecedor, estou usando uma caixa de combinação com os dados da tabela fornecedor, e com nome de CbmNomeEmpresa e na linha de origem, SELECT
TAB_FORNECEDOR.FornecedorCódigo,
TAB_FORNECEDOR.FornecedorNome,
TAB_FORNECEDOR.FornecedorCnpj,
TAB_FORNECEDOR.FornecedorInscriçãoEstadual,
TAB_FORNECEDOR.FornecedorCep,
TAB_FORNECEDOR.FornecedorEstado,
TAB_FORNECEDOR.FornecedorEndereço,
TAB_FORNECEDOR.FornecedorBairro,
TAB_FORNECEDOR.FornecedorCidade,
TAB_FORNECEDOR.FornecedorTelefone, e o
restante uma caixa de texto com os dados, TxtCnpj, TxtEndereço, etc.
na fonte de controle: usando a seguinte expressão =[CbmNomeEmpresa].[Column](0),..(1)....etc.
Mas quando peço para salvar os dados preenchidos, só salva os que digitei, os dados da caixa de combinação, não salvam.
Alguém pode me ajudar?

Quando você utiliza expressões na origem do campo, o vínculo com o campo da tabela é quebrado, deixando o campo do formulário como um campo desvinculado. Utilize VBA para preencher os campos:

Me.NomeDoCampo = Me.NomeDaCombo.Column(?)

Pode ser no evento "Após atualizar" da combo.

NÃO DEU CERTO, NÃO SEI O QUE FIZ DE ERRADO
ESTOU TENTANDO TE MANDAR O MODELO PARA VOCÊ DAR UMA OLHADA
MAS NÃO ESTOU CONSEGUINDO

Compacte em zip. E edite a última mensagem para atender ao item 12 desse tópico.

Desculpe.
Segue o modelo
Obrigado

Você precisa tirar as expressões da origem do campo e revinculá-los aos respectivos campos da tabela. Um campo com alguma coisa na origem dele não aceita imputar valor via VBA.

Não deu certo.
Não sei o que fiz de errado.
Como sou novo nisto, devo estar comotendo algum erro.

Não tem mistério, é só revincular os campos aos devidos campos da tabela e colocar a dica já passada anteriormente no evento "Após atualizar" da combo:

Me.NomeCampo1 = Me.NomeDaCombo.Column(0)
Me.NomeCampo2 = Me.NomeDaCombo.Column(1)
Me.NomeCampo3 = Me.NomeDaCombo.Column(2)
...

Claro que observando os números das colunas para popular os campos certos.