Resetting LinkCriteria after opening form.

[mahgnilla]

Hi,

I was wondering if anyone could help?!

I have a button on one form (Participant form) that opens another form at a specific record (Learning Session form with specific session for that participant). After opening to that specific learning session I can't move to a different learning session. I was wondering if there was someway to 'reset' the LinkCriteria so that the Learning Session form can move between records.

Sorry if this is confusing, but any help would be greatly appreciated.

Thanks!

Kira

[JustJim]

Hi,

I was wondering if anyone could help?!

I have a button on one form (Participant form) that opens another form at a specific record (Learning Session form with specific session for that participant). After opening to that specific learning session I can't move to a different learning session. I was wondering if there was someway to 'reset' the LinkCriteria so that the Learning Session form can move between records.

Sorry if this is confusing, but any help would be greatly appreciated.

Thanks!

Kira

Hi,

I presume since you use the term LinkCriteria, that you used the wizard to make a button and you ended up with something very like this...

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "frmTest"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Command0_Click:
    Exit Sub
 
Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click
 
End Sub

and that you have assigned stLinkCriteria to a valid Where statement (which the silly wizard doesn't do).

You will then open your form with the underlying records filtered by the Where statement in stLinkCriteria. To see all records, un-click the Apply Filter button on the toolbar.

Does that help?

Jim

[mahgnilla]

Hi,

I presume since you use the term LinkCriteria, that you used the wizard to make a button and you ended up with something very like this...

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "frmTest"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Command0_Click:
    Exit Sub
 
Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click
 
End Sub

and that you have assigned stLinkCriteria to a valid Where statement (which the silly wizard doesn't do).

You will then open your form with the underlying records filtered by the Where statement in stLinkCriteria. To see all records, un-click the Apply Filter button on the toolbar.

Does that help?

Jim

Thanks Jim, that does help. I was wondering if there is a way to automatically have that filtered turned off every time that form is opened (so that the user doesn't have to un-click the apply filter button)?

Thanks again!

[JustJim]

Thanks Jim, that does help. I was wondering if there is a way to automatically have that filtered turned off every time that form is opened (so that the user doesn't have to un-click the apply filter button)?

Thanks again!

Just don't use the Where (stLinkCriteria) phrase when opening the form.

Jim

[mahgnilla]

Just don't use the Where (stLinkCriteria) phrase when opening the form.

Jim

Hi Jim,

The problem is that I want the form to open to a specific record, but then I want the user to be able to move to other records. I've tried using the following code and it won't work for some reason:

If ActiveSheet.AutoFilterMode Then
ActiveSheet.AutoFilterMode = False
End If

Any suggestions?

Thanks,
Kira

[JustJim]

Hi Jim,

The problem is that I want the form to open to a specific record, but then I want the user to be able to move to other records. I've tried using the following code and it won't work for some reason:

If ActiveSheet.AutoFilterMode Then
ActiveSheet.AutoFilterMode = False
End If

Any suggestions?

Thanks,
Kira

Hi,
This is probably pretty clunky (I haven't had my second coffee yet) but...

The button on the form which opens the target form should have something like this

Private Sub btnOpen_Click()
Dim strSearch As String
strSearch = "Surname = '" & Me.txtSearch.Value & "'"
DoCmd.OpenForm "frmTarget", , , , , , strSearch
End Sub

where txtSearch is a text box on that form into which the operator types the person's name or whatever that you want the other form to open with. This opens the second form (frmTarget here but change the code to suit) and the strSearch after the long row of commas puts something like Surname = 'Smith' as the OpenArgs for the second form. OpenArgs (or Tag) is a handy way to pass information between forms, reports etc.

The second form should have in it's On Open event

Private Sub Form_Open(Cancel As Integer)
Dim rsClone As DAO.Recordset
Dim strSearch As String
 
Set rsClone = Me.RecordsetClone
strSearch = Me.OpenArgs
rsClone.FindFirst strSearch
If Not rsClone.NoMatch Then
    Me.Bookmark = rsClone.Bookmark
End If
End Sub

Which should do the trick. (you might want to put an Else clause in the If statement to show a message box explaining that the string wasn't found)

Jim
ps ActiveSheet etc is Excel stuff!

[tezza98]

when the form loads try

Me.FilterOn = False

does the same thing as the filter button on the top menu

or add a button that executes this code to clear the filter, or use it on the open event
or
[code]
If Me.FilterON = True then
Me.FilterON = False
End If

You see where im going with this, have a play around with it to find the best place to put the code

[mahgnilla]

Thank you both for your help, I finally figured it out!!

Cheers
Kira