Mehrfachauswahl Listenfeld in einer Abfrage verwenden

25/09/2007 - 14:54 von Tobias Trumpfheller | Report spam
Hallo, (WinXP und Access 2003)
dieser Code bricht mit Laufzeitfehler 3075 ab: Syntaxfehler (fehlender
Operator) in Abfrageausdruck '(Like '4503' Oder '4504' Oder '4505')'.

Public Function fct_DE_TMMD_Kommilisten()
Dim i As Integer
Dim j As Variant
Dim k As Variant
Dim ctl As Control
Dim VItem As Variant

DoCmd.SetWarnings (False)
j = ""
j = "Like "
Set ctl = Forms!frm_DE_TMMD_Start_000!lst_Lagerauftrag
For Each VItem In ctl.ItemsSelected
i = i + 1
j = j & "'" & ctl.ItemData(VItem) & "'"
If i <> 0 Then
j = j & " Oder "
End If
ctl.Selected(VItem) = False
Next VItem
k = j
DoCmd.OpenReport "rpt_010_DE_TMMD_Kommilisten_000", acViewPreview, , k,
acNormal
DoCmd.SetWarnings (True)

End Function

Nach Auswahl von drei Zahlen (Typ Text) aus Listenfeld, soll dies als
Auswahlkriterium für eine Abfrage und/oder wie hier für einen Report.

Danke.
 

Lesen sie die antworten

#1 Mark Doerbandt
25/09/2007 - 14:56 | Warnen spam
Hallo, Tobias,

Tobias Trumpfheller:

Hallo, (WinXP und Access 2003)
dieser Code bricht mit Laufzeitfehler 3075 ab: Syntaxfehler (fehlender
Operator) in Abfrageausdruck '(Like '4503' Oder '4504' Oder '4505')'.



gar nicht weiter gelesen:

(Like '4503' Or Like '4504' Or Like '4505')

Gruss - Mark

Informationen fuer Neulinge in den Access-Newsgroups unter
http://www.doerbandt.de/Access/Newbie.htm

Bitte keine eMails auf Newsgroup-Beitràge senden.

Ähnliche fragen