Discussion :

[curt]

Bonsoir à tous,

j'aimerai qu'au lancement de ma base, on puisse tester si des indices de documents ont dépassé la date d'envoi.

La requête est simple, mais je ne voudrais pas afficher le résultat de cette requête mais un msgbox invitant l'utilisateur à visualiser ces indices s'il le désire.

Avez-vous déjà fait quelque chose du genre ?

Bonne soirée.
Curt

[marot_r]

Tu as deux approches pour le lancement, tu peux utliser la macro AutoExec ou un formulaire dans l'option Démarrage. Personnelement je préfère le formulaire.

Voici le code que je te suggère pour réaliser ce que tu veux.

À mettre dans un module

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
20
 
public function ExisteIndiceAVerifier() as boolean
   dim result as boolean
 
   dim db as database:set db=currentdb
   dim q as querydef:set q=db.querydefs("NomDeTaQueryDeControle")
   dim r  as recordset: set r=q.openRecordset
 
   if r.recordcount<>0 then
        result=true
      else
        result=false
   end if
 
   r.close:set r=nothing
   set q=nothing
   db.close:set db=nothing
 
   ExisteIndiceAVerifier=result
end function

Si tu utilise le form, sur OnOpen

Code :

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

1
2
3
4
 
if ExisteIndiceAVerifier() then
   msgBox "Allez vérifier les indices"
end if

[curt]

merci pour ta réponse, malheureusement j'obtiens une erreur 3061 sur la ligne

Code :

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

  Dim r As Recordset: Set r = q.OpenRecordset

trop peu de caractères. 2 attendu !!

là je sèche !!
merci tout de même.

Curt

[ft035580]

Salut,

Fais une recherche sur les requêtes paramétrées.

[curt]

Merci pour la réponse, mais je n'ai rien trouvé qui puisse m'aider dans les requête paramétrées....

Un p'tit coup de main pour régler l'erreur 3061 serait le bien venue...

Bonne journée.
Curt

[ft035580]

Salut,

Peut être que ceci t'aideras.

Chapitre 4.7

Bon courage.

[curt]

Bonjour à tous,

Je ne voyais pas la chose aussi compliquée (en tout cas, trop compliqué pour moi).
Donc j'ai besoin d'aide et pour cela j'explique ma demande :
A l'ouverture de la base, je sélectionne l'affaire; ça ouvre le formulaire documents. (avec le sous-formulaire indice).
J'ai une requête (ça je sais faire) qui me permet via un bouton de connaître les documents ayant des indices non diffusés ET dont la date prévisionnelle de diffusion est dépassée.

Donc je voudrais qu'à l'ouverture du formulaire document, s'il existe des indices dans ce cas, on affiche un message indiquant à l'utilisateur qu'il faut qu'il s'occupe de faire la diffusion prévue. (désolé d'avoir été un peu long, mais il faut bien expliquer les choses !!)

Est-il besoin de préciser que je ne suis pas à l'aise avec VB ???
Si quelqu'un a déjà traité ce sujet ou peut me donner un coup de main, j'accepte volontiers.

Merci.
Curt

[vodiem]

salut à tous,

curt>marot_r t'as fourni une réponse satisfaisante. (il aurait fallu faire des tests pour savoir d'ou vient ton erreur)
sinon j'ai une dans la même logique:

Code :

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

1
2
3
4
Public Function nbEnregistrements(monSQL As String) As Single
Set r = CurrentDb.OpenRecordset("select count(*) as nb from (" + monSQL + ")")
nbEnregistrements = r.nb
End Function

dans un module à part.
et sur l'événement "sur ouverture" du form:

Code :

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

1
2
3
4
5
Private Sub Form_Open(Cancel As Integer)
If nbEnregistrements("select * from laTable where laDate>#1/1/08#") > 0 Then
    MsgBox "A vérifier"
End If
End Sub

le SQL doit être celui qui te renvoie tous les enregistrements qui ont "des indices non diffusés ET dont la date prévisionnelle de diffusion est dépassée".

tu peux utiliser aussi cette fonction:

Code :

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

1
2
3
4
Function AEnregistrement(monSQL As String) As Boolean
Set r = CurrentDb.OpenRecordset(monSQL)
AEnregistrement = r.RecordCount = 1
End Function

[curt]

Bonjour et merci.... ça fonctionne exactement selon mes besoins.

Bonne journée.

Curt