Newsgroup: it.comp.appl.access
Titolo: Maschera: modificare recordsource ::: :) :::

Buongiorno a tutto NG.
Ho una maschera di visualizzazione costi, la  cui origine dati viene
assegnata tramite due caselle combo in gerarchia,
cbocliente e cbodata.
Seleziono il cliente, automaticamente viene visualizzata l'ultima data
nella casella combinata cbodata
Private Sub CBOCLIENTE_AfterUpdate()
Forms!msc_cstfly.RecordSource = ""
Forms!msc_cstfly.Requery
Forms![msc_cstfly].Corpo.Visible = False 'devo inserirlo altrimenti
non vedo i prodotti
Me!cbodata.Requery 'Cosi la casella data ricalcola le date x cliente
Me!cbodata = Me!cbodata.ItemData(0) 'cosi imposta l'ultima data
Forms!msc_cstfly.RecordSource = "q_smcstfly"
Forms("msc_cstfly").Requery
Forms![msc_cstfly].Corpo.Visible = True
Funziona alla grande, seleziono un cliente diverso, automaticamente
vedo i costi dell'ultimo listino di questo cliente.
Il problema è quando voglio selezionare una data di listino diverso.
Ho la stessa procedura su scelta data, ma la query Q_SMCSTFLY risulta
VUOTA, sebbene la tabella da dove pesca i dati contiene i record.
Private Sub CBODATA_AfterUpdate()
On Error GoTo Err_CBODATA_AfterUpdate
Forms!msc_cstfly.RecordSource = ""
Forms!msc_cstfly.Requery
Forms![msc_cstfly].Corpo.Visible = False 'devo inserirlo altrimenti
non vedo i prodotti
Forms!msc_cstfly.RecordSource = "q_smcstfly"
Forms("msc_cstfly").Requery
Forms![msc_cstfly].Corpo.Visible = True
COME DEVO FARE X VEDERE I COSTI cambiando dalla casella combinata
data?
Da codice, vedo che i valori di cbodata e cbocliente esistono e le
tabelle (che x brevità qui non ho citato) vengono generate ogni volta
correttamente. Purtroppo la q_smcstfly, la query pare funzionare solo
quando cambio dalla casella del cliente, la prima.
Grazie a tutti,
Samantha

 data?
facendo la ricerca nel formato mm/dd/yyyy o yyyy/mm/dd ?
-- 
ac
y-1=x


wrote:

