HELP! Script VBA pour ACCESS
Fermé
Merci d'avance à celle ou celui qui aurra la gentillesse d'aider qqun qui croit connaitre, mais ne connais rien.
J'ai de bonne notion VBA Excel MAIS je patauge en ACCESS.
Ceci dit, je ne parvient pas à écrire le script qui attribuerait à une variable le n° de l'enregistrement courant comme dans la petite fenêtre en bas à gauche d'un formulaire .
Encore mille merci à qui me donnera de l'aide. Bise à tous
J'ai de bonne notion VBA Excel MAIS je patauge en ACCESS.
Ceci dit, je ne parvient pas à écrire le script qui attribuerait à une variable le n° de l'enregistrement courant comme dans la petite fenêtre en bas à gauche d'un formulaire .
Encore mille merci à qui me donnera de l'aide. Bise à tous
A voir également:
- HELP! Script VBA pour ACCESS
- Script vidéo youtube - Guide
- Microsoft activation script - Accueil - Windows
- Access appdata - Guide
- Script les visiteurs pdf - Forum Cinéma / Télé
- Find vba - Astuces et Solutions
2 réponses
Je cherche également ce script. J'ai contourné le probleme de la maniere suivante:
dans la table source, je créé un champ compteur.
dans le formulaire je reprend le champ comteur
Ensuite en code voici à peut pret la démarche:
je créé un recordset et je fait une boucle qui s'incrémante, jusqu'à trouver le n° du compteur.
Exemple
La table: Table1
Le champ: num_ligne
le champ dans le formulaire: num_ligne
Le code:
Function trouve()
Dim Db as database
Dim Rs as recodset
set db=currentdb
set rs=db.openrecordset("table1",dbOpenDynaset)
i=0
rs.movefirst
Do until rs!num_ligne=me!num_ligne
i=i+1
Rs.movenext
loop
rs.close
end function
J'espere que cela repond à ta question.
Tiend moi au courrant si tu trouves une solutions plus simple.
dans la table source, je créé un champ compteur.
dans le formulaire je reprend le champ comteur
Ensuite en code voici à peut pret la démarche:
je créé un recordset et je fait une boucle qui s'incrémante, jusqu'à trouver le n° du compteur.
Exemple
La table: Table1
Le champ: num_ligne
le champ dans le formulaire: num_ligne
Le code:
Function trouve()
Dim Db as database
Dim Rs as recodset
set db=currentdb
set rs=db.openrecordset("table1",dbOpenDynaset)
i=0
rs.movefirst
Do until rs!num_ligne=me!num_ligne
i=i+1
Rs.movenext
loop
rs.close
end function
J'espere que cela repond à ta question.
Tiend moi au courrant si tu trouves une solutions plus simple.
4 nov. 2003 à 19:18
Merci de ta réponse, voici ce que j'ai trouvé ( pas tous seul ) pour mon problème qui n'est pas forcément le tien.
Pas de "Recordset" mais comme toi j'ai un champ nomé "N°" avec numérotation auto et clé primaire. J'ai un listbox pour le quel je devais retouver le n° de l'enregistrement courant pour sélectioner celuici dans le listbox ici nomé "Listing".
Alors pour sélectioner en surbrillance la ligne du listbox, je fais une boucle qui vérifie le champ N° de l'enregistrement en cour et le compare au champ N° du listbox ( ici Listing) le champ étant dans la prmière colonne, puis mes la sélection à vrai sinon à faux. la sélection vrai est en surbrillance.
For i = 0 To Me.Listing.ListCount - 1 If Me.Listing.Column(0, i) = CStr(Me.N°) Then Me.Listing.Selected(i) = True Else Me.Listing.Selected(i) = False End If Next ipourquoi Cstr, car le champ N° est un entier et que le champ N° du Listing est un String.
Voilà peut être pouvons nous encore nous aider.
4 nov. 2003 à 20:22
voir même
Je pense que c'est plus simple?
4 nov. 2003 à 20:28