[Resolvido]cadastrar valores diferentes em varias tabelas

Olá.
Tenha valores em caixa de textos diferentes e quero cadastrar esses valores em tabelas diferentes também.

O Update que estou fazendo na tabela está correto porque testei somente eles, mas mesmo assim nao estou conseguindo fazer o update. Alguem poderia me ajudar. Segue meu código abaixo!

Obrigado desde já!

Function GravadadosMeta() As Boolean

Dim dbs As DAO.Database
Dim rst1 As DAO.Recordset
Set dbs = CurrentDb

ReclaMetas = Form_F_CadMetas.txt_Recla_Metas.Value
FPYMetas = Form_F_CadMetas.txt_FPY_Metas.Value
ProducaoMetas = Form_F_CadMetas.txt_Prod_Metas.Value
ProdutividadeMetas = Form_F_CadMetas.txt_Prodtv_Metas.Value
AderenciaMetas = Form_F_CadMetas.txt_Ader_Metas.Value
NUMetas = Form_F_CadMetas.txt_NU_Metas.Value
WIPMaxMetas = Form_F_CadMetas.txt_WIPMax_Metas.Value
WIPMinMetas = Form_F_CadMetas.txt_WIPMin_Metas.Value

Call Set_Global_ID

On Error Resume Next
' Deleta querys antigas se existir
With CurrentDb

DoCmd.DeleteObject acQuery, "Recla - " & ID_Global
DoCmd.DeleteObject acQuery, "FPY - " & ID_Global
DoCmd.DeleteObject acQuery, "Prod - " & ID_Global
DoCmd.DeleteObject acQuery, "Prodtv - " & ID_Global
DoCmd.DeleteObject acQuery, "NU - " & ID_Global
DoCmd.DeleteObject acQuery, "Aderencia - " & ID_Global
DoCmd.DeleteObject acQuery, "WIP - " & ID_Global

End With
On Error GoTo 0

If MsgBox("Deseja realmente gravar novas Metas?", vbYesNo, "Atenção - Gravar") = vbYes Then

'----------------------------------Reclamação Qualidade---------------------------------------
Query1 = "UPDATE T001_Recla_qualidade SET T001_Recla_qualidade.T001_Max = " & ReclaMetas & "" _
& " WHERE (((T001_Recla_qualidade.T001_ID_Pentagono)=" & Processo_Global & ") AND ((T001_Recla_qualidade.T001_Produto)=" & Produto_Global & ") AND ((Month([T001_Data]))=" & Mes & ") AND ((Year([T001_Data]))=" & Ano & "));"

Set qdf01 = dbs.CreateQueryDef("Recla - " & ID_Global, Query1)
'-----------------------------------------FPY-------------------------------------------------
Query2 = "UPDATE T003_FPY_GA SET T003_FPY_GA.T003_Percent_Meta = " & FPYMetas & "" _
& " WHERE (((T003_FPY_GA.T003_ID_Pentagono)=" & Processo_Global & ") AND ((T003_FPY_GA.T003_Produto)=" & Produto_Global & ") AND ((Month([T003_Data]))=" & Mes & ") AND ((Year([T003_Data]))=" & Ano & "));"

Set qdf02 = dbs.CreateQueryDef("FPY - " & ID_Global, Query2)
'---------------------------------------Produção----------------------------------------------
Query3 = "UPDATE T002_Producao_diaria SET T002_Producao_diaria.T002_Meta_dia = " & ProducaoMetas & "" _
& " WHERE (((T002_Producao_diaria.T002_ID_Pentagono)=" & Processo_Global & ") AND ((T002_Producao_diaria.T002_Produto)=" & Produto_Global & ") AND ((Month([T002_Data]))=" & Mes & ") AND ((Year([T002_Data]))=" & Ano & "));"

