cFilter = "MONTH(dat) == " + ALLTRIM(STR(MONTH(thisform.Text2.Value)))+ " AND "+; "Mac1 == '" + ALLTRIM(thisform.Text18.Value) + "' AND "+; "Typ == " + ALLTRIM(STR(thisform.Text24.Value)) set filter to &cFilter