Export mange select queries

Hi Thomas
Here's an idea you can maybe work on. Not sure how good you are at coding, let me know if you need help there.

You need to open a recordset which selects the criteria (Varegruppe) and file name (filnavn) columns from tblKriteria.

Now you need to loop through the recordset and for each loop (criteria) change the query (qryVaregruppe) SQL so that it contains the new criteria.

To change the SQL you use some code something like this

CurrentDb.QueryDefs("qryVaregruppe").SQL = "SELECT * FROM ..... WHERE vg = '" & rs!Varegruppe & "'"

Now to export you use code somthing like this.


docmd.TransferText acExportDelim, ,"qryVaregruppe", rs!filnavn

Hi Terry

Do I need to make an ADO recordset on tblKriterie. I've never used ADO before, but can find some examples in my Access bible. How would you make the recordset, I don't know if there are other ways than ADO.

Do you have some code for the recordset, which I can adjust to fit my needs?

If you can find some examples using ADO then thas your best bet. Maybe this will get you going

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
   
    Set rs = New ADODB.Recordset
    With rs
       
        Set .ActiveConnection = CurrentProject.Connection
       
        .Open "Select * FROM tblKriterie", , , adLockOptimistic
       
        Do Until .EOF
       
      'Rest of the code goes here     
           
            .MoveNext
           
        Loop
       
    End With
    rs.Close

place these after rs.close

cn.close
set rs = Nothing
set cn = nothing

Thx, I first have time to look at it in the weekend. I'll get back after the weekend.

No problem, just place a comment if you need any help with this question and I'll see what I can do.

do you still need help here faithless?

Don’t know, I haven’t had time to look more into it. I'll get back when I've tried your examples.

and?

faithless can we close this question please?

Der er kommet andre arbejdes opgaver i vejen, så jeg har ikke fået kigget på dit svar.

Hvis der er en tidsfrist på Eksperten, som diktere hvor længe et spørgsmål må være åben, så er jeg uvidende om det. Hvis ikke der er, så må du ha' tålmodighed og vente på at jeg vender tilbage.

Du kan se, at alle min andre spørgsmål er lukket når jeg har løst opgaven med hjælp fra andre eksperter. Så det kan jeg garantere dig for at dette også bliver.

I undertsand that people have work to do, but those placing questions should also understand that thsoe trying to help, might also have other work to do. And if they waited until those placing the question were ready to paticipate before placing an answer, then there would be no need for eksperten.

You are also allowed to close questions which you cant get an answer on. That way you get your points back, and also you dont ahve so many open, which may otherwise discourage people to place an answer.

Anyway, get back when you feel you have time and lets see if we can help.
mvh
Terry

Hej Terry

Jeg ved sku ikke lige hvornår jeg får kigget på det.
Jeg lukker spørgsmålet nu, men regner med at du stadig er villig til at hjælp, hvis det bliver relevant på et senere tidspunkt.

Takker(c;
Takker for hjælpen indtil videre(c;

No problem faithless, just drop a comment when your read.

And merry xmas