Discussion :

[brindespoir]

Bonjour,
j'aimerais créer un formulaire qui contient:
les colonnes:
1) espece exemple (chien, chat...)
2) maladies
3) date de saisie (date saisie manuellement)
4) date de vaccination (vaccination est 3jours avant la date d'entrée)(donc se champ devrais etre = (date de vaccination -3jours)
5) date d'entrée (champs calculé) exemple (si espere = chien et maladie =grippe, la date d'entrée = date de saisie +5jours.... si espese = chien et maladie = rage, la date d'entrée = date de saisie +5jours....)

comment je pourrais faire pour que le calcul des dates 4 et 5 deviens automatique.
Merci

[Invité]

Bonjour

A la vue de ton message, il faudrait que tu donnes quelques informations complémentaires.

Ton formulaire est-il en mode feuille de données ou simple ?
Les données existantes non calculées viennent-elles d'une table ? d'une requête ? ou saisis-tu tout manuellement ?


Philippe

[brindespoir]

je te dirais mode feuille de données.

le formulaire vient d'une requête dont les données viennent d'une table.

[brindespoir]

erreurs.
j'ai écris #4) date de vaccination (vaccination est 3jours avant la date d'entrée)(donc se champ devrais etre = (date de vaccination -3jours)#
c'est date d'entrée -3jours

[FreeAccess]

Bonjour,

Tu donne toi même la réponse.....

Si date vaccination = Date entrée - 3 jours

.....il te suffit de mettre dans Source contrôle de ton champ Date vaccination....

Code :

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

=[Date_Entree]-3

[brindespoir]

merci pour ta réponse. je raisonne de façon logarithmique. en faite la base de donnée je l'ai pas encore construit car je suis sous linux, j'attend un ordi sous windows.
mais pour la date d'entrée comment la calculer. qui contient plus de condition

[FreeAccess]

Plusieurs possibilités......

La plus basique...

Code :

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

1
2
3
If Espece = "Chien" AND Maladie = "Grippe" Then
     Date_Entree = [Date_Saisie] + 5
End If

En partant de cela, tu a la possibilité d'imbriquer plusieurs If..Then.......voir l'aide d'ACCESS pour plus de précision.

Regarde également du coté de la fonction Iif (avec deux i )

[brindespoir]

Bonjour,

Tu donne toi même la réponse.....

Si date vaccination = Date entrée - 3 jours

.....il te suffit de mettre dans Source contrôle de ton champ Date vaccination....

Code :

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

=[Date_Entree]-3

Pour cette partie du problème c'est résolue, récupérer une date et puis lui ajouter un nombre de jours.
mais la partie conditionnelle ne marche pas.
supposant espèce=chien ou chat et maladie= grippe ou rage

comment je pourrais écrire mon expression stp
et ou j'inclurais l'expression.

[FreeAccess]

Heu....oui....

...mais la partie conditionnelle ne marche pas.

Qu'est ce qui ne "fonctionne" pas
Y a t'il un message d'erreur
Comment as-tu "construit" cette condition Sur quel événement

Un minimum de renseignements nous serait utile....

...et ou j'inclurais l'expression.

Là aussi en fonction de la façon dont est "structurée" ta base, nous pourrons t'apporter des réponses....

[brindespoir]

Code :

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

1
2
3
4
Private Sub Date_entree_AfterUpdate()
If Espece = "Chien" AND Maladie = "Grippe" Then
Date_Entree = [Date_Saisie] + 5
End If

j'ai inclus se code dans la case Date entree evenement after update
j'ai aucun message d'erreur, mais la date d'entree ne change pas quand je saisie chien et grippe...

question additionnelle, la date de vaccination fonctionne bien mais le soucie elle n'est pas modifiable, j'aimerais qu'elle soit modifiable si la personne qui saisie le souhaite.

[FreeAccess]

...mais la date d'entree ne change pas quand je saisie chien et grippe

Jusqu'à là c'est normal, puisque ton champ [Date_Entree] ne doit être mis à jour que lorsque tu modifie celui-ci

...et bien sur, il faut également que ton champ [Date_saisie] soit remplie car il sert au calcul du champ [Date_Entree]....d'où peut-être plus simplement mettre à jour ton champ [Date_Entree] directement par rapport au champ [Date_Saisie]

Code :

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

1
2
3
4
5
Private Sub Date_Saisie_AfterUpdate()
If Espece = "Chien" And Maladie = "Grippe" Then
    Date_Entree = [Date_Saisie] + 5
End If
End Sub

...maintenant, attention de ne pas confondre le nom des champs avec le nom des contrôles contenant la valeurs de ces champs ...

[brindespoir]

Merci, c'est impeccable