sortere efter uge og lægge i excel men det virker ikke

lige en tilføjelse

den lægger alle poster i excel den sotere ikke noget

Thomas

db er fra mugs ( tak for den hjælp )

Prøv at rette denne linje:

Set Rst = DBEngine.Workspaces(0).Databases(0).OpenRecordset("Opgaver", dbOpenTable)


Til denne, det må være kolonnne uge den skal sortere efter?:

Set Rst = DBEngine.Workspaces(0).Databases(0).OpenRecordset("select * Opgaver order by uge", dbOpenTable)

Har sendt en ny fil der sender sorterede data til Excel ved DoCmd.Transfer Spreadsheet. Denne måde er ikke så funktionel som den spørgeren allerede har fået. Men det er jo et spørgsmål om, i hvilken forbindelse det skal bruges.

Hvis ovennævnte kode ikke sorterer, kan der i stedet for eksport af en tabel, blot eksporteres en forespørgsel, der er sorteret efter uge.

Prøv også at erstatte fejlhåndteringen med denne:

MsgBox Err.number & err.describtion

Det letter en evt. fejlsøgning.

eagleeye > når jeg bruger denne linie vil den ikke eksportere

mugs > det du sendte kan jeg ikke bruge
jeg skla selv bestemme hvad den skriver og hvor den skriver det

men ellers tak det ville være sejt hvis i kunne få det gamle til at virke

Thomas

Without looking at this in detail, a solution would be to make a query whci sorts after week. Then instead of this line
Set Rst = DBEngine.Workspaces(0).Databases(0).OpenRecordset("Opgaver", dbOpenTable)
you would use something like this
Set Rst = DBEngine.Workspaces(0).Databases(0).OpenRecordset("qryOpgaverSorted", dbOpenQuery)

dont use dbOpenQuery but dbOpenTable

or dbOpenForwardOnly

You should also be able to use

Set Rst = Currentdb.OpenRecordset ("select * Opgaver order by uge", dbOpenDynaset, dbReadOnly)

Set Rst = Currentdb.OpenRecordset ("select * FROM Opgaver order by uge", dbOpenDynaset, dbReadOnly)

jeg kan ikke få det til at virke terry den skriver kun en linie og det hænger ikke sammen da det ikke er den uge jeg har valgt

jeg skrev 49 og den gav mig uge 51 og uge 1.....

kan jeg bruge en forespørgsel til at få det sorteret ?????

I can take a look if you like?
NOSPAMeksperten@santhell.dkNOPAM

remove NOSPAM

what I dont understand is the original question was how to sort after week number NOT being able to select which week you want to see. If You choose a week (49) then what is the point in sorting afetr this when ALL records will be the same week?

We need to know what you want an at the moment I am unsure!

ok jeg ville gerne have lov til at skrive i et text felt uge XX og der efter klikke på en komandokanp og så exportere den , den uge ud i excel det kan dreje sig om 20 linier eller 5 hovedsagen er at det stykke kode jeg har lagt med kan exportere alle linier i databasen. hvis det kunne lade sig gøre ville jeg gerne have hjælp til at skrive det om så jeg kan bruge et textfelt til at styre hvilken uge der skal exporteres

10/01-2004 12:30:33

jeg har selv prøvet men den ser ikke det jeg har skrevet

det jeg he lagt ind er:
u = Me.tekst25
ux = Me.tekst25 + 1
Set Uge = Rst.Fields![Uge]
If Uge = u Or ux Then
Else
End if

You can also add a field on your form where you can write the week number, then use

Dim sSQL

sSQL = "select * FROM Opgaver WHERE uge = " & Me.txtUge & " order by uge"

Set Rst = Currentdb.OpenRecordset (sSQL, dbOpenDynaset, dbReadOnly)

the field is named txtUge  in the example

a55830>If you can tell us what works from the examples given then we have an idea if what we are doing is correct!
Does this work for example?
Set Rst = Currentdb.OpenRecordset ("select * FROM Opgaver order by uge", dbOpenDynaset, dbReadOnly)

and i dont mean with week number!

terry > i need the week number so it dont work sorry

a55830>We are NOT getting anywhere with this!

DOES THIS WORK????????
Set Rst = Currentdb.OpenRecordset ("select * FROM Opgaver order by uge", dbOpenDynaset, dbReadOnly)

