[Resolvido]Gravar dados em tabela usando SQL ?

Ola pessoal, tenho o codigo abaixo, que faz alteracao em uma tabela, enquanto satisfazer uma determilada condicao, porem desejo TAMBEM gravar esta alteracao em uma outra tabela (no caso gravar os campos NomeFuncionario, DataInicio e lngSaldoAcumulado. Veja no codigo o local indicado para gravacao:


Dim NomeFuncionario As String, DataInicio As Date, HorasNecessarias As Long, Datafinal As Date

NomeFuncionario = Me![cmbRecursoAnalista].Column(0)
DataInicio = Me![txtDataInicialAnalista]
HorasNecessarias = Me![txtHorasAnalista]

Dim rst As Recordset
Dim lngSaldoAcumulado As Long, lngHorasDisponiveis As Long

lngSaldoAcumulado = HorasNecessarias
Set rst = CurrentDb.OpenRecordset("select Sum([HPlanejada]) from tblPlanejaHoras where [Matricula] = '" & NomeFuncionario & "' and [DtDisponivel] >= #" & DataInicio & "#")
If rst(0).Value >= HorasNecessarias Then
Set rst = CurrentDb.OpenRecordset("select [DtDisponivel], [HPlanejada] from tblPlanejaHoras where [Matricula] = '" & NomeFuncionario & "' and [DtDisponivel] >= #" & DataInicio & "#")
Do While Not rst.EOF
If lngSaldoAcumulado > rst("HPlanejada").Value Then
lngSaldoAcumulado = lngSaldoAcumulado - rst("HPlanejada").Value
lngHorasDisponiveis = 0
Else
lngHorasDisponiveis = rst("HPlanejada").Value - lngSaldoAcumulado
lngSaldoAcumulado = 0
End If
CurrentDb.Execute ("Update tblPlanejaHoras Set [HPlanejada] = " & lngHorasDisponiveis & " where [DtDisponivel] =#" & rst("DtDisponivel").Value & "# and [Matricula] = '" & NomeFuncionario & "'")

===>>> COMO INCLUIR UMA INSTRUCAO, QUE ALEM DA GRAVACAO DA LINHA ACIMA, POSSA GRAVAR ESTAS MESMAS INFORMACOES ALTERADAS, NUMA TABELA DIFERENTE ?


Datafinal = rst("DtDisponivel").Value
If lngSaldoAcumulado = 0 Then Exit Do
rst.MoveNext
Loop
rst.Close
Set rst = Nothing


Alguem por favor pode me ajudar ?

Agradecida com antecedencia.

Juliana

Tente o seguinte:

Crie a tabela com os campos que deseja. Vamos supor que o nome dela seja tblHistory. Você pode ter, no formulário de edição, um botão para habilitar a alteração, o qual, após clicar, grava os dados do registro atual na tblHistory. Primeiro, coloque esses campos desabilitados para habilitá-los ao clicar no botão editar:

' Gravando os dados do registro atual na tblHistory
Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("tblHistory")

rs.AddNew

rs!CodRegistro = Me.Código
rs!DataRegistro = Me.Data
rs!OutroCampo = Me.OutroCampo
rs!DataAtual = Date
rs!HoraAtual = Time

rs.Update
rs.Close
Set rs = Nothing

' Habilitando os campos para edição
Dim C As Control

For Each C In Me.Controls
If C.ControlType = acTextBox Or C.ControlType = acComboBox Then
C.Enabled = True
End If

Obrigada Criquio....deu certinho.

Ju

Que bom que conseguiu. Estive um tempo fora mas retornei agora. Abraços.