fonction et passage de parametreRésolu

Question

bonjour,

J'ai u petit souci concernant une fonction.
Lorsque je veut passer en parametre deux arguments il me renvoye l'erreur suivante:
Erreur de compilation
Attendu :=
Ma fonction est la suivante
Module1.enregistrementBase (apt , et)
Cette appel se fait d'un autre module.

Merci d'avance

-------
Manhino
-------

NHenry · Accepted Answer

Bonjour

Le message signifie que "apt" et/ou "et" ne sont pas des String.

Pour éviter ce pb, change ta déclaration : 
Public Sub enregistrementBase(apt As String, et As String)

devient : 
Public Sub enregistrementBase(Byval apt As String,byval et As String)

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

cs_Exploreur · Answer

Salut,

Si ta fonction dans ton module1 est bien déclarée en Public, alors tu fais :

enregistrementBase (apt , et)

A+
Exploreur

 Linux a un noyau, Windows un pépin

NHenry · Answer

Bonjour

Je penses que ce serait plutot à cause des parenthèses : 
Module1.enregistrementBase  apt , et

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

NHenry · Answer

Bonjour

Ou sinon utilises l'instruction Call :
Call Module1.enregistrementBase (apt , et)

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

manhino · Answer

la fonction est déclarer dans un autre module donc je suis obligé de mettre le nom du module devant.
Pour se qui est des parenthese j'ai essaiyer et il me renvoir l'erreure suivante :
Type de document Byref incompatible

Lorsque que je met qu'un seul argument la fonction marche correctement.
je ne comprend pas

Merci 

-------
Manhino
-------

manhino · Answer

La fonction que j'appel est la suivante est se situe dans un autre module

Public Sub enregistrementBase(apt As String, et As String)

Dim SQL As String
Dim SQL1 As String
       
SQL = "INSERT INTO locaux (Appartement, Etage) VALUES ('" & apt & "','" & et & "');"

DoCmd.RunSQL SQL

End Sub

-------
Manhino
-------

manhino · Answer

Merci bien pour cette reponse cela fonctionne maintenant.
La solution est la suivante
module2
Module1.enregistrementBase apt, et
module1
Public Sub enregistrementBase(ByVal apt As String, ByVal et As String)

-------
Manhino
-------

jmfmarques · Answer

Et où est donc la "fonction", dans tout çà ?
Je ne vois qu'une procédure .... !!!!!

manhino · Answer

biensur je n'allai pas tout mettre la fonction le probleme existai sur le passage de parametre et non pas sur ce que réalise cette fonction.

-------
Manhino
-------

jmfmarques · Answer

Tu ne sembles pas avoir compris !!!

Cet appel (ton premier) :
Module1.enregistrementBase (apt , et) 
Convenait précisément pour une fonction (ce qui n'est pas ton cas)

et celui qui a été corrigé :
Module1.enregistrementBase apt, et 
correspond bien à l'appel d'une sous-routine (car ta Sub n'est pas une fonction ...)

manhino · Answer

dsl,

Autant pour moi je ne suis pas vraiment éxpérimenter en se qui concerne le visual basic, mes base de C++ m'ont fait aller vers cette déclaration.
Merci pour l'explication de se petit point
Bonsoir

---------
Manhino
---------

Fonction et passage de parametre

11 réponses

Votre réponse

Discussions similaires