Bonjour à tous
Je me sers actuellement d'une base de données dèjà toute créée depuis des années ... Mais depuis quelques jours j'ai un bug avec le bouton "Précédent (flèche de retour verte)".
La boite de dialogue me marque : erreur d'exécution 6 - Dépassement de capacité
Je vous donne ci dessous le code lié au bouton sur clic.
C'est un bouton qui me permettait de revenir en arrière
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Private Sub Commande960_Click() Dim str As String Dim a As Integer, b As Integer, c As Integer Dim rst As DAO.Recordset Dim rst2 As DAO.Recordset Dim Db As DAO.database Set Db = CurrentDb Set rst = Db.OpenRecordset("SELECT Max(N°) as Numéro FROM T_Memoire") a = rst!numéro b = a - 1 Set rst2 = Db.OpenRecordset("SELECT T_Memoire.MEMOIRE FROM T_Memoire WHERE (((T_Memoire.N°)= " & b & "))") c = rst2!MEMOIRE str = "SELECT T_Abonne.* FROM T_Abonne WHERE T_Abonne.N° = " & c & "" Forms!f_abonne.RecordSource = str End Sub
Voilà si quelqu'un peut m'aider parce que là c'est trop compliqué pour moi
Merci d'avance
Mamanhou
Partager