It DOES select the week number AND it also sorts after week number.

I want to know IF this works BEFORE I can give you solution to how to select records for a specific week, this is AFTER ALL what the ORIGINAL question was!!!!!

10/01-2004 12:30:33 but your time is running out§!

jeg vil lige sige for en ordensskyld
JEG ER IKKE PROGRAMØR

jeg har lagt en stump program ud og håbede at i kunne forstå det, jeg er meget taknemlig for alle de svar men jeg fatter ikke en fis når der bliver skrevet en lille stump kode til mig hvor skal jeg sætte den ind ????????

jeg syntes at jeg har forklaret mit problem meget klart men ..........
jeg vil mægtigt gerne sende min db men det kan jeg ikke pga de data der er i den.
kan i ikke fortælle hvad der er galt med min kode ??
håber vi kan finde en løsning

Thomas

terry jeg er kedaf at du har misforstået mig eller at jeg ikke har forklaret mig i programørsprog.

a55830>But a little responce does help! How are we to know, if you just say it doesnt work!

I have also offered to make it for you but havent had an answer on that yet!

DOES THIS work (sorted by week)?

Private Sub Kommandoknap3_Click()
Dim Obvar As Object, wkb As Object, Rst As Recordset ' Variabelerklæringer
Dim i As Integer, Felt1 As Integer, Felt2 As Integer, Uge As Object, u As String, ux As String, Tek As String, xls As New Excel.Application

On Error GoTo Errorhandler
'Slår alle systemadvarsler fra, jeg gider bare ikke at se på dem
DoCmd.SetWarnings False
'Kører en en tilføjelsesforespørgsel, der sender alle poster i Forespørgsel1 over i den temporære tabel
DoCmd.OpenQuery "tilføjtemp"
'Hvis du har oprettet en ny post, skal tabellen først opdateres, ellers ses den nye post ikke i Excel
'Me er den aktive formular og Refresh opdaterer den underliggende tabel / forespørgsel.
Me.Refresh
'Næste sætning definerer hvilken tabel der skal levere data og åbner denne
Set Rst = Currentdb.OpenRecordset ("select * FROM Opgaver order by uge", dbOpenDynaset, dbReadOnly)
'Excel åbnes ved hjælp af funktionen "CreateObject"
Set Obvar = CreateObject("excel.application")
xls.Workbooks.Open Filename:="D:\VBA\XP\Mappe1.xls"
'Gør Excel synlig, Du kan også flytte denne linie længere ned...
'hvis eksporten skal være afsluttet når Excel bliver synlig
Obvar.Visible = True
'Variablen wkb sættes = projektmappen, der tilføjes med metoden Add
Set wkb = Obvar.Workbooks.Add
'Der sættes overskrifter på Excel-arket
wkb.Worksheets("Ark1").Cells(1, 1).Value = "Felt 2"
wkb.Worksheets("Ark1").Cells(1, 2).Value = "Felt 1"
'Løkken der henter data fra tabel1 i Access og lægger data ind i Excel...
'Hvis der ekporteres tekst erstattes "Str$" med "Format"
u = Me.Tekst25
ux = Me.Tekst25 + 1
For i = 2 To Rst.RecordCount + 1
Set Uge = Rst.Fields![Uge]
If Uge = u Or ux Then
wkb.Worksheets("Ark1").Cells(i, 1).Value = Str$(Rst.Fields![TID])
wkb.Worksheets("Ark1").Cells(i, 2).Value = Str$(Rst.Fields![Uge])
Rst.MoveNext
Else
Rst.MoveNext
End If
Next
'Summen af felt2 udregnes
Tek = "=Sum(R[" + Str$(-Rst.RecordCount) + "]C:R[-1]C)"
wkb.Worksheets("Ark1").Cells(Rst.RecordCount + 2, 1).Value = Tek
'Linien tilpasser bredden af benyttede kolonner
wkb.Worksheets("Ark1").UsedRange.Columns.AutoFit
'Objektvariablen frigives
Set Obvar = Nothing
'kører en sletteforespørgsel, der sletter alle poster i den temporære tabel
DoCmd.OpenQuery "slettemp"
'Slår alle systemadvarsler til, husk altid at gøre dette hvis du har slået dem fra i starten af koden
DoCmd.SetWarnings True
Errorhandler:
If Err.Number = 94 Then
Resume Next
End If
End Sub

