Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Envoi d'une référence d'un controle à une sub

Envoi d'une référence d'un controle à une sub

2 réponses
Avatar
Julian Alvarez
Bonjour,

j'ai dans un formulaire différents textbox. J'aimerai envoyer dans une
procédure un objet (correspondant à un des textbox). Je n'y arrive pas, je
récupère la valeur du textbox.

Exemple de mon code :

Coté formulaire :

Private Sub C_Journal_DblClick(Cancel As Integer)
Dim f As TextBox
Set f = Form_SF150_ModQuit.C_Journal
Call gW(f, "T150_ModQuit")
End Sub

Coté sub :

Public Sub gW(Nomcontrole As Textbox, NomTable As String)

ContActif = Nomcontrole <== ICI J'AI LA VALEUR MAIS PAS L'OBJET !!!!!!

....

End Sub


Merci d'avance pour votre aide
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonjour.

un exemple qui fonctionne très bien sur un formulaire qui devrait te faire
avancer:
un controle texte de format date appelé Madate.

Private Sub Commande0_Click()
Dim F As Control
Set F = Me.Madate
PassageControle F
End Sub

Private Function PassageControle(Param As TextBox) As String
Param = #1/1/2006#
End Function

on retrouve bien la date 01/01/2006 dans le controle madate du formulaire

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
Inscrivez-vous à la Newsletter TechNet.
http://www.microsoft.com/france/technet/presentation/flash/default.mspx


"Julian Alvarez" a écrit dans le
message de news:
| Bonjour,
|
| j'ai dans un formulaire différents textbox. J'aimerai envoyer dans une
| procédure un objet (correspondant à un des textbox). Je n'y arrive pas, je
| récupère la valeur du textbox.
|
| Exemple de mon code :
|
| Coté formulaire :
|
| Private Sub C_Journal_DblClick(Cancel As Integer)
| Dim f As TextBox
| Set f = Form_SF150_ModQuit.C_Journal
| Call gW(f, "T150_ModQuit")
| End Sub
|
| Coté sub :
|
| Public Sub gW(Nomcontrole As Textbox, NomTable As String)
|
| ContActif = Nomcontrole <== ICI J'AI LA VALEUR MAIS PAS L'OBJET !!!!!!
|
| ....
|
| End Sub
|
|
| Merci d'avance pour votre aide
|
Avatar
Julian Alvarez
Merci pour la réponse qu fonctionne correctement.


Bonjour.

un exemple qui fonctionne très bien sur un formulaire qui devrait te faire
avancer:
un controle texte de format date appelé Madate.

Private Sub Commande0_Click()
Dim F As Control
Set F = Me.Madate
PassageControle F
End Sub

Private Function PassageControle(Param As TextBox) As String
Param = #1/1/2006#
End Function

on retrouve bien la date 01/01/2006 dans le controle madate du formulaire

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
Inscrivez-vous à la Newsletter TechNet.
http://www.microsoft.com/france/technet/presentation/flash/default.mspx


"Julian Alvarez" a écrit dans le
message de news:
| Bonjour,
|
| j'ai dans un formulaire différents textbox. J'aimerai envoyer dans une
| procédure un objet (correspondant à un des textbox). Je n'y arrive pas, je
| récupère la valeur du textbox.
|
| Exemple de mon code :
|
| Coté formulaire :
|
| Private Sub C_Journal_DblClick(Cancel As Integer)
| Dim f As TextBox
| Set f = Form_SF150_ModQuit.C_Journal
| Call gW(f, "T150_ModQuit")
| End Sub
|
| Coté sub :
|
| Public Sub gW(Nomcontrole As Textbox, NomTable As String)
|
| ContActif = Nomcontrole <== ICI J'AI LA VALEUR MAIS PAS L'OBJET !!!!!!
|
| ....
|
| End Sub
|
|
| Merci d'avance pour votre aide
|