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:
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:
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
Hallo,
erklär mal vernünftig, was Du damit:
Zitat*Pseudotext* UND [ table ]=tbl_Signals */Pseudotext*
meinst.
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
ZitatstLinkCriteria = "[Table_ID]=" & "'" & Me![ID_Signal] & "'"
um einen Asdruck erweitern.
Und zwar einen der ihm ein zweites Kriterium gibt.
Hallo,
sorry, meine Glaskugel ist zerbrochen.. ???
Vermutlich:
stLinkCriteria = "[Table_ID]='" & Me![ID_Signal] & "' And [ZweitesTexttabellefeld] = '" & Me![MeinAnderesTextfeldImFormular] &"'"
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.