Discussion :

[@rkane]

bjr,
j'ai un probleme de requery sur un sous formulaire.
form pere : EntreeEvenement
form fils : ListeEvenement

j'entre un nouvel evenement dans entete du form pere et sur le click enregistrement je rajoute

Code :

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

Forms![ListeEvenement].Form.Requery

dans le sous formulaire "ListeEvenement" s'affiche la liste des evenements mis à jour de la nouvelle entree... enfin c'est ce que je voulais faire mais ça coince sur mon script de rafraichissement .
quelqu'un peut-il me dire pourquoi ?
merci d'avance.

[pgz]

Bonjour,

Essaie plutôt

Code :

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

Me.ListeEvènement.requery

Bon courage,

pgz

[Alexandre Sahli]

Essaye de la manière suivante:

Code :

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

Forms![EntreeEvenement]![ListeEvenement].Form.Requery

Cependant si le sous formulaire est lié de façon correcte par un champs la relation fils-père se fait automatiquement

A+

[thb74]

ou peut etre cela

Code :

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

Forms![EntreeEvenement].Form![ListeEvenement].Form.Requery

Thierry

A+

[@rkane]

Bon... ben ça ne veut rien savoir...

j'ai mis en PJ le fichier, c'est plus parlant, si quelqu'un a la gentillesse de regarder.
Merci d'avance.
Patrick

[Renardo]

Bonjour
Forms![entreeEvenement]![ListeEvenement].Requery
il faut changer le nom du sous form dans la proprieté il s'appel (Liste des evenements)

[@rkane]

salut Renardo,
excuses moi... suis pas encore atteint par la cataracte ni par Alzheimer, mais dans les proprietes, justement, je ne trouve pas le nom du subform... j'ai regarde tous les onglets sans succes

[Alexandre Sahli]

Tu dois cliquer sur l'objet sous-formulaire (sur le cadre du sous formulaire et non dans le coins en haut à gauche) et là tu aura la propriété "nom" et c'est celle la que tu recopies

bonne chance

[@rkane]

bjr Alexandre,
Ok c'est rectifie... j'entre une nouvelle donnee ça rafraichit bien le sous form, mais par contre si j'en entre une deuxieme ça ecrase celle entree precedemment ?
j'ai pallie en ajoutant un requery sur le form pricipal mais meme si ça fonctionne, ça ne me semble pas tres academique comme methode ?

[Macno]

Salut,

et pourquoi pas une petite requête ajout ?

Code :

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

1
2
3
 
DoCmd.RunSQL ("INSERT INTO Evenements ( evenement ) " & _
        "VALUES('" & Replace(Me.evenement.Value, "'", "''") & "');")

[Alexandre Sahli]

c'est assez normal car tu ouvres ton formulaire principal sur la table
à l'ouverture tu es automatiquement sur le dernier enregistrement
tu fais une sauvegarde
et ensuite tu es évidement sur l'enregistrement que tu viens de créer

Pour mois le plus simple serait que tu aies un formulaire totalement indépendant avec ta zone de texte pour mettre ce que tu veux et ensuite

tu vas faire du code du style:

Code :

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

1
2
3
4
5
 
docmd.runsql "INSERT INTO Evenements ( evenement ) VALUES (me![evenement]);
 
 
Forms![EntreeEvenement]![Liste des évenements].Form.Requery

ce qui va te rajouter les différentes éléments de la liste

[@rkane]

merci Macno,
ça fonctionne bien avec le simple requery de sous formulaire. c'est super !
Comment je peux atteindre avec un click bouton le champ "NomEvenement" du sous form pour mettre

Code :

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

me.NomEvenement.Enabled = true

, si besoin de modifier ?
J'ai teste :

Code :

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

1
2
 
forms![ListeEvenement].NomEvenement.enabled = true

mais ça ne marche pas.
et dans un 2eme temps pour supprimer un enregistrement avec un bouton sur le form principal (EntreeEvenement) ?

[Alexandre Sahli]

c'est plutôt

Code :

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

1
2
 
forms![ListeEvenement]![NomEvenement].enabled = true

je suppose que tu veux que l'utilisateur puisse supprimer un élément de la liste.
Pour cela je te conseille le très bon modèle de base de donnée "best of gestion" avec la suppression dans des listes tu le trouves à l'adresse:
http://www.info-3000.com/access/bestofgestion/index.php

bonne chance

[lucky01]

Bonjours, Suivez bien mes instructions et cela fonctionnera :
1) Formulaire EntreeEvenement : Retirer le RecordSource.
2) TextBox evenement, retirer le controlsource, le champ devient Unbound.
3) Renommer le TextBox evenement en TxtEvenement.
4) Renommer le bouton Commande3 en BtSauver.
5) Private Sub BtSauver_Click()
Dim strToInsert As String
strToInsert = Me.TxtEvenement.Value

Dim MyQuery As String
MyQuery = "Insert into Evenements(evenement) VALUES ('" & strToInsert & "');"
DoCmd.RunSQL (MyQuery)

Me.Liste_des_évenements.Requery

End Sub

ET VOILA, C'est tout ...

[@rkane]

pour mettre Enabled à True, j'ai resolu avec :

Code :

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

1
2
3
Forms![entreeEvenement]![ListeEvenement]![NomEvenement].Enabled = True
Forms![entreeEvenement]![ListeEvenement]![NomEvenement].Locked = False
Forms![entreeEvenement]![ListeEvenement]![NomEvenement].SetFocus

Merci à tous