ngalino
Messages postés65Date d'inscriptionsamedi 21 avril 2007StatutMembreDernière intervention15 octobre 2009
-
28 juil. 2008 à 15:03
ngalino
Messages postés65Date d'inscriptionsamedi 21 avril 2007StatutMembreDernière intervention15 octobre 2009
-
29 juil. 2008 à 10:10
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.
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 28 juil. 2008 à 20:18
d'après ton code (sans vérifier), dans l'idée çà doit donner çà :
Option Explicit
Dim rst As New ADODB.Recordset
Private Sub Form_Load()
On Error Resume Next
rst.Open "agence", connectionStringBDD, , , adCmdTable
If rst.BOF And rst.EOF Then
Suivant.Enabled = False
Precedent.Enabled = False
Else
rst.MoveFirst
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
rst.Close
Set rst = Nothing
End Sub
Private Sub Suivant_Click()
rst.MoveNext
If rst.EOF Then Suivant.Enabled = False
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
Precedent.Enabled = True
End Sub
Private Sub Precedent_Click()
rst.MovePrevious
If rst.BOF Then Precedent.Enabled = False
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
Suivant.Enabled = True
End Sub
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 28 juil. 2008 à 20:11
... beh si tu sais qu'il faut déclarer en "gérérales", qu'il ne faut pas ré-ouvrir DANS tes précédent suivant, qu'il faut que le RS déclaré soit déjà ouvert au moment des click, c'est qu'il faut le mettre ailleurs et avant non?
pas beaucoup de choix...
au form_load par exemple, cette ouverture
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Vous n’avez pas trouvé la réponse que vous recherchez ?