frmother.frm

TMS（小型票务管理VB+Access）

  Pays.Visible = True
  sponsor.Visible = True
End Sub
Private Sub optStands_Click()
  fraFor.Enabled = True
  Nom_play.Caption = "Stand's Name"
  prenom.Caption = "Stand's type"
  rang.Visible = False
  Sexe.Visible = False
  Pays.Visible = False
  sponsor.Visible = False
  
  Text1.Visible = False
  Text2.Visible = False
  label1.Visible = False
  text.Visible = True
End Sub
Private Sub CANCEL_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  CANCEL.FontBold = True
  fnext.FontBold = False
  fprevious.FontBold = False
End Sub

Private Sub text_Change()
 fnext.Caption = "&Find"
 DatParticipant.Recordset.MoveFirst
 DatStands.Recordset.MoveFirst
 If text.text = "" Then
   fnext.Enabled = False
 Else
   fnext.Enabled = True
   fprevious.Enabled = False
End If
End Sub
Private Sub fnext_click()
 If optplayer = True Then
   find_user
 Else
   find_stand
 End If
 fnext.Enabled = True
End Sub
Private Sub find_user()
 If Nom_play = True Then
   by_play_name
 ElseIf prenom = True Then
   by_prenom
 ElseIf rang = True Then
   by_FORrang
 ElseIf Sexe = True Then
   by_sexe
 ElseIf Pays = True Then
   by_pays
 ElseIf sponsor = True Then
   by_sponsor
 End If
End Sub
Private Sub find_stand()
 If Nom_play = True Then
   by_stand_name
 Else
  by_type
 End If
End Sub
Private Sub by_play_name()
 With DatParticipant.Recordset
deb:
          On Error Resume Next
          
          If !nom = text Then
             montrer.Caption = !nom & " - " & !prenom & " - " & !rang & " - " & !Sexe & _
                                      " - " & !sponsor & " - " & !Pays
             fnext.Caption = "find &next"
             .MoveNext
             Exit Sub
          Else
            .MoveNext
            GoTo deb
          End If
        End With
End Sub

Private Sub by_prenom()
 With DatParticipant.Recordset
deb:
          On Error Resume Next
          If !prenom = text Then
             montrer.Caption = !nom & " - " & !prenom & " - " & !rang & " - " & !Sexe & _
                                      " - " & !sponsor & " - " & !Pays
             fnext.Caption = "find &next"
             .MoveNext
             Exit Sub
          Else
            .MoveNext
            GoTo deb
          End If
        End With

End Sub

Private Sub by_pays()
 With DatParticipant.Recordset
deb:
          On Error Resume Next
          If !Pays = text Then
             montrer.Caption = !nom & " - " & !prenom & " - " & !rang & " - " & !Sexe & _
                                      " - " & !sponsor & " - " & !Pays
             fnext.Caption = "find &next"
             .MoveNext
             Exit Sub
          Else
            .MoveNext
            GoTo deb
          End If
        End With

End Sub

Private Sub by_rang()
If IsNumeric(text) = False Then
 MsgBox "enter a number please!"
 Exit Sub
Else
 DoEvents
End If
If critere1 = True Then
 With DatParticipant.Recordset
deb:
          On Error Resume Next
          If !rang = text Then
             montrer.Caption = !nom & " - " & !prenom & " - " & !rang & " - " & !Sexe & _
                                      " - " & !sponsor & " - " & !Pays
             fnext.Caption = "find &next"
             .MoveNext
             Exit Sub
          Else
            .MoveNext
            GoTo deb
          End If
        End With
End If
End Sub

Private Sub by_sexe()
 With DatParticipant.Recordset
deb:
          On Error Resume Next
          If !Sexe = text Then
             montrer.Caption = !nom & " - " & !prenom & " - " & !rang & " - " & !Sexe & _
                                      " - " & !sponsor & " - " & !Pays
             fnext.Caption = "find &next"
             .MoveNext
             Exit Sub
          Else
            .MoveNext
            GoTo deb
          End If
        End With

End Sub

Private Sub by_sponsor()
 With DatParticipant.Recordset
deb:
          On Error Resume Next
          If !sponsor = text Then
             montrer.Caption = !nom & " - " & !prenom & " - " & !rang & " - " & !Sexe & _
                                      " - " & !sponsor & " - " & !Pays
             fnext.Caption = "find &next"
             .MoveNext
             Exit Sub
          Else
            .MoveNext
            GoTo deb
          End If
        End With

End Sub

Private Sub by_stand_name()
 With DatStands.Recordset
deb:
          On Error Resume Next
          If !nom = text Then
             montrer.Caption = !nom & " - " & !Type
             fnext.Caption = "find &next"
             .MoveNext
             Exit Sub
          Else
            .MoveNext
            GoTo deb
          End If
        End With

End Sub
Private Sub by_type()
 With DatStands.Recordset
deb:
          On Error Resume Next
          If !Type = text Then
             montrer.Caption = !nom & " - " & !Type
             fnext.Caption = "find &next"
             .MoveNext
             Exit Sub
          Else
            .MoveNext
            GoTo deb
          End If
        End With

End Sub
Private Sub fprevious_Click()
 If optplayer = True Then
   findp_user
 Else
   findp_stand
 End If
