Discussion :

[totoche]

Bonjour,

Une de mes procédures passe en revue les controles du formulaire :

Code :

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

1
2
3
4
5
 
Public Sub raffVarVB(currentFrm)
msgBox(currentFrm)
For Each itemC In currentFrm.Controls 
        If TypeOf itemC Is TextBox Then

Je souhaite passer n'importe quel formulaire de mon application a cette procédure.

Code :

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

1
2
3
4
Sub appel_envoiCtrl()
Set objSrv = New clsServices
objSrv.raffVarVB (frmLogin.name)
End Sub

Pour tester j'ai mis le nom du formulaire en dur frmLogin
le msgBox de la classe me renvoi bien frmLogin, mais après j'ai l'erreur: un objet est requis
merci de votre aide

[ProgElecT]

A essayer

Code :

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

Public Sub raffVarVB(currentFrm As Form)

[totoche]

je l'ai tenté mais comme cette fonction est dans une classe, ça ne marche pas , faut déclarer une fonction private , mais dès lors inacessible depuis le .exe

[Phifi]

Cela marchera dans un module en tout cas, tu peux pas essayer d'y faire référence ?

Code :

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

Public Sub raffVarVB(currentFrm As Form)

[Le Pharaon]

j'ai l'erreur: un objet est requis

ça bloque où ?

[totoche]

a mon avis dans la classe :

Code :

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

1
2
3
4
Public Sub raffVarVB(currentFrm)
MsgBox (currentFrm)
 For Each itemC In currentFrm.Controls 'Me.Controls
 MsgBox (itemC)

MsgBox (currentFrm) s'affiche mais pas le reste

[ThierryAIM]

Code :

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

1
2
3
4
5
6
7
8
9
Public Function raffVarVB(ByVal currentFrm As Form)
 
MsgBox (currentFrm.Name)
    For Each itemC In currentFrm.Controls
        If TypeOf itemC Is TextBox Then
            Debug.Print itemC.Name
        End If
    Next
End Function

Code :

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

1
2
3
Dim objSrv As clsServices
    Set objSrv = New clsServices
    objSrv.raffVarVB Me