Discussion :

[Kloun]

Bonjour,

J'ai une appli qui fonctionne sur la majorité des postes sur laquelle elle est installée SAUF quelqu'uns...
Sur ces postes, j'obtiens l'erreur suivante :

method 'item' of object 'forms' failed

alors que je fais un bête :

Set iObj_Formulaire = Forms.item(iStr_NomForm)

Est-ce que quelqu'un sait comment résoudre le problème ?

Merci.

[Kloun]

Suite du problème :
quand je mets :

Code :

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

Set iObj_Formulaire = [Form_Aggregate - Date-SalesOrg]

à la place de

Code :

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

Set iObj_Formulaire = Forms.item(iStr_NomForm)

J'ai une erreur "Out of memory".

Des idées ?

[Invité]

Bonjour

Comment déclares-tu iObj_Formulaire ?

Starec

[Kloun]

Code :

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

Dim iObj_Formulaire As Form

[Invité]

Re

Et iStr_NomForm ?

Starec

[Kloun]

Je met tout le bout de code, ça ser plus simple :

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
19
Dim iStr_NomForm As String
Dim iStr_Critere As String
Dim iStr_Titre As String
Dim iObj_Formulaire As Form
Dim iRec_Param As DAO.Recordset
Dim iStr_SQL As String
 
    gDat_DateTraitement = ctlDate.Value
    iStr_NomForm = "Aggregate - Date-SalesOrg"
    iStr_Critere = "SOrg = ''"
    DoCmd.OpenForm iStr_NomForm, , , iStr_Critere
    iStr_Titre = "KPI - " & Format(gDat_DateTraitement, "MM/YYYY")
    iStr_Critere = "MoisAnnee = '" & Format(gDat_DateTraitement, "MM/YYYY") & "'"
    Set iObj_Formulaire = Forms.item(iStr_NomForm)
    iObj_Formulaire.RecordSource = "Aggregate - Month-SalesOrg"
    iObj_Formulaire.Filter = iStr_Critere
    iObj_Formulaire.FilterOn = True
    iObj_Formulaire.Caption = iStr_Titre
    iObj_Formulaire.Controls("etiTitre").Caption = iStr_Titre

[micniv]

Une question : pourquoi ajouter .item ?

Code :

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

Set iObj_Formulaire = Forms(iStr_NomForm)

devrait convenir , n'est-il pas ?

PS : Info pour Kloun : j'ai fait une contribution à partir de ton fil sur les calendriers.

Bonne journée

[Invité]

Re


Suit le conseil de Micniv, car iStr_NomForm est une chaine de caractère

Starec

[Kloun]

Merci, mais c'est pas ça :

Thank you for your efforts.

Unfortunately I do not have a good news for you - I still have the same error.

Micniv : je pense que le coup du calendrier n'a rien à voir avec moi.

[Ric500]

Bonjour!

Je suis peut-être à côté de la plaque, mais n'aurais-tu pas intéret à mettre ton nom de formulaire entre crochets?

Code :

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

Set iObj_Formulaire = Forms(iStr_NomForm)

ou

Code :

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

iStr_NomForm = "[" & "Aggregate - Date-SalesOrg" & "]"

Bonne soirée...

[micniv]

Micniv : je pense que le coup du calendrier n'a rien à voir avec moi.

Oups, désolé, you're absolutely right : c'était le fil de Branqueira (Calendrier annuel...)

Sinon pour info, quand je passe ton code sur mon acc2000 SP3, je n'ai pas de message d'erreur.
A+

[Kloun]

Ric : j'ai déjà essayé (cf mon 2ème post). Je n'ai alors pas la même erreur.

Micniv : C'est bien le problème : ça fonctionne sur presque tous les postes, SAUF certains. Ca doit venir de l'installation, mais je ne vois pas d'où. J'ai regardé les références et c'est OK. Je précise que tous les postes qui ne fonctionnent pas sont en anglais, comme ceux qui fonctionnent.

[Ric500]

Je ne vois que 2 pistes :

le "Item" me paraît un peu louche (il devrait être suivi d'un index, si je ne me trompe).

Et s'il ne s'agit pas de çà, les références sont-elles dans le même ordre de priorité sur tous les postes?