Calendrier faire " pop " un message correspondant à un enregistrement

**Jean-Philippe André** · 06/04/2009, 21h37

regarde, en faisant ton code ligne à ligne,
j'essaie de voir le nom du control actif, et j'obtiens ceci :

Code :

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

1
2
?me.ActiveControl.name
chkResponsable

en changeant le code comme ceci, on lit le texte de la "1ere case"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Function ReturnInfo()
Dim pop As String
 
'pop = DLookup("[DateDepart]& ' ' & [Responsable]", "Doc")
'pop = DLookup("[DateDepart]& ' ' & [Responsable]", "Doc", "DateDepart=" & CDbl(Screen.ActiveControl.Value))
'pop = Nz(DLookup("[DateDepart]", "Doc", "Cdbl(DateDepart)=" & CDbl(Nz(Screen.ActiveControl.Value, 2))), 2)
MsgBox Nz(Me.J1.Caption, 2)
 
'MsgBox "Tâche(s) du jour  " & pop
 
 
End Function

on utilisera une variable pour spécifier si J1, J2... est utilisé

le code final pourrait être ceci :

Code :

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

1
2
3
4
5
6
7
 
Private Function ReturnInfo()
Dim pop As String
 
MsgBox Nz(Me.Controls("J" & variableglobal).Caption, 2)  
 
End Function

reste maintenant à récupérer les autres éléments ;
mois et année

**Etila** · 07/04/2009, 08h18

okai, donc j'ai refais complètement mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Function ReturnInfo()
Dim DateDebutSemaine As Date
Dim i As Integer
'On calcule le numéro du premier jour de la semaine selon la date selectionnée grâce aux listes
DateDebutSemaine = DateAdd("d", -IIf(Weekday(DateSerial(Me.Liste_Annee, Me.Liste_Mois, Me.Liste_Jour)) - 1 = 0, 7, Weekday(DateSerial(Me.Liste_Annee, Me.Liste_Mois, Me.Liste_Jour)) - 1) + 1, DateSerial(Me.Liste_Annee, Me.Liste_Mois, Me.Liste_Jour))
'On récupère le numéro de la case
i = ObjectNum(elem_selected)
'On calcule la date de la case selectionnée et on la renvoie
ReturnInfo = DateAdd("d", i - 1, DateDebutSemaine)
End Function

et quand je fais

Code :

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

1
2
'à mettre dans la Function SelectDay
MsgBox ReturnInfo

c'est impeccable j'ai la bonne date

Maintenant, je me demande comment faire mon DLookup()
fiou je crois que sa vient bon

**Jean-Philippe André** · 07/04/2009, 09h22

Désormais, si ReturnInfo contient ta date,
tu repasses par ce qu'on a évoqué juste avant, à savoir, le format + les # avant et après

**Etila** · 07/04/2009, 10h26

bon bon bon...

je n'y arrive pas avec ce DLookup

Code :

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

= DLookup("[DateDepart]", "Doc", "ReturnInfo =#" & Format(Nz(JE SAIS PAS QUOI METTRE, 2), "MM/DD/YYYY") & "#")

même le ReturnInfo en critère je ne suis pas sur

pourrais-tu encore m'aider un peu?

**Jean-Philippe André** · 07/04/2009, 11h13

ne te disperse pas et reste sur ce qu'on a déjà fait ensemble :
ton ReturnInfo te renvoie la date c'est bien cela ?
la table Doc contient quels champs ?

je n'ai plus accès à ta base, lien mort

**Etila** · 07/04/2009, 12h05

re,

j'ai remis la bdd

donc dans ReturnInfo il y a bien la bonne date.
sinon dans la table Doc il y a la toute ma bdd

**Jean-Philippe André** · 07/04/2009, 12h11

ok,
et le champ sur lequel tu veux filtrer s'appelle comment ?
on arriverait à quelque chose comme ceci :

Code :

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

 DLookup("[DateDepart]", "Doc", " TonChampAFiltrer=#" & Format(Nz(ReturnInfo, 2), "MM/DD/YYYY") & "#")

**Etila** · 07/04/2009, 12h43

le champ que je veux filtrer est DateDepart

Dans ReturnInfo, j'ai la date du formulaire (celle sélectionnée) et dans ma base de donnée dans le champ DateDepart il y a plein de date moi je voudrais que cela m'affiche les enregistrements qui sont égale a mon ReturnInfo.

j'ai remis la base de donnée
http://www.mediafire.com/?sharekey=5...4e75f6e8ebb871

**Jean-Philippe André** · 07/04/2009, 13h35

Attention Dlookup() ne retourne qu'un seul enregistrement, pas plusieurs.

