Office: (Office 2010) Formular aktualisieren

gromax · 11. September 2020

Liebe Access-Profis,

unerklärlich zumindest für mich!
Ich habe ein Formular (frm1 - frm_Hinterlegungen) mit einer Namenliste von Lehrkräften und einer zugehörenden Stundenanzahl (Bs. Aus, Elke 28 Lwh; Bendas, Christine 26 Lwh usw.).
Nach Doppelklick auf einen dieser Namen wird dieser und dessen Stundendeputat in ein anderes UnterUnterformular (frm2.1.1 sfm_AVAntragListe02) eingelesen. Dieses UnterUnterformular gehört zu einem Unterformular (frm2.1 sfm_AVAntrag01) und beide zusammen gehören zum Parent-Formular (frm2 frm_AVAntrag).
Zum diesem Parent-Formular gehört ebenso noch ein weiteres Unterformular (frm2.2 sfm_AV_Einsaetze).
Zum Vorgang:
Nach Doppelklick auf einen Namen im frm1 wird dieser Datensatz in das frm2.1.1 übergeben.
Dort möchte ich prüfen, dass nach dem Aufsummieren der Stunden der verschiedenen Lehrkräfte bzw. deren Deputate (hier: Zielzahl 15) das andere Unterformular frm2.2 aktualisiert wird.
vgl. AnfrageFormulare.pdf)
Das schaffe ich nicht!

Das PROBLEM habe ich im Code mit '>>>>>PROBLEM>>>>>>>>>> gekennzeichnet.

Mein Code zum Doppelklick auf frm1:
Code:

Private Sub cboLehrkraft_DblClick(Cancel As Integer)

'Übergabe des angeklickten Datensatzes in das Formular "frm_AVAntrag - sfm_AVAntragListe02"
Dim db As DAO.Database
Dim rcsAVLehrkraft As DAO.Recordset
Dim strSQLAVLehrkraft As String

Dim rcsLwhKorrektur As DAO.Recordset
Dim strSQLLwhKorrektur As String

Dim rcsHinterlegungen As DAO.Recordset
Dim strSQLHinterlegungen As String

Dim intLE_PS As Integer
Dim intSchule As Integer
Dim intGrund As Integer
Dim intVORGAEPS As Integer
Dim datBeginn As Date
Dim datEnde As Date
Dim bytLwh_Antrag As Byte
Dim bytLwh_Uebertrag As Byte
Dim lngID As Long

lngID = Forms!frm_AVAntrag!sfm_AVAntrag01!EIN_PS

If IsNull(Forms!frm_AVAntrag!sfm_AVAntrag01.Form!EIN_Lwh) Then

MsgBox "Sie haben keine Stundenzahl (Lwh)" _
& vbCrLf & "zum anstehenden AV-Vertrag hinterlegt!" _
& vbCrLf & vbCrLf & "Bitte holen Sie dies nach.", vbOKOnly + vbCritical, "Lwh eintragen"
Forms!frm_AVAntrag.SetFocus
Forms!frm_AVAntrag!sfm_AVAntrag01.SetFocus
Forms!frm_AVAntrag!sfm_AVAntrag01.Form!EIN_Lwh.SetFocus
Exit Sub

End If

Set db = CurrentDb
strSQLAVLehrkraft = "SELECT * FROM qry_AVHinterlegungDeputat WHERE AVLED_LE_FS = " & Me!AVLED_LE_FS

Set rcsAVLehrkraft = db.OpenRecordset(strSQLAVLehrkraft, dbOpenDynaset)

'Anzahl der Lwh, die für den AV beim ausgeführten Doppelklick benötigt werden
m_bytLwh_Antrag = Nz(Forms!frm_AVAntrag!sfm_AVAntrag01.Form!EIN_Lwh - Forms!frm_AVAntrag!sfm_AVAntrag01.Form!txtSummeLwh, Forms!frm_AVAntrag!sfm_AVAntrag01.Form!EIN_Lwh)

If m_bytLwh_Antrag = 0 Then
MsgBox "Der Antrag ist bereits mit" _
& vbCrLf & "ausreichender Anzahl an Lwh hinterlegt!" _
& vbCrLf & vbCrLf & "Eine weitere Hinterlegung" _
& vbCrLf & "ist nicht möglich!", vbOKOnly + vbInformation, "Hinweis"

Exit Sub
End If

