Discussion :

[vete25]

Je reviens vers vous, avec mon sujet du calendrier que je continue d'adapter à ma base.

J'ai créé un formulaire de rappels de taches à partir d'une requête.
Les critères sont la date de fin<date()-1 et case à cocher "fait" à non.
La requête fonctionne bien, jusque là tout va bien.

Ce formulaire je voudrai m'en servir à l'ouverture de mon calendrier.
J'aimerai que lorsqu'il y a au moins un enregistrement dans la requête le formulaire s'affiche, s'il n'y a pas de taches en retard alors il ne s'afficherait pas.
Donc je crois que en gros il faudrait que j'arrive à récupérer le nb d'enregistrement de ma requête, si c'est 0 pas de formulaire rappel à l'ouverture du calendrier, si c'est <>0 alors ouverture du rappel.

Ma question est toute bête, comment je peux savoir le nb d'enregistrement de ma requête?

[jimbolion]

vete25 bonjour,

J'ai à peu près traité çà aujourd'hui dans ce fil de discussion

http://www.developpez.net/forums/d13...nnees-textbox/

JimBoLion

[vete25]

J'ai essayé un truc genre:

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Open(Cancel As Integer)
If Recordset."R_RappelTache".RecordCount = 0 Then
    Cancel = True
  Else
DoCmd.OpenForm "F_RappelTache"
  End If
End Sub

mais évidemment j'ai une erreur de syntaxe, c'est pas ma copine celle-là!!

[jimbolion]

vete25,

Non c'est sûr çà ne marchera pas comme çà

Essayes avec dcount ou en créant un recordset et en affichant le recordcount

Code :

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

1
2
3
Set rst = C_Db.OpenRecordset("ta raquete;")
    Nb_Enr = rst.RecordCount
    '

Nb_Enr te renverra 1 si enregistrements 0 sinon

JimBoLion

[jimbolion]

Vete25,

Un petit coup d'oeil ici

http://access.developpez.com/faq/?pa...es#Recordcount

JimBoLion

[vete25]

Merci JimBolion, évidemment quand c'est fait correctement le programme comprend mieux ce qu'on veut.
Ca fonctionne mais j'ai le formulaire de rappel qui est derrière l'autre, il est pas au premier plan?!?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Open(Cancel As Integer)
Dim strEnr As String
Dim rst As DAO.Recordset
 
Set rst = CurrentDb.OpenRecordset("R_RappelTache")
    strEnr = rst.RecordCount
 
If strEnr = 0 Then
    Cancel = True
  Else
DoCmd.OpenForm "F_RappelTache"
  End If
End Sub

[Philippe PONS]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Open(Cancel As Integer)
Dim strEnr As String
Dim rst As DAO.Recordset
 
Set rst = CurrentDb.OpenRecordset("R_RappelTache")
    strEnr = rst.RecordCount
 
If strEnr = 0 Then
    Cancel = True
  Else
DoCmd.OpenForm "F_RappelTache"
Form_F_RappelTache.Setfocus
  End If
End Sub

[vete25]

Merci Philippe pour ton aide, j'avais effectivement déjà pensé à cette solution dans la soirée, mais pour mon cas cela n'était pas adapté, je pense par rapport aux propriétés d'autres fenêtres et notamment celle du calendrier.

Mais j'ai trouvé en modifiant une propriété d'affichage de mon form rappel dans le code, je l'ai mis en "acdialog" , en ajoutant un bouton OK de validation, ainsi le form de rappel s'affiche quand il doit l'être, avant le calendrier, qui lui s'ouvre quand on clique OK sur le form rappel.

Ca va je trouve ça assez fluide.
Je vous remercie tous pour vos interventions.