Discussion :

[Sylvain Larvor]

Bonjour,

Voilà j'ai un formulaire contenant un sous formulaire.
Je veux enregistrer dans un champ de la table servant de base à mon formulaire le nombre des enregistrement du sous formulaire.

En gros dans mon sous formulaire j'ai des espèces animales lister avec leur effectif par espèce et dans mon formulaire principale j'ai un champ nombre d'espèce et un champ effectif total.

J'arrive grâce à un "compte" et "somme" dans le pied de page du sous formulaire à faire apparaitre dans des zones de texte du formulaire l'effectif total et le nombre d'enregistrement. Mais je n'arrive pas à les faire enregistrer dans les champs de ma table lié au formulaires.
J'ai essayer de pointer la valeur par défaut sur mes différent éléments contenant mes info, mais cela n'aboutis pas.

j'espère avoir était assez clair et que quelqu'un pourra me faire voir ce que je manque.

Merci d'avance

Sylvain

[Lou Pitchoun]

Salut,

Quel est ton intérêt de conserver ces informations ?

A chaque fois que tu chargeras ton formulaire avec les informations adéquates, ta somme et ton total seront recalculés.

Il n'y a aucune utilité à stocker des calculs dans une table sauf cas particuliers très rares.

[Sylvain Larvor]

Je suis un cas particulier rare

Il me faut ces données enregistrée car la base est bien remplis sous access mais elle est utilisée sous un autre logiciel sans passer par les formulaire mais juste par les tables.

[Lou Pitchoun]

D'accord.

C'est toujours important d'apporter ce genre de précisions

Il faudrait sur l'évènement 'Sur activation' du formulaire principal, ouvrir un recordset sur l'enregistrement courant et insérer les données.

Quelque chose du style :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Current()
 
    Dim rst As DAO.Recordset
 
    Set rst = Me.RecordsetClone
 
    rst.Edit
    rst![NomduchampSomme] = Me.NomSousFormulaire.Form.NomChampSomme.Value
    rst![NomduchampTotal] = Me.NomSousFormulaire.Form.NomChampTotal.Value
    rst.Update
 
    rst.Close
 
End Sub

[Sylvain Larvor]

Merci pour cette réponse.

J'ai essayé le code proposé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Current()
 
    Dim rst As DAO.Recordset
 
    Set rst = Me.RecordsetClone
 
    rst.Edit
    rst![Nb_ESP] = Me.sf_GR_OIS_SP.Form.OB.Value
    rst![EFFEC_T] = Me.sf_GR_OIS_SP.DB.Value
    rst.Update
 
    rst.Close
 
End Sub

Mais il me dit :

Erreur de compilation :
Type défini par l'utilisateur non défini


Donc je me suis dit hum ça cloche ^^, alors après je suis aller voir les références prises en compte et je n'avais pas Microsoft DAO 3.6 Object Library donc je suis allé la chercher là : Microsoft DAO 3.6 Object

Après je l'ai relancé l'erreur change :
"Membre de méthode ou de données introuvable"
et il sélectionne "sf_GR_OIS_SP"

Donc j'ai peux être pas bien saisis la façon de trouver et indiquer comme il faut le sous formulaire ?

[Lou Pitchoun]

L'erreur est ici, il me semble :

Code :

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

    rst![EFFEC_T] = Me.sf_GR_OIS_SP.DB.Value

Code :

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

    rst![EFFEC_T] = Me.sf_GR_OIS_SP.Form.DB.Value

[Sylvain Larvor]

Oups désolé j'ai oublié de corriger sur le post mais le temps de chercher j'avais vu cette coquille.
Non la dernière erreur que je présente et celle que j'obtiens en ayant ajouter ce form manquant.

Mais je me demane si ca ne viens pas de mon manque cruelle de connaissance du coté vba. Sur un de mes autres post il parle du nom du controle du sous formulaire. Et j'avoue ne pas savoir ce que c'est ni comment faire

Ne serait ce pas le même problème ?

[Sylvain Larvor]

C'est bon, c'était bien un problème de nom ma deuxième erreur. La solution m'a été donné dans un de mes autres post nom du controle

Merci pour tout