[Resolvido]Salvar em mais de uma tabela

Estou com um problema, esse script funciona perfeitamente, mas gostaria de além disso, armazenar em outra tabela o valor contido do campo:

MultQtde,

junto com
data de agora (Now)
junto com valor do campo Me.codKit,

mas tentei e não estou conseguindo

Código:


Private Sub btnBaixa_Click()
Dim rs As DAO.Recordset
Dim StrSQL As String
Dim IntQtde As Integer

StrSQL = "SELECT tbRelKit.codRelKits, tbRelKit.codRelAdesivo, tbRelKit.codRelKitTab, tbRelKit.codRelAdesivoEmp, tbRelKit.multiplicador," _
        & "tbAdesivos.nomeAdesivo, tbAdesivos.codAdesivo FROM tbAdesivos INNER JOIN tbRelKit ON tbAdesivos.codAdesivo = tbRelKit.codRelAdesivo" _
        & " WHERE  tbRelKit.codRelKitTab = " & Me.codKit & ";"



Set rs = CurrentDb.OpenRecordset(StrSQL)
rs.MoveLast: rs.MoveFirst
'cria mais uma consulta, e coloca StrSQL2

Do While Not rs.EOF

IntQtde = (rs!multiplicador * Me.MultQtde)
'CurrentDb.Execute "UPDATE tbAdesivos Set Estoque = " & IntQtde & "  WHERE CodAdesivo = " & rs!codAdesivo & ""
CurrentDb.Execute "UPDATE tbAdesivos Set Estoque = Estoque - " & IntQtde & "  WHERE CodAdesivo = " & rs!codAdesivo & ""
rs.MoveNext

Loop

MsgBox "Baixa Realizada com Sucesso", vbInformation, "ATENÇÃO:"
DoCmd.Close

End Sub



Intão, deve ser facil;

Logo após o "CurrentDb.Execute "UPDATE tbAdesivos", você faz um INSERT INTO na outra tabela.

Vlw JPaulo,

Código:

CurrentDb.Execute "INSERT INTO tbKitsProduzidos(data,codKit,valor) VALUES (" & Me.labelData & "," & Me.codKit & " ," & Me.MultQtde & ")"

Aqui esta a versão final,

Mas estou perdido pra receber a data atual "16/09/2013", esta armazenando na tabela 8,83148424132031E-04

????

Você tem a data numa Label ?

Se tiver, tem de extarír o valor do Caption;

CurrentDb.Execute "INSERT INTO tbKitsProduzidos(data,codKit,valor) VALUES (#" & Me.labelData.Caption & "#," & Me.codKit & " ," & Me.MultQtde & ")"

Ou antes mesmo, defenir como variavel;

Dim x as Date
x=Me.labelData.Caption
CurrentDb.Execute "INSERT INTO tbKitsProduzidos(data,codKit,valor) VALUES (#" & x & "#," & Me.codKit & " ," & Me.MultQtde & ")"

no caption ta dando metodo ou membro nao encontrado..
o campo recebe data().. a data atual..

Mas é um campo ou um rotulo ?

É que você deu o nome de Me.labelData, Label é um rotulo e induz em erro quem o quer ajudar.

Se é mesmo um campo;

CurrentDb.Execute "INSERT INTO tbKitsProduzidos(data,codKit,valor) VALUES (#" & Format(Me.labelData.Value, "dd-mm-yyyy") & "#," & Me.codKit & " ," & Me.MultQtde & ")"

Matou a charada brother..

Muito agradecido.. era o detalhe, pois era um campo.

Obrigado pelo retorno o forum agradece.