Newsgroup: it.comp.appl.access
Titolo: Eseguire una stringa

Buon giorno atutto l'NG.
Ho la necessità di comporre una stringa,
esempio:
Din a as string
a="[Forms]!NomeMaschera]![NomeCampo].BackColor=255"
e quindi di eseguirla.
E' possibile? Se sì, come?
Ho provato in vari modi senza risultato.
Grazie.
Paolo

Paolo Dal Bosco ha scritto:

Speriamo sia "DIM" e non "Din"...!
;-)
Prova così:
Eval(stringa)
@Alex

 Ho provato in vari modi senza risultato.
A parte il fatto che nella composizione sopra riportata manca una parentesi 
quadra aperta dopo il primo punto esclamativo, credo che tu debba rivedere 
il modo in cui hai affrontato la problematica che sta alla base della questione.
Senza comunque considerare che, mentre in SQL è normale comporre prima la 
stringa desiderata e poi darla in pasto al motore di database in qualche 
modo (ad esempio tramite DoCmd.RunSQL), non puoi fare altrettanto con il 
codice VBA.
Quello che puoi fare è parametrizzare il codice e credo che il tuo scopo 
sia fondamentalmente questo. Tuttavia, il metodo che hai scelto non va bene, 
quindi devi rivalutare la situazione che ti trovi ad affrontare e scegliere 
una strada differente.
Tu cosa vorresti ottenere? Prova a spiegare meglio e vediamo se riusciamo 
ad aiutarti.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution

...oooopssss....
ho visto solo adesso il post di Alex e mi sono ricordato solo ora della funzione 
Eval.......


 ha scritto nel messaggio
news:1156583632....@i42g2000cwa.googlegroups.com...



Prova così:
Eval(stringa)
@Alex
-----------------
grazie.
Paolo

"PBsoft" <in...@REMOVEpbsoft.it> ha scritto nel messaggio
news:875ea3553da778...@news.tin.it...

lo scopo sarebbe da una form, aprirne un'altra in design e poter
variare le proprietà di una casella.
Semplice da dirsi, un po' meno da farsi :-)
Comunque grazie.
Buon fine settimana.
Paolo

 Paolo
--
Lorenzo 

 Paolo
Io farei una funzione di questo tipo:
Public Functin SetProperty(sfrm as string, sprp as string, sVal as
string)
    On Erroro Resume next
    dim sF as string
    docmd.openform sfrm,acDesign
    Forms(sfrm).Properties(sprp).value=val(sval)
    docmd.close acForm,sfrm,acSaveYes
End Function
In questo modo puoi generalizzare la cosa, il più è costruire
correttamente la
stringa, ricorda di usare i carattere chr(34) per emulare il passaggi
odi una stringa.
@Alex

 ha scritto nel messaggio
news:1156595494....@h48g2000cwc.googlegroups.com...





@Alex
-----------------
questa è più funzionale, e mo' proviamo.
Grazie
Paolo

 ha scritto nel messaggio
news:I4XHg.83302$_J1.7...@twister2.libero.it...

Grazie, ora prova la prima soluzione.
Ciao
Paolo

 ha scritto nel messaggio
news:44f04652$0$47961$4faf...@reader3.news.tin.it...

funziona egregiamente, solo che mentre il nome riesco a passarglielo da un
textbox
per il NomeControllo ho qualche difficoltą (qualche! non ci riesco).
Qualche idea in merito?
Grazie ancora.
Paolo

 Paolo
--
Lorenzo

 ha scritto nel messaggio
news:GcYHg.82563$zy5.1...@twister1.libero.it...

Ok, funzia, mille grazie
Paolo

 ha scritto nel messaggio
news:44f045d9$0$47957$4faf...@reader3.news.tin.it...

con laiuto di Lorenzo son riuscito a far funzione anche il tuo codice.
Grazie ancora per l'attenzione prestatami.
Paolo