Zwei Kritierien übernehmen

[OPS]

Hi

Sicherlich nicht das komplizierteste Problem, ich krieg es dennoch nicht hin.

Standardaufgabe: Man erstellt (sogar mit Assistenten) einen Button der zu einem Listenformular führt. Man verlinkt einen Wert. Sagen wir die ID. Also ich glaube das ist ja dann ein Filter der erstellt wird. Schöne Sache wird automatisch gemacht, kein Problem.
Ich möchte aber ZWEI Werte verlinken. Ich glaube mir fehlt nur das Wissen um die Syntax in VBA zu dem Thema.

Das habe ich:

Code [Auswählen] Erweitern

Private Sub btn_history2_Click()

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "HFM_History"
   
    stLinkCriteria = "[Table_ID]=" & "'" & Me![ID_Signal] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub


Das will ich:

Code [Auswählen] Erweitern

Private Sub btn_history2_Click()

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "HFM_History"
   
    stLinkCriteria = "[Table_ID]=" & "'" & Me![ID_Signal] & "'" *Pseudotext* UND [Table]=tbl_Signals */Pseudotext*
    DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

[DF6GL]

Hallo,

erklär mal vernünftig, was Du damit:

*Pseudotext* UND [ table ]=tbl_Signals */Pseudotext*

meinst.

[OPS]

Im Zielformular (Endlostabelle), gibt es ein Feld. Nach diesem zu filtern ist simpel (erster Quelltext).
Ich möchte aber nach zwei Feldern aus der Tabelle filtern.
Ich nahm an, dass man dazu den ersten Quelltext bearbeiten muss und die Zeile

stLinkCriteria = "[Table_ID]=" & "'" & Me![ID_Signal] & "'"

um einen Asdruck erweitern.
Und zwar einen der ihm ein zweites Kriterium gibt.

[DF6GL]

Hallo,


sorry, meine Glaskugel ist zerbrochen.. 



Vermutlich:

Code [Auswählen] Erweitern

stLinkCriteria = "[Table_ID]='" & Me![ID_Signal] & "' And [ZweitesTexttabellefeld] = '" & Me![MeinAnderesTextfeldImFormular] &"'"

[OPS]

Danke.
Genau das meinte ich.

Mit dem "Pseudotext" (erstes Posting) wollte ich ausdrücken, dass ich weiß was da rein gehört, aber nicht die genaue Syntax kenne.