Fehler in select case?

12/12/2008 - 23:37 von Peter Wenzel | Report spam
Hallo zusammen,

ich stehe hier im dunkeln.
Folgender Code erzeugt den Fehler 'Case ohne Select Case'.
Ich bin es schon ein paar mal durchgegangen, aber finde den Fehler nicht.
Könntet ihr mich mal drauf stossen?
Nehme ich den kompletten Inhalt von dem ersten àußeren Case heraus (zwischen Case "tblTempZSP" und
Case "tblTempKennung") dann làuft der Code durch.

Danke schon mal für den Blindenhund ;-)

Gruß
Peter

...
Do While Not rs1.EOF
Select Case rs1!Tabelle
Case "tblTempZSP"
For Zàhler = 1 To 4
Select Case rs1!Tabelle
Case "Name"
ZSPName = rs1!Feldwert
Case "PLZ_ZSP"
PLZ_ZSP = rs1!Feldwert
Case "Auflage"
ZSAuflage = rs1!Feldwert
Case "Anlieferung"
' Hier noch nichts
Case Else
MsgBox "Fehler beim Import der Feldbezeichnungen" & "Der Import wird
abgebrochen!", vbOKOnly
Exit Sub
End Select
rs1.MoveNext
Next
Set rs2 = db.OpenRecordset("tblTempZSP", dbOpenDynaset)
With rs2
.AddNew
!ZSP = Name
!PLZ_ZSP = PLZ_ZSP
!Auflage = ZSAuflage
.Update
rs2.Close
Case "tblTempKennung"
' kommt noch
Case "tblTempZBN"
' kommt noch
Case Else
MsgBox "Fehler beim Import der Feldbezeichnungen" & "Der Import wird abgebrochen!", vbOKOnly
Exit Sub
End Select
Loop
...


Bitte alle Antworten hier in die Newsgroup.
Mails nur nach Rücksprache zusenden.
 

Lesen sie die antworten

#1 Karl Donaubauer
12/12/2008 - 23:52 | Warnen spam
Peter Wenzel wrote:
ich stehe hier im dunkeln.
Folgender Code erzeugt den Fehler 'Case ohne Select Case'.
Ich bin es schon ein paar mal durchgegangen, aber finde den Fehler nicht.
Könntet ihr mich mal drauf stossen?
Nehme ich den kompletten Inhalt von dem ersten àußeren Case heraus
(zwischen Case "tblTempZSP" und Case "tblTempKennung") dann làuft der
Code durch.
Danke schon mal für den Blindenhund ;-)



*schnüffel*

...
Do While Not rs1.EOF
Select Case rs1!Tabelle
Case "tblTempZSP"
For Zàhler = 1 To 4
Select Case rs1!Tabelle
Case "Name"
ZSPName = rs1!Feldwert
Case "PLZ_ZSP"
PLZ_ZSP = rs1!Feldwert
Case "Auflage"
ZSAuflage = rs1!Feldwert
Case "Anlieferung"
' Hier noch nichts
Case Else
MsgBox "Fehler beim Import der Feldbezeichnungen" & "Der
Import wird abgebrochen!", vbOKOnly
Exit Sub
End Select
rs1.MoveNext
Next
Set rs2 = db.OpenRecordset("tblTempZSP", dbOpenDynaset)
With rs2
.AddNew
!ZSP = Name
!PLZ_ZSP = PLZ_ZSP
!Auflage = ZSAuflage
.Update



Hier fehlt
End With

rs2.Close
Case "tblTempKennung"
' kommt noch
Case "tblTempZBN"
' kommt noch
Case Else
MsgBox "Fehler beim Import der Feldbezeichnungen" & "Der Import
wird abgebrochen!", vbOKOnly Exit Sub
End Select
Loop
...



HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com

Ähnliche fragen