strWhere VB Code

[chhinckley]

I am having problems with a strWhere code - see below. I am getting an error message on the Me.frmBrowse_All_Programs.Form.Filter = strWhere line of code. What am I doing wrong.

Private Sub Search_Click()
Dim strWhere As String
Dim strError As String

strWhere = "1=1"
' If UCMG Code
If Not IsNull(Me.UCMGCode) Then
strWhere = strWhere & " AND " & "frmBrowse All Programs.[UCMG Code] = " & Me.UCMGCode & ""
End If
' If Program Name
If Not IsNull(Me.ProgramName) Then
strWhere = strWhere & " AND " & "frmBrowse All Programs.[Program Name] = " & Me.ProgramName & ""
End If

If IsNull(strWhere) Then
MsgBox "No Criteria was selected for search."
Else
'DoCmd.OpenForm "Browse Issues", acFormDS, , strWhere, acFormEdit, acWindowNormal
If Not Me.FormFooter.Visible Then


Me.FormFooter.Visible = True
DoCmd.MoveSize Height:=Me.WindowHeight + Me.FormFooter.Height
End If
Me.frmBrowse_All_Programs.Form.Filter = strWhere
Me.frmBrowse_All_Programs.Form.FilterOn = True
End If
End Sub

[weekend00]

Please replace the two line with pink.


Private Sub Search_Click()
Dim strWhere As String
Dim strError As String

strWhere = "1=1"
' If UCMG Code
If Not IsNull(Me.UCMGCode) Then
strWhere = strWhere & " AND " & " [UCMG Code] = '" & Me.UCMGCode & "'"
End If
' If Program Name
If Not IsNull(Me.ProgramName) Then
strWhere = strWhere & " AND " & " [Program Name] = '" & Me.ProgramName & "'"
End If

If IsNull(strWhere) Then
MsgBox "No Criteria was selected for search."
Else
'DoCmd.OpenForm "Browse Issues", acFormDS, , strWhere, acFormEdit, acWindowNormal
If Not Me.FormFooter.Visible Then
Me.FormFooter.Visible = True
DoCmd.MoveSize Height:=Me.WindowHeight + Me.FormFooter.Height
End If
Me.frmBrowse_All_Programs.Form.Filter = strWhere
Me.frmBrowse_All_Programs.Form.FilterOn = True
End If
End Sub

[chhinckley]

I replaced the pink lines and I am still getting the following error

Run-time error '2448':

You can't assign a value to this object.

[weekend00]

the error was not raised by the two lines, find out the error where it raised and correct it.

[chhinckley]

The error is being detected in the

Me.frmBrowse_All_Programs.Form.Filter = strWhere

I haven't been able to figure out the fix

[weekend00]

that means you can not apply the filter in this way.

use
me.recordsource=strwhere
instead