Discussion :

[0sef40]

* Bonjour, *

Voilà je me prend la tête depuis deux bonnes heures, la solution et surement toute simple...

Dans un formulaire "Modification_statut" j'ai entre autre un bouton "Ajout TSN-TSO"

Ce bouton m'ouvre un autre formulaire ("frm_TSNTSO_modification_statut")
Ce deuxième formulaire doit m'afficher des infos que je récupère dans le 1er...

donc lors du clique sur le bouton j'ouvre le formulaire (code basique fais tout seul par access)

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
16
17
'ouvrir formulaire
Public Sub btn_TSNTSOj1_Modification_statut_Click()
On Error GoTo Err_btn_TSNTSOj1_Modification_statut_Click
 
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "frm_TSNTSO_modification_statut"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_btn_TSNTSOj1_Modification_statut_Cl:
    Exit Sub
 
Err_btn_TSNTSOj1_Modification_statut_Click:
    MsgBox Err.Description
    Resume Exit_btn_TSNTSOj1_Modification_statut_Cl

j'ajoute à ce code la ligne me permtant d'appeler une fonction qui se situe dans le code du formulaire appeler

Code :

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

Call Form_frm_TSNTSO_modification_statut.afficherJeuTso("00597G1")

Dans l'ideal le "00597G1" sera remplacé par une variable^^

Bref ca ne fonctionne pas

Alors que si j'écris la même instruction dans le formulaire "frm_TSNTSO_modification_statut" ca fonctionne...

Pour infos code de la fonction "afficherJeuTso"

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
16
17
18
 
Public Function afficherJeuTso(a) ' a = jeu
'Debug.Print a
 
 
' affichage du paramètre
txt_jeuadtsno_modification_statut.Value = a
 
'MsgBox Me.txt_jeuadtsno_modification_statut.Value
 
'récupération des infos
Me.lst_TSOadtsno_modification_statut.RowSource = "SELECT Distinct Historique.TSO FROM historique WHERE Historique.idJeu_Jeu='" & a & "' and historique.date = (select max(historique.date) from historique where historique.idjeu_jeu = '" & a & "');"
Me.lst_TSOadtsno_modification_statut.Requery
 
Me.lst_rampeadtsno_modification_statut.RowSource = "SELECT  DISTINCT Historique.idRampe_Rampe, historique.TSN, Historique.TSO FROM  Historique WHERE historique.Resultat='ok'AND historique.idJeu_Jeu = '" & a & "' AND historique.Date=(SELECT Max(historique.Date) AS lastDate from historique WHERE historique.idJeu_Jeu ='" & a & "');"
Me.lst_rampeadtsno_modification_statut.Requery
 
End Function

merci d'avance si vous voyez le problème^^

[Ric500]

Salut!

Essaie avec:

Code :

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

Forms!Form_frm_TSNTSO_modification_statut.afficherJeuTso("00597G1")

Pour l'appel de la procédure.

Bonne journée !

[0sef40]

Code :

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

Forms!frm_TSNTSO_modification_statut.afficherJeuTso ("00597G1")

"impossible de trouver le fomulaire 'frm_TSNTSO_modification_statut' auquel il fait référence dans une expression de macro ou un code visual basique

(j'ai vérifié le nom c'est le bon -.-)

Code :

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

toto = Forms!Form_frm_TSNTSO_modification_statut("00597G1")

oui car si je met pas de "=" il me sort erreur de compilation...(même si j'ai pas forcément besoin d'une retour pour l'affichage xD)

si je le met, même erreur... xD

[Ric500]

Pardon, j'avais mal lu ton post

En fait la bonne syntaxe, c'est:

Code :

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

Forms!Nom_du_formulaire_appelé.Nom_de_la_procédure_publique(paramètres)

Bon courage!

[0sef40]

c'est la tout le problème... (je sais que ta synthaxe est la bonne) (du moins j'ai appris la même (et m'en suis souvenu quand tu la posté)

mais le nom du formulaire appelé c'est
"frm_TSNTSO_modification_statut"

la procedure étant afficherJeuTso est bien une procedure (fonction) déclarée en publique...

Code :

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

Public Function afficherJeuTso(a)

je tape :

Code :

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

Forms!frm_TSNTSO_modification_statut.afficherJeuTso ("00597G1")

et j'ai l'erreur de ce matin

[Ric500]

Piste 1 / Le paramètre - a - de ta fonction publique doit-il bien être de type alpha ?

Piste 2 / Pourquoi une fonction et non un Sub ? La fonction doit-elle renvoyer des valeurs?

Car alors (et là encore, j'ai dû mal lire ton post) elle devrait être appelée ainsi:

Code :

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

variable=nom_de_form_appelé.nom_de_fonction_publique(paramètres)

Après re-lecture de ton code, il me semble qu'en remplaçant "Function" par "Sub" et en l'appelant avec la syntaxe citée plus haut, ton problème devrait être résolu...

[0sef40]

bonjour, désolé du temps de réponse... (long weekand...)

Une fonction car effectivement elle va effectuer un traitement et me renvoyer une valeur^^

- a - est définit comme variant...^^

[0sef40]

Problème contournée merci de tes réponses