Discussion :

[MAMANHOU]

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.

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

C'est un bouton qui me permettait de revenir en arrière
Voilà si quelqu'un peut m'aider parce que là c'est trop compliqué pour moi
Merci d'avance
Mamanhou

[Invité]

Bonjour

D'abord pense à mettre ton code entre balises, c'est plus visible.

Ce message d'erreur arrive lorsque l'on veut affecter à une variable une valeur trop grande pour elle.

Tu as déclaré a,b et c comme des entiers, peut-être leur mets tu une donnée trop grande.

Essaye de les déclarer en Long pour voir ce que cela donne.

Starec

[MAMANHOU]

OK pour les balises....
Cela marche
Merci encore
Mamanhou