2016-05-20 1 views
0

мне нужна команда в VBA, которая будет искать мои [список частей имени] таблицы из формы, который связан с моим [списком заказов на поставку] таблицПоле поиска с использованием критериев, а еще и как

обе таблицы имеет [часть названия] и [название части списка] таблица она никогда не дублируется

---- мне нужно искать операции ----

операции хранятся в 6 различных областях в [ список деталей], [OP1], [OP2], ect

Форма заказа на покупку имеет 9 ключевые слова, представленные флажками, каждый OP должен иметь одно из этих точных ключевых слов в нем, а в некоторых случаях часть может иметь несколько экземпляров, например, некоторые из моих частей требуют распиливания более одного раза, поэтому мне нужно будет вернуть оба те

ответ

0

Я не полный, что я понимаю, что вы просите, но это может начать вас:

Dim i As Integer 
Dim strWHERE As String 
Dim strSQL As String 

strWHERE = "" 

For i = 1 To 9 
    If Me("OP" & i) = True Then 
     strWHERE = strWHERE & "'" & Me("OP" & i).Tag & "'," 
    End If 
Next i 

If strWHERE <> "" Then 
    strWHERE = Left(strWHERE, Len(strWHERE) - 1) 
    strSQL = "SELECT OP1 AS Operation FROM [part name list] WHERE OP1 IN (" & strWHERE & ") " & _ 
     "UNION SELECT OP2 AS Operation FROM [part name list] WHERE OP2 IN (" & strWHERE & ") " & _ 
     "UNION SELECT OP3 AS Operation FROM [part name list] WHERE OP3 IN (" & strWHERE & ") " & _ 
     "UNION SELECT OP4 AS Operation FROM [part name list] WHERE OP4 IN (" & strWHERE & ") " & _ 
     "UNION SELECT OP5 AS Operation FROM [part name list] WHERE OP5 IN (" & strWHERE & ") " & _ 
     "UNION SELECT OP6 AS Operation FROM [part name list] WHERE OP6 IN (" & strWHERE & ")" 
    'open recordset 
End If 

Это поможет вам все операции, которые соответствуют одному из выбранных ключевых слов на заказ на поставку , Без выборочного вывода трудно сказать, действительно ли это необходимо.

Если вам нужно сопоставить [название части], вы можете включить это в критерии WHERE.

Смежные вопросы