Discussion :

[bobosh]

Bonjour,

Est-il possible de récupérer les données d'un formulaire en fonction d'un variable qui correspond au nom d'un champ?

Du type Me.(mavariable)??

Voici ma fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
 
Private Sub Valide(Chrono As String)
 
' Recherche le dernier numéro du champ MaClef dans la table Test
' et incrémente cette valeur de 1
Dim rst As Recordset
Dim vClef
Dim db As Database
Set db = CurrentDb
 
 
 
If IsNull(Forms.Planning.Chrono.Value) And (Forms.Planning.Choix.Value = 1) Then
    Set rst = CurrentDb.OpenRecordset("SELECT TOP 1 Chrono FROM Visites ORDER BY Chrono DESC")
    vClef = Right(Year(Now), 2) & Format(Nz(Val(Right(rst!Chrono, 4)), 1) + 1, "0000")
 
    Forms.Planning.Chrono.Value = vClef
 
    db.Execute "INSERT INTO Visites (Chrono) VALUES (" & vClef & ")"
End If
 
On Error GoTo Err_Valider_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Formulaire_Principal"
    DoCmd.OpenForm stDocName, , , "[Chrono] =" & Me.Chrono
 
Exit_Valider_Click:
    Exit Sub
 
Err_Valider_Click:
    MsgBox Err.Description
    Resume Exit_Valider_Click
 
End Sub

Est-il donc possible de remplacer tout les Chrono par le paramètre Chrono de la fonction

Merci d'avance

[pierre24]

En théorie oui

Code :

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

1
2
 
Me.chrono.value

Comme ceci, tu récupère la valeur contenu dans le champs chrono présent dans ton formulaire.

Au passage, je crois que tu n'es pas obligé de mettre le value.

[bobosh]

ce n'est pas ce que je veux faire, je voudrais en fin de compte passer à cette fonction en paramètre le nom d'un contrôle.

et que par exemple on récupère le nom "Chrono1" et que dans

Code :

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

1
2
 
Forms.Planning.Chrono.Value

Chrono prenne la valeur "Chrono1"

[6ril25]

Salut,

essaie avec

Code :

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

1
2
3
Private Function Valide(ByRef Chrono As Variant)
...
End Function

plutôt que

Code :

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

1
2
3
Private Sub Valide(Chrono As String)
...
End Sub

[Lou Pitchoun]

Salut,

Il te faut utiliser les Objets formulaires :

Code :

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

Forms.Nomformulaire.Form(Variable)

Cette syntaxe implique que Nomformulaire soit un nom sans espace.

Sinon tu utilises cette syntaxe :

Code :

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

Forms("Nom formulaire").Form(Variable)

[bobosh]

J'ai utilisé Me.Controls(MaVar).

merci de votre aide