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

**yao67** · 13/06/2007, 13h30

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

**lola06** · 13/06/2007, 13h40

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

**yao67** · 13/06/2007, 14h21

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

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 :

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

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
' ...