method 'item' of object 'forms' failed

Version imprimable

19/02/2007, 15h06
Kloun

method 'item' of object 'forms' failed

Bonjour,

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

Citation:

method 'item' of object 'forms' failed

alors que je fais un bête :

Citation:

Set iObj_Formulaire = Forms.item(iStr_NomForm)

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

Merci.
20/02/2007, 10h29
Kloun

Suite du problème :
quand je mets :

Code:

Set iObj_Formulaire = [Form_Aggregate - Date-SalesOrg]

à la place de

Code:

Set iObj_Formulaire = Forms.item(iStr_NomForm)

J'ai une erreur "Out of memory".

Des idées ?
20/02/2007, 10h37
Invité

Bonjour

Comment déclares-tu iObj_Formulaire ?

Starec
20/02/2007, 10h59
Kloun

Code:

Dim iObj_Formulaire As Form
20/02/2007, 11h03
Invité

Re

Et iStr_NomForm ?

Starec

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

Code:

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

20/02/2007, 11h23
micniv

Une question : pourquoi ajouter .item ?

Code:

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
20/02/2007, 11h26
Invité

Re

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

Starec
20/02/2007, 14h39
Kloun

Merci, mais c'est pas ça :

Citation:

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.
20/02/2007, 18h31
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:

Set iObj_Formulaire = Forms(iStr_NomForm)

ou

Code:

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

Bonne soirée...
20/02/2007, 18h41
micniv

Citation:

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+
21/02/2007, 09h13
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.
21/02/2007, 11h26
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?