[Résolu][Base] Afficher une requête si non nulle

[Jacou]

Pour la bonne tenue de ce forum, veillez à respecter la syntaxe des balises (première lettre en majuscule puis le reste en minuscules, le tout entre crochets).[Base] et non [BASE]

Bonjour,

J'ai une table Agenda ou il y a une date Rappel et une date Rdv.Je voudrais savoir si une date de rappel est échue à la date du jour.
Je voudrais pour ce faire que au lancement de la base on puisse faire un teste sur ma requête et ne l'afficher que si elle est non nulle ( un Rdv est donc échue ).

J'espère être suffisamment clair.
Merci.
Edit : ma macro dans la base, j'ai un 1er pb de date ( je pense dû au format )

Agenda.odb

[Dude]

Salut,

Evite de nous mettre des copies écran de macro.
Comment veux-tu que l'on travaille dessus ?
Colle le directement dans le message en l'encadrant des balises

Code : Tout sélectionner

Comme toujours, on vérifie d'abord dans l'éditeur SQL de Base que la requête fonctionne.
Ensuite, si (et seulement si) elle fonctionne, on l'intègre dans une macro.

Dans ton cas, tu déclares une variable [b]DateJour[/b] qui n'est pas intégrée dans ta requête.
Regarde le classique [url=https://forum.openoffice.org/fr/forum/viewtopic.php?f=15&t=1454]suprême de code[/url] pour comprendre.

[Jacou]

Bonjour,

"Balise code" comme son nom l'indique je ne connaissais pas, c'est chose faites, Merci.

Pour ce qui est de la requête, j'ai fais une erreur sur la date. C'est corrigée et ça marche Merci.

Par contre dans MsgBox la date s'affiche AAAA MM JJ. Peut on la convertir ?
Si tu as (encore ) un lien pour convertir au format europe.
Merci d'avance.

Code : Tout sélectionner

Sub VerifAgenda ' -----------Permet de verifier si une date de l'agenda est passée-----------------
Dim oConnect as object, oReq as object, oResult as object
Dim instrSQL as string, texte as string, titre as string
Dim DateJour as date, DateInfo as Date, Test as boolean
oConnect = ThisDatabasedocument.CurrentController.ActiveConnection
oReq = oConnect.createStatement()
instrSQL = "Select ""DateRappel"", ""DateActe"", ""Note"" From ""FicheAgenda"" Where ""DateRappel"" <= curdate()"
Print instrSQL
oResult = oReq.executeQuery(instrSQL)
Test = oResult.next
If Test then
	titre="Vérification de l'agenda:"
	texte ="Il apparaît qu'un événement de l'Agenda soit proche" & chr(13) & "Veuillez vérifier les différents événements !"
	MsgBox (oResult.Columns.getByName("DateActe").String & " " & oResult.Columns.getByName("Note").String & chr(13) & chr(13) & texte,64 , titre)
endif
End Sub

Agenda.odb

[Piaf]

Bonjour

Par contre dans MsgBox la date s'affiche AAAA MM JJ. Peut on la convertir ?

Teste

Code : Tout sélectionner

MsgBox (Format(oResult.Columns.getByName("DateActe").String,"DD/MM/YYYY") & " " & oResult.Columns.getByName("Note").String & chr(13) & chr(13) & texte,64 , titre)

A+

[Jacou]

Super, Merci beaucoup à vous deux.

A ++