som det er nu så skriver den alle data i et excel efter uge men jeg vil gerne have lov til at vælge hvilken uge den skal skrive så jeg ikke får dem alle sammen. Det kan jo blive en lang liste

What code are you using to do this?

we need to see the code whcih you have got to work!

You need to place a text box on your form and name it txtUge

then replace ALL of the code with this.

Private Sub Kommandoknap3_Click()
Dim Obvar As Object, wkb As Object, Rst As Recordset ' Variabelerklæringer
Dim i As Integer, Felt1 As Integer, Felt2 As Integer, Uge As Object, u As String, ux As String, Tek As String, xls As New Excel.Application
Dim sSQL as string
On Error GoTo Errorhandler
'Slår alle systemadvarsler fra, jeg gider bare ikke at se på dem
DoCmd.SetWarnings False
'Kører en en tilføjelsesforespørgsel, der sender alle poster i Forespørgsel1 over i den temporære tabel
DoCmd.OpenQuery "tilføjtemp"
'Hvis du har oprettet en ny post, skal tabellen først opdateres, ellers ses den nye post ikke i Excel
'Me er den aktive formular og Refresh opdaterer den underliggende tabel / forespørgsel.
Me.Refresh
sSQL = "select * FROM Opgaver WHERE uge = " & Me.txtUge & " order by uge"
Set Rst = Currentdb.OpenRecordset (sSQL, dbOpenDynaset, dbReadOnly)
'Excel åbnes ved hjælp af funktionen "CreateObject"
Set Obvar = CreateObject("excel.application")
xls.Workbooks.Open Filename:="D:\VBA\XP\Mappe1.xls"
'Gør Excel synlig, Du kan også flytte denne linie længere ned...
'hvis eksporten skal være afsluttet når Excel bliver synlig
Obvar.Visible = True
'Variablen wkb sættes = projektmappen, der tilføjes med metoden Add
Set wkb = Obvar.Workbooks.Add
'Der sættes overskrifter på Excel-arket
wkb.Worksheets("Ark1").Cells(1, 1).Value = "Felt 2"
wkb.Worksheets("Ark1").Cells(1, 2).Value = "Felt 1"
'Løkken der henter data fra tabel1 i Access og lægger data ind i Excel...
'Hvis der ekporteres tekst erstattes "Str$" med "Format"
u = Me.Tekst25
ux = Me.Tekst25 + 1
For i = 2 To Rst.RecordCount + 1
Set Uge = Rst.Fields![Uge]
If Uge = u Or ux Then
wkb.Worksheets("Ark1").Cells(i, 1).Value = Str$(Rst.Fields![TID])
wkb.Worksheets("Ark1").Cells(i, 2).Value = Str$(Rst.Fields![Uge])
Rst.MoveNext
Else
Rst.MoveNext
End If
Next
'Summen af felt2 udregnes
Tek = "=Sum(R[" + Str$(-Rst.RecordCount) + "]C:R[-1]C)"
wkb.Worksheets("Ark1").Cells(Rst.RecordCount + 2, 1).Value = Tek
'Linien tilpasser bredden af benyttede kolonner
wkb.Worksheets("Ark1").UsedRange.Columns.AutoFit
'Objektvariablen frigives
Set Obvar = Nothing
'kører en sletteforespørgsel, der sletter alle poster i den temporære tabel
DoCmd.OpenQuery "slettemp"
'Slår alle systemadvarsler til, husk altid at gøre dette hvis du har slået dem fra i starten af koden
DoCmd.SetWarnings True
Errorhandler:
If Err.Number = 94 Then
Resume Next
End If
End Sub

ok terry that code did not work it only gave me 1 line from the database

As we still dont know what code you are using then this is just an example!

a55830>What code? You need to be more specific, and you can write in DANISH

10/01-2004 20:46:20 > "som det er nu så skriver den alle data i et excel efter uge ..."

I MUST SEE THE CODE WHICH DOES THIS!!!!!!!!!

denne kode virker.
men den giver mig alle poster i tabelen

