Frage im Bereich Access

Access, per VBA Zeilen aus Kombifeld ausblenden

Geschrieben von Valume91 am 16.09.2009 um 12:55:34 Uhr, 6 Antworten, 1421 Aufrufe, Status: gelöstDer Beitrag gilt als gelöst

Wie kann ich per VBA zeilen in einem Kombinationsfeld ausblenden, so das diese nicht mehr zur Auswahl stehen?

Hallo liebe Admins

Wie oben beschrieben möchte ich per VBA mehrere Zeilen aus einem Kombinationsfeld ausblenden, so das diese nicht mehr zu Auswahl stehen.
Der Grund dafür ist das ich 4 Kombinationsfelder habe.
Wobei man beim ersten eine Kategorie auswählt, und beim zweiten ist dann die Auswahl begrenzt auf die Felder die zur Kategorie gehören. Es werden also
felder ausgeblendet. Ich habe bereits in verschiedenen Foren gelesen das es in der Beispieldatenbank "beispielloesung.mdb" eine solche Funktion gibt.
Leider ist diese DB nicht mehr in Access 2003 enthalten und ich habe Sie auch nirgends zum Herunterladen gefunden.
Wenn mir jemand diese schicken könnte würde mir das schon sehr helfen!

MfG Valume
Veröffentlichen Sie diesen Beitrag in Ihrem sozialen Netzwerk
6 Antworten
1
SlainteMhath schreibt am 16.09.2009 um 13:28:25 Uhr
Moin,

normalerweise wird nach dem update der 1ten Kombobox die Datenquelle der 2ten Kombobox angepasst.

in etwa:

01.
sub Kombo1_onChange 
02.
  Kombo2.DataSource="SELECT UnterKategorie FORM tabelle WHERE Kategorie=" & Kombo1.Value 
03.
  Kombo2.requery 
04.
end sub

(Aus dem Kopf geschrieben - kann sein das die Methoden/Eigenschaften etwas anders benannt sind)

lg,
Slainte.
2
Valume91 schreibt am 21.09.2009 um 16:39:48 Uhr
Tag Slainte

Danke erstmal für deine Antwort!
Entschuldige mich, aber ich verstehe den Code nicht ganz.
Wo kann ich eintragen welche Felder im Kombo2 angezeigt werden wenn Kombo1 z.B. den Wert "Endprüfung" hat?
Der Code sollte so "ähnlich" aussehen: ( nur das ich halt nicht weiss wie die Befehle lauten)

if Me.Kombo1 = "Endprüfung" Then
*befehl der die auswahl von Kombo2 auf dieunddie Kriterien eingränzt*
if Me.Kombo1 = "Fertigung1" Then
*Befehl der die Auswahl von Kombo2 auf dieunddie anderen Kriterien eingränzt*
if Me.Kombo1 = "Fertigung2" Then
*Befehl der die Kriterien von Kombo2 auf dieunddie nochmalsanderen Kriterien eingränzt*
usw.

MfG Valume
3
SlainteMhath schreibt am 22.09.2009 um 08:00:30 Uhr
Moin,

also der Profi face-smile legt in so einem Fall 2 Tabellen an:

Tabelle Kategorien:
KategorieID
KategorieText

Tabelle UnterKategorien
UnterKategorieID
KategorieID
UnterKategorieText

Die Datenquelle von Kombo1 ist Kategorien, die von Kombo2 UnterKategorien. In den Kombo's werden jeweils die IDs der Einträge gespeichert, also KategorieID bzw UnterKategorieID

Alles andere ist programtechnisch eine Katastrophe face-smile

lg,
Slainte
4
Valume91 schreibt am 22.09.2009 um 11:18:06 Uhr
Moin Profi ;)

Danke! das hilft mir schon einiges weiter! Das werden jedoch viele Tabellen, da ich Unter und UnterUnter Kategorien habe. Wie verknüfe ich dann die beiden Tabellen richtig? Wo ist Primär und wo Fremdschlüssel? und welche Einstellungen muss ich da vornehmen damit es korrekt funktioniert? Ich nehme mal an ohne Ref Integrität? und Welchen Verknüpfungstyp?

Gruss Valume
5
SlainteMhath schreibt am 22.09.2009 um 11:25:34 Uhr
Hi,


Tabelle Kategorien:
KategorieID --> Primärschlüssel
KategorieText

Tabelle UnterKategorien
UnterKategorieID --> Primärschlüssel
KategorieID --> Fremdschlüssel (Kategorien.KategorieID)
UnterKategorieText

Verknüpfiungstyp wäre in dem Fall 1:n (Kategorien.KategorieID -> UnterKategorien.KategorieID)

Ref. Intgegrität brauchts da im Prinzip nicht.

lg,
Slainte
6
Valume91 schreibt am 28.09.2009 um 15:56:23 Uhr
Ich werdes mal so versuchen, danke für deine Hilfe!
Sollte es nicht klappen komme ich sicher auf dich zurück ;)

lg Valume
Aktuelle Suchbegriffe:
apc power chute network shutdown konfiguration       astaro security gateway       batch minwert       bezeichnung netzlaufwerk net use befehl bestimmen       cmd befehl net use ohne benutzerkennwort       druckerpool aktivieren       dsl via satellit       dual monitor betrieb touchscreen tft       exchange 2010 outlook web app kann öffentliche ordner nicht öffnen       exchange html mail wird attachment umgewandelt       exe netzwerk per script anderem rechner ausführen beenden       fehlgeschlagene anwendung explorer exe fehlgeschlagenes modul ntdll dll       firefox unattended installation config file       gruppenberechtigung readonly nicht mailbox zuordbar       gruppenrichtlinie verhindert ausführen dateien server 2003       hamachi professionelle alternative       iphone via active sync exchange server anbinden       klonen acronis fehlgeschlagen missing operating system       komisches verhalten rdp sitzungen       lenovo t61 ahci modus kompatibilitätsmodus       link dir 615 repeater       netgear wg602v2 repeater thomson st585       net use systemfehler       octopus f200       ordnerumleitung eigenedateien       outlook 2003 öffentliche ordner exchange permanant anzeigen       outlook 2007 fragt start später kennwort       positionieren msgbox wsh       posteingangsserver       postfix ausgehende mails signieren       powershell script automatisch ausführen       programme ohne uac abfrage starten       reg einräge übers netzwerk       remote desktop per vpn umts eplus       schaffe nicht meine externe festplatte fat32 ntfs konvertieren       speicherpfad adobe reader einstellen       suche remote desktop tool       systemadministrator frankfurt gesucht       terminalserver ereignisanzeige explorer exe msvcrt dll fehlermeldung       verschieden gpo einstellungen desktopverknüpfungen desktopfarbe windows tour       vpn verbindung web walk mobile       webinterface citrix linux       windows anmeldeskript wird nicht ausgeführt       windows erkennt 8gb ram verwendet aber 3gb       windows image erstellung waik mdt       windows sage classic line 2010 installation modus       word dokument link intranet falsches papierfach       zugriffsprobleme gerätemanager datenträgerverwaltung       zugriff vba aus excel odbc mssql       zweitinstallation laufwerksbuchstabe