Discussion :

[Daniel MOREAU]

Bonsoir à tous,

J'ai téléchargé une base mise à dispo par ARKAM (que je remercie au passage), et je voudrais à partir de la fonction ci-après récupérer la valeur renvoyée par la variable lvalue.

Quand j'appel la fonction Inputboxlistview celle-ci ouvre un formulaire qui permet de faire une sélection et la variable lvalue renvoie la valeur.

Comment récupérer cette valeur dans mon formulaire principal ?

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
Public Function TestListViewRecordset()
    Dim lvalue As String
 
     lvalue = InputBoxlistView("Test ListView Recordset;;La sélection se fait soit :" & vbCrLf & _
                              " - en double-cliquant sur une ligne" & vbCrLf & _
                              " - en cliquant sur le bouton OK" & vbCrLf & _
                              " - en appuyant sur la touche Entrée", _
                              "SELECT Num_Regle,Description,format(DateEvent,""Long Date"") as [Date ] FROM Tbl_Regle", _
                              0, True, "titre", , , , , , 300, 800, 255, RGB(220, 255, 255), _
                              "Comic sans MS", 20, "Arial", 15, True, True, , , Array(150, 250, -1))
 
 
    If lvalue <> "" Then MsgBox "Saisie :" & vbCrLf & lvalue
 
End Function

Pouvez-vous m'aider !

Merci d'avance

Daniel

[Dolphy35]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Function TestListViewRecordset() As String 
    
     TestListViewRecordset= InputBoxlistView("Test ListView Recordset;;La sélection se fait soit :" & vbCrLf & _
                              " - en double-cliquant sur une ligne" & vbCrLf & _
                              " - en cliquant sur le bouton OK" & vbCrLf & _
                              " - en appuyant sur la touche Entrée", _
                              "SELECT Num_Regle,Description,format(DateEvent,""Long Date"") as [Date ] FROM Tbl_Regle", _
                              0, True, "titre", , , , , , 300, 800, 255, RGB(220, 255, 255), _
                              "Comic sans MS", 20, "Arial", 15, True, True, , , Array(150, 250, -1))
  
End Function

tu appel de ton form la fontion qui te renvoi sa valeur :

Code :

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

If TestListViewRecordset<> "" Then MsgBox "Saisie :" & vbCrLf & TestListViewRecordset

Dolphy

[Arkham46]

Dolphy t'es pas réveillé ou c'est moi???

La fonction TestListViewRecordset n'est pas utile pour ce cas.
Il suffit de mettre l'appel à InputBoxlistView directement dans le formulaire et mettre à jour la zone de texte.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    Dim lvalue As String
     lvalue = InputBoxlistView("Test ListView Recordset;;La sélection se fait soit :" & vbCrLf & _
                              " - en double-cliquant sur une ligne" & vbCrLf & _
                              " - en cliquant sur le bouton OK" & vbCrLf & _
                              " - en appuyant sur la touche Entrée", _
                              "SELECT Num_Regle,Description,format(DateEvent,""Long Date"") as [Date ] FROM Tbl_Regle", _
                              0, True, "titre", , , , , , 300, 800, 255, RGB(220, 255, 255), _
                              "Comic sans MS", 20, "Arial", 15, True, True, , , Array(150, 250, -1))
 
    If lvalue <> "" Then Me.MaZoneDeTexte.Value  = lValue

Non ?

[Daniel MOREAU]

merci pour vos réponses et surtout merci à Arkam46 pour le tuto.

Effectivement comme cela ça fonctionne.

Je n'avais pas pensé à cette solution.

Merci beaucoup

Daniel

[Dolphy35]

Dolphy t'es pas réveillé ou c'est moi???

je dirais endormi vu l'heure

alors là sur le coup


c'est clair j'ai pas été plus loin, par rapport à la demande j'ai pas cherché du tout

Dolphy