Discussion :

[othke]

Bonjour,

J'avais déjà posté une question sur les champs multi-valué.
J'ai regardé une doc de Christophe WARIN sur ce site, mais je n'ai pas trouvé la réponse à ma question.

Je cherche à trouver la propriété qui indique si un champ est multi-valué. si possible une propriété qui renvoie true ou false.

Une telle propriété existe-t-elle?

L'objectif: Si un champ est multi-valué, je ne lui applique pas la même requête.

Merci.

Olivier.

[Tofalu]

Salut,

http://access.developpez.com/access2...tiValueTypeVBA

Que l'on peut transformer en fonction

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
Function FieldIsMultiValue(strTableName As String, strFieldName As String) As Boolean
On Error GoTo err
  Dim oDb As DAO.Database
  Set oDb = CurrentDb
  FieldIsMultiValue = oDb.TableDefs(strTableName).Fields(strFieldName).Properties("AllowMultipleValues")
 
 
fin:
  Set oDb = Nothing
Exit Function
err:
  If err.Number <> 3270 Then
    err.Raise err.Number
  End If
  Resume fin
End Function

Exemple d'utilisation

Code :

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

1
2
3
Sub test3()
MsgBox FieldIsMultiValue("tblClient", "StatutClient")
End Sub

Affiche vrai si statutclient de la table tblClient accepte plusieurs valeurs.