Discussion :

[JF.Stachera]

Bonjour à tous!

Ceci est mon premier post...

Je souhaite afficher dans le champ calculé d'un formulaire, la valeur de la date minimum entre le champ "Date A" et le champ "Date B" d'une table "Dates" pour lesquels les enregistrements correspondent à celui de mon formulaire. J'avais pensé à un truc du genre :

=Min((Dmin("Date A", "Dates", "Condition qui sélectionne les dates correspondant à l'enregistrement actuel du formulaire")) ; (Dmin("Date B", "Dates", "Condition qui sélectionne les dates correspondant à l'enregistrement actuel du formulaire")))
Mais ça ne marche pas...

Sinon, pour faire plus simple, j'ai déja trouvé la fonction qui permettait d'afficher la date mini de "date A" dans un champs calculé (Fonction Dmin avec condition qui spécifie l'enregistrement). De meme pour celui qui trouve le mini de "Date B".
Dans ce cas ma question serait : Comment écrire une fonction qui trouve la date minimum entre deux champs "Champ A" et "Champ B" d'un formulaire.

J'espère que ma question est assez claire...

D'avance merci.

[pc75]

Bonjour,

Sert toi de la fonction DateDiff()

[Tofalu]

Tu peux aussi utiliser une petite fonction VBA

Code :

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

1
2
3
4
5
6
7
Public Function Mini(date1 as date,date2 as date) as date
If date1>date2 then 
mini=date2
else
mini=date1
end if
end function

Et ensuite dans un controle :

Code :

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

=Mini(ChampA;ChampB)

[JF.Stachera]

Un grand merci à vous deux!!

La solution de tofalu me semble plus interessante.

Je ne connais pas bien acces... Il me suffit de copier coller ta fonction dans la fenetre VBA mais a quel endroit exactement? Dans le code du formulaire dans lequel se trouvera le champ calculé?

Dans ce champ ensuite, me sera-t-il possible de faire mini(dmin(... ; ... ; ...) ; dmin(... ; ... ;... ))??

[medkarim]

il existe également la fonction vraifaux q'on compose avc la fonction min ou dmin

Code :

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

1
2
3
 
 
vraifaux(min([datea])<min([dateb])  ; min([datea]);min([dateb]))

[/code]

[JF.Stachera]

Well...

J'ai essayé la solution qui me semble la plus pertinente et cela fonctionne lorsque les deux champs de date à comparer dans le formulaire ne sont pas vides. Dans le cas contraire, le champ calculé indique #error.

Voici le code que j'ai utilisé, pourriez-vous me dire pourquoi cela ne fonctionne pas?

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
Public Function Mini(date1 As Date, date2 As Date) As Date
If date1 = 0 Then
    If date2 = 0 Then
        Mini = ""
    Else
        Mini = date2
    End If
Else
    If date2 = 0 Then
        Mini = date1
    Else
        If date1 > date2 Then
            Mini = date2
        Else
            Mini = date1
        End If
    End If
End If
End Function

[User]

Salut,

Utilise la fonction nz:

Code :

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

Resultat= Mini(nz([date1],0), nz([date2],0))

@+

[JF.Stachera]

Merci beaucoup à tous!!
J'ai fait un mix de vos conseils et ça fonctionne!!

Allez, comme dirait l'ours : A pluches!