Discussion :

[marco_t]

Bonjour,

la base que je développe est axée autour de 2 dates clés (D1 et D2).

Pour éviter toute discordance, je souhaiterais empêcher l'utilisateur d'insérer une D2 antérieure à D1.

Auriez-vous une solution s'articulant autour d'un code ou autre?

Merci d'avance.

[Invité]

Bonjour

Tout dépend à quel niveau tu veux le faire, sur la table, dans un formulaire ?

Par exemple dans les propriétés d'une table tu peux dans "Valide Si" écrire :

Code :

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

[D1]>[D2]

et personnaliser le message.

Philippe

[marco_t]

Bonjour,

je viens d'essayer de mettre à jour la proprieté valide si de la table, mais le programme me dit que la syntaxe SQL n'est pas valide, a priori on ne peut pas utiliser deux mêmes colonnes d'une même table.

[rjamin]

Bonjour,

Voici ce que l'aide d'Access propose pour votre question.


L'exemple suivant fait appel à la fonction SetTableValidation qui définit une validation au niveau des enregistrements pour s'assurer que la valeur du champ EndDate vient après la valeur du champ StartDate.

Visual Basic pour Applications

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
Dim strTblName As String, strValidRule As String
Dim strValidText As String
Dim intX As Integer
 
strTblName = "Employees"
strValidRule = "EndDate > StartDate"
strValidText = "Enter an EndDate that is later than the StartDate."
intX = SetTableValidation(strTblName, strValidRule, strValidText)
 
Function SetTableValidation(strTblName As String, _
    strValidRule As String, strValidText As String) _
    As Integer
 
    Dim dbs As Database, tdf As TableDef
 
    Set dbs = CurrentDb
    Set tdf = dbs.TableDefs(strTblName)
    tdf.ValidationRule = strValidRule
    tdf.ValidationText = strValidText
End Function