Discussion :

[cacit_boss]

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]

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]

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]

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]

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]

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