---

Hejsa
Er der nogle der kan hjælpe med at få rettet denne fejl ?

Her er koden jeg bruger :

Dim db1 As Database
Set db1 = OpenDatabase("c:\Indtastning\danREPLICA.mdb")
Dim RS As Recordset
Set RS = db1.OpenRecordset("SELECT * FROM Ordre")

Det er "Set RS = db1.OpenRecordset("SELECT * FROM Ordre")" den melder fejl
på.

Jeg har 3 forskellige programmer, i de 2 af programmerne køre koden uden
problemer.

Er der nogle der har en ide ?

Henrik

---

Jeg ville starte med at angive SQL-sætningen korrekt. Altså "SELECT * FROM
Ordre;"

"Danlamp Teknik" <danlamp@danlamp.dk> skrev i en meddelelse
news:9edmrg$g3m$1@news.inet.tele.dk...
> Hejsa
> Er der nogle der kan hjælpe med at få rettet denne fejl ?
>
> Her er koden jeg bruger :
>
> Dim db1 As Database
> Set db1 = OpenDatabase("c:\Indtastning\danREPLICA.mdb")
> Dim RS As Recordset
> Set RS = db1.OpenRecordset("SELECT * FROM Ordre")
>
> Det er "Set RS = db1.OpenRecordset("SELECT * FROM Ordre")" den melder fejl
> på.
>
> Jeg har 3 forskellige programmer, i de 2 af programmerne køre koden uden
> problemer.
>
> Er der nogle der har en ide ?
>
> Henrik
>
>

---

Danlamp Teknik skrev:
> Dim db1 As Database
> Set db1 = OpenDatabase("c:\Indtastning\danREPLICA.mdb")
> Dim RS As Recordset
> Set RS = db1.OpenRecordset("SELECT * FROM Ordre")
....
> Det er "Set RS = db1.OpenRecordset("SELECT * FROM Ordre")" den melder fejl
> på.
> Jeg har 3 forskellige programmer, i de 2 af programmerne køre koden uden
> problemer.

Hvilken reference har du sat op (Project, References), for at kunne erklære
variabler af typen Database og Recordset?
Kunne det tænkes at referencen ikke er sat op til det samme i de 3
programmer?

-------
Tomas

---

Jeg har lige samme problem men hos mig opstår problemet kun hvis jeg fjerner
en reference (DAO 3.6) og derefter tilføjer samme reference (DAO 3.6) igen,
jeg har ikke ændret noget i kode og referencen er den samme hvilke får mig
til at tror at det er en fejl i min version af VB

Men jeg ville da være glad hvis nogen ved hvordan man slipper af med dette
problem igen .

Sony

"Danlamp Teknik" <danlamp@danlamp.dk> skrev i en meddelelse
news:9edmrg$g3m$1@news.inet.tele.dk...
> Hejsa
> Er der nogle der kan hjælpe med at få rettet denne fejl ?
>
> Her er koden jeg bruger :
>
> Dim db1 As Database
> Set db1 = OpenDatabase("c:\Indtastning\danREPLICA.mdb")
> Dim RS As Recordset
> Set RS = db1.OpenRecordset("SELECT * FROM Ordre")
>
> Det er "Set RS = db1.OpenRecordset("SELECT * FROM Ordre")" den melder fejl
> på.
>
> Jeg har 3 forskellige programmer, i de 2 af programmerne køre koden uden
> problemer.
>
> Er der nogle der har en ide ?
>
> Henrik
>
>