erreur "3421" convertion de type de données

**cacit_boss** · 08/03/2008, 18h59

Bonjour,
Désolé pour cette question de débutant dans le VBA.
j'ai récupéré le code si dessous pour établir la liste des tables de la base courante le code est celui de Fabrice Constans:Formulaire de recherche prêt à
l'emploi.(nouvelle version)
Cette fonction me fait une erreur à la compilation sur la ligne

Code :

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

rst.Fields(0) = qrs(i).Name

erreur 3421 convertion de type de données
voici le code complet:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
Function lf_GetTableList()
' renseigne la table tbl_TemplstTbl
Dim qrs As TableDefs
Dim rst As Recordset
Dim strSql As String
Dim i As Integer, j As Integer
' efface la table temporaire
DoCmd.SetWarnings False
strSql = "Delete tbl_TempLstTbl.*"
strSql = strSql + " FROM tbl_TempLstTbl;"
DoCmd.RunSQL strSql
' rempli la table temporaire
Set qrs = CurrentDb.TableDefs
Set rst = CurrentDb.OpenRecordset("tbl_TempLstTbl")
For i = 0 To qrs.Count - 1
' ecarte les tables temp et systeme
If Not (qrs(i).Name Like "*Temp*") And Not (qrs(i).Name Like "Msys*") And Not (qrs(i).Name Like "*tmp*") Then
rst.AddNew
rst.Fields(0) = qrs(i).Name
rst.Update
End If
Next
lf_GetTableList = rst.RecordCount
rst.Close
Set rst = Nothing
Set qrs = Nothing
DoCmd.SetWarnings True
End Function

quelqu'un peut-il m'aider et m'expliquer : je n'ai pas réussi à faire le lien
merci

**Heureux-oli** · 09/03/2008, 07h49

C'est une erreur de conversion, mais le message le dit déjà.

On peut par exemple retrouver cette erreur si tu veux entrer du texte dans un champ numérique.

**cacit_boss** · 09/03/2008, 08h34

Je suis novice en VB, mais le C et le Pascal me sont familiers.

En fait je pense que l'erreur est générée par les déclarations des variables qui sont de types différents:

Code :

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

1
2
3
 
Dim qrs As TableDefs
Dim rst As Recordset

et qu'au moment de l'instruction

Code :

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

rst.Fields(0) = qrs(i).Name

l'erreur est produite.
ce code a déjà très certainement tourné, et de plus il était fait par quelqu'un de compétent. C'est là mon interrogation ?
pouvez-vous m'expliquer les types de variables déclarées

Code :

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

Dim toto as TableDefs

et

Code :

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

Dim tata As Recordset

merci

**Heureux-oli** · 09/03/2008, 08h42

Il n'y a pas que le code qui compte.

La table qui reçoit les données aussi.
Pour ce qui concerne les Recordset et les TableDef, jette un oeil au lien ci-dessous.
http://warin.developpez.com/access/dao/

**ionnette** · 21/05/2008, 15h43

Bonjour,

J'ai copié le même code que cacit_boss et je suis tombée sur le même problème.

Est-ce que finalement quelqu'un avait trouvé une solution qui ne serait pas écrite ici ?

Si oui je veux bien l'avoir, parce que là, je craque !
un énorme merci d'avance.

Cordialement,

**azertix** · 21/05/2008, 15h47

Ce sont les types des enregistrements de vos tables qui ne sont peut-être pas les mêmes que ceux du code

**ionnette** · 21/05/2008, 15h56

Est-ce que tu sais à quoi correspond rst.Fields(0) ?

Sinon par "types d'enregistrement de mes tables" tu entends quoi ?
Le type de données qui s'y trouvent ?

(Désolée je me lance dans une aventure au-dessous de mes moyens intellectuels, je suis nulle en codes, et j'essaie de comprendre celuis-là... donc si je pose des questions idiotes, c'est au moins avec beaucoup de bonne volonté pour comprendre et apprendre)

**azertix** · 21/05/2008, 17h17

