Recherche:

Bonjour,

L'intégration de cette classe dans un sous-formulaire est-elle possible ?
Je viens d'essayer. Dans le sous-formulaire directement, nommé SsFrmStructure_Adresse, pas de problème. Mais...

C'est bien ça, merci :). Et si, j'avais bien lu tout le tuto, mais j'aurai dû le relire après avoir fait mes modif.

Ca fonctionne bien. J'en ai profité pour modifier le comportement du bouton...

Bonjour,
J'ai changé Private Sub oForm_Dirty() en Private Sub oForm_Dirty(Cancel As Integer), ce qui me permet d'enlever le message d'erreur.
Par contre, le bouton Annuler ne veut pas s'activer...

Si j'écris :

Private Sub oForm_Dirty() ' En cas de modification du formulaire, activation du bouton Annuler.
oForm.btnAnnuler.Enabled = True
End Sub

je reçois l'erreur L'expression Sur...

En remplaçant également ma fonction NbRecord(objForm As Form) par une procédure CalculNbRecords() qui calcule NbRecord, ça fonctionne mieux à présent.
Merci :)

J'essaie également d'ajouter un...

Zut, je ne vois pas du tout quoi modifier.
J'ai essayé de créer une procédure clone, qui produirait à la fois un clone et fournirai le nombre d'enregistrements, mais sans succès jusque là

Bonjour,

J'ai dû commettre une erreur dans mon code ci-dessus. En écrivant la fonction NbRecord() comme je l'ai fait, le bouton Copier copie uniquement le dernier enregistrement, et non pas...

OK, ça donne ça dans ce cas :


Private Sub ActiverControleDetail(Optional Activer As Variant = True) ' Activation/désactivation des contrôles
(...)
' Désactivation du bouton...

Exact, merci de me l'avoir rappelé:)


Pour quelle raison ?


S'il n'y a pas d'enregistrement dans ma table, les boutons ne sont pas visibles. C'est l'intérêt de la gestion des erreurs que j'ai...

Bonjour,

Merci beaucoup pour partager ce magnifique travail. Même plusieurs années après, ça fonctionne toujours très bien.

J'en ai profité pour y ajouter du code afin de masquer le bouton...