Informatie exporteren access naar excel vraag om hulp!

[nemesis2212]

Ik heb een vraag om gegevens te exporteren naar excel.

De VB code achter de excel knop is in het plaatje te zien.

Heeft iemand een idee hoe ik deze sql code zo goed verwerkt kan krijgen:

SELECT Dieren.Naam, Dieren.Huidigegroepsnummer, [Groep dieren].Groepsnaam, Dieren.Geslacht, Aapsoorten.AapSoortID, Aapsoorten.Aapsoort, LeeftijdDatum([Geboortedatum],IIf([Overleden]=-1,[Datum Overlijden],Date())) AS Leeftijd, IIf([Leeftijd]>2,IIf([Leeftijd]>4,'Volwassen','Puber'),'Kleuter') AS Categorie, Dieren.Geboortedatum, Dieren.[Datum binnenkomst aap], Dieren.[Datum uit quarantaine], Dieren.[Datum begin resocialisatie], Dieren.[Datum herplaatsbaarheid], Dieren.Herkomst, Dieren.Opgroeiwijze, Dieren.Opgroeiomstandigheden, Dieren.Anticonceptie, Dieren.Castratie, Dieren.Overleden, Introducties.Groepsgrootte, Introducties.Bewonersvoorintroductie, Introducties.[Datum introductie]

FROM ([Groep dieren] INNER JOIN (Aapsoorten INNER JOIN Dieren ON Aapsoorten.AapSoortID = Dieren.Aapsoort_ID) ON [Groep dieren].Groepsnummer = Dieren.Huidigegroepsnummer) INNER JOIN Introducties ON ([Groep dieren].Groepsnummer = Introducties.Groepsnummer) AND (Dieren.Aapnummer = Introducties.Aapnummer)

ORDER BY Dieren.Naam, Aapsoorten.AapSoortID;

Ik hoor graag jullie ideeen.

groeten Niels

 

[OctaFish]

Aangepaste code:

    Call FilterMaken("Excel")
    strSQL = "SELECT Dieren.Naam, Dieren.Huidigegroepsnummer, [Groep dieren].Groepsnaam, Dieren.Geslacht, Aapsoorten.AapSoortID, " _
        & "Aapsoorten.Aapsoort, LeeftijdDatum([Geboortedatum], IIf([Overleden]=-1,[Datum Overlijden],Date())) AS Leeftijd, " _
        & "IIf([Leeftijd]>2,IIf([Leeftijd]>4,'Volwassen','Puber'),'Kleuter') AS Categorie, Dieren.Geboortedatum, Dieren.Herkomst, " _
        & "Dieren.Opgroeiwijze, Dieren.Opgroeiomstandigheden, Dieren.Anticonceptie, " _
        & "Dieren.Castratie, Dieren.Overleden" & vbCrLf
    strSQL = strSQL & "FROM [Groep dieren] INNER JOIN (Aapsoorten INNER JOIN Dieren ON Aapsoorten.AapSoortID = Dieren.Aapsoort_ID) " _
        & "ON [Groep dieren].Groepsnummer = Dieren.Huidigegroepsnummer" & vbCrLf
    strSQL_Ori = strSQL & "ORDER BY Dieren.Naam, Aapsoorten.AapSoortID;"
    If stFilter <> "" Then strSQL = strSQL & "WHERE (" & stFilter & ")" & vbCrLf
    strSQL = strSQL & "ORDER BY Dieren.Naam, Aapsoorten.AapSoortID;"
    tmp = InputBox("", "", strSQL)
    CurrentDb.QueryDefs("Dieren_Query").SQL = strSQL

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Dieren_Query", "Test", True
    CurrentDb.QueryDefs("Dieren_Query").SQL = strSQL_Ori

Waarschijnlijk moet je nog wel de Microsoft Office 11.0 Object Library aanzetten.

 

[nemesis2212]

ik mis alleen de introducties bij het select verhaal en de tabel introducties in de from experessie.

Ik wil een aantal gegevens uit de tabel introductie kwijt in het excel bestand genaamd:

Introducties.Groepsgrootte, Introducties.Bewonersvoorintroductie, Introducties.[Datum introductie], introductie.introductienummer, [groep dieren].groepsnaam

per introductie wil ik per dier weten hoe de groepsgrootte en bewonersvoorintroductie in aantal waren voordat de introductie gemaakt word.

 

[OctaFish]

Zet ik er vanavond wel bij.

 

[nemesis2212]

octafish ik heb je het bestand even via je live mail gestuurd. Kan je daarin even kijken.

Groeten NIels

 

[OctaFish]

Doe ik!

 

[nemesis2212]

hoi octafish,

ik heb je een mail gestuurd met uitleg. Is er nog de mogelijkheid voor jou om hier naar te kijken?

Alvast bedankt

Groeten Niels

 

[nemesis2212]

Hoi Octafish,

Ik heb je nog even een mailtje gestuurd op je live. Zou je hier even op kunnen reageren?

Tnx!

Groeten Niels