07. juli 2002 - 23:16Der er
10 kommentarer og 2 løsninger
Eksport af data
Hvordan kan jeg, ved færdigbehandling af data, eksportere færdigbehandlede data til en anden tabel?
Jeg har en formular, hvori jeg indtaster data, som jeg gemmer i en tabel. Når det er gjort, og skal påbegynde et nyt sæt data, vil jeg gemme de gamle data i en anden tabel (i samme database) v.hj.a. en "Eskporter de færdigbehandlede data til en anden tabel, så jeg kan indføre nye data"-kommandoknap. Kan det lade sig gøre? De færdigbehandlede data skal ned i den samme tabel.
Altså:
1. Jeg indtaster data i en formular.
2. Disse data bliver gemt i en tabel. Lad os kalde den for "Aktuelle data".
3. Når jeg er færdig med disse data, trykker jeg på kommandoknappen "Eksporter data". Disse data ryger ned i tabellen "Færdigbehandlede data", og samtidig tømmes tabellen "Aktuelle data", så den tabel er klar til et sæt nye data.
4. Næste gang jeg eksporterer færdigbehandlede data, ryger de fra tabellen "Aktuelle data" og over i tabellen "Færdigbehandlede data", neden under de andre færdigbehandlede data, så de færdigbehandlede data altid er samlet i samme tabel.
5. Tabellen "Aktuelle data" tømmes, så den er klar til et nyt sæt data.
En tilføjelsesforespørgsel der eksporterer til tabelen "Færdigbehandlede data", derefter en sletteforespørgsel der sletter data i tabellen "Aktuelle data".
Du laver forespørgslerne i dit databasevindue, og vælger typen ved at trykke på type-ikonet på menulinien. Når det fungerer, kan du i formularen lave en kommandoknap, hvor du i VedKlik event har programmeret kørslen af begge forespørgsler:
DoCmd.OpenQuery "Navnet på tilføjelsesforespørgslen" DoCmd.OpenQuery "Navnet på sletteforespørgslen"
Når du kører forespørgslerne, vil du få advarsler om, at du er ved at tilføje / slette poster. Disse advarsler kan du omgå, ved at indsætte flg. kode før DoCmd. osv:
DoCmd.SetWarnings False
og efter kørslen:
DoCmd.SetWarnings True
Du skal huske den sidste kodestump, idet advarslerne forbliver slået fra i hele applikationen, hvis du ikke slår dem til igen.
Hvis du foretrækker at lave det som en makro, kan det sagtens lade sig gøre.
SomeField is a field in tbale Firmaer and some value is the value of the field you are interested in. If SomeField is numeric then use something like this...
DoCmd.RunSQL "INSERT INTO [Done] SELECT * FROM [Firmaer] WHERE SomeField = SomeValue"
And if somefield is text then
DoCmd.RunSQL "INSERT INTO [Done] SELECT * FROM [Firmaer] WHERE SomeField = 'SomeValue'"
Ok, sorry! Læste ikke dit svar ordentligt igennem. Jeg prøver det ...
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
