[VBA] probleme fonction
Résolu
fl0
Messages postés
357
Date d'inscription
Statut
Membre
Dernière intervention
-
fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention -
fl0 Messages postés 357 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- [VBA] probleme fonction
- Fonction si et - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Fonction remplacer sur word - Guide
10 réponses
bonjour
une fonction qui ne renoie rien est une procédure
il faut mettre sub au lieu de function
ex :
sub maFonction(a as integer, b as integer)
...
end sub
une fonction qui ne renoie rien est une procédure
il faut mettre sub au lieu de function
ex :
sub maFonction(a as integer, b as integer)
...
end sub
en fait g l'impression qui commence par executer le module et seulement apres les form est ce que c'est ca ?
J'ai declarer les variables que j'utilise dans ma fonction en public dans mon module vous croyez que c'est bon?
J'ai declarer les variables que j'utilise dans ma fonction en public dans mon module vous croyez que c'est bon?
dans tes parenthese c'est quoi c'est des valeurs que tu retourne ?
moi je veu rien retourner
moi je veu rien retourner
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Il est umpeu modifier
Ma fonction dans mon module
Sub Requete(nom_table As String, nom_champ As String, nom_requete As String, nom_texte As String, lstnom As String)
Dim sql As String
Dim Qry As DAO.QueryDef
Dim Rs As DAO.Recordset
sql = "SELECT " & nom_table & "." & nom_champ & " FROM " & nom_table
sql = sql & " WHERE (((" & nom_table & ".utilisateur) = """ & lstnom & """)) "
DoCmd.DeleteObject acQuery, nom_requete 'supprime la requête
CurrentDb.CreateQueryDef nom_requete, sql 'crée une nouvelle requete
Set Qry = CurrentDb.QueryDefs(nom_requete)
Set Rs = Qry.OpenRecordset
While Not Rs.EOF
visualisation_utilisateurs!nom_texte = Rs(0)
Rs.MoveNext
Wend
Set Qry = Nothing
Set Rs = Nothing
End Sub
et dans mon form
'Remplissage Nom_PC
Dim nom_table As String
Dim nom_champ As String
Dim nom_requete As String
Dim nom_texte As String
Dim lstnom As String
nom_table = "PC"
nom_champ = "nom_PC"
nom_requete = "nom_PC"
nom_texte = "txtnom_PC"
lstnom = Me.lstnom
Requete nom_table, nom_champ, nom_requete, nom_texte, lstnom
Ma fonction dans mon module
Sub Requete(nom_table As String, nom_champ As String, nom_requete As String, nom_texte As String, lstnom As String)
Dim sql As String
Dim Qry As DAO.QueryDef
Dim Rs As DAO.Recordset
sql = "SELECT " & nom_table & "." & nom_champ & " FROM " & nom_table
sql = sql & " WHERE (((" & nom_table & ".utilisateur) = """ & lstnom & """)) "
DoCmd.DeleteObject acQuery, nom_requete 'supprime la requête
CurrentDb.CreateQueryDef nom_requete, sql 'crée une nouvelle requete
Set Qry = CurrentDb.QueryDefs(nom_requete)
Set Rs = Qry.OpenRecordset
While Not Rs.EOF
visualisation_utilisateurs!nom_texte = Rs(0)
Rs.MoveNext
Wend
Set Qry = Nothing
Set Rs = Nothing
End Sub
et dans mon form
'Remplissage Nom_PC
Dim nom_table As String
Dim nom_champ As String
Dim nom_requete As String
Dim nom_texte As String
Dim lstnom As String
nom_table = "PC"
nom_champ = "nom_PC"
nom_requete = "nom_PC"
nom_texte = "txtnom_PC"
lstnom = Me.lstnom
Requete nom_table, nom_champ, nom_requete, nom_texte, lstnom
L'erreur qu'il m'affiche se trouve dans le module au niveau
visualisation_utilisateurs!nom_texte = Rs(0)
j'ai regarder au niveau au dessus (la ou je crée ma requete et elle est bien créé puisque je peut l'ouvrir apres elle a bien pris les nouveau parametres en compte
le probleme est vraiment au niveau Rs
visualisation_utilisateurs!nom_texte = Rs(0)
j'ai regarder au niveau au dessus (la ou je crée ma requete et elle est bien créé puisque je peut l'ouvrir apres elle a bien pris les nouveau parametres en compte
le probleme est vraiment au niveau Rs
non dans le module remplacer
visualisation_utilisateurs!nom_texte = Rs(0)
par
essai = Rs(0) où essai string declaré au debut de la proc du module(dim essai as string)
visualisation_utilisateurs!nom_texte = Rs(0)
par
essai = Rs(0) où essai string declaré au debut de la proc du module(dim essai as string)
C'est bon j'ai presque trouvé il faut mettre
Form_choix_du_mode!visualisation_utilisateurs!txtnom_PC= Rs(0)
c'est toujours pareil il faut lui donner le chemin complet
mais dans le cas si dessus ca ne resoud rien je voudrais le faire avec nom_texte et pas directement le nom du texte de mon formulaire
Form_choix_du_mode!visualisation_utilisateurs!txtnom_PC= Rs(0)
c'est toujours pareil il faut lui donner le chemin complet
mais dans le cas si dessus ca ne resoud rien je voudrais le faire avec nom_texte et pas directement le nom du texte de mon formulaire
Forms("Form_choix_du_mode")("visualisation_utilisateurs")(nom_texte) = Rs(0) ?
Ca ne marche pas ctrl + esp pour voir l'arborescence
mais de toute facon je connait le chemin
J'ai compris le probleme mais je n'arrive vraiment pas a le resoudre j'espere que tu pourra m'aider
en fait le code
Form_choix_du_mode!visualisation_utilisateurs!nom_texte = Rs(0)
s'attend directement a avoir le nom du fichier texte qui ce trouve dans le chemin specifié dans ce code
donc pour lui "nom_texte" c'est une case texte appelé nom_texte qui ce trouve dans le formulaire visualisation_utilisateur
donc il me met le msg d'erreur
"Impossible de trouve le champ "nom_texte" auquel il est fait reference dans votre expression"
et quand je rentre le code
Form_choix_du_mode!visualisation_utilisateurs!txtnom_PC = Rs(0)
la ca marche
txtnom_PC est une case texte qui existe dans mon formulaire
dit moi si je me fait bien comprendre
mais de toute facon je connait le chemin
J'ai compris le probleme mais je n'arrive vraiment pas a le resoudre j'espere que tu pourra m'aider
en fait le code
Form_choix_du_mode!visualisation_utilisateurs!nom_texte = Rs(0)
s'attend directement a avoir le nom du fichier texte qui ce trouve dans le chemin specifié dans ce code
donc pour lui "nom_texte" c'est une case texte appelé nom_texte qui ce trouve dans le formulaire visualisation_utilisateur
donc il me met le msg d'erreur
"Impossible de trouve le champ "nom_texte" auquel il est fait reference dans votre expression"
et quand je rentre le code
Form_choix_du_mode!visualisation_utilisateurs!txtnom_PC = Rs(0)
la ca marche
txtnom_PC est une case texte qui existe dans mon formulaire
dit moi si je me fait bien comprendre
