NichtInListe in Endlos-UF

11/10/2009 - 12:21 von Herbert Fidesser | Report spam
Hallo Gruppe!

Wie in FAQ 4.13 beschrieben öffne ich aus einer Combobox eines Endlos-
UF mit dem Ereignis "Nicht in Liste" ein Eingabeformular mit mehreren
Feldern.
Die Datenquelle des Eingabeformulars ist auch die Rowsource der
aufrufenden Combobox.
Alles funtioniert pràchtig.
Leider aber wird nach erfolgter Anlage eines neuen Datensatzes bei der
Rückkehr die Combobox nicht aktualisiert. Der Nicht-in-Liste Text
verschwindet und das Feld bleibt leer. Erst eine Aktualisierung mit
Shift+F9 bringt das gewünschte Ergebnis.

So rufe ich das Eingabeformular auf:
Private Sub IDAutor_NotInList(NewData As String, Response As Integer)
If MsgBox("AutorIn unbekannt." & vbCrLf & "AutorIn neu anlegen?",
vbQuestion + vbYesNo, "AutorIn neu") = vbYes Then
Response = acDataErrContinue
DOCMD.OpenForm "frmAutor", acNormal, , , acFormAdd
Forms!frmAutor!AutorName = NewData
Else
Response = acDataErrContinue
Me.IDAutor.Undo
End If
End Sub

Und so schließe ich das Formular wieder:
Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click
Forms!frmMain!frmErfassung.Form!UFBeitrag.Form!IDAutor = Me!IDA
Forms!frmMain!frmErfassung.Form!UFBeitrag.Form!IDAutor.Requery
DOCMD.Close
Exit_cmdClose_Click:
Exit Sub
Err_cmdClose_Click:
MsgBox Err.Description
Resume Exit_cmdClose_Click
End Sub

Wo liegt mein Fehler?
Danke für Hilfe!
Herbert
 

Lesen sie die antworten

#1 Thomas Möller
11/10/2009 - 19:34 | Warnen spam
Hallo Herbert,

Herbert Fidesser schrieb:
Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click



àndert sich etwas, wenn Du die beiden folgenden Zeilen vertauscht?


Forms!frmMain!frmErfassung.Form!UFBeitrag.Form!IDAutor = Me!IDA
Forms!frmMain!frmErfassung.Form!UFBeitrag.Form!IDAutor.Requery



Also erst das Requery und danach die Zuweisung des neuen Wertes.


CU
Thomas

Homepage: www.Team-Moeller.de

Ähnliche fragen