bonjour,
j'ai un problème avec les boutons de déplacement dans un enregistrement. (exemple de bouton: Suivant, Précédent).
voici les codes:
Private Sub Suivant_Click()
On Error Resume Next
Dim rst As New ADODB.Recordset
rst.Open "agence", connectionStringBDD, , , adCmdTable
If rst.BOF And rst.EOF Then
Exit Sub
End If
rst.MoveNext
If rst.EOF Then
rst.MoveLast
End If
txtSociete.Text = rst!Code_societe
txtCode.Text = rst!Code_agence
txtLibelle.Text = rst!Libelle_agence
txtVille.Text = rst!Ville_agence
txtAdresse.Text = rst!Adresse_agence
rst.Update
rst.Close
End Sub
Private Sub Precedent_Click()
On Error Resume Next
Dim rst As New ADODB.Recordset
rst.Open "agence", connectionStringBDD, , , adCmdTable
If rst.BOF And rst.EOF Then
Exit Sub
End If
rst.MovePrevious
If rst.BOF Then
rst.MoveFirst
End If
txtSociete.Text = rst!Code_societe
txtCode.Text = rst!Code_agence
txtLibelle.Text = rst!Libelle_agence
txtVille.Text = rst!Ville_agence
txtAdresse.Text = rst!Adresse_agence
rst.Update
rst.Close
End Sub
aidez moi à répérer les erreurs dans ces codes svp.
ou bien, faites moi d'autres propositions si possible.
merci.