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