средство моделирования iPhone с помощью мультисенсорной проблемы

Делая довольно много предположений (так как вы оставили много информации в своем вопросе), вы можете сделать что-то вроде этого:

Dim sSql as String

sSql = "Select * from MyTable"

Set W = Me.cboSite.Value

sSql = sSql & " WHERE MySite = " & W & ""

Set X = Me.Chk1
Set Y = Me.Chk2
Set Z = Me.Chk3

If X = True Then
  sSql = sSql & " And MyItem between 1 and 10"
If Y = True Then
  sSql = sSql & " And MyItem between 11 and 20"
If Z = True Then
  sSql = sSql & " And MyItem between 21 and 30"
End If

DoCmd.ExecuteSQL sSql

Опять же, это полностью «воздушный код», непроверенный и вероятно, мне нужно внести некоторые изменения, так как я некоторое время не трогал Access, и мой VBA скорее всего ржавый. Но это должно поставить вас на правильный путь.

38
задан issac 26 March 2009 в 09:37
поделиться