Office: (Office 2010) Listenfeld ergänzen, wenn kein Wert in der Liste

Hallo zusammen.

Nachdem ich mit Eurer Hilfe die Auswahl von PLZ/Ort/Ortsteil via Listenfeld realisiert habe
( http://www.ms-office-forum.net/forum...d.php?t=325423 ),
ist mir am Wochenende noch etwas eingefallen und ich habe mich drangesetzt, das Thema zu lösen, leider ohne Erfolg.

Es kommt vor, dass es einen Eingabewert nicht gibt, wodurch die Liste des Listenfeldes leer bleibt.

Existiert eine Möglichkeit, dass man diese füllen kann, wie z.B. ein Kombinationsfeld?

Liebe Grüße
Torsten

:)

 

Moin,

Was genau ist damit gemeint? Neue Werte hinzufügen, die dann auch in der Tabelle landen?
maike

 

Hi Hoschi

wenn ich dich richtig verstehe möchtest du eine Erweiterung der Liste wenn ein Eintrag nicht vorhanden ist.
In der Beispiel DB Nordwind ist dieser Fall im Form Bestelldetails eingebaut.

In den Eigenschaften des Listenfeldes oder Kombifeldes Parameter Nur Listeneinträge =Ja
Wertelistebearbeitung zulassen =Ja
Bearbeitungsformular für Liste= ein Form welches dir ermöglicht in die Datenherkunft des Feldes Daten einzugeben.

Oder du arbeitest da über VBA ab und zwar als Ereignis "Bei nicht in Liste".

Gruß Andreas

 

Richtig. Es gibt bei Kombinationsfelder die Möglichkeit, bei "NichtInListe" ein Programm zu starten, was, zum Beispiel, ein Formular öffnet und diverse Werte einträgt.

Ein Listenfeld hat kein "NichtInListe".

Allerdings, wenn das Listenfeld "leer" ist, könnte man auf diesem Weg vielleicht irgendetwas ähnliches starten.

Liebe Grüße
Torsten

 

\@A.S.
AFAIK gibt es diese Möglichkeiten (Nur Listeneinträge, Ereignis not in List, Wertliste bearbeiten) für ein Listenfeld nicht - zumindest nicht bis A2003.

@Hoschi Jones
Bei einer Liste kannst du die Einträge in der Tabelle, z.B. wie Andreas vorschlägt mit einem (Popup-)Formular, machen und dann die Liste neu füllen.
Öffnen des Popups dann vielleicht nach Prüfung der Liste auf vorhandene Datensätze (ListCount) und Abfrage nach neuem Eintrag per Messagebox o.ä.

maike

 

Hi
Stimmt Maike Hatte mal wieder zu schnell gelesen und das ganze auf ein Kombifeld geschoben :-(


siehe das was ich vorher geschrieben hatte.
Reiter Daten Wertelistebearbeiten
Bearbeitungsformular erstellen

Beim Listenfeld kann man dann mit der rechten Maustaste Listenelement bearbeiten. dort ruft man dann das Form auf

 

Sorry, mein PC meinte, er dürfte den Geist aufgeben und das Netzteil abfackeln.

Ich habe mal versucht, die leere Liste wie folgt abzufangen.

Private Sub lstPlzOrtOrtsteil_BeforeUpdate(Cancel As Integer)
If Me!lstPlzOrtOrtsteil.ListCount = 0 Then 'Name des Listenfeldes
DoCmd.Close acForm, "frmOrtAuswahl" 'Formular mit dem Listenfeld
End If
End Sub

Leider hat das nicht funktioniert.
Gehe ich da mit falschen "Voraussetzungen" dran oder muss ich die Aktion evtl. im Eingabeformular auslösen?

 

Mach das mal im Form_Current, das Ereignis BeforeUpdate der Liste wird wohl nicht ausgelöst.
maike

 

Auch das bringt keinen Erfolg.

Private Sub Form_current()
If Me!lstPlzOrtOrtsteil.ListCount = 0 Then
DoCmd.Close acForm, "frmOrtAuswahl"
Else
Dim strSQL As String
strSQL = "SELECT Plz, Ort, Ortsteil FROM qryPlzOrtOrtsteil"
If Not IsNull(Me.OpenArgs) Then
Me.lstPlzOrtOrtsteil.RowSource = strSQL & " WHERE " & Me.OpenArgs
Else
Me.lstPlzOrtOrtsteil.RowSource = strSQL
End If
End If

End Sub

 

Du musst erst die Rowsource zuweisen:
Code:

maike

 

Zu früh gefreut. ich dachte, ich hätte es fertig, aber ....

Code:

Ich bekomme die Fehlermeldung "Diese Aktion kann nicht ausgeführt werden, solange ein Formular- oder Berichtsereignis ausgeführt wird."
Was habe ich nun falsch?