Offene Formulare Aktualisieren A03

08/01/2008 - 09:16 von Roman Grundner | Report spam
Hallo NG,

nach der Änderung eines Schlüsselfeldes (Nummer) in einem Formular
sollen die verknüpften Daten in allen offenen Formularen aktualisiert
werden. In den Beziehungen ist "Aktualisierungsweitergabe an verwandte
Felder" aktiviert.
Ich habe folgenden Code versucht:

Dim NummerNeu As String
Dim Formular As AccessObject

NummerNeu= UCase(InputBox("Bitte die neue Nummer eingeben:",
strDBA))
Me.Nummer = NummerNeu

For Each Formular In CurrentProject.AllForms
If Formular.IsLoaded Then
Formular.Requery ' Error: Objekt unterstützt diese
Eigenschaft oder Methode nicht (Fehler 438)
End If
Next

Wie kann ich die offenen Formulare richtig aktualisieren?

Vielen Dank und Grüße
Roman
 

Lesen sie die antworten

#1 Jörg Ackermann
08/01/2008 - 09:29 | Warnen spam
Hallo,

Roman Grundner meinte:

nach der Änderung eines Schlüsselfeldes (Nummer) in einem Formular
sollen die verknüpften Daten in allen offenen Formularen aktualisiert
werden. In den Beziehungen ist "Aktualisierungsweitergabe an verwandte
Felder" aktiviert.
Ich habe folgenden Code versucht:

Dim NummerNeu As String
Dim Formular As AccessObject

NummerNeu= UCase(InputBox("Bitte die neue Nummer eingeben:",
strDBA))
Me.Nummer = NummerNeu

For Each Formular In CurrentProject.AllForms
If Formular.IsLoaded Then
Formular.Requery ' Error: Objekt unterstützt diese
Eigenschaft oder Methode nicht (Fehler 438)
End If
Next

Wie kann ich die offenen Formulare richtig aktualisieren?



versuche:

...
For Each Formular In CurrentProject.AllForms
If Formular.IsLoaded Then
Forms(Formular.Name).Requery
End If
Next
...

Gruß

Ähnliche fragen