ник: Massa
Была база MDB - решил переделать в ADP.
Источник конкертизировался при открытии формы в зависимости от фильтра.
Ну и еще - можно было динамически менять фильтр при вводе условия фильтра в поле и нажатии на кнопку. Все это работало в MDB. В ADP не работает.
В чем проблема?
Процедуры открытия и смены фильтра приведены:
Private Sub Form_Open(Cancel As Integer)
Dim strNewRecord As String
Application.SetOption "Confirm Action Queries", False
MyFilter = " WHERE (IsAccepted = False) AND (IsRejected = False) Order by vh_vc_Code, vh_VehicleNumber"
strNewRecord = "SELECT * FROM vwVehicleFrm " & MyFilter
Me.RecordSource = strNewRecord
End Sub
Private Sub cmdAccepted_Click()
Dim strNewRecord As String
MyFilter = " WHERE (IsAccepted = True) "
MyFilter2Class = " AND (vh_vc_Code Like '" & Trim(Me!txtShowClass.Value) & "*') "
If Trim(Me.txtShowClass) <> "" Then _
MyFilter = MyFilter & MyFilter2Class
strNewRecord = "SELECT * FROM Vehicle " & MyFilter & "Order by vh_vc_Code, vh_VehicleNumber"
Me.RecordSource = strNewRecord
Me.cmdAccepted.ForeColor = vbMagenta
Me.cmdNotReviewed.ForeColor = vbBlack
Me.cmdRejected.ForeColor = vbBlack
Me.cmdAll.ForeColor = vbBlack
' DoCmd.Requery
End Sub