fct.bas

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

Attribute VB_Name = "fct"
Function fctfind()
Dim mot
Dim i As Integer
mot = DB_explore.tvwDB.SelectedItem.text
DB_explore.Data1.Recordset.MoveFirst
 Do Until DB_explore.Data1.Recordset.EOF = True
   If DB_explore.Data1.Recordset!nom = mot Then
     properties.Name_ = DB_explore.Data1.Recordset!nom
     properties.Type_ = DB_explore.Data1.Recordset!Type
     properties.Propriete = DB_explore.Data1.Recordset!ID
     properties.label_nom = "Name :"
     properties.Label_type = "Type :"
     properties.label_propriete = "ID   :"
     properties.label1 = "STAND"
     Exit Function
   End If
   DB_explore.Data1.Recordset.MoveNext
 Loop
 DB_explore.Data4.Recordset.MoveFirst
 Do Until DB_explore.Data4.Recordset.EOF = True
   If DB_explore.Data4.Recordset!Sexe = mot Then
     properties.Name_ = DB_explore.Data4.Recordset!Sexe
     properties.Propriete = DB_explore.Data4.Recordset!ID
     properties.label_nom = "Name :"
     properties.Label_type = " "
     properties.label_propriete = "ID   :"
     properties.label1 = "SEXE"
     Exit Function
   End If
   DB_explore.Data4.Recordset.MoveNext
 Loop
 DB_explore.Data2.Recordset.MoveFirst
 Do Until DB_explore.Data2.Recordset.EOF = True
   If DB_explore.Data2.Recordset!Pays = mot Then
     properties.Name_ = DB_explore.Data2.Recordset!Pays
     properties.Propriete = DB_explore.Data2.Recordset!ID
     properties.label_nom = "Land :"
     properties.Label_type = " "
     properties.label_propriete = "ID   :"
     properties.label1 = "LAND"
     Exit Function
   End If
   DB_explore.Data2.Recordset.MoveNext
 Loop
  DB_explore.Data3.Recordset.MoveFirst
 Do Until DB_explore.Data3.Recordset.EOF = True
   If DB_explore.Data3.Recordset!sponsor = mot Then
     properties.Name_ = DB_explore.Data3.Recordset!sponsor
     properties.Type_ = DB_explore.Data3.Recordset!atribut
     properties.Propriete = DB_explore.Data3.Recordset!ID
     properties.label_nom = "Name :"
     properties.Label_type = "Attribut :"
     properties.label_propriete = "ID   :"
     properties.label1 = "SPONSOR"
     Exit Function
   End If
   DB_explore.Data3.Recordset.MoveNext
 Loop
 MsgBox "This object is not editable from here yet." & Chr(13) & "Try from the edit module", vbCritical, "Error"
 
End Function

Function fctsave()
Dim mot
Dim i As Integer
mot = properties.Name_.Caption
DB_explore.Data1.Recordset.MoveFirst
 Do Until DB_explore.Data1.Recordset.EOF = True
   If DB_explore.Data1.Recordset!nom = mot Then
     DB_explore.Data1.Recordset.Edit
     DB_explore.Data1.Recordset!nom = properties.Name_t
     DB_explore.Data1.Recordset!Type = properties.Type_t
     DB_explore.Data1.Recordset.Update
     Exit Function
   End If
   DB_explore.Data1.Recordset.MoveNext
 Loop
 DB_explore.Data4.Recordset.MoveFirst
 Do Until DB_explore.Data4.Recordset.EOF = True
   If DB_explore.Data4.Recordset!Sexe = mot Then
     DB_explore.Data4.Recordset.Edit
     DB_explore.Data4.Recordset!Sexe = properties.Name_t
     DB_explore.Data4.Recordset.Update
     Exit Function
   End If
   DB_explore.Data4.Recordset.MoveNext
 Loop
 DB_explore.Data2.Recordset.MoveFirst
 Do Until DB_explore.Data2.Recordset.EOF = True
   If DB_explore.Data2.Recordset!Pays = mot Then
     DB_explore.Data2.Recordset.Edit
     DB_explore.Data2.Recordset!Pays = properties.Name_t
     DB_explore.Data2.Recordset.Update
     Exit Function
   End If
   DB_explore.Data2.Recordset.MoveNext
 Loop
  DB_explore.Data3.Recordset.MoveFirst
 Do Until DB_explore.Data3.Recordset.EOF = True
   If DB_explore.Data3.Recordset!sponsor = mot Then
     DB_explore.Data3.Recordset.Edit
     DB_explore.Data3.Recordset!sponsor = properties.Name_t
     DB_explore.Data3.Recordset!atribut = properties.Type_t
     DB_explore.Data3.Recordset.Update
     Exit Function
   End If
   DB_explore.Data3.Recordset.MoveNext
 Loop
End Function