'Befüllen der Variablen mit den nachgefragten Daten zum Übertrag in die tbl_AVHINTERLEGUNGEN
With rcsAVLehrkraft
intLE_PS = .Fields(1).Value
intSchule = .Fields(2).Value
datBeginn = .Fields(3).Value
datEnde = .Fields(4).Value
intGrund = .Fields(7).Value
bytLwh_Uebertrag = .Fields(12).Value
End With

rcsAVLehrkraft.Close

'Berechnung des Bedarfs an Lwh

If m_bytLwh_Antrag >= bytLwh_Uebertrag Then 'Es werden mehr oder gleich viele Lwh beantragt wie durch Hinterlegung übergeben werden

strSQLHinterlegungen = "SELECT * FROM tbl_AVHINTERLEGUNGEN"

Set rcsHinterlegungen = db.OpenRecordset(strSQLHinterlegungen, dbOpenDynaset)

With rcsHinterlegungen

'Einlesen der nachgefragten Daten in das aufnehmende Formular
.AddNew
.Fields(1).Value = Forms!frm_AVAntrag!sfm_AVAntrag01.Form!EIN_PS
.Fields(2).Value = intLE_PS
.Fields(4).Value = intGrund
.Fields(5).Value = datBeginn
.Fields(6).Value = datEnde
.Fields(7).Value = bytLwh_Uebertrag
.Fields(8).Value = intSchule
.Update
.Close

End With
'neuer Wert des jetzt noch offenen Deputats

m_bytLwh_Antrag = m_bytLwh_Antrag - bytLwh_Uebertrag

'Zurückschreiben der verbrauchten Lwh
strSQLLwhKorrektur = "SELECT AVLED_Korrektur FROM tbl_AVLEHRERDEPUTAT WHERE AVLED_LE_FS = " & Me!AVLED_LE_FS

Set rcsLwhKorrektur = db.OpenRecordset(strSQLLwhKorrektur, dbOpenDynaset)
With rcsLwhKorrektur
Do While .EOF = False
.Edit
.Fields(0).Value = .Fields(0).Value + bytLwh_Uebertrag
.Update
.MoveNext
Loop
.Close
Me.Requery
End With

Else 'Es werden weniger Lwh zum Übertrag gebraucht, als durch Hinterlegung zur Verfügung stehen

strSQLHinterlegungen = "SELECT * FROM tbl_AVHINTERLEGUNGEN"
Set rcsHinterlegungen = db.OpenRecordset(strSQLHinterlegungen, dbOpenDynaset)

With rcsHinterlegungen

'Einlesen der nachgefragten Daten in das aufnehmende Formular
.AddNew
.Fields(1).Value = Forms!frm_AVAntrag!sfm_AVAntrag01.Form!EIN_PS
.Fields(2).Value = intLE_PS
.Fields(4).Value = intGrund
.Fields(5).Value = datBeginn
.Fields(6).Value = datEnde
.Fields(7).Value = m_bytLwh_Antrag
.Fields(8).Value = intSchule
.Update
.Close

End With

'Zurückschreiben der verbrauchten Lwh
strSQLLwhKorrektur = "SELECT AVLED_Korrektur FROM tbl_AVLEHRERDEPUTAT WHERE AVLED_LE_FS = " & Me!AVLED_LE_FS
Set rcsLwhKorrektur = db.OpenRecordset(strSQLLwhKorrektur, dbOpenDynaset)

With rcsLwhKorrektur
Do While rcsLwhKorrektur.EOF = False

.Edit
.Fields(0).Value = .Fields(0).Value + m_bytLwh_Antrag
.Update
.MoveNext
Loop
.Close

Me.Requery
End With

End If

'Aktualisieren des frm2.1 und des zugehörigen Unterformulars frm2.1.1
Forms!frm_AVAntrag!sfm_AVAntrag01.Form.Requery
Forms!frm_AVAntrag!sfm_AVAntrag01.Form.Recordset.FindFirst "EIN_PS = " & lngID
Forms!frm_AVAntrag!sfm_AVAntrag01.Form!sfm_AVAntragListe02.Form.Recordset.FindFirst "AVHIN_EIN_FS = " & lngID

'>>>>>>>>>>>>PROBLEM>>>>>>>>>>>>>>>>>>>>>>>>>
'Aktualisieren des frm2.1 und des zugehörigen Unterformulars frm2.2 - funktioniert nicht!!
If Forms!frm_AVAntrag!sfm_AVAntrag01!sfm_AVAntragListe02!txtSummeAVHIN_Lwh.Value = Forms!frm_AVAntrag!sfm_AVAntrag01!EIN_Lwh.Value Then

