Record kopieren

[Gerrit N]

Hallo,

Ik ben lang aan het zoeken geweest maar nog steeds geen oplossing gevonden voor mijn probleem.

Ik wil op mijn formulier een opdrachtknop maken die het huidige record opslaat in een andere tabel (met dezelfde stuctuur)

Een soort backuptabel waar de gegevens kunnen worden bewaard en en andere tabel om gegevens aan te passen.

Is dit op te lossen ???

gr, Gerrit

 

[hehe]

Kan dit niet gewoon door een relationele database te maken? een relatie tussen tabellen.

 

[Gerrit N]

Deels een oplossing

Ik heb een deel van de oplossing gevonden.

Door middel van een TOEVOEG-QUERY is het gelukt, maar wie weet hoe je dit kunt doen zonder dat acces waarschuwingen geeft dat je dit uitvoert.

De meldingen die access geeft moeten onderdrukt worden.

gr, Gerrit

 

[Strange Bird]

Door in je code het volgende op te nemen:

DoCmd.SetWarnings False

 

[Gerrit N]

WERKT

Het werkt perfect.

Hartelijk dank Strange Bird voor deze tip.

 

[Strange Bird]

Als je het nog mooier wilt hebben......

Plaats je een button op je formulier waarmee je de query kun activeren.

(De query die hiermee wordt geactiveerd heet in mijn voorbeeldje "Q_verplaatsen")

"Bij Klikken" van de button voeg je een "gebeurtenisprocedure" toe:

Private Sub Verplaats_gegevens_Click()
On Error GoTo Err_Verplaats_gegevens_Click

    Dim stDocName As String

    strmsg = "Huidige record verplaatsen?"
    If MsgBox("Weet u zeker dat u " & Me.[Voornaam] & " " & Me.Tussenvoegsel & " " & Me.Achternaam & " wilt verplaatsen?", _
            vbQuestion + vbYesNo, "Verplaatsen gegevens") = vbYes Then

    DoCmd.SetWarnings False
    stDocName = "Q_verplaatsen"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
    DoCmd.RunCommand acCmdRefresh
    DoCmd.GoToRecord , , acNext

    DoCmd.SetWarnings True
    
    Else

   MsgBox " Het verplaatsen van " & Me.[Voornaam] & " " & Me.Tussenvoegsel & " " & Me.Achternaam & " is niet uitgevoerd.", vbInformation, " Verplaatsen gegevens geannuleerd"
End If

Exit_Verplaats_gegevens_Click:
    Exit Sub


Err_Verplaats_gegevens_Click:
    MsgBox Err.Description
    Resume Exit_Verplaats_gegevens_Click
    
End Sub

Suc6.

 

[Strange Bird]

Misschien iets te kort door de bocht.
Zie bijlage: db2.zip

 

[Gerrit N]

Bedankt

Stange Bird,

Bedankt voor de tips en voorbeeld.