Oprette tilføjelsesforespørgsel

Ja, det kan sagtens lade sig gøre ... et modul, hvor du efterfølgende angiver en sletteforespørgsel vil kunne gøre det ... lever lige et eksempel ;)

Ja naturligvis. Lan en sletteforespørgsel der sletter data i den oprindelige tabel og kør den efter din tilføjelsesforespørgsel. Du kan indsætte kriterier også i en sletteforespørgsel.

Du kan evt. indsætte flg i en formular:

Docmd.Setwarnings  false
Docmd.openquery "tilføj"
docmd.openquery "slet"
docmd.setwarnings true

Mugs
jeg er nybegynder og forstår ikke hvad du skriver

Ok > Mugs var hurtigere ;)

Hvordan ser din opdateringsforespørgsen ud i SQL, så kan vi lave hele koden som et modul til afvikling via en knap

bukse:

Når du har en formular, kan du afvikle forespørgsler fra denne. Du kan åbne din formular i designvisning og placere en kommendoknap i formularen.
Højreklik på kommandoknappen > Egenskaber > Fanen Hændelser og ved linien VedKlik trykker du på de 3 små ... i højre side. du kommer nu ind i VBA-editoren og her indsætter du min kode idet du erstatter "tilføj" og "slet"med navnet på de relevante forespørgsler.

En sletteforespørgsel laver du i databasevinduet ved at markere fanen Forespørgsler > Ny og trækker tabellen ned i forespørgselsgitteret. Derefter går du i menuen Forespørgsler og vælger Sletteforespørgsel. Resten bør komme af sig selv.

Det som der menes er, at du opretter to forespørgsler ... den ene har du allerede oprettet, nemlig din tilføjelsesforespørgsel som du har navngivet ( eksempelvis tilføj ). Herefter opretter du en sletteforespørgsel som du navngiver ( eksempelvis slet ).

Din sletteforespørgsel skal se nogenlunde sådan ud :

    DELETE Tabel.*
    FROM Tabel;

Disse to forespørgsler aktiverer du med en knap ( hændelsesprocedure VedKlik ) i din formular.

Denne hændelsesprocedure udløser muligheden for at oprette en kode, som kan se således ud :

Private Sub Kommandoknap0_Click()
 
  DoCmd.Setwarnings  false
  DoCmd.openquery "tilføj"
    DoCmd.openquery "slet"
    DoCmd.setwarnings true

    MsgBox("Jeg er færdig")

End Sub 

Dette skulle udføre det som du beder om ;)