Bom dia, amigos.
Venho pela segunda vez pedir ajuda, agradecendo primeiramente a rápida ajuda que obtive a primeira vez que precisei.
Bom é o seguinte, resumindo
Tenho a Tabela Tbl_SomaCapacitacao com os campos Codigo, Matricula e Pontos
Tenho a Consulta Cs_SomaCapacitacao com os campos Matricula e Pontos
Essa consulta soma os pontos de uma outra tabela que tenho chamada Tbl_Capacitacao que tem os campos Código, Matricula, Nome, Curso e Pontos, essa tabela pode receber vários registros de uma mesma matricula, por isso a consulta somandos os pontos.
Quero fazer algo mais profundo, que fará o mesmo que o teste que pretendo fazer primeiro.
O teste é o seguinte, Preciso fazer um update na tabela Tbl_SomaCapacitacao no campo Pontos, recebendo os valores do campo Pontos da Consulta Cs_SomaCapacitacao mas como são vários registros, preciso que esse update aconteça quando o Campo Matricula da tabela Tbl_SomaCapacitacao seja o mesmo do campo Matricula da consulta Cs_SomaCapacitacao...
Fiz da seguinte forma:
Dim dbs As Database
Private Sub Form_Load()
Set dbs = OpenDatabase("C:\Users\usuario\Desktop\sistema rh\Sistema de Recursos Humanos.accdb")
dbs.Execute "UPDATE Tbl_SomaCapacitacao SET Tbl_SomaCapacitacao.Pontos = Cs_SomaCapacitacao.Pontos WHERE Tbl_SomaCapacitacao.Matricula = Cs_SomaCapacitacao.Matricula;"
dbs.Close
End Sub
Mas não tá funcionando, Está dando o erro em tempo de execução '3061': Parâmetros Insuficientes, Eram esperados 2.
Podem me ajudar?
Grato
Venho pela segunda vez pedir ajuda, agradecendo primeiramente a rápida ajuda que obtive a primeira vez que precisei.
Bom é o seguinte, resumindo
Tenho a Tabela Tbl_SomaCapacitacao com os campos Codigo, Matricula e Pontos
Tenho a Consulta Cs_SomaCapacitacao com os campos Matricula e Pontos
Essa consulta soma os pontos de uma outra tabela que tenho chamada Tbl_Capacitacao que tem os campos Código, Matricula, Nome, Curso e Pontos, essa tabela pode receber vários registros de uma mesma matricula, por isso a consulta somandos os pontos.
Quero fazer algo mais profundo, que fará o mesmo que o teste que pretendo fazer primeiro.
O teste é o seguinte, Preciso fazer um update na tabela Tbl_SomaCapacitacao no campo Pontos, recebendo os valores do campo Pontos da Consulta Cs_SomaCapacitacao mas como são vários registros, preciso que esse update aconteça quando o Campo Matricula da tabela Tbl_SomaCapacitacao seja o mesmo do campo Matricula da consulta Cs_SomaCapacitacao...
Fiz da seguinte forma:
Dim dbs As Database
Private Sub Form_Load()
Set dbs = OpenDatabase("C:\Users\usuario\Desktop\sistema rh\Sistema de Recursos Humanos.accdb")
dbs.Execute "UPDATE Tbl_SomaCapacitacao SET Tbl_SomaCapacitacao.Pontos = Cs_SomaCapacitacao.Pontos WHERE Tbl_SomaCapacitacao.Matricula = Cs_SomaCapacitacao.Matricula;"
dbs.Close
End Sub
Mas não tá funcionando, Está dando o erro em tempo de execução '3061': Parâmetros Insuficientes, Eram esperados 2.
Podem me ajudar?
Grato