Forms!frm_AVAntrag!sfm_AV_Einsaetze.Form.Requery
End If
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Set rcsHinterlegungen = Nothing

Set rcsLwhKorrektur = Nothing

Set rcsAVLehrkraft = Nothing

Set db = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Für jedwede Unterstützung vorab vielen Dank!

Alles Gute
gromax

:)

gromax · 13. September 2020

Liebe Access-Profis,

in der Anlage habe ich eine bildliche Darstellung der Formulare angehängt; habe ich vorher wohl vergessen!
Sorry
gromax

Ohrkester · 13. September 2020

Servus gromax,
es ist notwendig, den Aufbau Deiner DB und dem dortigen Tabellenmodell zu kennen. Bilder von Formularen helfen leider wenig.
Optimal wäre es, eine Demo-DB mit ein paar wichtigen anonymisierten Demodaten hier als zip oder rar hochzuladen.
Minimal notwendig ist es, einen Screenshot Deines Beziehungsfenster zu bekommen. Ohne es wird eine Beratung schwierig.

gromax · 14. September 2020

Hallo Ohrkester,
vielen Dank für Deine Rückmeldung; das Reduzieren meiner DB hat ein wenig Zeit gekostet, so dass ich nun in der Anlage diesen Formular-Tanz zur Verfügung stellen kann.

Zur Vorgehensweise:
- Öffne das Formular frm_AVAntrag und wähle im Listenfeld "AV-Lehrkraft" den ersten Eintrag aus.
- Du siehst, dass für den Vertragslehrer Asterix ein Vertrag an der Schule 'Angen GHS Zeitergerg' über 18 Lehrerwochenstunden (Lwh) beantragt wurde. Dieser Vertrag wird mit dem Sachgrund einer ausfallenden Lehrkraft (hier: Aalmen, Antje mit 18 Lwh) gegenfinanziert.
- Im unteren Formular siehst Du dieses Vertragsverhältnis in einer tabellarischen Auflistung ("bisherige AV-Einsätze").

Gehe nun wie folgt vor:
- Wähle eine neue AV-Lehrkraft im Listenfeld aus: Dehndorf, Dora
- Wähle für sie eine Vertragsschule aus: Angen GHS Kindlein
- Ergänze die automatisierte Eintragung mit dem Deputat in 'AV-Lwh': 25
- Klicke mit Doppelklick in das Feld 'ausfallende Lehrkraft': Es öffnet sich das Formular mit den zur Gegenfinanzierung zur Verfügung stehenden Ausfall-Lehrkräften.
- Klicke hierbei doppelt auf den Namen der Lehrkraft 'Aalmen, Antje' mit ihren noch verfügbaren 3 Lwh
Jetzt verstehst Du vielleicht meine Problematik:
Es wurden von den zu finanzierenden 25 Lwh der AV-Lehrkraft 'Dehndorf, Dora' erst 3 Lwh gefunden. Sollten alle 25 Lwh hinterlegt sein, sollte das Arbeitsverhältnis in der unteren Tabellendarstellung des Formulars 'sfm_AV_Einsaetze' dargestellt werden.
- Klicke dazu auf eine noch verfügbare andere Lehrkraft: Aust, Elke

Jetzt sollte das Formular mit der Tabellendarstellung aktualisiert werden.

Wenn Du alle Formulare schließt und danach wieder die AV-Lehrkraft 'Dehndorf, Dora' auswählst, siehst Du den Eintrag.

Wie kann ich die Aktualisierung ohne Schließen der Formulare erzwingen?

Vielen Dank für jedwede Hilfestellung!
gromax

Sämtliche Bezeichnungen/Namen für Schulen und Lehrkräfte sind frei erfunden.

gromax · 16. September 2020

An alle Interessierten,

diese Anfrage ist gelöst; nähere Information unter dem Thread "Nur im Einzelschrittmodus ok?".

Viele Grüße
gromax

Office: (Office 2010) Formular aktualisieren

Formular aktualisieren

Formular aktualisieren

Formular aktualisieren

Formular aktualisieren - Similar Threads - Formular aktualisieren

Access Formular aktualisieren durch Dropdown-Liste

Formular Textfelder aktualisieren nicht

KeyPress-Ereignis zum aktualisieren des Formular-Filters

Formular aktualisieren

Formular Daten aktualisieren

Formular Filter aktualisieren

Feld in Formular beim Speicher aktualisieren