VBA: UF fehlende Werte ComboBoxen
01.01.2020 06:35:46
Charly
habe ein Problem mit meinen UF´s u. komme nicht weiter.
Aufbau: Suche Daten (Mappe(1), Ergänze Daten, Schreibe neuen Datensatz in Mappe(2)
Mappen:
1. Mappe: HM2030_RO_ / Daten
2. Mappe: HM2030_Aus_ / hier sind meine UF´s
UserForm
1. UF (UF1_Austragen) , 2. UF (UF1_Austragen2), 3. UF (UF1_Austragen3)
Ablauf:
1. In Mappe(1) sind Daten u. ein Button, dieser öffnet Mappe(2) inkl. UF(2) in dieser UF sind
7 OptionButton zur Auswahl.
2. Über die OptionButton wird Abgefragt was gemacht werden soll.
Bsp. klick auf OB "Rollator", danach würd in Mappe(1) Tabelle "RO" selektiert ebenso wird in
Mappe(2) Tabelle "RO" Aktiviert. Jetzt öffnet sich UF(1), in dieser stehen zwei ComboBoxen zur
Auswahl (Bereich) u. (ID).
3. Über die ComboBoxen wähle Ich einen Wert aus, dieser wird in Mappe(1) Tab. (RO) gesucht u.
in die UF geladen. Mit Klick auf Button "OK" folgt eine Meldung, diese mit ja" bestätigen.
4. Eine weitere UF startet zur weiteren Verarbeitung müssen Daten Ergänzt werden, mit Klick auf
Speichern, erscheint eine weitere Meldung. Diese ebenfalls mit "ja" bestätigen.
Nach dem Bestätigen wird der Datensatz aus Mappe(1) gelöscht. Danach erscheint eine Meldung
ob weitere Daten Ausgetragen werden sollen.
Diese Meldung mit "ja" bestätigen, es folgt der gleiche Ablauf wie (zu 1-3).
Hier liegt der Fehler, sobald die Auswahl in (UF2) getroffen wurde u. sich die UF(1) öffnet ist keine Auswahl in den ComboBoxen möglich da keine Werte hinterlegt sind.
Woran kann es liegen, kann mir jemand Helfen.
Danke im Voraus.
Bsp.-Mappen:
Mappe(1):
https://www.herber.de/bbs/user/134065.zip
Mappe(2):
https://www.herber.de/bbs/user/134066.zip
Gruß Charly