Difficultés avec un code

Question

bonsoir,
j'ai un formulaire auquel j'associe un ensemble de contrôles. En effet, il ya deux Textbox: textbox1 qui affiche le numero de ligne et textbox2 le numero de folio (un folio est un ensemble de ligne; 99 par exemple). Ainsi, j'ai besoin que ses numeros s'affichent automatiquement à l'ouverture du formulaire et à chaque fois qu'un enregistrement est ajouté dans la table.
Voici les fonctions porposées à cet effet:

Private Function AjouterLigne() As Integer
Dim rst As New ADODB.Recordset
Dim nl As Integer
rst.Open "ecriture", connectionStringBDD, , , adCmdTable
If rst.BOF And rst.EOF Then
   AjouterLigne = 1
End If
If Not rst.EOF Then
    rst.MoveLast
    If rst!Ligne < 99 Then
        nl = nl + 1
    End If
    If rst!Ligne = 99 Then
        nl = 1
    End If
    AjouterLigne = nl
End If
rst.Close
End Function

Private Function AjouterFolio() As Integer
Dim rst As New ADODB.Recordset
Dim nf As Integer
rst.Open "ecriture", connectionStringBDD, , , adCmdTable
If rst.BOF And rst.EOF Then
   AjouterFolio = 1
End If
If Not rst.EOF Then
    rst.MoveLast
    If rst!Ligne < 99 Then
       nf = nf
    End If
    If rst!Ligne = 99 Then
        nf = nf + 1
    End If
    AjouterFolio = nf
End If
rst.Close
End Function

Private sub Form_Load()
txtLigne.Text=AjouterLigne
txtFolio.Text=AjouterFolio
End Sub

merci de l'observer et me faire parvenir vos suggestions svp.

LIBRE_MAX · Answer

Salut,
Question:Pourquoi deux function pour un même résultat ?
En effet tu testes sur rst!Ligne dans les deux cas avec les mêmes conditions.

En tout cas voici une function abrégée pour l' ajout d' une ligne.

ngalino · Answer

merci pour ta participation. cependant je pense qu'une erreur s'est glissée quelque part, parce que à mon avis rst.close et set rst= nothing ne doivent pas être là. en effet, quand on fait  rst.open , c'est rst.close qu'on emploie et quand c'est set rst =cmd.execute par exemple, là alors on utilise set rst=nothing.

à ++

LIBRE_MAX · Answer

Si tu le dis !
Toutefois, l' erreur est dans ta logique. et nulle part ailleur.
 If rst!Ligne < 99 Then
       nf = nf
 End If
par exemple .

Révises ton code.
Et merci pour l' effort.

<hr />... Y'en a même qui disent qu'ils l'ont vu voler.

Difficultés avec un code

3 réponses

Votre réponse

Discussions similaires