Private Sub Kommandoknap3_Click()
Dim Obvar As Object, wkb As Object, Rst As Recordset ' Variabelerklæringer
Dim i As Integer, Felt1 As Integer, Felt2 As Integer, Tek As String, xls As New Excel.Application

On Error GoTo Errorhandler
'Slår alle systemadvarsler fra, jeg gider bare ikke at se på dem
DoCmd.SetWarnings False
'Kører en en tilføjelsesforespørgsel, der sender alle poster i Forespørgsel1 over i den temporære tabel
DoCmd.OpenQuery "tilføjtemp"
'Hvis du har oprettet en ny post, skal tabellen først opdateres, ellers ses den nye post ikke i Excel
'Me er den aktive formular og Refresh opdaterer den underliggende tabel / forespørgsel.
Me.Refresh
'Næste sætning definerer hvilken tabel der skal levere data og åbner denne
Set Rst = DBEngine.Workspaces(0).Databases(0).OpenRecordset("Opgaver", dbOpenTable)
'Excel åbnes ved hjælp af funktionen "CreateObject"
Set Obvar = CreateObject("excel.application")
xls.Workbooks.Open Filename:="D:\VBA\XP\Mappe1.xls"
'Gør Excel synlig, Du kan også flytte denne linie længere ned...
'hvis eksporten skal være afsluttet når Excel bliver synlig
Obvar.Visible = True
'Variablen wkb sættes = projektmappen, der tilføjes med metoden Add
Set wkb = Obvar.Workbooks.Add
'Der sættes overskrifter på Excel-arket
wkb.Worksheets("Ark1").Cells(1, 1).Value = "Felt 2"
wkb.Worksheets("Ark1").Cells(1, 2).Value = "Felt 1"
'Løkken der henter data fra tabel1 i Access og lægger data ind i Excel...
'Hvis der ekporteres tekst erstattes "Str$" med "Format"
For i = 2 To Rst.RecordCount + 1
wkb.Worksheets("Ark1").Cells(i, 1).Value = Str$(Rst.Fields![TID])
wkb.Worksheets("Ark1").Cells(i, 2).Value = Str$(Rst.Fields![Uge])
Rst.MoveNext
Next
'Summen af felt2 udregnes
Tek = "=Sum(R[" + Str$(-Rst.RecordCount) + "]C:R[-1]C)"
wkb.Worksheets("Ark1").Cells(Rst.RecordCount + 2, 1).Value = Tek
'Linien tilpasser bredden af benyttede kolonner
wkb.Worksheets("Ark1").UsedRange.Columns.AutoFit
'Objektvariablen frigives
Set Obvar = Nothing
'kører en sletteforespørgsel, der sletter alle poster i den temporære tabel
DoCmd.OpenQuery "slettemp"
'Slår alle systemadvarsler til, husk altid at gøre dette hvis du har slået dem fra i starten af koden
DoCmd.SetWarnings True
Errorhandler:
If Err.Number = 94 Then
Resume Next
End If
End Sub

This is the same code as we started with isnt it?

Try following my example 10/01-2004 21:04:26

ok terry den sidste kode valgte den rigtige uge  menden gav mig kun 1 linie fra tabellen

what data type is the field uge?

Try this

Private Sub Kommandoknap3_Click()
Dim Obvar As Object, wkb As Object, Rst As Recordset ' Variabelerklæringer
Dim i As Integer, Felt1 As Integer, Felt2 As Integer, Uge As Object, u As String, ux As String, Tek As String, xls As New Excel.Application
Dim sSQL as string
On Error GoTo Errorhandler
'Slår alle systemadvarsler fra, jeg gider bare ikke at se på dem
DoCmd.SetWarnings False
'Kører en en tilføjelsesforespørgsel, der sender alle poster i Forespørgsel1 over i den temporære tabel
DoCmd.OpenQuery "tilføjtemp"
'Hvis du har oprettet en ny post, skal tabellen først opdateres, ellers ses den nye post ikke i Excel
'Me er den aktive formular og Refresh opdaterer den underliggende tabel / forespørgsel.
Me.Refresh
sSQL = "select * FROM Opgaver WHERE uge = " & Me.txtUge & " order by uge"
Set Rst = Currentdb.OpenRecordset (sSQL, dbOpenDynaset, dbReadOnly)
'Excel åbnes ved hjælp af funktionen "CreateObject"
Set Obvar = CreateObject("excel.application")
xls.Workbooks.Open Filename:="D:\VBA\XP\Mappe1.xls"
'Gør Excel synlig, Du kan også flytte denne linie længere ned...
'hvis eksporten skal være afsluttet når Excel bliver synlig
Obvar.Visible = True
'Variablen wkb sættes = projektmappen, der tilføjes med metoden Add
Set wkb = Obvar.Workbooks.Add
'Der sættes overskrifter på Excel-arket
wkb.Worksheets("Ark1").Cells(1, 1).Value = "Felt 2"
wkb.Worksheets("Ark1").Cells(1, 2).Value = "Felt 1"
'Løkken der henter data fra tabel1 i Access og lægger data ind i Excel...
'Hvis der ekporteres tekst erstattes "Str$" med "Format"
u = Me.Tekst25
ux = Me.Tekst25 + 1

