Filtering forms! records.. please any help...

[zidrax03]

i have trouble in filtering...

im creating a enrollment system. which filtered by school year..

how can i filtered the data. that only the active year will be displayed on the form...

please any idea..

this is my code.. but. there is an error in.. .NOMATCH... IT SAYS the data member method not found i already open the dao library.. but why ?? it cant recognize the .nomatch....


Public wsp As Workspace
Public rst As Recordset
Public rst2 As Recordset
Public rstSetup As Recordset
Public dbs2 As Database
Public dbs As Database
Public myeditmode As Boolean
Public myaddmode As Boolean
Public browsing As Boolean
Public mActiveSchoolYear As String

mActiveSchoolYear = "0000-0000"
Set wsp = DBEngine.Workspaces(0)
Set dbs2 = wsp.OpenDatabase("c:\mad\madthesis.mdb")
Set rstSetup = dbs2.OpenRecordset("setup")
With rstSetup
.Index = "Active"
.Seek "=", True
If .NoMatch Then
MsgBox "You must Activate the Current School Year to Continue!!!", vbExclamation + vbOKOnly, "Setup Warning"
' DoCmd.Close
Set wsp = Nothing
Set dbs2 = Nothing
Set rstSetup = Nothing
Else
mActiveSchoolYear = .Fields("[School/Year]")
Set wsp = Nothing
Set dbs2 = Nothing
Set rstSetup = Nothing
End If
End With
Me.AllowEdits = True
Set dbs = CurrentDb
Set mycform = Me
Me.Schoolyear = mActiveSchoolYear

Thanks alot guys... if u can help....

[PEB]

Why I have impession that I've posted something about this question? :):):):)

[MMcCarthy]

At what line is the code stopping?

i have trouble in filtering...

im creating a enrollment system. which filtered by school year..

how can i filtered the data. that only the active year will be displayed on the form...

please any idea..

this is my code.. but. there is an error in.. .NOMATCH... IT SAYS the data member method not found i already open the dao library.. but why ?? it cant recognize the .nomatch....


Public wsp As Workspace
Public rst As Recordset
Public rst2 As Recordset
Public rstSetup As Recordset
Public dbs2 As Database
Public dbs As Database
Public myeditmode As Boolean
Public myaddmode As Boolean
Public browsing As Boolean
Public mActiveSchoolYear As String

mActiveSchoolYear = "0000-0000"
Set wsp = DBEngine.Workspaces(0)
Set dbs2 = wsp.OpenDatabase("c:\mad\madthesis.mdb")
Set rstSetup = dbs2.OpenRecordset("setup")
With rstSetup
.Index = "Active"
.Seek "=", True
If .NoMatch Then
MsgBox "You must Activate the Current School Year to Continue!!!", vbExclamation + vbOKOnly, "Setup Warning"
' DoCmd.Close
Set wsp = Nothing
Set dbs2 = Nothing
Set rstSetup = Nothing
Else
mActiveSchoolYear = .Fields("[School/Year]")
Set wsp = Nothing
Set dbs2 = Nothing
Set rstSetup = Nothing
End If
End With
Me.AllowEdits = True
Set dbs = CurrentDb
Set mycform = Me
Me.Schoolyear = mActiveSchoolYear

Thanks alot guys... if u can help....

[zidrax03]

.Index = "Active"
.Seek "=", True
If .NoMatch Then

it doesnt recognize the nomatch i already open the dao library

tnx

[MMcCarthy]

I know this sounds silly but go to tools - references and move the DAO library up the list order using the arrows.

.Index = "Active"
.Seek "=", True
If .NoMatch Then

it doesnt recognize the nomatch i already open the dao library

tnx

[PEB]

Why do not place your filter in:

Set rstSetup = dbs2.OpenRecordset("setup")

this line?

Like:
Set rstSetup = dbs2.OpenRecordset("SELECT * From Setup WHERE (Your filter);")

:)