Discussion :

[wulfram]

Bonjour, et bonne année à tous !

De retour au bureau, je me vois confronté à de nouveaux problèmes.
Afin de pouvoir enrichir ma base de données, je souhaite pouvoir enregistrer de nouveaux documents. Pour certains documents, un champ spécifique (Spécialité) peut avoir plusieurs valeurs. Afin de permettre d'ajouter ces documents, mais aussi d'effectuer une recherche sur une seule spécialité (en n'affichant pas les autres dans la liste de résultats) je me suis créé deux tables. L'une ou le document est scindé, pour chaque spécialité, dans un enregistrement différent. L'autre contient une chaine listant les spécialités ainsi qu'un numéro de référence unique.
Afin de pouvoir supprimer une spécialité, j'aimerai pouvoir actualiser la source d'une liste déroulante en fonction de cette chaîne, passée dans un label. Je pensais pour cela utiliser "Split", mais je dois avoir du mal à m'en servir.

Code :

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

1
2
3
Dim SQL() As String
SQL = Split("nomlabel.value",",")
cbomaliste.RowSource = SQL()

Je pense que j'ai encore ce problème de & " ' _ mal placés, quelles que soit les combinaisons que j'ai essayé. (pas encore toute, mais ça va se faire)

Je vais de ce pas étudier la création de table temporaire, histoire de voir si je peux passer par là. (ce qui me servira en plus par la suite)
Quelqu'un aurait une idées, un début de piste ?

[Invité]

Bonjour

La fonction Split renvoie un tableau, tu ne peux donc pas remplir une chaine de cette manière.

Voici un petit exemple (attention, pas contrôlé car tapé à la main)

Code :

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

1
2
Dim TabString() as String
TabString() = Split(me.nomlabel.value,",")

Ensuite il faut parcourir ton tableau pour faire une chaine du type

Code :

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

1
2
3
4
5
Dim strChaine As String
Dim i As Integer
For i = 0 To UBound(TabString())
    strChaine = TabString(i) & ";" & strChaine
Next i

Et tu utilises cette chaine pour alimenter la RowSource.

Starec

[DMboup]

De petites modification sont nécessaires pour que le code de Starec marche

Code :

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

1
2
Dim TabString() as String
TabString() = Split(me.nomlabel.value,",")

A remplacer par

Code :

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

1
2
Dim TabString as Variant
TabString = Split(me.nomlabel.value,",")

For i = 0 To UBound(TabString())

A remplacer par

Code :

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

1
2
 
For i = 0 To UBound(TabString)

Le reste est correcte.

[Invité]

Merci DMboup

Comme je te l'ai dit je l'ai tapé à la mimine, mais l'idée est là.

Starec

[wulfram]

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
Private Sub Form_Load()
 
cboCatégorie.RowSource = "SELECT [INDEXC].[Catégorie] FROM INDEXC ;"
cboSCatégorie.RowSource = ""
cboSpécialité.RowSource = ""
lblSpécialité.Caption = "Salut, ami des nains, je suis ton Dieu, et tu dois obéir"
SpeDoc
End Sub
Private Sub SpeDoc()
Dim TabString() As String
Dim strChaine As String
Dim i As Integer
 
TabString() = Split(Me.lblSpécialité.Caption, ",")
For i = 0 To UBound(TabString())
   strChaine = TabString(i) & ";" & strChaine
 
Next i
cboSpé.RowSource = strChaine
 
cboSpé.Requery
End Sub

Cette essai (ainsi que ceux en utilisant cboSpé;rowSource = "strChaine" ; = " & strChaine & ") ne sont pas concluants.
Dans le cas présent, j'ai un beau message me disant que "la source d'enregistrement ' et tu dois obéir;je suis ton Dieu; ami des nains;Salut;' spécifié dans ce formulaire ou état n'existe pas."
A première vue, un problème de & " ' etc, comme d'hab... ou peut-être le fait d'agir sur le form_Load. Je go test !

[Edit : testé sans les "()" du Tabstring, sans changement visible sur le résultat. (même erreur)
Appliqué à un événement AfterUpdate, le problème persiste.]

[DMboup]

Comme je te l'ai dit je l'ai tapé à la mimine

Et le code marche très bien même sans mes remarques.
PS : Pourtant j'ai eu un problème en déclarant un string la variable qui recoit le tableau.

[wulfram]

N'arrivant pas à utiliser la String (mais je chercherai demain), je me suis lancé sur la création d'une table à champ unique avec entrée des diverses spécialités par l'utilisation de listes déroulantes et d'un bouton enclanchant un run SQL "INSERT INTO".
Deux questions s'en suivent :
** est-il possible de ne pas avoir le message "vous allez ajouter une ligne...." ?
** Comment créer la phrase "ami des nains, ..." en séparant chaque spécialité ("ami des nains" ici) par une virgule.

Pour cette question je devrais y arriver seul en cherchant demain matin. La première j'en doute. (j'avais déjà cherché, mais dans cette situation c'est bien plus génant, donc il me faut trouver)

Merci en tout cas, pour votre aide.
Au programme demain : utiliser la chaine dans un rowsource (ce sera plus pratique), et récupérer la valeur d'un enregistrement/champ précis pour alimenter un label.
A demain :!)

[Invité]

Bonjour

Petit complément, as-tu bien mis la propriété Origine Source de ta liste déroulante à Liste Valeurs ?

C'est ce qu'il faut faire si tu mets en source une chaine.

Starec

[wulfram]

Bonjour

Petit complément, as-tu bien mis la propriété Origine Source de ta liste déroulante à Liste Valeurs ?

C'est ce qu'il faut faire si tu mets en source une chaine.

Starec

Non, et c'est vrai que ça change pas mal de choses. Je suis bon à pendre, j'avais vérifié en plus... mais sans penser à corriger.
Bon bah, la question principale étant résolu, je poserai les questions annexes dans un autre thread.
Merci bien Starec !