Avatar billede rickie Juniormester
01. november 2006 - 10:21 Der er 8 kommentarer og
2 løsninger

Output men kun nogle poster

Hej,

Hvorfor er den lidt ligeglad med mine kriterier? Jeg har prövet både med Me.Filter og nedenstående men den eksporterer alle poster aligevel uanset brvBrevId

ElseIf selSkrivut = "- Fil (.xls)" Then
   

    Me.RecordSource = "SELECT brvKundnummer FROM tblBrevBokning " _
    & "WHERE brvBrevId = 100"
   
    DoCmd.OutputTo acOutputTable, "tblBrevbokning", _
    acFormatXLS, "T:\Utdata\Export.xls", True
Avatar billede terry Ekspert
01. november 2006 - 10:28 #1
just a guess but in your DoCmd.OutputTo you use the table tblBrevboking and that is without any filter
Avatar billede terry Ekspert
01. november 2006 - 10:29 #2
make a query which uses the same SQL and then replace the parameter with the query name instead of the table
Avatar billede fdata Forsker
01. november 2006 - 10:40 #3
Du eksporterer jo hele tabellen "tblBrevbokning" hver gang.
Hvis du kun vil eksportere en enkelt post kan du oprette en lille, midlertidig forespørgsel:

  Dim Qdf As QueryDef
 
  On Error Resume Next
  CurrentDb.QueryDefs.Delete "MinQ"
  On Error GoTo 0
 
  Set Qdf = CurrentDb.CreateQueryDef("MinQ")
  Qdf.SQL = "SELECT tblBrevbokning.* FROM tblBrevbokning WHERE brvBrevId = 100"
  DoCmd.OutputTo acOutputQuery, "MinQ", acFormatXLS, "T:\Utdata\Export.xls", True 
  Set Qdf = Nothing
Avatar billede fdata Forsker
01. november 2006 - 10:42 #4
Oops. Didn't see you answer, Terry. Timeout on page.
Avatar billede terry Ekspert
01. november 2006 - 10:46 #5
no problem fdata, you ranswer is more detailed than mine, so its just as valid :o)
Avatar billede rickie Juniormester
01. november 2006 - 10:52 #6
Peeeerfekt! :-) Ok med 10 til Terry og 20 til fData?
Avatar billede terry Ekspert
01. november 2006 - 10:59 #7
fine with me :o)
Avatar billede fdata Forsker
01. november 2006 - 11:34 #8
And me ;o) Takker
Avatar billede rickie Juniormester
02. november 2006 - 14:14 #9
Jeg ved godt at spm er lukket men håber at i lige kan hjälpe med et tiläg.
Hvad nu hvis jeg vil at den skal tjekke i MinQ om der er poster - hvis ikke så skal en msgbox sige at der ikke findes nogle :-)
Avatar billede fdata Forsker
02. november 2006 - 16:23 #10
If DCount("*","MinQ")=0 then MsgBox "Ingen poster"
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester