[Risolto] Prima Macro - ovviamente NON funziona

[g_federico_g]

Rieccomi.
Sto provando le Macro.
Ne ho registrata una ed assegnata al tasto nei Formulari, al tasto presente,Proprietà del controllo -> Esegui azione.

Ma non fa nulla.


Mi dovrebbe copiare il valore della casella 3, rinominata con il nome di casellina3, sulla casella FiltroTabella.

[charlie]

Ne ho registrata una

Ciao, se intendi dire che hai usato il registratore di macro sappi che in Base non funziona.

[g_federico_g]

No, l'ho scritta io, leggendo info su altri post.
Non ho registrato nulla, l'ho scritta, ma è come se non si attivasse.

Devo copiare il valore della casellina3 sulla casella FiltroTabella.

[g_federico_g]

Ho anche provato questo, ma non funziona.

Dim Istatvalue as object
Dim Var as string
IstatValue=ThisComponent.DrawPage.Forms.GetByName("SubForm").GetByName("Casellina3")
Var = IstatValue.Text

msgbox(Var)

....mi restituisce errore su DrawPage

[charlie]

La tua prima macro non è una macro:

Codice: Seleziona tutto

Sub Messaggio
FiltroTabella=Casellina3
End sub

Nella seconda manca il riferimento al MainForm per arrivare al SubForm.
Ma ci sono 2 MainForm e 2 SubForm nel tuo formulario.
Pianifica meglio il tuo formulario usando nomi univoci e poi prova qualcosa del genere:

Codice: Seleziona tutto

....
IstatValue=ThisComponent.DrawPage.Forms.GetByName("MainForm").GetByName("SubForm").GetByName("...")
....

[g_federico_g]

Ho messo un po di ordine, in effetti era molto confuso.
Ora con in formulari, con i tasti "calcola rapporto" e "Cerca rapporto tra le tabelle" riesco ad ottenere e visualizzare ciò che cerco.

Vorrei provare ad automatizzare queste due operazioni in una sola, sotto il tasto "Prova automatismo" in modo da eliminare il doppio passaggio e quindi i due pulsanti, lasciando solo quello di "Prova automatismo". Per fare ciò ho pnesato di ricorrere ad una macro, che legga i valori di Casellina1 e Casellina2, eseguendo la divisione ed inserendo il risultato in casellina3 (e qui non riesco a capire come fare). Poi successivamente dovrebbe partire la ricerca di questo valore sulle grigle (e anche qui non so come fare).

[Rafkus_pl]

Qualcosa del genere? L'ho ottenuto senza la macro, disponendo le sottomaschere in modo diverso, penso che la tabella dei filtri non sia necessaria ora.

[g_federico_g]

Si, direi perfetto.

Ma come hai fatto ?

(intanto mille grazie, metterò RISOLTO appena mi rispondi)

[Rafkus_pl]

Ho usato la query Ricerca_Tabella1 come tabella Filtro, grazie alla quale mi sono liberato della necessità di passare valori dalla query alla tabella (ovvero mi sono sbarazzato dell'intermediario).

[g_federico_g]

Grazie, ho capito.