[Visaul basic] Generation du numero

 
'Creaion d'une nouvelle fiche de paie
Private Sub cmdnouveau_Click()

   Call activer_txt         'active les zones de saisie
   Call desactiver           'desactive les zones de saisie
   Call generer                 'genère le numeo de la fiche
   Call generernumsalaire      'genere le numero de salaire
   Adofiche.Recordset.AddNew
   Adosalaire.Recordset.AddNew
   Txtnumfiche.Text = nouv
   txtdatefiche.Text = Date
   txtnumerosal.Text = nouveau
   txtdatepmt.Text = Date
   Call desactiver_txt
   cmbtypeagt.Enabled = True
   cmdcalculer.Enabled = False
   cmdimpression.Enabled = False
   Call activer1
   txtdatepmt.SetFocus
End Sub



'Generation auto du numero de fiche
Private Sub generer()
Adofiche.Refresh
   If Adofiche.Recordset.RecordCount = 0 Then
      xnump = 0
   Else
     Adofiche.Recordset.MoveLast
     xnump = Right(Adofiche.Recordset![nofiche], 3)
     xnump = Val(xnump)
   End If
   xnump = xnump + 1
   xnumpmt = "FICH" + Left("000", 3 - Len(Trim(Str(xnump)))) + Trim(Str(xnump))
   nouv = xnumpmt
End Sub
'Génération auto du numero de salaire
Private Sub generernumsalaire()
   If Adosalaire.Recordset.RecordCount = 0 Then
      xnumsalaire = 0
   Else
     Adosalaire.Recordset.MoveLast
     xnumsalaire = Right(Adosalaire.Recordset![nosal], 3)
     xnumsalaire = Val(xnumsalaire)
   End If
   xnumsalaire = xnumsalaire + 1
   xnumsalaires = "SAL" + Left("000", 3 - Len(Trim(Str(xnumsalaire)))) + Trim(Str(xnumsalaire))
   nouveau = xnumsalaires
End Sub