End Sub
Private Sub findp_user()
 If Nom_play = True Then
   by_play_namep
 ElseIf prenom = True Then
   by_prenomp
 ElseIf rang = True Then
   by_rangp
 ElseIf Sexe = True Then
   by_sexep
 ElseIf Pays = True Then
   by_paysp
 ElseIf sponsor = True Then
   by_sponsorp
 End If
End Sub
Private Sub findp_stand()
 If Nom_play = True Then
   by_stand_namep
 Else
  by_type
 End If
End Sub
Private Sub by_play_namep()
 With DatParticipant.Recordset
deb:
          On Error Resume Next
          .MovePrevious
          If !nom = text Then
             montrer.Caption = !nom & " - " & !prenom & " - " & !rang & " - " & !Sexe & _
                                      " - " & !sponsor & " - " & !Pays
             Exit Sub
          Else
            GoTo deb
          End If
        End With

End Sub
Private Sub by_prenomp()
 With DatParticipant.Recordset
deb:
          On Error Resume Next
          .MovePrevious
          If !prenom = text Then
             montrer.Caption = !nom & " - " & !prenom & " - " & !rang & " - " & !Sexe & _
                                      " - " & !sponsor & " - " & !Pays
             Exit Sub
          Else
            GoTo deb
          End If
        End With

End Sub
Private Sub by_rangp()
If critere2 = True Then
 by_betweenp
Else
 DoEvents
End If
 With DatParticipant.Recordset
deb:
          On Error Resume Next
          .MovePrevious
          If !rang = text Then
             montrer.Caption = !nom & " - " & !prenom & " - " & !rang & " - " & !Sexe & _
                                      " - " & !sponsor & " - " & !Pays
             Exit Sub
          Else
            GoTo deb
          End If
        End With
End Sub
Private Sub by_sexep()
 With DatParticipant.Recordset
deb:
          On Error Resume Next
          .MovePrevious
          If !Sexe = text Then
             montrer.Caption = !nom & " - " & !prenom & " - " & !rang & " - " & !Sexe & _
                                      " - " & !sponsor & " - " & !Pays
             Exit Sub
          Else
            GoTo deb
          End If
        End With

End Sub
Private Sub by_paysp()
 With DatParticipant.Recordset
deb:
          On Error Resume Next
          .MovePrevious
          If !Pays = text Then
             montrer.Caption = !nom & " - " & !prenom & " - " & !rang & " - " & !Sexe & _
                                      " - " & !sponsor & " - " & !Pays
             Exit Sub
          Else
            GoTo deb
          End If
        End With
End Sub

Private Sub by_sponsorp()
 With DatParticipant.Recordset
deb:
          On Error Resume Next
          .MovePrevious
          If !sponsor = text Then
             montrer.Caption = !nom & " - " & !prenom & " - " & !rang & " - " & !Sexe & _
                                      " - " & !sponsor & " - " & !Pays
             Exit Sub
          Else
            GoTo deb
          End If
        End With

End Sub

Private Sub by_stand_namep()
 With DatStands.Recordset
deb:
          On Error Resume Next
          .MovePrevious
          If !nom = text Then
             montrer.Caption = !nom & " - " & !Type
             Exit Sub
          Else
            GoTo deb
          End If
        End With
End Sub

Private Sub by_typep()
 With DatStands.Recordset
deb:
          On Error Resume Next
          .MovePrevious
          If !Type = text Then
             montrer.Caption = !nom & " - " & !Type
             Exit Sub
          Else
            GoTo deb
          End If
        End With
End Sub
Private Sub by_FORrang()
If critere1 = True Then
 by_rang
Else
 by_between
End If
End Sub

Private Sub by_between()
Dim diff As Integer
Dim i As Integer





If Text2 < Text1 Then
 MsgBox "the first number has to be smaller than the second!"
 Exit Sub
Else
 DoEvents
End If
If IsNumeric(Text1) And IsNumeric(Text2) = False Then
 MsgBox "enter a number please!"
 Exit Sub
Else
 DoEvents
End If
If fnext.Caption = "&Find" Then
 temp = Text1
Else
 DoEvents
End If
 
diff = Text2 - Text1

If critere2 = True Then
 With DatParticipant.Recordset
For i = 1 To 1000
          On Error Resume Next
          If !rang = Text1 Then
             montrer.Caption = !nom & " - " & !prenom & " - " & !rang & " - " & !Sexe & _
                                      " - " & !sponsor & " - " & !Pays
             fnext.Caption = "find &next"
             .MoveNext
             Text1 = Text1 + 1
             .MoveFirst
             Exit Sub
          Else
            .MoveNext
          End If
  Next i
        End With
End If
End Sub
Private Sub by_betweenp()

If Text1 = temp Then
 Exit Sub
Else
 DoEvents
End If

If critere2 = True Then
 With DatParticipant.Recordset
deb:
          On Error Resume Next
          If !rang = Text1 Then
             montrer.Caption = !nom & " - " & !prenom & " - " & !rang & " - " & !Sexe & _
                                      " - " & !sponsor & " - " & !Pays
             fnext.Caption = "find &next"
             .MovePrevious
             Text1 = Text1 - 1
             .MoveLast
             Exit Sub
          Else
            .MovePrevious
            GoTo deb
          End If
        End With
End If
End Sub