Endlosformular Filter für mehrere Felder setzten

Computer: Software & Programmierung Microsoft Access
#1

hallo ihr lieben!

ich habe folgendes problem:

ich habe eine access datenbank, die veranstaltungen und referenten verwaltet.

die veranstaltungen lasse ich mir in einem endlosformular ausgeben. (ihnen liegt eine veranstaltungstabelle zu grunde)

jeder veranstaltung können bis zu vier referent/innen (datenherkunft: referententabelle) mittels kombinationsfeld zugeordnet werden.

diese referent/innen kann ich mir in einem anderen referentenformular auch anzeigen lassen.

soweit funktionierts auch. nun möchte ich gerne einen button in das referentenformular einfügen, der mir nach dem klicken ein endlosformular öffnet, in dem ich alle veranstaltungen sehe an denen der angezeigt referent z.B. maier referiert hat.

das problem ist, dass referent maier in vier verschiedenen feldern zugeordnet sein kann.

bitte um hilfe

#2

hallo mein lieber,

ich habe folgendes problem:

ich habe eine access datenbank, die veranstaltungen und
referenten verwaltet.

die veranstaltungen lasse ich mir in einem endlosformular
ausgeben. (ihnen liegt eine veranstaltungstabelle zu grunde)

jeder veranstaltung können bis zu vier referent/innen
(datenherkunft: referententabelle) mittels kombinationsfeld
zugeordnet werden.

diese referent/innen kann ich mir in einem anderen
referentenformular auch anzeigen lassen.

soweit funktionierts auch. nun möchte ich gerne einen button
in das referentenformular einfügen, der mir nach dem klicken
ein endlosformular öffnet, in dem ich alle veranstaltungen
sehe an denen der angezeigt referent z.B. maier referiert hat.

das problem ist, dass referent maier in vier verschiedenen
feldern zugeordnet sein kann.

das ist tatsächlich das Problem… die Referenten sollten anstatt in 4 unterscheidliche Felder desselben DS in eine weitere Tabelle mit 1:n-Beziehung zur Veranstaltungstabelle ausgelagert werden.

Dann würde sich das Problem in Luft auflösen.

So aber stellt sich aber zunächst die Frage, welcher der 4 Referenten jetzt für die Filterung herhalten soll.
Wenn der durch Doppelklick auf sein Feld bestimmt wird (der Button ist dann überflüssig), könnte das Ganze so funktionieren:

Sub Ref1_DblClick()
OpenfrmVA Me!Ref1
End Sub

Sub Ref2_DblClick()
OpenfrmVA Me!Ref2
End Sub

Sub Ref3_DblClick()
OpenfrmVA Me!Ref3
End Sub

Sub Ref4_DblClick()
OpenfrmVA Me!Ref4
End Sub

Function OpenfrmVA(strRefname as String)
Docmd.Openform „Frm_Veranstaltung“,„Ref1=’“ & strRefname & „’ or Ref2=’“ & strRefname & „’ or Ref3=’“ & strRefname & „’ or Ref4=’“ & strRefname & „’“
End Function

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

#3

Lieber Franz!

Vielen Dank für deine Hilfe!

Du hast recht, die Tabellen wurden von Anfang an falsch aufgebaut. Ich hoffe ich habe in den nächsten Wochen mal Zeit um das Problem zu lösen und „gscheite“ Beziehungen zu setzen.

Habe deinen Code zwar nicht 1:1 verwendet, jedoch hast du mir den richtigen Hinweis zu meinem Button gegeben.

Das schaut nun so aus:

Private Sub ThemenWGS_Click()
On Error GoTo Err_ThemenWGS_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = „CurrGesamtliste“

stLinkCriteria = „[ReferentIn 1]=“ & „’“ & Me![Name] & „’ or [ReferentIn 2]=“ & „’“ & Me![Name] & „’ or [ReferentIn 3]=“ & „’“ & Me![Name] & „’ or [ReferentIn 4]=“ & „’“ & Me![Name] & „’“
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_ThemenWGS_Click:
Exit Sub

Err_ThemenWGS_Click:
MsgBox Err.Description
Resume Exit_ThemenWGS_Click

End Sub

Vielen Dank nochmals und viele Grüße aus Wien
Nina