title image


Smiley Re: noch ein problem
Hallo Bernd666,



2x hintereinander rs.open ist nicht so gut. Hier mal ein kleines Beispiel in DAO nicht in ADOC. Das ist etwas transparenter.

Musst aber den entsprechenden Verweis setzen.

Z.B. Microsoft DAO 3.6 Object Library



Hier nun der Beispielcode.



Dim DB As Database

Dim RS As Recordset

Set DB = OpenDatabase("D:\DeinVerzeichnis\Test.mdb")

Set RS = DB.OpenRecordset("SELECT * FROM DeineTabelle WHERE Lfd=1")

If RS.RecordCount > 0 Then

RS.MoveFirst

Do Until RS.EOF

MsgBox RS.Fields("DeinFeld")

RS.MoveNext

Loop

End If

RS.Close

DB.Close

Set RS = Nothing

Set DB = Nothing





Wo ist 'rnrcnn3' definiert??

Eine kleine Beschreibung deiner Problemstellung über die Fehlermeldung hinaus wäre ebenfalls sehr hilfreich.





Gruß

Tester07

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: