Discussion :

[Kyrha]

Bonjour à tous

voila je voudrai savoir si je peux, à partir d'une macro,
atteindre un enregistrement dans un sous formulaire
qui presente les enregistrements d'une table .

Je pense que c'est possible mais je ne vois pas comment
taper le code dans "référence" de la macro pour qu'elle se
base sur la valeur mise dans un controle.

je vous remercie d'avance
Kyrha

[loufab]

Logiquement c'est possible par macro, bien que cette méthode de programmation soit réservée à certains traitement (autoexec, menu...)

Action : AtteindreEnregistrement
Type d'objet : Formulaire
Nom objet : le nom du sous formulaire
Enregistrement : suivant, précédent...
ou
Référence : N° de l'enregistrement dans la liste.

[Kyrha]

ok merci loufab mais je pense que j'ai mal expliqué mon probleme
Je souhaite en fait que après MAJ du controle l'enregistrement soit selectionné automatiquement pour pouvoir vérifier son contenu et le modifier si besoin.

Si une autre solution te parait meilleure pourrais tu
m'en parler car je veux en fait créer un bouton pour modifier l'enregistrement une fois que ce dernier est selectionné

Encore merci
Kyrha

[loufab]

vu le peu de fonctionnalité des macros et qu'elles sont réservées à des traitement très particulier, je te suggère de faire ça en VBA.

Le macro c'est mignon... mais que mignon.

Pour cette fonctionnalité il faut passer par un recordset.

Code :

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

1
2
3
4
5
 
Dim rst As Recordset
Set rst = Me.DETAILS_FACTURE.Form.Recordset
rst.FindFirst "NumLigne=4"
Me.DETAILS_FACTURE.Form.Bookmark = rst.Bookmark

dans cet exemple DETAILS_FACTURE est le nom du controle contenant le sous-formulaire.
Numligne est le nom du champ ou se trouve l'info à rechercher
4 est l'information à rechercher dans le champ NumLigne.

[Kyrha]

Ayé j'ai essayé ta proposition et en effet sa fonctionne
Il est vrai que les macros ne possèdent pa beaucoup de fonction
mais étant débutant sous access j'ai un peu de mal à m'imaginer
de quelle fonction me servir

Je te remercie encore des tes réponses détaillées

juste une autre petite question:
si je veux utiliser le même code pour une zone de liste dans
un autre formulaire pour la même fonctionnalité
- puis-je?
- si oui quel qualificatif dois-je mettre à la place de ".Form"

Mes respects
Kyrha

[loufab]

Non bien évidemment car sa structure ne peut être traité par recordset (même si elle peut en contenir).
Il faut utiliser les propriétés et méthode du controle, autrement dit un balayage séquentiel des items de la liste.

Je te livre ici un exemple à adapter.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim j As Integer
Dim i As Integer
 
For j = 1 To Me.lst_resultat.ListCount - 1     'balayage de la liste
    ' repere ce qui nous 
    If Me.lst_resultat.ItemData(j) Like "*411*" Then  interesse
        ' traite le résultat
        Debug.Print Me.lst_resultat.Column(1, j)
    End If
Next j

Cordialement,

[Kyrha]

je n'ai pas trop compris ton code

j'ai essayé de l'adapter mais je ne comprends pas pourquoi
déclarer "i" alors que l'on ne n'utilise pas
alors voila comment je l'ai adapté
puis-je savoir ce qu'il ne va pas ?

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande35_Click()
Dim j As Integer
For j = 1 To Me.lst_resultat.ListCount - 1  
 
    If Me.lst_resultat.ItemData(j) Like "*Texte32*" Then
 
        Debug.Print Me.lst_resultat.Column(1, j)
    End If
Next j
End Sub

où "texte32" est mon controle, commande35 un bouton et lst_resultat ma liste

en fait j'ai créé un message box pour afficher sur quel critere il balaye
et ce critere c'est avérer ne pas etre le bon ms je ne sais pas comment
changer la colone qu'il balaye alors sa serait sympas si quelqu'un pouvait m'aider

encore merci

Mes respects
Kyrha

[loufab]

Oui effectivement i est de trop. A l'origine il y avait 2 balayage (1 pour les items de lst_resultat l'autre pour le balayage des colonnes de chaque item)

En ce qui concerne ton problème il faut écrire

Code :

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

.... Like ""*" & me.critère32.value & "*"""

value étant facultatif.

Pour changer la colonne il faut jouer avec le 1 de column(1,j) sachant que 0 est la première.

N'oublie pas de mettre ton post Résolu si c'est bon. Merci

[Kyrha]

Alors voila mon probleme subsiste

peut importe la valeur que je rentre dans "column"
access balaye toujours la meme qui est une date

ce qui bien evidement entraide une erreur de compabilité

voulant balayé dans la premiere colone j'ai écrit

Code :

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

Debug.Print Me.lst_resultat.Column(0, j)

ce qui d'après tes dires devrai etre correct non?

s'il vous plait aidez moi

[Jeannot45]

Peux-tu nous indiquer la source de ta liste déroulante ? En fait le numéro de la colonne que tu indiques doit correspondre à la position du champ, dans la requête source de ta liste, que tu souhaites balayer.
Attention : comme te l'a précisé Loufab, il y a un décalage de 1 entre la position du champ dans la requête source et le N° de la colonne utilisé dans le code. Pour le code, le premier champ de la requête source commence en position 0 et ainsi de suite.