Do until rst.eof
  Set Uge = Rst.Fields![Uge]
  If Uge = u Or ux Then
    wkb.Worksheets("Ark1").Cells(i, 1).Value = Str$(Rst.Fields![TID])
    wkb.Worksheets("Ark1").Cells(i, 2).Value = Str$(Rst.Fields![Uge])
  End If

    Rst.MoveNext

Loop


'Summen af felt2 udregnes
Tek = "=Sum(R[" + Str$(-Rst.RecordCount) + "]C:R[-1]C)"
wkb.Worksheets("Ark1").Cells(Rst.RecordCount + 2, 1).Value = Tek
'Linien tilpasser bredden af benyttede kolonner
wkb.Worksheets("Ark1").UsedRange.Columns.AutoFit
'Objektvariablen frigives
Set Obvar = Nothing
'kører en sletteforespørgsel, der sletter alle poster i den temporære tabel
DoCmd.OpenQuery "slettemp"
'Slår alle systemadvarsler til, husk altid at gøre dette hvis du har slået dem fra i starten af koden
DoCmd.SetWarnings True
Errorhandler:
If Err.Number = 94 Then
Resume Next
End If
End Sub

det er ikke den samme kode vi startede med det er den orginale kode fra mugs
me jeg havde  tilføjet en text box. Men det virkede ikke den ignoret den.
uge er sat til "tal"

det er som om at den tæller de uger men den poster ikke noget i felterne
for det den lægger sammen i bunden er det antal linier nede som det antal posteringer der på den uge

OK! a55830> I cant help if I cant see the program! There are far too many thuings which I can NOT see here!
For example, in the code there is a field Me.Tekst25 whcih I have NO IDEA what is. We cant be expected to just guess until we get it right!

If you cant send the dB then ask mugs to correct it for you!

Now I'm off for the evening

desvære det med loopet virkede ikke
der kom intet data i excel

Terry the db is on the way to you

I have received the dB, I will take a look and get back as soon as possible

a55830>Cany you send me your dB again, I dont seem to be able to open it.

er på vej

Private Sub Kommandoknap3_Click()
Dim Obvar As Object, wkb As Object, rst As Recordset ' Variabelerklæringer
Dim i As Integer, Felt1 As Integer, Felt2 As Integer, u As String, ux As String, Tek As String, xls As New Excel.Application
Dim sSQL As String

