Programmfehler

01/02/2008 - 14:18 von Wilfried Pernak | Report spam
Hallo NG'ler,

wenn ich das folgende Programm laufenlasse bekomme ich nach dem zweiten
Durchlauf foldgende Fehlermeldung:
Laufzeitfehler 3265 Element in dieser Auflistung nicht gefunden.

Option Compare Database
Option Explicit

Dim mrs As DAO.Recordset
Dim sSQL As String
Dim tabname As String
Dim anr As String
Dim anzahl As Integer
Sub CreatePDF()
DoCmd.SetWarnings False
sSQL = "SELECT MSysObjects.Name FROM MSysObjects
WHERE(((MSysObjects.Name) Like '03*'))"
Set mrs = CurrentDb.OpenRecordset(sSQL)
If Not (mrs.EOF And mrs.BOF) Then
mrs.MoveFirst
Do
tabname = mrs.Fields("Name")
CopyTable (tabname)
AnzRezepte
mrs.MoveNext
Loop Until mrs.EOF
End If
End Sub
Sub CopyTable(table As String)
sSQL = "SELECT " & table & ".*,* INTO Rezeptdaten FROM " & table
DoCmd.RunSQL sSQL
End Sub
Sub AnzRezepte()
sSQL = "SELECT Rezeptdaten.VArztNummer AS Anr, Max(Rezeptdaten.[Anzahl
Einzelverord]) AS Anzahl FROM Rezeptdaten GROUP BY Rezeptdaten.VArztNummer"
Set mrs = CurrentDb.OpenRecordset(sSQL)
anr = mrs.Fields("Anr")
anzahl = mrs.Fields("Anzahl")
CreateBericht (anzahl)
End Sub
Sub CreateBericht(anzahl As Integer)
Select Case anzahl
Case 1
sSQL = "SELECT Rezeptdaten.VArztNummer, Rezeptdaten.VersNummer,
Rezeptdaten.IK, Rezeptdaten.VerordDatum, Rezeptdaten.Zuzahlung/100 AS
Zuzahlung," & _
"Rezeptdaten.PZN1, Rezeptdaten.Pràparat1,
Rezeptdaten.Mengenfaktor1, Rezeptdaten.Bruttobetrag1/100 AS Bruttobetrag1
FROM 74E2006Gesamt" & _
"LEFT JOIN Rezeptdaten ON [74E2006Gesamt].IK =
Rezeptdaten.IK"
Set mrs = CurrentDb.OpenRecordset(sSQL)

Case 2
sSQL = "SELECT Rezeptdaten.VArztNummer, Rezeptdaten.VersNummer,
Rezeptdaten.IK, [74E2006Gesamt].[ErsterWert von KassenNr] AS Kassennummer,"
& _
"[74E2006Gesamt].[ErsterWert von KasseLang] AS
Kassenname, Rezeptdaten.VerordDatum, Rezeptdaten.Zuzahlung/100 AS Zuzahlung,
Rezeptdaten.PZN1," & _
"Rezeptdaten.Pràparat1, Rezeptdaten.Mengenfaktor1,
Rezeptdaten.Bruttobetrag1/100 AS Bruttobetrag1, Rezeptdaten.PZN2,
Rezeptdaten.Pràparat2," & _
"Rezeptdaten.Mengenfaktor2, Rezeptdaten.Bruttobetrag2/100
AS Bruttobetrag2 FROM Rezeptdaten LEFT JOIN 74E2006Gesamt ON Rezeptdaten.IK
= [74E2006Gesamt].IK"
Set mrs = CurrentDb.OpenRecordset(sSQL)
End Select
End Sub
 

Lesen sie die antworten

#1 Mark Doerbandt
01/02/2008 - 14:22 | Warnen spam
Hallo, Wilfried,

Wilfried Pernak:

wenn ich das folgende Programm laufenlasse bekomme ich nach dem zweiten
Durchlauf foldgende Fehlermeldung:
Laufzeitfehler 3265 Element in dieser Auflistung nicht gefunden.



in welcher Zeile steht die gelbe Markierung, wenn Du auf Debug
klickst?

Gruss - Mark

2. SEK (SQL Server-Entwickler-Konferenz) in Nürnberg:
12./13.4 und 19./20.4.2008 http://www.donkarl.com/SEK

Bitte keine eMails auf Newsgroup-Beitràge senden.

Ähnliche fragen