Discussion :

[chernirachid]

Bonjour, j'ai une application sur access 2003 en faisons un double click sur une zone de liste ça me donne le formulaire du nom de la personne , j'ai un champs date de cour de sécurité et à chaque année il faut renouveler le cour, j'ai fait une requete dont un champ me donne la différence entre la date en cour et la date du

Code :

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

cour :......convertTimeDifferenceToFormattedString(CDate(Date())-CDate([securité])) AS TimeDifference

Je veux en sorte que si la date du cour depasse les 365 ça doit me donné un message pour renouveler le cour

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
Private Sub Form_load()
 Dim strSQL As String, strWhere As String
Dim TimeDifference As Boolean
 
strSQL = "SELECT employess.NoUnique, employess.TimeDifference " _
        & " FROM employess "
strWhere = "Where employess.NoUnique =" & Forms![formulaire1]![employes].Column(0)
 
strSQL = strSQL & strWhere
 Me.Form.Requery
 
If TimeDifference > 365 Then
                    MsgBox "La date du cour est  ", vbExclamation
 
    End If
End Sub

Merci pour votre aide.

[Invité]

Bonjour

Tu ne peux récupérer TimeDifference de cette manière, il faut que tu passes par un recordset DAO pour récupérer cette information.

Un tuto qui est la référence dans ce domaine : Définition et manipulation de données avec DAO

Sinon tu peux (si ta table n'est pas trop grosse), utiliser la fonction de domaine DLookup pour récupérer l'information, un autre article sur les fonctions de domaine : Les Fonctions de Domaine dans Access

Philippe

[chernirachid]

Bonjour, mon problème maintenant lorsque je click sur le nom de ma liste sa me donne le message sur le premier enregistrement de ma table et lorsque mon formulaire s'ouvre ca me donne le message que je veux

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_current()
 If date_insription < date-1() Then
 
 
    MsgBox "La date du cour est  " & date_insription, vbExclamation
 
End If
End sub

Merci pour votre aide