Hjælp til veninde der laver forspørgsel.

Hvis du har det lille program MsGraf indstalleret, kan du gøre det i Access. Prøv at lave en forespørgsel. Åbn derefter Access i databasevinduet > Rapporter > Ny > Vælg Guiden diagram, så kører det bare.

http://www.rush.dk/god_titel.php

Hvis du vil eksportere data til Excel, kan du gøre det med denne kode. "temp" er den tabel eller forespørgsel der skal eksporteres. I linierne, der slutter med .Value = "Felt2", sætter du overskrifter på dit Excelark. linier der slutter med: Str$(Rst.Fields![Felt2]), eksporterer numeriske data. Hvis du eksporterer alfanumeriske data skal Str$ erstattes med ordet Format. Husk at du i Excel skal lave en reference til Excel: Åbn et kodemodul > Funktioner > Referencer og find dit Excel bibliotek, sørg for, at det er afkrydset i venstre side. I engelske versioner Tools > References. Jeg kan sende dig en lille testdb, der viser hvordan. Blot læg din e-mail.

Dim Obvar As Object, wkb As Object, Rst As Recordset
Dim i As Integer, Felt1 As Integer, Felt2 As Integer, Tek As String
On Error GoTo Errorhandler
Set Rst = DBEngine.Workspaces(0).Databases(0).OpenRecordset("temp", dbOpenTable)
Set Obvar = CreateObject("excel.application")
Obvar.Visible = True
Set wkb = Obvar.Workbooks.Add
wkb.Worksheets("Ark1").Cells(1, 1).Value = "Felt 2"
wkb.Worksheets("Ark1").Cells(1, 2).Value = "Felt 1"
For i = 2 To Rst.RecordCount + 1
wkb.Worksheets("Ark1").Cells(i, 1).Value = Str$(Rst.Fields![Felt2])
wkb.Worksheets("Ark1").Cells(i, 2).Value = Str$(Rst.Fields![Felt1])
Rst.MoveNext
Next
wkb.Worksheets("Ark1").UsedRange.Columns.AutoFit
Set Obvar = Nothing
Errorhandler:
If Err.Number = 94 Then
Resume Next
End If

ms20 -> sorry titlen kunne være bedre. Problemet er at jeg ikke er god til at lave en forespørgsel i Access, så det var på den måde det skulle forstås.

Hvis problemet er selve forespørgslen, trækker du blot alle felter der skal eksporteres / anvendes i Guiden Rapport ned i designgitteret. Derefter kan du lave din rapport, eller køre koden fra en formular.

mugs -> du lader virkelig til at have check på det. Jeg har kgget på det hun har lavet, det ser lidt rodet ud. Jeg tror bare det skal lige checkes igennem. Hun har vedlagt en nøje oversigt over de ting hun ønsker skal udføres af forespørgslen.

Jeg ville være meget glad hvis jeg evt. kunne sende det til dig, men ved ikke lige hvordan jeg skal gøre det godt?

Min email adresse er jjensen@adslhome.dk

PS: hun har en deadline for opgaven, og i gruppen er de kørt helt fast.

Jeg har selv en lille bitte smule svært ved at overskue hvordan de har sat det sammen. Men alle oplysningerne er der i tabellerne - så de skal vist bare relateres rigtigt og så laves forespørgslerne/rapporten, som hun har skrevet på "menneskesprog" som så skal laves i Access :-)

mugs@mail.dk