Как использовать флажки для получения данных

У меня есть форум под названием FrmAgent. который захватывает данные из таблицы с именем «Агент». В этой таблице есть столбец с именем «Имя агента». Под этим cloumn есть 5 имен «Крис» «Никита» «Ной» «Дженнифер» и «Диана». На форуме у меня есть флажки с этими именами рядом с флажком. все разные флажки, конечно. То, что мне нужно сделать, - это запустить мой запрос, который будет захватывать данные из таблицы «Агент» с форума, на котором установлен каждый флажок.Как использовать флажки для получения данных

Пример, если у меня установлен флажок для Криса и Дианы, мне нужно собрать все данные из таблицы «Агент». Если только один из них отмечен, просто возьмите данные о лицах.

Имеет ли это смысл? Можете ли вы, ребята, помочь мне, я очень новичок в vba и доступе. примеры и кодирование помогут чрезвычайно. Заранее благодарю.

источник

2014-02-17 user3321013

В предположении есть кнопка команды «Submit» или «Фильтр», вы можете использовать код вроде следующего:

Dim strFilter As String 
Dim i   As Integer 
strFilter = "" 
If Me.chkbox1.Value = true Then 
    strFilter = "([Agent Name] = '" & Me.Name1Value & "' AND " 
End IF 
If Me.chkbox2.Value = true Then 
    strFilter = strFilter & "([Agent Name] = '" & Me.Name2Value & "' AND " 
End IF 
<<<<REPEAT AS MANY TIMES AS NEEDED>>> 
If right(strFilter, 4) = "AND " Then 
    i = len(strFilter) 
    Strfilter = left(strFilter, i - 4) 
Me.Filter = strFilter 
Me.FilterOn = True 
Me.Requery 
i = Me.Recordset.RecordCount 
If i = 0 Then 
    MsgBox "There are no records selected", vbOKOnly, "No Records” 
‘You could delete the filter & Requery if you want. 
    End If 
End If

источник

2014-02-18 00:25:56

Wayne Г. Dunn Спасибо за ответ. я продолжаю получать ошибку, которая говорит о неправильном слове Меня. Что я могу сделать, чтобы исправить это? – user3321013

«Me» относится к форме, в которой этот код находится. Похоже, вы поместили код NOT в свою форму. Где находится код? Пожалуйста, покажите весь код, включая имя подпрограммы. Также, пожалуйста, сообщите мне ТОЧНУЮ строку кода, в которой вы получите сообщение об ошибке. Кроме того, ваша форма содержит подформу? –

Вот код, который я использовал. Я создал модуль и макрос для запуска. Я прикрепил кнопку в форме, чтобы соединить их вместе. Я получаю сообщение об ошибке в самом первом сообщении. Нет подформ. Еще раз спасибо за помощь. Option Compare Database

Функция YoMomma()

Dim strFilter As String 
Dim i   As Integer 
    strFilter = "" 
     If Me.Chris.Value = True Then 
      strFilter = "([Agent Name] = '" & Me.Chris & "' AND " 
     End If 
     If Me.Diane.Value = True Then 
      strFilter = strFilter & "([Agent Name] = '" & Me.Diane & "' AND " 
     End If 
     If Me.Noe.Value = True Then 
      strFilter = "([Agent Name] = '" & Me.Noe & "' AND " 
     End If 
     If Me.Jennifer.Value = True Then 
      strFilter = strFilter & "([Agent Name] = '" & Me.Jennifer & "' AND " 
     End If 
     If Me.Nikita.Value = True Then 
      strFilter = "([Agent Name] = '" & Me.Nikita & "' AND " 
     End If 
     'REPEAT AS MANY TIMES AS NEEDED 
     If Right(strFilter, 4) = "AND " Then 
      i = Len(strFilter) 
      strFilter = Left(strFilter, i - 4) 
      Me.Filter = strFilter 
      Me.FilterOn = True 
      Me.Requery 
      i = Me.Recordset.RecordCount 
     If i = 0 Then 
      MsgBox "There are no records selected", vbOKOnly, "No Records”" 
      'You could delete the filter & Requery if you want. 
     End If

End If End Function

источник

2014-02-18 17:48:57 user3321013

Как использовать флажки для получения данных

ответ

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