Kör en update på en obunden textruta med ett värde, samtidigt som jag kör queryn skulle jag vilja spara det gamla värdet i en annan tabell med en tidstämpel typ:

Private Sub btändra1_Click()
If MsgBox("Vill du spara ändringen? ", vbYesNo) = vbNo Then

Else
SQLtext = "UPDATE tabell1 SET " _
& " Adress = '" & Me.tbAdress & "'" & _
" WHERE tabell.ID = " & Me.ID
DoCmd.SetWarnings False
DoCmd.RunSQL SQLtext
End If
MsgBox "Uppdaterat och klart!"
End Sub

Precis innan jag kör frågan skulle jag vilja spara undan aktuellt värde i tabell1 och samtidigt med frågan spara undan den nya uppdaterade värdet och en datum till tabell2

Är det omöjligt eller finns det nån guru som kan hjälpa mej på traven?

Det är inte alls omöjligt:
<code:vb>
Private Sub btändra1_Click()
Dim SQLtext As String

If MsgBox("Vill du spara ändringen? ", vbYesNo) = vbYes Then
DoCmd.SetWarnings False

' Spara undan den gamla adressen i tabellen tabell2 med en tilläggsfråga
SQLtext = "INSERT INTO tabell2(AdrID, Adress, Tid) " _
& "SELECT ID, Adress, Now() FROM tabell1 WHERE ID = " & Me.ID & ";"
DoCmd.RunSQL SQLtext

' Uppdatera adressen i tabell1
SQLtext = "UPDATE tabell1 SET Adress = '" & Me.tbAdress & "'" _
& " WHERE tabell.ID = " & Me.ID
DoCmd.RunSQL SQLtext

DoCmd.SetWarnings True
MsgBox "Uppdaterat och klart!"
End If
End Sub
</code>

Det funkade perfekt, en fundering jag hade också var att jag skulle vilja föra ner själva uppdateringsvärdet i tabell2 samtidigt, så att den hamnar på samma rad som insertdatan hamnade.
Går det tror du?

Menar du att du vill ha både det gamla och det nya värdet? I så fall skulle SQLen se ut någonting så här:
<code:vb>
SQLtext = "INSERT INTO tabell2 (AdrID, AdressFore, AdressEfter, Tid) " _
& "SELECT ID, Adress, '" & Me.tbAdress & "', Now() FROM tabell1 WHERE ID " & Me.ID & ";"
</code>

Stort tack Åsa, det fungerade finfint

Du kanske kunde ta en titt på min senaste fråga ;)