Discussion :

[sentenza]

Hello...

Alors voila, j'ai un formulaire qui contient les infos de la table 'adherent' (nom prenom adresse tel etc...) que l'on peut parcourir, trier, etc...

J'aimerais ajouter une case a cocher dans ce formulaire afin de voir directement s'il est à jour de sa cotisation... (uniquement visualisation)

Je peux faire une requete (table 'cotisation' champ 'a_jour') mais comment lier le resultat à la case à cocher du formulaire ?



Merci...

[Heureux-oli]

Si j'ai bien compris.

Tu dois faire une requête avec une colonne

Code :

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

1
2
3
 
 
CaseCoch : IIF([Coti_Payée] is null;0;1)

Tu base ton formulaire sur la requête.

[sentenza]

Merci pour ces infos...

Voila ce que j'ai fait :
une requete :

SELECT a_jour
FROM Cotis
WHERE Cotis.num like formulaires![adherent]!num and Cotis.annee like Year(Date());

Cette requete transmet en resultat une case a cocher qui est cochée ou non suivant la personne...
Jusque là pas de probleme...

Ensuite pour lier cette requete à la case à cocher de mon formulaire j'ai essayé comme ceci dans le Source Controle de la case à cocher :
1.

=VraiFaux([cotis_a_jour] Est Null;0;1)

ou
2.

=[cotis_a_jour]![a_jour]

Dans les 2 cas j'obtient une case grisée dans mon formulaire...


Merci à ceux qu ise pencheront sur mon probleme...

[Tofalu]

Imaginons que la table cotisation se compose ainsi :

Numadherent, annee, ...

Dans un module tu places :

Code :

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

1
2
3
4
5
6
7
8
Private Function IsCotisation(intAdherent As Integer)
Dim oRst As DAO.Recordset
Set oRst = CurrentDb.OpenRecordset _
  ("select * from cotisation where numadherent=" & intAdherent & _
   " AND Annee=" & Year(Date))
IsCotisation = Not oRst.EOF
oRst.Close
End Function

Enfin, dans ton formulaire, si le numéro de l'adhérent est inscrit dans une zone de texte nommé txtadherent, la source de la case à cocher sera

Code :

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

=IsCotisation([txtadherent])

Bon courage

[sentenza]

Merci beaucoup ca marche...

Cependant j'avais un probleme pour l'affichage, il ne faisait pas la difference entre ceux etant à jour et les autres, alors j'ai fait comme ça dans la fonction:

Public Function IsCotisation(intAdherent As Integer)
Dim oRst As DAO.Recordset
Set oRst = CurrentDb.OpenRecordset("select Cotis.a_jour from Cotis where Cotis.num=" & intAdherent & " AND annee=" & Year(Date))
If oRst.EOF = True Then
IsCotisation = False
Else
If oRst.Fields("a_jour").Value = False Then
IsCotisation = False
Else
IsCotisation = True
End If
End If
oRst.Close
End Function