Thema Datum  Von Nutzer Rating
Antwort
Rot unterfolmular aktualiesieren
 17.12.2009 10:35:55 Barbara
NotSolved

Ansicht des Beitrags:
Von:
Barbara		 Datum:
17.12.2009 10:35:55		 Views:
1779		 Rating:
     
Antwort:
  Ja
Thema:
unterfolmular aktualiesieren
Hallo!

könnte mir vielleicht jemand weiter Helfen, ich komme einfach nicht weiter

nach dem wenn ich Ausführen Button anklicke ,sollte sich das Unterfolmular mit einem ole-Objekt aktualiesieren (je nach dem was ich für Berech davor ausgewählt habe)
Leider das tut er nicht.Ich bekomme stattdessen die Meldung :

Laufzeitfehler "2118"
Sie müssen das aktuelle Feld speichern, bevor Sie die Aktion AktualisierenDaten ausführen können.

CODE:
Option Compare Database

Public Function stichprobe()

Dim db As DAO.Database
Dim rs, rs1 As DAO.Recordset
Dim Zeitraum, Zeitraum1 As Integer
Dim Form As Object

Set db = CurrentDb
Set rs = db.OpenRecordset("qry_StichprobeumfangDUundHE", DB_OPEN_DYNASET)
Set rs1 = db.OpenRecordset("tbl_Stichprobenumfang", DB_OPEN_DYNASET)

rs.MoveFirst
CurrentDb.Execute "DELETE FROM tbl_stichprobenumfang"

Zeitraum1 = 0

Do Until rs.EOF = True

Zeitraum = 0


'Aktualiesierung des Bezeichnungsfeldes [hudu]im Hauptformular
If fctVarSPU = "HE" Then
Forms![frm_Stichprobenumfang]![hudu].Caption = "Herde Bereich"
ElseIf fctVarSPU = "DU" Then
Forms![frm_Stichprobenumfang]![hudu].Caption = "Dunstabzugshauben Bereich"
End If

'Definition des Zielwertes für die tab_Stichprobenumfang
If fctVarSPU = "HE" Then
ZRaum = DLookup("[Ziel_Herde]", "ini_stichprobe")
ElseIf fctVarSPU = "DU" Then
ZRaum = DLookup("[Ziel_Hauben]", "ini_stichprobe")
End If


'Ausgangswerte für Stichprobenumfang (SPU) auslesen
Zeitraum = rs![KW1]
anzgepr = rs![AnzahlvonMaterial]
anzfert = rs![SummevonStueckzahl]

If Zeitraum1 = 0 Then Zeitraum1 = Zeitraum - 1



'Stichprobenumfang berechnen
SPU = (anzgepr / anzfert) * 100

If Zeitraum = Zeitraum1 + 1 Then

'Daten in Tabelle "tbl_SPU" eintragen
rs1.AddNew
rs1![Zeitraum] = Zeitraum
rs1![stichprobe] = SPU
rs1![geprueft] = anzgepr
rs1![gebaut] = anzfert
rs1![Ziel] = ZRaum
rs1.Update

rs.MoveNext
Zeitraum1 = Zeitraum


Else
Zeitraum = Zeitraum1 + 1
'Daten in Tabelle "tbl_SPU" eintragen wenn nichts produziert würde
rs1.AddNew
rs1![Zeitraum] = Zeitraum
rs1![Ziel] = ZRaum
rs1.Update
Zeitraum1 = Zeitraum

End If

Loop

ende:
rs.MoveFirst


'Aktualiesierung des Unterformulars
Forms![frm_Stichprobenumfang]![ufo_wertetabelle_stichprobe].Requery

'Aktualiesierung des Unterformulars mit Diagramm
DoCmd.RunCommand acCmdSaveRecord
Forms![frm_Stichprobenumfang]![ufo_DIA]![DIA-Stichprobe].Requery -->HIER KOMMT FEHLER


rs.Close
rs1.Close

Exit Function
ende1: MsgBox " Keine Daten für die Auswahl vorhanden", vbInformation


End Function

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot unterfolmular aktualiesieren
 17.12.2009 10:35:55 Barbara
NotSolved