Brug af fordefineret query i VBA

Jeg plejer at bruge:

dim RS as DAO.Recordset

Set RS = CurrentDb.Openrecordset("NyesteFaktura", dbOpenSnapshot)

Do While Not...

Og det virker fint.

Du mangler at definere din variabel db. Skriv følgende:

Dim qry As DAO.QueryDef, db as DAO.Database
 
  Set db = CurrentDb
  Set qry = db.OpenQueryDef("NyesteFaktura")
  Set rs = qry.OpenRecordset() ' Open recordset on the query
  Do While Not rs.EOF
    If rs!nyeste Like -1 Then
        test = rs!fakturanr
    End If
    rs.MoveNext
  Loop
  rs.Close
  qry.Close

når den kommer til linien:
Set RS = CurrentDb.Openrecordset("NyesteFaktura", dbOpenSnapshot)

får jeg beskeden: To few parameters 1
Nogen ide?
I nogle tilfælde at qurey'en godt risikere at returnere ingen ting, men lige den jeg tester med, returnere den 1 række

Claes, desværre, det har jeg gjort tidligere i min kode, uden succes :/

Du mangler også at erklære din rs variabel, men i dit tilfælde behøver du ikke at erklære en QueryDef variabel. I øvrigt er Like operatoren ikke god i din kode, idet jeg går ud fra Nyhed feltet er en Boolean (sand/falsk datatype)? Hvad er i øvrigt "test"? Hvis det er en variabel, skal den erklæres først (som string?). Prøv følgende som en test:

Dim qry As DAO.RecordSet, db as DAO.Database
 
  Set db = CurrentDb
  Set rs = db.OpenRecordset("NyesteFaktura", dbOpenSnapshot, dbText)
  Do While Not rs.EOF
    If rs!nyeste = True Then
        MsgBox rs!fakturanr
    End If
    rs.MoveNext
  Loop
  rs.Close

Nyhed feltet burde være Nyeste feltet...

tjaa, det kunne være min forspøgsel som den ikke kan lide, for skifter jeg den til en anden ser det ud til at fungere.

så hvad er der galt?

SELECT brands.kundenummer, faktura.fakturanr, faktura.nyeste, eksponeringer.brandid
FROM brands INNER JOIN (faktura INNER JOIN eksponeringer ON faktura.fakturanr = eksponeringer.fakturanr) ON brands.id = eksponeringer.brandid
WHERE (((eksponeringer.brandid)=[FORMS]![eksponeringer]![brandid]));


er det fordi den ikke må tage noget med fra forms?

Det er muligt. Forms er en Samling eller Collection, som refererer til samlingen af åbne formularer i din applikation. Det kræver at din formular Eksponeringer er åben, når forespørgslen (og koden) køres.

det er den skam også, lidt derfor det undre mig at det ikke fungere

Jeg havde også lavet en mindre fejl. Første linie burde være:

Dim rs As DAO.RecordSet, db as DAO.Database

Hvis dét ikke virker, så prøv om følgende virker (forudsat at brandid er en tal-datatype):

Dim rs As DAO.RecordSet, db as DAO.Database, strSQL as String
 
  Set db = CurrentDb
  strSQL = "SELECT brands.kundenummer, faktura.fakturanr, faktura.nyeste, eksponeringer.brandid
FROM brands INNER JOIN (faktura INNER JOIN eksponeringer ON faktura.fakturanr = eksponeringer.fakturanr) ON brands.id = eksponeringer.brandid
WHERE (((eksponeringer.brandid) = " & [FORMS]![eksponeringer]![brandid] & "))"
  Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot, dbText)
  Do While Not rs.EOF
    If rs!nyeste = True Then
        MsgBox rs!fakturanr
    End If
    rs.MoveNext
  Loop
  rs.Close

ja, det virker så fint, men sku da underligt at det ikke gøre når jeg bruger en query som ligger i db'en...

smid et svar hvis du også vil ha' lidt point

Tak