On Error GoTo Errorhandler

    'Slår alle systemadvarsler fra, jeg gider bare ikke at se på dem
    DoCmd.SetWarnings False
    'kører en sletteforespørgsel, der sletter alle poster i den temporære tabel
    DoCmd.OpenQuery "slettemp"
    'Kører en en tilføjelsesforespørgsel, der sender alle poster i Forespørgsel1 over i den temporære tabel
    DoCmd.OpenQuery "tilføjtemp"
   
    sSQL = "select * FROM Opgaver WHERE uge = " & Me.txtuge & " order by uge"
    Set rst = CurrentDb.OpenRecordset(sSQL, dbOpenDynaset, dbReadOnly)
   
    'Excel åbnes ved hjælp af funktionen "CreateObject"
    Set Obvar = CreateObject("excel.application")
   
    xls.Workbooks.Open Filename:="D:\VBA\XP\Mappe1.xls"
   
    'Gør Excel synlig, Du kan også flytte denne linie længere ned...
    'hvis eksporten skal være afsluttet når Excel bliver synlig
    Obvar.Visible = True
    'Variablen wkb sættes = projektmappen, der tilføjes med metoden Add
    Set wkb = Obvar.Workbooks.Add
    'Der sættes overskrifter på Excel-arket

    'Use index instead of name (language dependant)
    wkb.Worksheets(1).Cells(1, 1) = "Felt 2"
    wkb.Worksheets(1).Cells(1, 2) = "Felt 1"

    'Or record count will not be correct
    rst.MoveLast
    rst.MoveFirst
   
    'Løkken der henter data fra tabel1 i Access og lægger data ind i Excel...
    i = 2
    Do Until rst.EOF
        wkb.Worksheets(1).Cells(i, 1) = Str(rst.Fields![TID])
        wkb.Worksheets(1).Cells(i, 2) = Str(rst.Fields![Uge])
   
        rst.MoveNext
        i = i + 1
    Loop

    'Summen af felt2 udregnes
    Tek = "=Sum(R[" + Str$(-rst.RecordCount) + "]C:R[-1]C)"
    wkb.Worksheets(1).Cells(rst.RecordCount + 2, 1).Value = Tek
    'Linien tilpasser bredden af benyttede kolonner
    wkb.Worksheets(1).UsedRange.Columns.AutoFit
   
Sub_Exit:

    On Error Resume Next
   
    'Objektvariablen frigives
    Set Obvar = Nothing
   
    'Slår alle systemadvarsler til, husk altid at gøre dette hvis du har slået dem fra i starten af koden
    DoCmd.SetWarnings True
   
Errorhandler:
    If Err.Number = 94 Then
        Resume Next
    Else
        MsgBox "Error: " & Err.Number & " - " & Err.dec
        Resume Sub_Exit
    End If
End Sub

Little error crept in there

Private Sub Kommandoknap3_Click()
Dim Obvar As Object, wkb As Object, rst As Recordset ' Variabelerklæringer
Dim i As Integer, Felt1 As Integer, Felt2 As Integer, u As String, ux As String, Tek As String, xls As New Excel.Application
Dim sSQL As String

On Error GoTo Errorhandler

    'Slår alle systemadvarsler fra, jeg gider bare ikke at se på dem
    DoCmd.SetWarnings False
    'kører en sletteforespørgsel, der sletter alle poster i den temporære tabel
    DoCmd.OpenQuery "slettemp"
    'Kører en en tilføjelsesforespørgsel, der sender alle poster i Forespørgsel1 over i den temporære tabel
    DoCmd.OpenQuery "tilføjtemp"
   
    sSQL = "select * FROM Opgaver WHERE uge = " & Me.txtuge & " order by uge"
    Set rst = CurrentDb.OpenRecordset(sSQL, dbOpenDynaset, dbReadOnly)
   
    'Excel åbnes ved hjælp af funktionen "CreateObject"
    Set Obvar = CreateObject("excel.application")
   
    xls.Workbooks.Open Filename:="D:\VBA\XP\Mappe1.xls"
   
    'Gør Excel synlig, Du kan også flytte denne linie længere ned...
    'hvis eksporten skal være afsluttet når Excel bliver synlig
    Obvar.Visible = True
    'Variablen wkb sættes = projektmappen, der tilføjes med metoden Add
    Set wkb = Obvar.Workbooks.Add
    'Der sættes overskrifter på Excel-arket

    'Use index instead of name (language dependant)
    wkb.Worksheets(1).Cells(1, 1) = "Felt 2"
    wkb.Worksheets(1).Cells(1, 2) = "Felt 1"

    'Or record count will not be correct
    rst.MoveLast
    rst.MoveFirst
   
    'Løkken der henter data fra tabel1 i Access og lægger data ind i Excel...
    i = 2
    Do Until rst.EOF
        wkb.Worksheets(1).Cells(i, 1) = Str(rst.Fields![TID])
        wkb.Worksheets(1).Cells(i, 2) = Str(rst.Fields![Uge])
   
        rst.MoveNext
        i = i + 1
    Loop

    'Summen af felt2 udregnes
    Tek = "=Sum(R[" + Str$(-rst.RecordCount) + "]C:R[-1]C)"
    wkb.Worksheets(1).Cells(rst.RecordCount + 2, 1).Value = Tek
    'Linien tilpasser bredden af benyttede kolonner
    wkb.Worksheets(1).UsedRange.Columns.AutoFit
   
Sub_Exit:

    On Error Resume Next
   
    'Objektvariablen frigives
    Set Obvar = Nothing
   
    'Slår alle systemadvarsler til, husk altid at gøre dette hvis du har slået dem fra i starten af koden
    DoCmd.SetWarnings True
   
Errorhandler:
    If Err.Number = 94 Then
        Resume Next
    Else
        MsgBox "Error: " & Err.Number & " - " & Err.Description
        Resume Sub_Exit
    End If
End Sub

this will give you for two weeks
NOTE> This is only going to work until we get to the last week of the year, aftre that you wil need to take the your into account too!

Private Sub Kommandoknap3_Click()
Dim Obvar As Object, wkb As Object, rst As Recordset ' Variabelerklæringer
Dim i As Integer, Felt1 As Integer, Felt2 As Integer, u As String, ux As String, Tek As String, xls As New Excel.Application
Dim sSQL As String

On Error GoTo Errorhandler

    'Slår alle systemadvarsler fra, jeg gider bare ikke at se på dem
    DoCmd.SetWarnings False
    'kører en sletteforespørgsel, der sletter alle poster i den temporære tabel
    DoCmd.OpenQuery "slettemp"
    'Kører en en tilføjelsesforespørgsel, der sender alle poster i Forespørgsel1 over i den temporære tabel
    DoCmd.OpenQuery "tilføjtemp"
   
    sSQL = "select * FROM Opgaver WHERE (uge = " & Me.txtuge & " OR uge = " & Me.txtuge + 1 & ") order by uge"
    Set rst = CurrentDb.OpenRecordset(sSQL, dbOpenDynaset, dbReadOnly)
   
    'Excel åbnes ved hjælp af funktionen "CreateObject"
    Set Obvar = CreateObject("excel.application")
   
    xls.Workbooks.Open Filename:="D:\VBA\XP\Mappe1.xls"
   
    'Gør Excel synlig, Du kan også flytte denne linie længere ned...
    'hvis eksporten skal være afsluttet når Excel bliver synlig
    Obvar.Visible = True
    'Variablen wkb sættes = projektmappen, der tilføjes med metoden Add
    Set wkb = Obvar.Workbooks.Add
    'Der sættes overskrifter på Excel-arket

    'Use index instead of name (language dependant)
    wkb.Worksheets(1).Cells(1, 1) = "Felt 2"
    wkb.Worksheets(1).Cells(1, 2) = "Felt 1"

    'Or record count will not be correct
    rst.MoveLast
    rst.MoveFirst
   
    'Løkken der henter data fra tabel1 i Access og lægger data ind i Excel...
    i = 2
    Do Until rst.EOF
        wkb.Worksheets(1).Cells(i, 1) = Str(rst.Fields![TID])
        wkb.Worksheets(1).Cells(i, 2) = Str(rst.Fields![Uge])
   
        rst.MoveNext
        i = i + 1
    Loop

    'Summen af felt2 udregnes
    Tek = "=Sum(R[" + Str$(-rst.RecordCount) + "]C:R[-1]C)"
    wkb.Worksheets(1).Cells(rst.RecordCount + 2, 1).Value = Tek
    'Linien tilpasser bredden af benyttede kolonner
    wkb.Worksheets(1).UsedRange.Columns.AutoFit
   
Sub_Exit:

    On Error Resume Next
   
    'Objektvariablen frigives
    Set Obvar = Nothing
   
    'Slår alle systemadvarsler til, husk altid at gøre dette hvis du har slået dem fra i starten af koden
    DoCmd.SetWarnings True
   
Errorhandler:
    If Err.Number = 94 Then
        Resume Next
    Else
        MsgBox "Error: " & Err.Number & " - " & Err.Description
        Resume Sub_Exit
    End If
End Sub

have you received th elast file I sent Sun 11/01/2004 14:19 ?

tak for hjælpen håber jeg kan træke på jer igen

Thomas

selv tak :o)