[Resolvido]Mudar tabela de registro de acordo com a combobox

olah! boa Tarde ,
estou com uma pequena duvida e creio que necessite da ajuda d vcs para saná-lo
tendo em vista que desta vez n tenhu nem ideia de como realizar tal proeza.
vamos lah!

Tenho um form que se chama pedido_de_compra, composto do form principal (pedido_de_compra) e de um subform (sub_pedido_de_compra). no form principal tenhu uma combobox q me dah o status (autorizado/não_autorizado) e no subform eu tenho o valor dos itens que qro comprar.

gostaria que ao mudar o status para autorizado este salvasse o registro em uma tabela de nome contas_a_pagar.
simples assim ^^ mas dificil p mim
teria como ajudar?

obg

Talvez fosse mais simples ter uma tabela só para contas, na qual teria um campo para definir se é à pagar ou à receber. Pelos vistos, já que quer mudar a tabela, os campos de ambas são os mesmos, certo?

Na verdade não rsrs iria adaptar
mas a ideia eh a seguinte...

no form contas_a_pagar registro todas as pendencias da empresa, todos os pedidos de compra estão nela mas também tenho pendencias como luz, gas, telefone, impostos, financiamentos entre outros.
o form pedido_de_compra uso somente para caso necessite pedir aprovação de um determinado produto
mas caso autorizado tenhu de gerar um ndocumento e inseri-lo no form de contas_a_pagar. gostaria de pular esta etapa, economizar papel é uma atitude que tem o selo Jesus aprova
eh isso rsrs
se pudesse atraves de uma combobox ou um botão criar um registro na tabela de contas_a_pagar...
se n obg pela atenção =D

Como é a estrutura do aplicativo? Você tem subformulários ligados à essas duas tabelas ou os campos estão todos em um único formulário? Há campos que podem ser usados para as duas tabelas ou cada campo pode ser usado para uma única tabela entre as duas? Os campos são vinculados à uma tabela?

nuss q monte de perguntas mas vamos lah
as duas tem não tem relação
na tabela pedido_de_compra tenhu um form e 1 subform (form e subform com os campos de origem em tabelas diferentes)
na tabela contas_a_pagar tenhu um form e 2 subforms (form e subform's com os campos com origem em tabelas diferentes)

Sinceramente, não entendi o que precisas. Pelo que falou, cada tabela tem seus forms ou subforms vinculados, então não vejo aonde entraria a combo mudando a tabela de destino.

hmm deixa eu te explicar =/

tenhu uma tabela pedido_de_compras
ela tem uma caixa de combinação no form principal se me diz se estah autorizado ou não

gostaria de ao mudar o status na combobox do form principal pedido_de_compras de não autorizado para autorizado a mesma possa criar um registro em uma tabela Contas_a_pagar para me evitar de ter de gerar trabalho ao ter de incluir manualmente o registro no form da tabela contas a Pagar contas_a_pagar.
Imagem 1

em cima estah o status do pedido

E esse registro seria gerado incluindo dados dos campos do formulário na tabela? Se for, pode tentar algo assim no evento "Após atualizar" da combo:

Código:

If Me.NomeDaCombo.Value = "AUTORIZADO" Then
    CurrentDb.Execute "INSERT INTO NomeDaTabela(Campo1DaTabela, Campo2DaTabela, Campo3DaTabela) VALUES('" & Me.Campo1DoForm & "', '" & Me.Campo2DoForm & "', '" & Me.Campo3DoForm & "')"
Else
End If

funcionou bem ateh certo ponto

obg sr criquio e desculpe pela minha ignorancia

e se o campo estiver num subform? como faço?
jah tentei inumeras combinações com o codigo q o sr me deu mas dah erro

obg

Tentou assim?

Forms!NomeFormPrincipal!NomeSuborm.Form!NomeDoCampo

perfeito ^^
te amo sr. criquio

no final ficou assim

Private Sub Combinação111_AfterUpdate()
If Me.Combinação111.Value = "AUTORIZADO" Then
CurrentDb.Execute "INSERT INTO Contas_a_pagar(Num_doc, Fornecedor, Descricao_da_despesa, Num_verba_orcam) VALUES('" & Me.documento & "', '" & Me.Combinação165 & "', '" & Me.Aplicaçao & "', '" & Forms!pedido_compra1!sub_pedido_compra.Form!combinação24 & "')"
Call MsgBox("Incluido em Contas a Pagar!")
Else
End If
End Sub


obg foi muita ajuda
ainda faltam n campos mas obg por ter ajudado tanto

Ótimo, o fórum agradece pelo retorno. Creio então que possa passar esse tópico a Resolvido, não?

oui

obg 100% resolvido

Sempre que resolver um tópico, pode clicar no botão Resolvido que fica logo acima e à direita do botão Enviar ali embaixo. Dessa vez eu mesmo clico.

ah eh
procurei muito esse botão
nunca tinha visto me perdoe =X