[Risolto] Variabile associata ad un campo

[Posse]

Salve
Sono un programmatore Visual basic e da poco mi sono affacciato al mondo openoffice , in particolare al Base di openOffice.

Ho un problema che non riesco a risolvere, ho un formulario con dei campi e vorrei instaurare una variabile di tipo String ed associare il valore del campo alla variabile. Non appongo codice perchè il problema è concettuale, so che devo devo creare un oggetto ed ho fatto in questo modo:

Dim Istatvalue as object
IstatValue=ThisComponent.DrawPage.Forms.GetByName("MainForm").GetByName("ProvaCampo")

dove ProvaCampo è il nome del campo al cui valore va "legato" alla variabile.
Penso che dovrei creare una variabile string tipo:
Dim Var as string

ma non so come associare il valore Var al valore del campo di "ProvaCampo"
mi potete spiegare per piacere?
Grazie in anticipo

[charlie]

Ciao e benvenuto sul forum.
Se intanto ti vuoi presentare, farai cosa gradita. Puoi farlo in questa sezione -> viewforum.php?f=16

L’utente che apre un quesito si impegna:

• a seguirlo dando riscontro quanto prima alle risposte ricevute nel giro di qualche giorno;
  - inserire il [Risolto] e la ✔ verde come previsto;
• rispettare le altre regole implicite del forum ( Istruzioni per nuovi arrivati ).

In caso di inosservanza saremo costretti ad azioni di “richiamo”, sospensione o chiusura del profilo utente.

Buon proseguimento.

P.S.: nella tua firma:

OpenOffice 4.2.3

Non è possibile.

[charlie]

Ciao, dipende dal tipo campo della tabella a cui il formulario si riferisce.
Ma, visto che lo vuoi assegnare ad una variabile string, presumo che sia di tipo testo (VARCHAR) e quindi la proprietà text è quella che ti serve:

Codice: Seleziona tutto

Var = IstatValue.text

[Posse]

Ci avevo provato, mi ha errore "proprietà o metodo non trovato".
La proprietà del campo è VarChar.
sto provando questo:

Codice: Seleziona tutto

Sub apri
Dim Istatvalue as object
Dim Var as string
IstatValue=ThisComponent.DrawPage.Forms.GetByName("MainForm").GetByName("ProvaCampo")
Var = IstatValue.Text

msgbox(Var)

End sub

[charlie]

In questo elementare esempio, la macro funziona.

[Posse]

Grazie per l'aiuto, ho provato il tuo ProvaCampo.odb e funziona, il mio mi da sempre lo stesso errore, non capisco dove sbaglio.
Vedo che però tu non hai dato il nome al campo "Nome" provaCampo, come fa a ritrovare quella deteminata cella?
Ho confrontato i due formulari e sembrano uguali.

[charlie]

Non importa il nome del campo nella tabella, viene trovato perché il formulario è legato alla tabella.
Piuttosto controlla di non aver formattato diversamente il campo del formulario.
Oppure posta qui il tuo database (svuotato da dati sensibili eventuali).

[Posse]

Grazie mille
Ho risolto il problema grazie al tuo aiuto, ti spiego:
Sono andato sul formulario in modalità modifica e sul campo di interesse ho cliccato il tasto destro del mouse e scelto la voce del menù a tendina "proprietà del controllo", sulla voce "Nome ho messo "Codiceistat" e nel listato di programma ho messo lo stesso nome.
Cosi facendo funziona.
posto codice:

Codice: Seleziona tutto

Sub apri
Dim Istatvalue as object
Dim Var as string
IstatValue=ThisComponent.DrawPage.Forms.GetByName("MainForm").GetByName("Codiceistat") ' Sull'ultimo GetByName("nome campo  ")
Var = IstatValue.Text

msgbox(Var)



End sub

Grazie ancora, se vuoi posto il Database non funzionante e quello funzionante.