VBA : comment attribuer une valeur d'un champ de formulaire à une variable ?

Re-bonjour,

Sur excel, lorsqu'on écrit en VBA : ActiveCell = numero, cela signifie que "numero" aura la valeur de la cellule Excel active.

J'aimerais faire la même chose dans un formulaire Access. Dans ce cas, "ActiveCell" ne fonctionne plus ; que doit-on indiquer à la place ?


Merci pour vos réponses :) !

Yao

Salut,
A quel type de champ veux tu attribuer la valeur ?
D'où vient la valeur en question ? D'une table, requête, autre champ ?
Peut être que ce sera plus simple qu'on t'aide si tu détaille un peu :mouarf:

Citation:

---

Envoyé par lola06

Salut,
A quel type de champ veux tu attribuer la valeur ?
D'où vient la valeur en question ? D'une table, requête, autre champ ?
Peut être que ce sera plus simple qu'on t'aide si tu détaille un peu :mouarf:

---

Peux-être c'est plus simple en prenant un exemple.
La valeur (par exemple "2245") vient d'une table.
Cette valeur s'affiche dans un champ du formulaire suite à un choix dans une liste déroulante (lié à la table de valeurs).

En résumé, "2245" fait partie d'une table.
"2245" s'affiche également dans un champ du formulaire (suite à choix dans une liste déroulante).
--> j'aimerais, en VBA, que cette valeur (contenue dans le champ du formulaire) soit prise en compte pour effectuer ensuite une recherche sur le réseau (pour une recherche de plans)

Sur Excel, ça donne ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub PDF() numéro = ActiveCell fichier1 = Dir("\\Réseau\plans\" & numéro & "_ok.pdf") fichier2 = Dir("\\Réseau\plans\" & numéro & "?.pdf") If fichier1 = "" And fichier2 = "" Then Message = MsgBox("le PDF du plan " & numéro & " n'existe pas dans Réseau\plans ou est mal nommé", vbExclamation) Exit Sub End If i = 0 Do While fichier2 <> "" i = i + 1 fichierx = fichier2 fichier2 = Dir ' ...

---

mais sous Access, "numéro = ActiveCell" ne fonctionne pas ; que dois-je indiquer à la place ?

..mes explications sont-elles assez claires :) ?

Merci

si j'ai bien compris ce que tu voulais ca doit te donné ca:

Code:

---

numero = me.NOM_DU_CHAMP

---

Salut,
il aurait fallut que tu me dise de quel type est le champ qui contient la valeur. On va dire que c'est une zone de texte pour l'exemple.

Code:

---

Me.ABCD.value

---

Avec ceci tu récupère la valeur de la zone de texte qui s'apelle ABCD (par exemple) dans ton formulaire.

Qu'est ce que tu voudrais savoir de plus ?

aprés que j'ai donné la réponse c pas trop dure :P

LOL

Citation:

---

Envoyé par totofe

aprés que j'ai donné la réponse c pas trop dure :P

LOL

---

Sauf que j'avais pas vu que tu l'avais écrite et puis j'ai rajouté .Value :lol: