Discussion :

[isabelle b]

bonjour,

j'ai lu la faq et refait un tour sur le forum mais impossible de retrouver la réponse

Je souhaite donc n'imprimer la section détail que si elle contient des données, pourriez vous me donner la syntaxe à mettre sur l'évènement impression ou formatage (je ne me rappelle plus non plus) pour le réaliser ?

Merci de votre aide
isabelle

[Mr T 94]

Salut,
Dans propriétés de ta section détail : "Autoreductible" Oui.
A +

[isabelle b]

bonjour merci pour ta réponse

mais ce n'est pas celle que j'attendais,

c'est une syntaxe plus compliquée que l'on écrit en vba

isabelle

[SeaWolf601]

Hello,

la commande d'impression est via un formulaire ?

Si tel est le cas, il suffit juste de compter les enregistrements.

Sur le bouton d'impression faire une condition :

Code :

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

1
2
3
4
5
6
 
If Me.RecordsetClone.RecordCount = 0 Then
msgbox ("Il n'y a aucun enregistrement à imprimer")
else
  DoCmd.OpenReport lenomdetonreport, acNormal
End If

[isabelle b]

Bonjour

ca marche c'est parfait,

Pour un autre formulaire, j'aurais besoin de lui dire que si le recordset est arrivé au dernier enregistrement, il doit rendre inactif un control

j'image que c'est sensiblement la même syntaxe, mais je ne trouve pas l'écriture correcte

peux tu m'aider aussi la dessus ?

merci
isabelle

[LilyX]

J'utilise ceci sur l'événement Form_Current :

Code :

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

1
2
3
4
5
6
7
8
9
Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.MoveLast
 
If Me.CurrentRecord = rst.RecordCount Then
    Me.MonControle.Enabled = False
Else
    Me.MonControle.Enabled = True
End If

[isabelle b]

bonsoir,

merci de ta réponse

avec le code suivant j'obtiens une erreur incompatibilité de type 13

Code :

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

1
2
3
4
5
6
7
8
9
Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.MoveLast
 
If Me.CurrentRecord = rst.RecordCount Then
    Me!B_suivant.Enabled = False
Else
    Me!B_suivant.Enabled = True
End If

il me souligne la ligne Set rst = Me.RecordsetClone

comme je ne comprends pas bien ton code je n'arrive pas à la résoudre

isabelle

[LilyX]

La propriété RecordCount permet de compter les enregistrements d'un recordset.
Quand il s'agit de la source d'un formulaire, il faut appliquer la méthode MoveLast d'abord (sur une table, ce n'est pas nécessaire).
Le RecordsetClone renvoie un objet recordset qui est un clone de la source du formulaire, comme son nom l'indique. On peut donc faire le MoveLast sans incidence sur le formulaire affiché.
Si l'enregistrement en cours est le dernier, la propriété CurrentRecord (n° de l'enregistrement actif) correspondra à RecordCount (nombre d'enregistrements).

J'ai trouvé ces infos dans l'aide d'Access. Tu peux voir les rubriques Form.RecordsetClone, propriété et Recordset.RecordCount, propriété

Je ne comprends pas à quoi correspond l'erreur qui se produit chez toi, d'autant qu'il me semble que le résultat que tu recherches est le même que chez moi (un bouton suivant désactivé).

Est-ce que ces commentaires t'aident ?

[ilank]

Bonjour Lilix,

Code :

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

Dim rst As Recordset

Est-ce un Recordset DAO ou ADO ?

[LilyX]

c'est en DAO

[ilank]

re je crois que le problème vient de là, les Activex Data Objects (ADO)contiennent aussi des objets Recordset.
Il faut vérifier la présence de la référence DAO et préciser à quelle classe appartient le Recordset dans la déclaration de la variable.
Il faut remplacer la ligne

Code :

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

Dim rst As Recordset

par

Code :

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

Dim rst As DAO.Recordset

[isabelle b]

Bonjour

merci beaucoup de votre aide et vos explications

c'était bien la précision DAO qui manquait, ca fonctionne parfaitement

bonne journée
isabelle