Discussion :

[Flyze]

Bonjour,

Je souhaite créer une table via VBA pour cela j'utilise tabledef j'arrive à créer n'importe quel champs sauf une liste déroulante.

http://www.developpez.net/forums/d11...te-deroulante/

Je suis tombé sur ce sujet mais lorsque j'essaye d'appliquer la solution, il me dit propriété non trouvé pour : Set oPrp = .Properties("DisplayControl")

J'essaye de trouver de la doc sur ça mais sans réussite

Merci d'avance

[mumen]

Bonjour,

STP montre nous plus du code ou tu as ce message d'erreur.

[Flyze]

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Dim sql, temp As String
Dim newTable As TableDef
Dim DB As Database
Dim f As Field
Dim ind As dao.Index
Dim oPrp As dao.Property
 
 
Set DB = CurrentDb
Set newTable = DB.CreateTableDef(addTypeName.Value)
 
Set f = newTable.CreateField("ID", dbLong)
f.Attributes = dbAutoIncrField + dbFixedField
newTable.Fields.Append f
 
temp = addTypeName.Value & "Manufacture"
sql = "select * ManufactureID, ManufactureName FROM Manufacture"
 
Set f = newTable.CreateField(temp, dbInteger)
newTable.Fields.Append f
 
    With f
        Set oPrp = .Properties("DisplayControl")
            .Properties.Append .Properties("RowSourceType") = "Table/Query"
            .Properties.Append .Properties("RowSource") = SQL
            .Properties.Append .Properties("BoundColumn") = 1
            .Properties.Append .Properties("ColumnCount") = 2
            .Properties.Append .Properties("ListWidths") = "0 cm; 5cm"
            .Properties.Append .Properties("ListWidth") = "8 cm"
        End If
    End With
 
 
For Each Ctrl In Me.Controls
    If Not InStr(Ctrl.Name, "txt") = 0 Then
        If Ctrl.Visible = True Then
            temp = addTypeName.Value & Ctrl.Value
            Set f = newTable.CreateField(temp, dbText, 50)
            newTable.Fields.Append f
        End If
    End If
Next

Ce que j'essaye de faire, c'est un formulaire pour créer une table, il peut ajouter des text box pour un champ normal ou des liste déroulante (pas encore fait dans la boucle)
Mais pour chaque table il y a deux champs obligatoire que je cré en dehors de la boucle et c'est pour la liste déroulante que je bloque

[mumen]

Bonjour

Premièrement, tu fais référence à la propriété DisplayControl du champ alors qu'elle n'existe pas encore : il faut la créer.

Au lieu de :

Code :

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

Set oPrp = .Properties("DisplayControl")

c'est :

Code :

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

Set oPrp = .CreateProperties("DisplayControl")

qu'il faut écrire.

Deuxièmement tu dois définir la valeur que tu places dans cette propriété :

Code :

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

Set oPrp = f.CreateProperty("DisplayControl", dbInteger, acListBox)

Et troisièmement, on ne peut pas créer de propriété lors de la création de la table (c'est comme ça!) . Donc tu dois terminer l'Append de ton champ, terminer l'Append de ta table, puis refaire référence au deux pour pouvoir créer la propriété que tu désires.

Après la ligne Append de la table :

Code :

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

    DB.TableDefs.Append newTable

place :

Code :

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

1
2
3
4
5
6
7
8
9
    Set newTable = DB.TableDefs(addTypeName.Value)
    temp = addTypeName.Value & "Manufacture"
 
    With newTable(temp)
        .Properties.Append .CreateProperty("DisplayControl", dbInteger, acListBox)
        .Properties.Append .CreateProperty("RowSourceType", dbText, "Table/Query")
        .Properties.Append .CreateProperty("RowSource", dbText, sql)
        ' Etc.
    End With

Et faire de même avec tes autres propriétés.

Ton sql est faux, tu dois enlever l'étoile. Tu devrais aussi y ajouter une clause ORDER BY.

[Flyze]

Merci pour cette réponse. J'arrive maintenant a créer la tables avec des listes déroulantes. Mais je bloque sur une autre problème, je veux mettre une relation sur ce champs

Code :

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

1
2
3
4
5
6
7
8
temp = addTypeName.Value & "Manufacture"
Set rel = CurrentDb.CreateRelation(addTypeName & "rel", addTypeName, "Manufacture")
rel.Attributes = dbRelationUpdateCascade
Set f = rel.Fields(temp)
f.ForeignName = "ManufactureID"
 
rel.Fields.Append f
CurrentDb.Relations.Append rel

Je souhaire avoir une relation entre le champs nouvelletableManufacture de la nouvelle et le champs manufactureID de la table Manufacture
Le code bloque au niveau du Set f = rel.Fields(temp) avec comme erreur que l'objet est introuvable pourtant d'après l'aide DAO.Relation.Fields existe

[mumen]

Bonjour

Je ne suis pas certain, mais tu devrais faire un essai en mettant la CurrentDb en variable :

Code :

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

1
2
dim db as database
set db=Currentdb

[paidge]

Bonjour Flyze,
Je te propose d'aller jeter un oeil sur cette discussion vieille de 2 mois seulement tu auras sûrement des réponses. Je pense que la ligne où tu as le problème devrait ressembler plutôt à :

Code :

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

Set f = rel.CreateField(temp)

[Flyze]

Merci pour ces réponses j'ai pu résoudre le problème