title image


Smiley Re: Ich nehme stets beides
Hi,



ich habe meine Module nach dem Vorschlag um rs.close (bisher nur set rs = nothing)ergänzt.



Danach habe ich folgende Fehlermeldung erhalten



Objektvarialbe oder With-Blockvariable nicht festgelegt.



Bespiel:



Sub EinDatensatz(Auswahl As Boolean, TerminNr As Long, AbschnittNr As Long)



Dim db As DAO.Database

Dim rs As DAO.Recordset



Set db = CurrentDb

Set rs = db.OpenRecordset("SELECT * FROM tblBStandortBereichTerminAuswahl WHERE [AbschnittNr] =" & AbschnittNr)



Do Until rs.EOF = True

If rs!TerminNr TerminNr Then

If rs!Auswahl = True Then

rs.Edit

rs!Auswahl = False

rs.Update

End If

End If

rs.MoveNext

Loop



rs.close

Set rs = Nothing

Set db = Nothing



End Sub



Was ist falsch?


Viele Grüße ctulhu

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: