Discussion :

[JeromeLRZ]

Bonjour

J'ai fait une petite application pour ma bibliotheque de village.
J'ai un formulaire sur les emprunteurs avec un sous formulaire des livres empruntés.
Je voudrais afficher un message quand le formulaire s'ouvre sur l'emprunteur si celui ci a plus de 5 livres empruntés.
Cela parait simple.
Ma formule fonctionne car si je la mets sur un bouton du formulaire et que je clique dessus, j'ai bien la MSGBOX qui apparait ou pas en fonction du nombre de livres empruntés.
Mais si je mets la meme formule sur l'ouverture du formulaire, il n'y a jamais de MSGBOX car le champs de calcul est vide à l'ouverture.

Si vous avez une idée, je suis preneur.
Merci

[tee_grandbois]

bonjour,
difficile de répondre sans savoir quand et où les calculs se font.
à tout hasard essaie l'évènement "Sur activation" (Form_Current)

[JeromeLRZ]

J'ai essayé tous les "sur..." Mais aucun ne fonctionne car le calcul est blanc tant que le formulaire n'est pas actif

[hyperion13]

Salut
Et si vous nous donniez votre code pour que l'on puisse vous répondre correctement.
Parce que là, il faut avoir une sacrée vision spatiale pour émettre une solution.
Une idée

Code :

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

1
2
3
4
5
6
nbLignes = DCount("*", "tblLivreEmprunte", "id_adhfk = " & Me.id_adh)
adherent = DLookup("nom_adh", "tblAdherent", "id_adh = " & Me.id_adh)
 
If nbLignes > 5 Then
    MsgBox "L'adhérent : " & adherent & " a emprunté " & nbLignes & " livres"
End If

[JeromeLRZ]

Voici le résultat de ma requête et CELA FONCTIONNE
Il fallait calculer les variables car dans le formulaire à son ouverture elles ne le sont pas encore.
Encore merci

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
21
Private Sub Form_Open(Cancel As Integer)
 
If IsNull([TELEPHONE]) Then
    MsgBox ("L emprunteur n a pas de téléphone renseigné")
End If
 
nbLignes = DCount("*", "T_livres_empruntes", "date_fin Is Null and numero_emprunteur=" & "'" & numero_emprunteur & "'")
 
If nbLignes > 5 Then
    MsgBox "L'adhérent a emprunté " & nbLignes & " livres"
End If
 
nbcases = DSum("nombre_cases", "T_cartes", "numero_emprunteur=" & "'" & numero_emprunteur & "'")
nblivres = DCount("*", "T_livres_empruntes", "numero_emprunteur=" & "'" & numero_emprunteur & "'")
diff = nbcases - nblivres
 
If diff <= 0 Then
    MsgBox "L'adhérent n'a plus d'emprunt possible : " & nbcases
End If
 
End Sub