lin kcriteria or filter not working

[belovedcej]

I have a form that is bound to a view.

When I open it from one screen I link on claim number. All works.

When I open it from another screen I want two links - on person_ID and when Collection_Events_B is true (or 1).

I have tried this as either a linked criterion or as a serverfilter (see below for my attempts). It never works! No blowups, it just ignores the true/false field all together. (The person-Id link has always worked fine.)

Could someone please advice me?

Dim intPersonID As Long
Dim stDocName As String
Dim stLinkCriteria As String

intPersonID = Me.person_ID
stDocName = "frmEvents"
stLinkCriteria = "[Person_ID] = " & intPersonID & "[Collection_Events_B] = 1"

'Form_frmEvents.Tag = "set filter"
'Form_frmEvents.ServerFilter = "[Collection_Events_B] <> 0"
DoCmd.OpenForm stDocName
'Form_frmEvents.ServerFilterByForm = True

 

[belovedcej]

Okay -I figured this out. I just had to requery the form for the filter to apply.

Now I can reuse the same forms and views repeatedly!!


This worked!!

Dim intPersonID As Long
Dim stDocName As String
Dim rst As New ADODB.Recordset

Dim stLinkCriteria As String

intPersonID = Me.person_ID
stDocName = "frmEvents"
stLinkCriteria = "[Person_ID] = " & intPersonID

DoCmd.OpenForm stDocName
Form_frmEvents.ServerFilter = "[Collection_Events_B] <> 0"
Form_frmEvents.Requery

 

[danvlas]

Set AllowDesignChanges to 'Design View Only'

This may help (the Server Filter does not get saved when you close the form).

HTH


Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html