[Resolvido]Meu FrmPedido não puxa minha tabela de preços

Olá Professores;
Tenho consulta pronta para 1 FrmPedido e para 2 FrmDetalhePedido eu acho assim melhor para montar os formulários.
Tentei,tentei,tentei mas não consegui puxar no meu FrmDetalhePedido minha tabela.Explico melhor trabalho com três tabelas:
Classificacao_O Tabela de Preço
Classificacao_P Tabela de Preço
Classificacao_F Tabela de Preço
Estou enviando para análise com pedido de ajuda por favor pois eu tenho pouca experiencia

Saudações

Sueli

Boa Tarde Sueli, De uma olhada se esta correto.

Professor;
Nada aconteceu esta do mesmo jeito que foi

Sueli

Olá amigos Mestres
Nada acontece quando cllique no assistente de pesquisa para puxar o Nome do produto ficaria assim :

CodigoProduto Combinação para puxar o nome do produto
Referencia
PreçoUnitario
Quantidade
Desconto
AB Sub Total:([Quantidade]*[PrecoUnitario]*(1-[Desconto])
Rodapé =NZ(Soma([Total Pedido]))
Agora não esta puxando as tabelas de preço que tenho
Na aba Evendo no campo combinação

Private Sub Form_AfterUpdate()
Dim curClassificacao_O, curClassificacao_P, curClassificacao_F As Currency

Me![NomeProduto] = Me![CodProduto].Column(1)
curClassificacao_O = Me![CodProduto].Column(2)
curClassificacao_P = Me![CodProduto].Column(3)
curClassificacao_F = Me![CodProduto].Column(4)

If Forms!FrmDetalhePedido!CodClassificacao.Column(1) = "O" Then
Me![PrecoUnitario].Value = curClassificacao_O
ElseIf Forms!FrmDetalhePedido!CodClassificacao.Column(1) = "P" Then
Me![PrecoUnitario].Value = curGrupo_P
ElseIf Forms!FrmDetalhePedido!CodClassificacao.Column(1) = "F" Then
Me![PrecoUnitario].Value = curClassificacao_F
End If
End Sub
Algo esta errado ?

Sueli

Corrigindo o código :
Private Sub Form_AfterUpdate()
Dim curClassificacao_O, curClassificacao_P, curClassificacao_F As Currency

Me![NomeProduto] = Me![CodProduto].Column(1)
curClassificacao_O = Me![CodProduto].Column(2)
curClassificacao_P = Me![CodProduto].Column(3)
curClassificacao_F = Me![CodProduto].Column(4)

If Forms!FrmDetalhePedido!CodClassificacao.Column(1) = "O" Then
Me![PrecoUnitario].Value = curClassificacao_O
ElseIf Forms!FrmDetalhePedido!CodClassificacao.Column(1) = "P" Then
Me![PrecoUnitario].Value = curClassificaçao_P
ElseIf Forms!FrmDetalhePedido!CodClassificacao.Column(1) = "F" Then
Me![PrecoUnitario].Value = curClassificacao_F
End If
End Sub

Olá Professores de plantão me ajudem ok. Eu acho que o erro esta em eu não colocar o campo Referencia que quero colocar e no código apos atualizar no evento
Grata
Sueli

Fiz Algumas melhorias mas ainda continua o erro no código quer dizer aparece o código mas o erro é meu o código esta certo pois foi um dos mestres que me enviou,só que na combox caixa de pesquisa quando eu escolho uma das três opções aparece o erro.Fiquei até agora tentando achar,mas não achei o erro. Ja é bem cedo 05:25 da manha. Se tiver algum Professor que possa me ajudar esta ai o Bd porque estou me esforçando mas não tenho muito traquejo ainda.

Sueli Guimaraes

Boas....salve na versão AC2007, por gentileza.