Set qdf03 = dbs.CreateQueryDef("Prod - " & ID_Global, Query3)
'-------------------------------------Produtividade-------------------------------------------
Query4 = "UPDATE T004_Produtividade SET T004_Produtividade.T004_Produt_Meta = " & ProdutividadeMetas & "" _
& " WHERE (((T004_Produtividade.T004_ID_Pentagono)=" & Processo_Global & ") AND ((T004_Produtividade.T004_Produto)=" & Produto_Global & ") AND ((Month([T004_Data]))=" & Mes & ") AND ((Year([T004_Data]))=" & Ano & "));"

Set qdf04 = dbs.CreateQueryDef("Prodtv - " & ID_Global, Query4)
'------------------------------------------NU-------------------------------------------------
Query5 = "UPDATE T006_NU SET T006_NU.T006_Meta = " & NUMetas & "" _
& " WHERE (((T006_NU.T006_ID_Pentagono)=" & Processo_Global & ") AND ((T006_NU.T006_Produto)=" & Produto_Global & ") AND ((Month([T006_Data]))=" & Mes & ") AND ((Year([T006_Data]))=" & Ano & "));"
Set qdf05 = dbs.CreateQueryDef("NU - " & ID_Global, Query5)
'---------------------------------------Aderência---------------------------------------------
Query6 = "UPDATE T005_Aderencia SET T005_Aderencia.T005_Ader_Meta = " & AderenciaMetas & "" _
& " WHERE (((T005_Aderencia.T005_ID_Pentagono)=" & Processo_Global & ") AND ((T005_Aderencia.T005_Produto)=" & Produto_Global & ") AND ((Month([T005_Data]))=" & Mes & ") AND ((Year([T005_Data]))=" & Ano & "));"

Set qdf06 = dbs.CreateQueryDef("Aderencia - " & ID_Global, Query6)
'------------------------------------------WIP------------------------------------------------
Query7 = "UPDATE T008_WIP SET T008_WIP.T008_Meta_Max = " & WIPMaxMetas & ", T008_WIP.T008_Meta_Min = " & WIPMinMetas & "" _
& " WHERE (((T008_WIP.T008_ID_Pentagono)=" & Processo_Global & ") AND ((T008_WIP.T008_Produto)=" & Produto_Global & ") AND ((Month([T008_Data]))=" & Mes & ") AND ((Year([T008_Data]))=" & Ano & "));"

Set qdf07 = dbs.CreateQueryDef("WIP - " & ID_Global, Query7)


End If
End Function

As consultas foram criadas, parece que está faltando executá-las.

Inclua antes do End If :

Código:

DoCmd.OpenQuery ("Recla - " & ID_Global)
DoCmd.OpenQuery ("FPY - " & ID_Global)
DoCmd.OpenQuery ("Prod - " & ID_Global)
DoCmd.OpenQuery ("Prodtv - " & ID_Global)
DoCmd.OpenQuery ("NU - " & ID_Global)
DoCmd.OpenQuery ("Aderencia - " & ID_Global)
DoCmd.OpenQuery ("WIP - " & ID_Global)

Coloquei conforme me informou. Deu um erro em tempo de execução 3075 na linha.

Set qdf01 = dbs.CreateQueryDef("Recla - " & ID_Global, Query1).

Não consegui resolver o problema!

Repare que essa linha faz referência a uma variável chamada ID_Global, que provavelmente está sendo atribuído valor a ela na linha Call Set_Global_ID, porém essa sub-rotina não está visível no código que vc postou.

Vc saberia verificar o conteúdo dessa variável no ponto onde está ocorrendo o erro?

Claudio encontrei o meu erro...hahahha

Mas explicando esse ID_Global é uma função em que pego o ID do usuário e utilizo ele para diferenciar a construção das minhas consultas!
O meu erro é que não estava repassando os meu valores de mes e ano que estava na minha consulta. Ela estava perdida!

Agora está funcionando tudo corretamente! Valeu. Obrigado

De nada, valeu