Ben quand tu crée une table en mode création, tu as une colonne nommée Type de données dans laquelle tu peux choisir ben ... le type de tes données.
Donc si tu choisis un type Numérique ou Numéro auto et que tu lui envois du texte, il va pas aimer

**ionnette** · 21/05/2008, 17h24

OK

Je vais essayer de trouver quelle table est impactée et lui changer ses types de données...
Mais a priori je pense qu'on parle d'une table qui gère provisoirement ce qui va être affiché dans un formulaire de recherche.
Donc elle est vide !

Et quand elle se remplit provisoirement, c'est de données ma table principale, qui elle contient tous les types de données (texte, numérique, bolléen).
Dans ce cas, est ce que je dois mettre dans la table "temporaire" (j'ai mis entre guillemets, parce qu'elle est bien créée et tout), tous les champs de ma table principale ?

**azertix** · 22/05/2008, 10h34

Pas forcément les mêmes noms de champs, mais le champ d'accueil doit avoir un type compatible avec le champ de départ

**ionnette** · 22/05/2008, 13h27

Merci.

En fait ACCESS avait ajouté une clé primaire à ma "table temporaire", avec un numéro Auto.
Je pense que l'erreur venait de là, parce qu'il n'y en a plus.

Par contre le formulaire ne fonctionne pas pour autant...
Je vais me relancer dedans, mais le découragement me guette.

Merci de ton aide en tout cas, je suis contente que l'énigme soit résolue !

**azertix** · 22/05/2008, 14h13

Oui c'était sûrement ça, tu ne peux pas affecter une valeur "de force" à un champ de type numéroAuto, vu que par définition il s'incrémente tout seul.
Si tu as d'autres questions, n'hésite pas

**ionnette** · 22/05/2008, 14h21

Tu n'aurais pas dû dire ça !

J'ai effacé tous les codes pour les réécrire (les re-recopier) et les revoir un par un.
En fait le premier qui ne fonctionne pas est celui-ci (il doit faire fonctionner un bonton de recherche) :

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
16
17
18
19
20
21
Private Sub btn_Recherche_Click()
 
    Dim strTable As String, strField As String, strCriteria As String, strSql As String
    Dim Criter As Variant
 
    strTable = Me.cbo_table         ' recupère le nom de la table
    strField = Me.cbo_champ         ' recupère le nom du champ
 
    ' compose le critere de recherche
    strCriteria = strTable & "." & strField & " Like """ & Me.txt_critere & """"
 
    ' construit la requête sql
    strSql = "SELECT DISTINCTROW " & strTable & ".*"
    strSql = strSql & " FROM " & strTable
    strSql = strSql & " WHERE ((" & strCriteria & "));"
 
 
    Me.lst_resultat.RowSource = strSql  ' affecte sql a lst_Resultat
    Me.lst_resultat.Requery             ' recalcule la liste
 
End Sub

Est-ce que tu verrais un truc qui cloche dans ce code ?
Est-ce que le guillement avant SELECT DISTINCTROW" est bien placé ?

**azertix** · 22/05/2008, 14h27

Ben déjà est-ce qu'Access te retourne une erreur ?
Si oui, dis-moi ce qui est surligné quand tu clique sur Débogage

**ionnette** · 22/05/2008, 14h31

Non, pas d'erreur.
Mais rien ne s'affiche pour autant.

**azertix** · 22/05/2008, 14h34

Tu peux faire un Debug.Print de ta requète, s'il te plait ?
A première vue, les doubles parenthèses après le WHERE, me semblent bizarres ...

**ionnette** · 22/05/2008, 14h48

J'ai écrit debug.print SGL dans mon code, mais quand je clique sur "Exécuter Sub", il m'ouvre une nouvelle macro... c'est normal ?

**ionnette** · 22/05/2008, 14h54

Une petite question :

Est-ce normal que l'objet "lst_resultat" ne soit déclaré nulle part ?

**azertix** · 22/05/2008, 14h59

Ben, c'est une zone de liste non ?
Seules les variables sont à déclarer

erreur "3421" convertion de type de données

VBA Access

Discussions similaires

Partager

Partager