Discussion :

[Ludwik]

Bonjour à tous,

Je souhaiterai connaitre sous VB l'enregistrement en cours sur lequel mon curseur est positionné sachant que ce dernier se situe sur un champ de l' une des lignes d'enregistrement de mon sous formulaire.


En remerciant par avance toutes bonnes intentions.

[LedZeppII]

Bonjour,

voila la méthode que je connais en vba+DAO

Code vb :

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

1
2
3
4
5
6
7
Dim r As DAO.Recordset
 
Set r = Me.NomControleSousFormulaire.Form.RecordsetClone
' Positionne le recordset r sur l'enregistrement en cours du sous-formulaire
r.Bookmark = Me.NomControleSousFormulaire.Form.Bookmark
...
r.Close

A+

[philben]

bonjour,

Voir éventuellement la propriété <CurrentRecord> du sous-formulaire.

Cordialement,

Philippe

[Ludwik]

Bonjour plus exactement de quoi est constitué MonControleSousFomulaire ? je souhaite connaitre l'enregistrement de ma base ( NumAbonne) de l'enregistrement du sous fomulaire pour lequel j'ai modifié le champ déroulant ETAT

Merci pour tous

[Heureux-oli]

Je pense que si tu reformulais la question on devrait pouvoir t'aider, car je pense qu'aucun de nous n'a vraiment compris ton souhait.

[Ludwik]

escusez moi pour ce manque de clarté je vais essayé d'etre plus précis:

mon Formulaire est composé d'un sous formulaire qui recapitule toute la liste de mes abonnées ainsi que différents renseignements les concernants.
Dans ce sous formulaire l'on peut manuellement modifier l'etat de l'abonné par l'intermediaire d'un champ déroulant, ainsi un abonné peut etre déclaré "en service" ou "hors service" .
Ma base de données concernant les abonnées est constituée de plusieurs champs, lorsque l'etat est modifier, le champ TypeLigne doit etre modifié et contenir " Informatique". Afin de pouvoir modifier le contenu de ce champ je dois dans ma fonction connaitre l'enregistrement en cours pour lequel j'ai modifié l'état, comment puis je faire ?

Ps: j'ai essayé d'utilisé CurrentRecord sans succés

En esperant d'avoir été un peut plus claire

[Heureux-oli]

Sur quoi se base ton formulaire principal ?

Quel est le lien entre ton formulaire principal et le sous formulaire.

Si ton sous-formulaire est basé sur une table, le champ que tu veux mettre à jour si situe où par rapport à cette table, dans la même table, dans une autre table, ....

[Ludwik]

Le champ que je veux mettre à jour ce trouve sur la meme table que pointe le sous formulaire

[LedZeppII]

Tu peux peut-être utiliser l'évenement "Sur changement" de ta liste déroulante "En Service"/"Hors Service"

Code vb :

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

1
2
3
Private Sub ETAT_Change()
Me.TypeLigne = "Informatique"
End Sub

ou appeler ta routine de mise à jour

Code vb :

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

1
2
3
Private Sub ETAT_Change()
maRoutine(Me.NumAbonne)
End Sub

Dans les deux cas Me.NomContrôle ou Me.NomChamp font référence au contrôle ou au champ de l'enregistrement en cours.
NomContrôle est le nom du contrôle tel qu'il apparaît dans les Propriétés, onglet Autres, propriété Nom.

A+

[Ludwik]

En utilisant l'évenement "Sur changement" de ta liste déroulante "En Service"/"Hors Service" j'ai bien modifié converti TypeLigne. Cependant comme je possede un 3ieme état ( HS ) et que TypeLigne dans ce cas n'est pas forcément à modifier j'ai rajouté la condition suivante qui ne fonctionne pas pourriez vous me dire pourquoi ?

Code :

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

1
2
3
4
5
if Etat="Service" then
 
me.TypeLigne="Informatique"
 
end if

[Ludwik]

Une petite erreur de ma part pour la condition, j'ai modifié le nom du champ sans modifié l'intitulé de l'evenement.





Merci à vous tous bon Dimanche