Discussion :

[vinkey_33]

Bonjour,
J'ai un bouton qui ne fonctionne pas et le message d'erreur est "dépassement de capacité" pour la ligne VrEMEI voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim RunMySQL As String
Dim VrEMEI As Integer  '(j'ai essayer avec : string, long, integer long sa ne fonctionne pas)
Dim VrSIM As Integer
Dim VrUSER_ID As String
 
USER_ID = Me.Recherche_Employé
VrEMEI = Me.Liste_Equipement ' (15 chiffre)
VrSIM = Me.Liste_Abonnemen ' (13chiffre)
 
 
RunMySQL = "INSERT INTO [Affectation] ( Or_Affectation, USER_ID, PIN_Terminal, PIN_SIM, Coque, Vitre, Support_Vehicule, Num_EMEI, Num_SIM, Date_Début, Date_Fin, Actif, Statut_Affectation, Commentaire)"
RunMySQL = RunMySQL & " select Or_Affectation ,""" & VrUSER_ID & """, PIN_Terminal, PIN_SIM, Coque, Vitre, Support_Vehicule, " & VrNum_EMEI & " ," & VrNum_SIM & ", Date_Début, Date_Fin, Actif, Statut_Affectation, Commentaire"
 DoCmd.RunSQL RunMySQL

[marot_r]

Bonjour.

à priori je t'aurai suggérer d'utiliser des long à la place des integer mais si tu as vraiment besoin de nombre pharaoniques, utilise des double. C'est ce qui en Access peut contenir les plus grands nombres.

Ici un tableau récapitulant les maximums et minimums par type.

http://www.quepublishing.com/article...39929&seqNum=2

Aussi si tu as un problème dans le SQL, tu peux mettre un point d'arrêt sur ta ligne d'éxécution.
Activer la fenêtre d'exécution immédiate par [ctrl][g].
Y taper ? RunMySQL [enter] pour faire afficher le contenu de la variable RunMySQL.
Sélectionner le texte affiché et le copier dans une requête vierge dans l'éditeur de requête et essayer de l'éxécuter.

Enfin si rien ne marche tu pourrais forcer des décimales pour être sûr que Access comprend qu'il a affaire à un réel et non un entier.

Cela pourrait donner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RunMySQL = RunMySQL & " select Or_Affectation ,""" & VrUSER_ID & """, PIN_Terminal, PIN_SIM, Coque, Vitre, Support_Vehicule, " & VrNum_EMEI & ".00" & " ," & VrNum_SIM & ".00" & ", Date_Début, Date_Fin, Actif, Statut_Affectation, Commentaire"

A+