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