[VBA]erreur : Dépassement de capcacité (excel - access)

Question

Bonjour,



Lors de l'importation d'un tableau excel de 116 lignes par 23 colonnes vers Access j'obtiens un message d'erreur : 


D&#233;passement de capacit&#233;

Mon code est le suivant :




For j = 2 To m

For i = 5 To n

nomt = "'" & xl.Cells(i, 1).Value & "'"

MySQL = "SELECT type,Taxon FROM ListePollens WHERE (Taxon= " & nomt
& ")"

Set rst = CurrentDb.OpenRecordset(MySQL, dbOpenDynaset, dbReadOnly)
If rst.EOF False And rst.BOF False Then

typ = rst![type]

.....




Est ce que quelqu'un a d&#233;j&#224; eu ce genre de probl&#232;me ?


Merci,

Seb.

actu5394 · Answer

Bonjour,
Je dirai tout simplement que tu as une cellule Excel qui contient beaucoup de carract&#232;res et que tu veux coller
dans un champ Access qui peux en contenir beaucoup moins ??
L'erreur survient-elle tout de suite, apr&#232;s un laps de temps...?

cokinoumasterflash · Answer

Effectivement l'erreur apparait apr&#232;s un laps de temps.



Comment je peux faire pour  r&#233;gler ce probl&#232;me s'il te plait ?

Seb.

Zlub · Answer

Salut, Je pige pas, en l'état tu fais un SELECT, donc ta source de données est MS Access... même si tu utilises un fichier excel pour filtre les taxons que tu veux afficher. En plus concret, tu affiches uniquement les types, associés aux Taxon, contenus dans ta base Access à la seule condition que le Taxon existe dans ton fichier excel.... donc au final c'est pas un probleme d'importation de données excel -> access... access est donc ta source et excel ton filtre.... mais bon juste une parenthese... Pour en revenir à ton pb, vérifie si un de tes cellules ne contient pas un ; (point virgule) ou un " qui traine et qui planterait ta requête... pour debug: For j = 2 To m For i = 5 To n nomt = "'" & xl.Cells(i, 1).Value & "'" ' ------ debug time ----- If InStr(1, nomt , ";") <> 0 Then Debug.Print "cell (" & i & "," & j & ") ; detecté !" If InStr(1, nomt , """") <> 0 Then Debug.Print "cell (" & i & "," & j & ") """" detecté !" MySQL = "SELECT type,Taxon FROM ListePollens WHERE (Taxon= " & nomt & ")" ' --- voir même ---- Debug.Print MySQL Set rst = CurrentDb.OpenRecordset(MySQL, dbOpenDynaset, dbReadOnly) If rst.EOF False And rst.BOF False Then typ = rst![type] ..... Ensuite, ton extrait de code est un peu court... tes deux boucles servent à quoi ? Tu fais quelque part un rst.MoveNext ' pour passer au jeu d'enregitrement suivant rst.Close ' pour fermer le recordset avant de faire un tour de boucle ? Vois avec ça si tu trouves ta solution sinon copies ton code de façon plus complete ... ++ Zlub

[VBA]erreur : Dépassement de capcacité (excel -> access)

3 réponses

Discussions similaires