12. november 2004 - 10:05Der er
20 kommentarer og 1 løsning
Trække data fra en tabel og igen til en tredje.
I min database har jeg en tabel over en masse journaler, jeg kunne så godt tænke mig, at have en funktion der trækker alle journaler ud fra dato1 til dato2.
Ovenstående kan jeg god lave i en forsørgelse, men jeg kan ikke få det til, at virker hvis de to datoer ikke er prædefineret. (hvilket de jo af gode grunde ikke er) Journalerne mellem de to datoer skal så fremkomme i en tabel, hvor man igen har mulighed for at indsnævrer hvilke journaler man vil se. Lad for eks. skyld sige alle der har postnr. 2000 og så er det kun dem mellem de to datoer som har postnr. 2000 man skal se i tabellen.
Ydermere skal man i de tabeller der fremkommer have mulighed for, at sortere journalerne, som man ønsker.
I den tabel journalerne forekommer i vil det være guld, hvis man kan lave et valgfrit diagram i en rapport eller udskrive tabellen.
Det var, i mine øjne, em stor mundfuld, men håber at der er nogen der kan hjælpe?
Du kan oprette en tabel således (husk reference til DAO:
Dim db47 As Database Dim tdfNew As TableDef Dim a As String On Error GoTo Errorhandler a = InputBox(Prompt:="Indtast navnet på den nye tabel:", Title:="Opret ny tabel.", Default:="") Set db47 = OpenDatabase("D:\XP\db47") Set tdfNew = db47.CreateTableDef(a) With tdfNew .Fields.Append .CreateField("tekst", dbText, 30) .Fields.Append .CreateField("memo", dbMemo) .Fields.Append .CreateField("dato", dbDate) .Fields.Append .CreateField("tal", dbInteger) .Fields.Append .CreateField("tal1", dbLong) .Fields.Append .CreateField("tal2", dbDouble) db47.TableDefs.Append tdfNew MsgBox "Tabellen:" & vbNewLine & vbNewLine & a & vbNewLine & vbNewLine & "er nu oprettet.", Title:="Udført." End With Errorhandler: If Err = 3010 Then MsgBox "Der findes allerede en tabel med dette navn." & vbNewLine & vbNewLine & "Procedüren forlades." Else: MsgBox Err.Description End If
Tryk på Debug > Run > Reset > Tools > References og rul ned igennem bibliotekerne og find Miceosoft DAO 3.6 Library og sørg for, at der er et checkmærke i boksen i venstre side.
Det kan være, at dit bibliotek hedder noget andet afhængig af versionen men blot der står:
Jeg sidder og kigger lidt på eksemplet, men er stødt ind i et lille problem.
Hvis jeg bruger den sti du har skrevet "D:\XP\db47" er stien ikke gyldig, hvis jeg skriver stien hvori min database ligger, siger den, at databasen alleede er åben.
Min sti fungerer ikke, da du sandsynligvis ikke har lagret databasen på samme placering.
Når du bruger din egen sti, kan fejlen måske skyldes, at db er åben i forvejen men i minimeret tilstand og du herefter prøver at oprette en tabel i en db der allerede er åben.
Jeg har afprøvet den tilsendte db (db47) igen, og den fungerer perfekt.
Nu skriver du ikke hvilke problemer du har, så det er jo svært at give yderligere suport. Men hvis du mener jeg kan være til yderligere hjælp, vender du blot tilbage.
Jeg skal dog gøre opmærksom på, at jeg er på arbejde det meste af weekenden, så mine kommentarer vil være lidt sporadiske.
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.
