[vb 6] come settare oggetto variabile

[alex688]

ciao a tutti non riesco a fare questa semplice macro. Mi dice selezionando la terza riga (this...) oggeto variabile o blocco with non settato. Mi potete aiutare

MediaOrm1 = InputBox("Digita la nuova media della distribuzione normale di Orm1")  
VarOrm1 = InputBox("Digita la nuova varianza della distribuzione normale di Orm1")    
Model.Modules(Model.Modules.Find(smFindTag, "object.779")).Data("Type(0)") = "Variable"
Model.Modules(Model.Modules.Find(smFindTag, "object.779")).Data("Value(1)") = "NORM(" + MediaOrm1 + "," + VarOrm1 + ")"

[alex688]

ho riscritto ma comunque mi da lo stesso errore. Qlc mi può aiutare

Dim m As model    
Dim themod As Module     
Dim i As Long    
set m = model    
i = m.Modules.Find(smFindTag, "object.779")     
Set themod = m.Modules(i)     
themod.Data("Value(1)") = "NORM(4.35,1.838)"

[oregon]

Probabilmente manca la creazione di uno degli oggetti, probabilmente

set m = New model

[alex688]

Mi da sempre lo stesso errore

[oregon]

In quale riga?

Non hai altri dettagli da aggiungere? Parli proprio di VB6 o di VBA di Access o altro?

[alex688]

Sto usando Visual Baisc 6 dentro un software che permette di fare delle macro.
l' errore ( oggetto variabile o lobbo with non settato) me lo da nell'ultima riga quella themod....

[oregon]

Originariamente inviato da alex688
Sto usando Visual Baisc 6 dentro un software che permette di fare delle macro.

Visual Basic 6 è un prodotto autonomo che non sta dentro ad altri software.

Quindi tu usi VBA all'interno di un altro programma (quale?)

l' errore ( oggetto variabile o lobbo with non settato) me lo da nell'ultima riga quella themod....

Cosa è Module ? Chiarisci perché non esiste in VB6 ...

[oregon]

Ho visto in un'altra discussione che il software in discussione è

Arena

e quindi il codice è VBA per Arena (il VB6 non c'entra nulla).

Da una ricerca su Internet vedo che il codice iniziale dovrebbe essere

Dim m As Model
Set m = ThisDocument.Model

[alex688]

grazie oregon dell'interessamento . Come dici te il software è Arena. Avevo già provato a mettere set m = ThisDocument.Mode ma mi da lo stesso errore. Module è una classe specifica di Arena. Non sapendo usare VB ho provato anche a mettere

Dim m     
Dim themod     
Dim i

che da quanto ho capito sarebbe non specificare cosa sono m themod e i che comporta solo un appesantimento del codice ma non compromette il suo funzionamento , ma cmq il risultato nonn cambia