Discussion :

[vba_lieb]

Bonjour,

J'utilise, et d'ailleurs un grand bravo et merci, le tutoriel : Manipuler les données des bases Access depuis Excel
Fonctions en VBA basées sur ADODB pour les développeurs

https://laurent-ott.developpez.com/t...-depuis-excel/

Etant en apprentissage, je me teste la solution proposé.

J'ai un souci :
J'ai une table nommé REF_USI60_V1
1- Dans celle si, la clé primaire est : ID
2 - Et j'ai un champ nommé OF qui référence une opération à effectuer
3 - J'ai aussi dans cette table un champ qui s'appelle QTE_LIVREE qui me donne le nombre de pieces recues

Alors si j'utilise la fonction ci-dessous, j'ai aucun problème pour remonter le nombre de pieces et me l'afficher (car c'est un chiffre.)

Code :

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

1
2
3
4
5
Enr_Info Cnn:=Cnn1, StrTableSource:="REF_USI60_V1", _
          SQLWhere:="OF='" & NumOF & "'", TypeInfoEnr:=Valeur, _
          StrNomChamp:="QtéLancée"
 
MsgBox Result_Enr_Info

Si je souhaite lire par contre le champ Référence (mélange de chiffre et lettre) la j'ai une erreur :

Code :

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

1
2
3
4
Dim REPONSE_TEST As String
REPONSE_TEST = ADO.Enr_Info(Cnn1, "REF_USI60_V1", "OF='" & NumOF & "'", Valeur, "Référence")
 
MsgBox REPONSE_TEST

il m'affiche sans souci la référence,


Puis me génère une erreur :



Mes scripts sont lancées depuis un fichier Excel qui me sert d'outil pour les utilisateurs.

En résumé, je souhaite pouvoir :
1 Lire une information quelques soit la table
2 modifier une information dans une table (quelque soit le champ et son format)

Bon j'avoue que je débute avec Access mais avec un niveau intermediaire pour le VBA Script

Merci à vous pour votre retour,

Vba_lieb

[micniv]

Utilise l'outil VBA de débogage pour voir la ligne qui plante.
mets un point d'arrêt sur la ligne (par F9)

Code :

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

MsgBox REPONSE_TEST

Jusqu'à cette ligne pas d'erreur.

puis fais du pas à pas ...

[vba_lieb]

Utilise l'outil VBA de débogage pour voir la ligne qui plante.
mets un point d'arrêt sur la ligne (par F9)

Code :

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

MsgBox REPONSE_TEST

Jusqu'à cette ligne pas d'erreur.

puis fais du pas à pas ...

Merci pour ton retour,
En fait, j'avais mis dans Option Explicit :
Public OF_NUMBER As Long au lieu de Public OF_NUMBER As Variant

Ca marche, j'avance, j'avance...

Mais heureusement avec votre aide

Bonne journée