Datenbanken

Abfrage in Combobox abhängig von Checkbox

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Moin, Ich hatte bisher nicht viel mit MS Access zu tun gehabt und hab da mal ne Anfängerfrage: Also, Ich hab 5 Checkboxen und daneben eine Combobox. Nun will ich die SQL-Abfrage, die die Combobox füllt dynamisch danach verändern, welche Checkbox gerade aktiv ist. Das heißt, wenn Checkbox1 aktiv ist möchte ich nur noch den Text aus der Tabelle (ID, Text) haben, wo die ID mit 1 anfängt. Kann mir da zufällig jemand helfen? mfg Horst

Antwort 1 von Adik_ohne_Keks

Hi,

habe in 3 Minuten Feierabend also ne Antwort im Quick n Dirty Stil:

Ich würde bei der Combobox das Ereignis beim Fokuserhalt abfangen und dann über eine If Struktur die Zustände der Checkboxen abfragen...und wenn dan z.B die erste aktiv ist, dann sieht das mit der Combobox in etwa so aus:

Combobox.rowsource = "Select blabla"

So, Feierabend...

bye

Antwort 2 von Horst69

Hi,

Danke für die schnelle Hilfe, hatte aber ebenfalls Feierabend und konnte das somit erst heute morgen ausprobieren.

A1 = Checkbox
Atxt = Combobox


Private Sub Atxt_GetFocus()
    
    If A1 = True Then Atxt.RowSource = "Select..."

End Sub

Leider gibt es bei mir die Fehlermeldung, dass A1 keinen Wert hat.(hab es auch mit A1.Value versucht)

Wodran könnte das wohl liegen???

mfg
Horst

Antwort 3 von Newan

Du kannst doch aber auch innerhalb des Sqls auf die eingenschaften deiner Form zugreifen oder?

Das müsste dann so aussehene

formulare!formularname!objektname!wert....

oder so und die abfrage dann einfach in die Sql abfrage..

select * from tabele where
formulare!formularname!objektname!wert = tabelle.spalte

Newan

Antwort 4 von oliverV

Hallo Horst,

versuchs mal mit:

[Code]
If Me.A1 = True Then
Me.Atxt.RowSource = “SELECT…”
End If
Me.Atxt.Requery

Gruß

Oliver

Antwort 5 von oliverV

Nach etwas, es dürfte sinnvoller sein, nicht das Ereignis „bei Focuserhalt“ des Kombifeldes zu wählen, sondern „Beim Anzeigen“ des Formulars und „Bei Aktualisierung“ der Checkbox.

Gruß

Oliver

Antwort 6 von Horst69

Hi Oliver,

Vielen Dank für die Hilfe.

Es funktioniert :)

mfg
Horst