Si tu veux avoir plusieurs enregistrements il faudra changer de méthode.

Par rapport à ton DateDepart,
on aurait donc une requête du style

Code :

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

strSQL = "SELECT * FROM Doc WHERE DateDepart = #" & Format(ReturnInfo,"MM/DD/YYYY") & "#"

**Etila** · 07/04/2009, 15h09

je viens de tester et y a un truc bizarre

Code :

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

strSQL = "SELECT * FROM Doc WHERE DateDepart = #" & Format(ReturnInfo, "DD/MM/YYYY") & "#"

quand j'affiche strSQL je vois dans la messagebox

Code :

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

SELECT * FROM Doc WHERE DateDepart = #MA DATE SELECTIONNEE#

si je veux afficher ma date + le nom d'un responsable cela donne ?

Code :

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

strSQL = "SELECT DateDepart,Responsable FROM Doc WHERE DateDepart = #" & Format(ReturnInfo, "DD/MM/YYYY") & "#"

**Jean-Philippe André** · 07/04/2009, 15h39

attention au format

**Etila** · 07/04/2009, 16h06

le format de la date?

parce que ça me fait le même truc que sa soit en DD/MM/YYYY ou MM/DD/YYYY

sa inverse juste les jours et les mois mais j'ai SELECT * FROM Doc WHERE DateDepart = #MA Date (soit dd/mm/yyyy ou mm/dd/yyyy)# qui s'affiche avant de me donner la date

**Jean-Philippe André** · 07/04/2009, 16h27

oui,
et donc maintenant il faut que tu affiches le résultat ou 'lutilises dans un recordset

**Etila** · 07/04/2009, 17h01

je viens d'essayer

Code :

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

1
2
3
4
5
6
7
8
9
Dim db As DAO.Database
Dim rstDatabase As DAO.Recordset 
 
strSQL = "SELECT DateDepart, Responsable FROM Doc WHERE DateDepart = #" & Format(ReturnInfo, "DD/MM/YYYY") & "#"
 
Set db = CurrentDb
Set rstDatabase = db.OpenRecordset(strSQL)
 
MsgBox "Tâche(s) du jour  " & rstDatabase

j'ai une erreur d'incompatibilité de type donc je suppose que je me démerde comme un manchot

et si je fait un MsgBox "Tâche(s) du jour " & strSQL y a le bug de l'affichage que j'ai cité au-dessus

**Jean-Philippe André** · 07/04/2009, 17h27

pas de nom d'oiseaux veux-tu

essaie avec :

Code :

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

MsgBox "Tâche(s) du jour  " & rstDatabase.Fields("DateDepart").value & ":" & rstDatabase.Fields("Responsable").value

**Etila** · 07/04/2009, 17h33

Super sa fonctionne merci a toi

mais je vais te poser 2 dernières questions

si il n'y a pas d'enregistrement qui correspond dans ma base de données peut-on afficher "rien a faire" ?

et si il y a 3 enregistrement dans ma base de donnée comment faire pour afficher les 3 enregistrements?

**Jean-Philippe André** · 07/04/2009, 17h58

pour la première question :
tester avant RS.EOF
pour la seconde :
tu veux les afficher sous quelle forme ? à quel endroit ?

**Etila** · 07/04/2009, 18h29

j'aurais bien voulu avec un msgbox mais si c'est pas possible je le ferrais avec une zone de liste

Code :

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

1
2
3
Me.InfoCal.RowSource = strSQL
 
Me.InfoCal.Requery

sinon le rs.EOF je connais pas non plus si tu pouvais m'aider aussi

parceque je regarde l'info de microsoft mais bon... faut faire un mixe avec rs.EOF,RS.BOF ?

**Jean-Philippe André** · 07/04/2009, 19h39

l'aide en ligne

pour EOF et BOF est suffisante pour manipuler les recordset

**loufab** · 07/04/2009, 23h51

Bonjour,

Dans un msgbox on peut afficher de nombreuse lignes de texte.

Il faut donc créer une liste de ligne à partir de ton recordset.

en gros on parcours le recordset, on concatene le resultat et un saut de ligne, et enfin on l'affiche dans la msgbox

Code :

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

1
2
3
4
5
6
7
8
9
 
dim Maliste as string
 
while not rst.eof
     Maliste = Maliste & rst.fields("Monchamp") & vbcrlf
     rst.movenext
wend
 
msgbox Maliste,vbokonly, "un titre"

Il faut t'inspirer du code et non faire un copier coller.

Cordialement,

Calendrier faire " pop " un message correspondant à un enregistrement [AC-2003]

IHM

Partager

Partager