Ciao Alessandro Cara,
la casella combinata memorizza la chiave primaria di versione listino,
io nella casella combinata ho
vsid, vs_data
larghezza: 0;2cm.
Perciò in realtà passo il valore della chiave primaria di listino.
Da codice nell'evento dopo aggiornamento cbodata, ho msgbox cbodata e
msgbox cbocliente. I dati sono passati correttamente,  idcliente e
idlistino sono corretti.
Dall'evento scelta cbocliente, assegnavo automaticamente la data più
recente di listino, e la query popola la maschera.
Cambio cliente e con l'ultima data di listino ho la query popolata
correttamente.
Scelgo una data di listino diversa, ma la query è pari a zero.
Allora adesso ho eliminato dall'evento dopo aggiornametno del cliente,
l'assegnazione automatica del listino. Ora sto provando. vedendo cosa
combina...
Dev'essere la query da qualche parte che sbaglia, perchè le tabelle
vengono create in modo corretto :( :( :(
:(
Grazie intanto, appena ho news le posto,
Samantha

esseAemme wrote:
Lo usi il debugger?
-- 
ac
y-1=x


wrote:

Dunque:
con cbocliente la routine va alla grande, nella selezione automatica
dell'ultima data recente. popola la maschera correttamente.
Stessa routine=codice messo sotto la casella combinata cbodata. Se
seleziono l'ultima data, popola la query. Se seleziono una data
precedente, la query è a zero.
il debugger: ho messo il codice della query in una stringa sql: i
parametri sono passati correttamente.
Ho usato la stringa sql, come codice recordsource x la maschera, ma
non funziona. Cmq la stringa è corretta
Ho un pò di dubbi, ti giro qualche domanda:
*************************************************************
DOMANDA NR. 1
Posso eliminare la query q_smcstfly prima di ricrearla?
La query q_smcstfly è il record source della maschera. La maschera
quando la apro non ha record source, lo assegno quando l'utente
seleziona le caselle combinate   non associate in gerarchia.
*************************************************************
DOMANDA NR. 4
Ho la maschera aperta e seleziono la casella data, posso mettere
questo comando:
Forms!Msc_cstfly.RecordSource = ""
... faccio le operazioni
Forms!Msc_cstfly.RecordSource = "q_smcstfly"
Funziona?
************************************
TEST 1
Poi ho fatto un altro tentativo, la data più recente di un listino,
era quella di ieri del 26/11/07. Ho quindi creato un nuovo listino,
del 27/11/07.
Ma  questa volta dalla casella combinata cbocliente ho tolto
l'automatismo.
Risultato -> se seleziono la data del 27/11/07 manualmente, la query è
vuota a zero
************************************
TEST2
Ho selezionato dal listino, la data del 26/11/07, e la maschera si
popola correttamente. Anche se ora non è la data più recente, ma è
stata l'ultima utilizzata con l'automatismo...
CONSIDERAZIONI:
La query pesca i dati da tabelle, che vengono riscritte.
Ma se apro la query, non mi mostra i dati scritti, salvati all'interno
delle tabelle.
La query ora quando viene aperta, e passo manualmente i parametri
cliente=19 e versione listino = 54, mi mostra i dati del cliente 19 e
del listino versione 54, della data 26/11/07.
Sembra che la query mi mostri risultati congelati da qualche parte..e
non capisco dove.
*************************************************
PROBLEMA NR. 2
Ogni volta creo nuove tabelle, in totale sono 7.
Nella procedura, voglio eliminarle prima di ricrearle, ma mi dice che
non posso eliminarle...
Dim PRZV001, PRZV002, PRZV003, PRZV004, PRZV005, PRZV006, PRZV007,
PRZV008, qmaschera As String
Dim PRZV009, PRZV010, PRZV011A, PRZV011B, PRZV012, PRZV013, PRZV014,
PRZV015 As String
PRZV001 = "PRZV001_CreaTempCostiArticoli"
PRZV002 = "PRZV002_DISTINTA_CostoMateriePrime"
PRZV003 = "PRZV003_DISTINTA_CalcoloCostoLavorazione"
PRZV009 = "PRZV009_ELI_Temp_CostoArticoli"
PRZV010 = "PRZV010_ELI_Temp_CostoMP"
PRZV011A = "PRZV011_ELI_Temp_CostiLavorazioneDettagli"
PRZV011B = "PRZV011_ELI_Temp_DistintaCostiLavorazione"
'Elimino tutte le tabelle che sono state create
DoCmd.OpenQuery PRZV009, acNormal, acEdit
DoCmd.OpenQuery PRZV010, acNormal, acEdit
DoCmd.OpenQuery PRZV011A, acNormal, acEdit
DoCmd.OpenQuery PRZV011B, acNormal, acEdit
'Ricreo tutte le tabelle
DoCmd.OpenQuery PRZV001, acNormal, acEdit
DoCmd.OpenQuery PRZV002, acNormal, acEdit
DoCmd.OpenQuery PRZV003, acNormal, acEdit
DoCmd.OpenQuery PRZV004, acNormal, acEdit
Questa è la query q_smcstfly che imposto come recordsource della
maschera:
Dim stringaSam As String
stringaSam = "SELECT TBL_DIST.dist_id, TBL_DIST.dist_codice,
TBL_DIST.cli_id, TBL_DIST.dist_tot1, TBL_DIST.dist_data, " & _
            "TBL_DIST.dist_vsid, TBL_DIST.dist_cstgenacqf,
[dist_tot1]*[dist_cstgenacqf] AS F_CGA, " & _
            "[F_CGA]+[dist_tot1] AS F_SUB_CGA, TBL_DIST.dist_totlav,
TBL_DIST.dist_totcstvari, " & _
            "[F_sub_cga]+[dist_totlav]+[dist_totcstvari] AS
F_base_calcoloscarto, TBL_DIST.dist_scartopercf, " & _
            "[f_base_calcoloscarto]*[dist_scartopercf] AS
F_costoScarto, TBL_DIST.dist_tottrasp," & _
            "[f_costoscarto]+[f_base_calcoloscarto]+[f_costoscarto] AS
F_BaseMargine," & _
            "TBL_DIST.dist_valmargs, [f_basemargine]+[dist_valmargs]
AS f_baseprov, TBL_DIST.dist_prov, " & _
            "[f_baseprov]*[dist_prov] AS F_prov, [f_baseprov]+[f_prov]
AS f_prezzoriferimento, " & _
            "TBL_DIST.dist_riferimento,
Temp_DistintaValori.Base_CalcoloMargine,
Temp_DistintaValori.dist_marg, " & _
            "Temp_DistintaValori.MargineVolo,
Temp_DistintaValori.Provvigioni_Volo, " & _
            "Temp_DistintaValori.Prezzo_Volo,
Temp_DistintaValori.MargineSalvato, " & _
            "Temp_DistintaValori.Provvigioni_salvato,
Temp_DistintaValori.Prezzo_salvamargine, " & _
            "TBL_DIST.dist_fstverslistino FROM TBL_VSCSTMP INNER JOIN
(TBL_DIST INNER JOIN Temp_DistintaValori " & _
            "ON TBL_DIST.dist_id = Temp_DistintaValori.dist_id) ON
TBL_VSCSTMP.vscstmp_id = TBL_DIST.dist_vsid " & _
            "WHERE (((TBL_DIST.cli_id)=" & [Forms]![msc_cstfly]!
[cboCliente] & _
            ") And ((TBL_DIST.dist_vsid)=" & [Forms]![msc_cstfly]!
[cbodata] & ")) ORDER BY TBL_DIST.dist_codice;"


OK HO RISOLTO
avevo impostato un controllo sul campo sbagliato.. m3rd4... ora devo
risistemare tutto, tutti gli automatismi ..

 risistemare tutto, tutti gli automatismi ..
ciao esseAemme
i tuoi post sono interessanti, si leggono volentieri,
ma non sarebbe male svoltire un pochino il quoting. che ne dici?
^__^
Daniele 

 Daniele
Ciao CIDI,
ma il quoting è quello che scrivete voi? oppure è quello che scrivo
io?
:) anche se leggendo non traspare (xchè la mimica è molto +
espressiva) ero disperata!
Cmq farò del mio meglio x sfoltire, e essere + chiara
Samantha

 Daniele
Ciao CIDI,
ma  il quoting è quello che scrivo io o è quello che scrivi che tu?
Comunque, anche se non traspare, xchè la mimica espressiva è molto +
chiara, ero disperata ieri sera!
Farò del mio meglio x essere + chiara la prossima volta e meno
prolissa!
;) Samantha

 ma non sarebbe male svoltire un pochino il quoting. che ne dici?
Ciao CIDI,
ma  il quoting è quello che scrivo io o è quello che scrivi che tu?
qua ci trovi tutte le spiegazioni:
http://wiki.news.nic.it/QuotarBene
Comunque, anche se non traspare, xchè la mimica espressiva è molto +
chiara, ero disperata ieri sera!
pure io :<))
dopo che sono arrivato alla fine della tua risposta ad AC
per leggere: Ho risolto...ecc. insomma potevi benissimo togliere
tutto ciò che non serviva per capire la discussione.
Farò del mio meglio x essere + chiara la prossima volta e meno
prolissa!
ti sarà tutto chiaro dopo che avrai letto il link di sopra.
Ciao Sam
Daniele

 dopo che sono arrivato alla fine della tua risposta ad AC
...e comunque mica me lo ha detto se usa il debugger!
<echo off>
Non vorrei offenderla ma mi ha ricordato sua emittenza, gli chiedi una 
cosa, e lui parte con sproloqui che coprono l'intero scibile ma non 
risponde mai ad una domanda.
<echo on>
Ciao Daniele
-- 
ac
y-1=x


http://wiki.news.nic.it/QuotarBene
cosa ne dici di questo post come è stato quotato? :) ok
ora faccio un altro post, x chiedervi come lavora la formattazione
condizionale in una maschera a visualizzazione maschere continue!
Buon lavoro
Samantha


http://wiki.news.nic.it/QuotarBene
cosa ne dici di questo post come è stato quotato? :) ok
molto bene. brava 7+
adesso sarà contento pure Alex  :<))
ora faccio un altro post, x chiedervi come lavora la formattazione
condizionale in una maschera a visualizzazione maschere continue!
ok
Buon lavoro
Samantha