sql fra forespørgsel

Dim SQLStr as String
SQLStr = Currentdb.Querydefs("Din forespørsel").SQL

Metoden kræver reference til "Microsoft DAO 3.x Object Library"

tak .. ved du hvordan jeg finder hvor mange forespørsler der er og hvad de hedder.. ?

currentdb.QueryDefs.Count giver antallet

Hvis du skal have alle navne, kan du lave denne kode:

Dim n as Long
For n = 0 to currentdb.QueryDefs.Count-1
  debug.print currentdb.QueryDefs(n).name
next n

Listen vises i Immidiate-vinduet

men sf: kigger du ikke lige på dette spm: http://www.eksperten.dk/spm/488535

og nogle af de andre...jeg har besvaret flere af dine spm uden at du har afsluttet eller kommenteret dem.

Jeg går ud fra, at det er fordi du lige har logget af, at du pludselig ikke kommenterer mine sidste 2 indlæg, ligesom jeg går ud fra, at det er ren forglemmelse, at du har så mange spm åbne (9 i skrivende stund!).
Jeg ved at flere af "Eksperterne" her på sitet er træt af at bruge tid og kræfter på at hjælpe folk, som ikke engang gider at give point eller afslutte spørgsmålene.

Jeg har selv disse 2 spm (ud over det tidligere nævnte), som jeg da gerne så, at du kommenterede eller afsluttede:

http://www.eksperten.dk/spm/477984
http://www.eksperten.dk/spm/489183

enten virker SQLStr = Currentdb.Querydefs("Din forespørsel").SQL ikke ellers
er det "Microsoft DAO 3.x Object Library" jeg ikke kan få sat til .. kommer med nogle underlige fejl i sql'en

Hej sf,

Tak fordi du lukkede spørsmålene :o)
Jeg mente nu ikke, at du bare skulle give mig point. Det er mere fordi, at når man har brugt tid på at hjællpe én, så vil man gerne vide om det virker og om ens hjælp er blevet værdsat (ikke nødvendigvis med point).


Du sætter referencerne ved at gå i menuen Tools->References (i VBA editor) og finder den pågældende reference på listen.

Når den er på plads, og du stadig får en fejlmeddelelse, må du lige skrive hvilken fejl, den kommer med (og i hvilken linie, hvis du trykker [Debug].