Tabelle füllen

22/02/2009 - 00:30 von Johann Weiss | Report spam
Hallo,
befülle eine Tabelle mit folgender Prozdur um einen Bericht zu füllen.
wird im Open-Ereignis des Berichtes ausgeführt

Dim oDB As DAO.DATABASE
Dim oRs As DAO.Recordset
Dim oRs_A As DAO.Recordset
Dim sngCount As Single
Dim i As Long
Dim j As Long
Dim lngZ As Long

lngZ = 40 'Anzahl Zeilen im Bericht

Set oDB = CurrentDb

Set oRs = oDB.OpenRecordset("tt_diaauslast")
Set oRs_A = oDB.OpenRecordset("qf_diaauslast")

Do Until oRs.EOF 'Tabelle leeren
oRs.Delete
oRs.MoveNext
Loop

oRs_A.MoveLast
sngCount = oRs_A.RecordCount 'Anzahl DS
oRs_A.MoveFirst

If sngCount / lngZ > CLng(sngCount / lngZ) Then
j = (CLng(sngCount / lngZ) + 1) * lngZ
Else
j = (CLng(sngCount / lngZ)) * lngZ
End If

For i = 1 To j
oRs.AddNew
oRs!Pos = i
If oRs_A.EOF Then GoTo WEITER 'Wenn keine DS mehr
oRs!Nr = oRs_A!Nr 'Werte in Tab schreiben
oRs!KW = oRs_A!KW
oRs!ML = oRs_A!ML
oRs!BA = oRs_A!BA
oRs!Kst = oRs_A!Kst
oRs!F_Gruppe = oRs_A!F_Gruppe
oRs!Arbeitsplatz = oRs_A!Arbeitsplatz
oRs!MA = oRs_A!MA
oRs!Zeit = oRs_A!Zeit
oRs!Taktz = oRs_A!Taktz
oRs!Pro = oRs_A!Pro
oRs!Beschreib = oRs_A!Beschreib
oRs!Proz = oRs_A!Proz
oRs!Proze = oRs_A!Proze
oRs!ProMa = oRs_A!ProMa
oRs_A.MoveNext

WEITER:
oRs.Update
Next i

oRs.close
oRs_A.close

Wird die Tabelle direkt aus der Mastertabelle befüllt funktioniert es, mache
ich die Befüllung über eine Abfrage kommt immer folgende Fehlermeldung:
"3 Parameter wurden erwartet, aber es wurden zu wenig Parameter übergben."
Weis jemand vielleicht Abhife?

gruß Johann
 

Lesen sie die antworten

#1 Karl Donaubauer
22/02/2009 - 01:40 | Warnen spam
Johann Weiss wrote:
befülle eine Tabelle mit folgender Prozdur um einen Bericht zu füllen.
wird im Open-Ereignis des Berichtes ausgeführt

Dim oDB As DAO.DATABASE
Dim oRs As DAO.Recordset
Dim oRs_A As DAO.Recordset
...
Set oDB = CurrentDb

Set oRs = oDB.OpenRecordset("tt_diaauslast")
Set oRs_A = oDB.OpenRecordset("qf_diaauslast")
...
Wird die Tabelle direkt aus der Mastertabelle befüllt funktioniert es,
mache ich die Befüllung über eine Abfrage kommt immer folgende
Fehlermeldung: "3 Parameter wurden erwartet, aber es wurden zu wenig
Parameter übergben." Weis jemand vielleicht Abhife?



www.donkarl.com?FAQ6.4

HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com
1. .NET-Entwickler-Konferenz für Accessler: www.donkarl.com?nek

Ähnliche fragen