Newsgroup: it.comp.appl.access
Titolo: Esecuzione Recordset: elemento non trovato in questo insieme

Buongiorno NG.
In una sottomaschera ho inserito un comando, che dovrebbe copiare il
risultato di controlli calcolati in una tabella.
La SUB che uso per fare l'inserimento è questa, ma appena faccio click
sul comando mi da l'errore "elemento non trovato in questo insieme":
Private Sub SavePrzListino_Click()
On Error GoTo Err_SavePrzListino_Click
Dim dbfly As Database
Dim rstfly As Recordset
Dim qdffly As QueryDef
Set dbfly = CurrentDb
Set qdffly = dbfly.QueryDefs("q_saveprzlistino")
qdffly.Parameters("[Forms]![MSC_Generalistinovendita]![CBOCLIENTE]") =
Parent![cboCliente]
Set rstfly = qdffly.OpenRecordset()
Set rst = Me.RecordsetClone
If rst.EOF And rst.BOF Then Exit Sub
If rst.RecordCount <> 0 Then
Me.Refresh
    rst.MoveFirst
   Do Until rst.EOF
     rst.Edit
     rst.Fields("dist_fissatodata") = Me!datafly
     rst.Fields("dist_tot1") = Me!fly1
     rst.Fields("dist_totlav") = Me!FLY4
     rst.Fields("dist_totcstvari") = Me!FLY5
     rst.Fields("dist_margf") = Me!FLY9
     rst.Fields("dist_scartopercf") = Me!FLY6
     rst.Fields("dist_tottrasp") = Me!FLY7
     rst.Fields("dist_przlistino") = Me!PRZFLY
     rst.Update
     rst.MoveNext
  Loop
  rst.Close
  rstfly.Close
  Set rstfly = Nothing
  Set rst = Nothing
  Me.Requery
End If
End Sub
***********************************
La query parametrica dovrebbe funzionare, perchè la uso con successo
quando carico la sottomaschera filtrata con prodotti per cliente.
Grazie x qls suggerimento,
Samantha

 ha scritto nel messaggio
news:1172504897.0...@a75g2000cwd.googlegroups.com...
Buongiorno NG.
     rst.Fields("dist_fissatodata") = Me!datafly
     rst.Fields("dist_tot1") = Me!fly1
     rst.Fields("dist_totlav") = Me!FLY4
     rst.Fields("dist_totcstvari") = Me!FLY5
     rst.Fields("dist_margf") = Me!FLY9
     rst.Fields("dist_scartopercf") = Me!FLY6
     rst.Fields("dist_tottrasp") = Me!FLY7
     rst.Fields("dist_przlistino") = Me!PRZFLY
     rst.Update
     rst.MoveNext
Impara a indicare il punto dove dà il messaggio di errore.
Probabilmente uno di questi campi non esiste nella query o è scritto male
Antonio

 Antonio
Buongiorno Antonio
non ho indicato il punto dove dà il messaggio di errore su vba, perchè
non so debuggare correttamente.
Ho guardato i vecchi messaggi, visualizzo la finestra immediata ma non
capisco come si deve usare. Nel codice ho provato a scrivere
debug.print... ma ho ottenuto l'impallamento dell'applicazione (mi
diceva che non va bene formattata x la mia stampante,e chiedeva se
impostarla per PDF...)
Insomma come faccio x vedere il debug di ogni riga clicckando su un
comando che lancia una sub?
Grazzzzzzzzzzzzzie
Samantha
p.s.: l'errore me lo da proprio su FLY1, e FLY1 in origine controllo
ha:
=Iif(IsError(nz(DSum("[cstarticolo]";"[q_smcstflyTOTMATPRI]";"[dist_id]=
" & [DISTINTAID]);0));0;
(nz(DSum("[cstarticolo]";"[q_smcstflyTOTMATPRI]";"[dist_id]= " &
[DISTINTAID]);0)))
è questo il problema?
Grazie bis

 Antonio
Buongiorno Antonio
non ho indicato il punto dove dà il messaggio di errore su vba, perchè
non so debuggare correttamente.
Quando si pianta e dà il messaggio, dovrebbe anche dare i due pulsanti
Debug e termina
Se vai in debug ti si pianta sulla riga che dà il problema
Antonio

 ha scritto nel messaggionews:1172507041....@v33g2000cwv.googlegroups.com...

Ciao Antonio,
solitamente quando si piantava mi dava debug  e termina, e infatti
nella finestra visual basic vedevo il cursore sulla riga incriminata.
In questo caso invece, ora mi da una finestrella msgbox che dice
"necessario oggetto".
Il codice l'ho cambiato così (commentando tutti i fields meno uno) ma
dice necessario oggetto:
Dim dbfly As Database
Dim rst As Recordset
Dim qdffly As QueryDef
Set dbfly = CurrentDb
Set qdffly = dbfly.QueryDefs("q_saveprzlistino")
qdffly.Parameters("[Forms]![MSC_Generalistinovendita]![CBOCLIENTE]") =
Parent![cboCliente]
Set rst = qdffly.OpenRecordset()
'Set rst = Me.RecordsetClone
If rst.EOF And rst.BOF Then Exit Sub
If rst.RecordCount <> 0 Then
Me.Refresh
rst.MoveFirst
   Do Until rst.EOF
     rst.Edit
     Debug.Print rst.Fields("dist_fissatodata") = Me!datafly
    rst.Update
     rst.MoveNext
  Loop
  rst.Close
  rstfly.Close
  Set rstfly = Nothing
  Set rst = Nothing
  Me.Requery
End If
Non riesco a capire dove si ferma...
Grazie
Samantha

 ha scritto nel messaggio
news:1172568827.4...@k78g2000cwa.googlegroups.com...



Lezione di debugging.
Se la funzione è lanciabile standalone, sarebbe molto più facile, ma tu hai
bisogno di riferimenti alla maschera aperta.
Allora, vai sul codice e mettiti sulla prima riga non di dichiarazione
variabili del codice da debuggare.
A questo punto premi F9.
Te la evidenzia in rosso. Serve per far bloccare l'elaborazione lì.
A questo punto, senza uscire dalla tua applicazione, lancia la maschera e
esegui le solite cose.
Quando viene lanciato il codice si blocca dove hai messo il blocco.
A questo punto con F8 esegui un "trace" passo passo del codice e puoi vedere
dove ti dà errore.
Tra l'altro in questa fase puoi verificare il contenuto delle variabili
mettendoci sopra il mouse o nella finestra immediata scrivendo ?nome_var
Antonio

 ha scritto nel messaggionews:1172568827.4...@k78g2000cwa.googlegroups.com...

Zei un mito, procedo

 > Antonio
La query filtrata contiene 3 record.
Per 3 volte fa il loop, e per tre volte nella finestra immediata mi da
falso in questa riga:
Debug.Print rst.Fields("dist_fissatodata") = Me!datafly
Ieri ho controllato e ricontrollato la query, ho stampato le relazioni
e i nomi campi sono giusti. Per qual motivo mi da falso?
Forse è locked non editabile?
Ma ho gia usato il codice in questo modo, con CBODATA e funziona alla
grande...
Non so che pesci pigliare...

 ha scritto nel messaggio
news:1172572663.5...@t69g2000cwt.googlegroups.com...
La query filtrata contiene 3 record.
Per 3 volte fa il loop, e per tre volte nella finestra immediata mi da
falso in questa riga:
Debug.Print rst.Fields("dist_fissatodata") = Me!datafly
Ieri ho controllato e ricontrollato la query, ho stampato le relazioni
e i nomi campi sono giusti. Per qual motivo mi da falso?
Samà.... SIGH
GROAN
Tu c'hai veramente bisogno di una cena con me!!!
Ma dà falso perchè hai messo una espressione logica!!!!
hai detto di stamparti il risultato dell'espressione A = B
Se A = B dà vero, evidentemente non è = e quindi da falso!!!
Primo, non ha senso quello che hai scritto.
Secondo, non ti serve adesso la debug.print, perchè ti ho detto che per
vedere il contenuto delle variabili, lo puoi fare in qualunque momento con
la finestra immediata
Allora, andiamo a vedere se rst è usato bene?
Antonio

 ha scritto nel messaggionews:1172572663.5...@t69g2000cwt.googlegroups.com...

mmm ma io vorrei assegnare il valore di me!datafly a dist_fissatodata.
se  con la casella combinata, dove scelgo la data e tramite recordset
copio il valore della data scelta nella casellacombinata in tutti i
record filtrati, perchè altrettanto ora non posso prendere i valori
dei campi calcolati  e cacciarli dentro alla tabella dist?
cioè
rst.fields("cstmp_data") = Me!CBODATA  -> funziona
mentre
rst.fields("dist_fissatodata") = ME!DATAFLY -> NON VA
perchè?
Allora, è il caso che andiamo a vedere se rst è usato bene. Perciò mi
riprendo in mano cosa sono i recordset... ma è sempre obbligatorio
lavorare con il recordsetclone? è questa l'unica differenza tra codice
CBODATA che funziona e l'altro FLY che non va
Grazie,
Samantha

 Antonio
mmm ma io vorrei assegnare il valore di me!datafly a dist_fissatodata.
->E va bene
se  con la casella combinata, dove scelgo la data e tramite recordset
copio il valore della data scelta nella casellacombinata in tutti i
record filtrati, perchè altrettanto ora non posso prendere i valori
dei campi calcolati  e cacciarli dentro alla tabella dist?
cioè
rst.fields("cstmp_data") = Me!CBODATA  -> funziona
mentre
rst.fields("dist_fissatodata") = ME!DATAFLY -> NON VA
perchè?
E così a naso, evidentemente questo nome di campo dist_fissatodata
all'interno del recordset usato non esiste!!!
Eseguendo il codice, ti si pianta su quell'assegnamento?
Con oggetto non presente nell'insieme?
Se è così, l'oggetto field che referenzi all'interno del recordset, non
esiste perchè magari scritto male o te lo sei dimenticato nella query
Antonio

 Antonio
La query q_saveprzlistino contiene dist_fissatodata, ho controllato +
volte e poi lo posto qui sotto.
L'unica cosa x cui mi viene il dubbio possa dare problemi, è che il
campo ME!Datafly ha come origine record cstmp_data.
la query:
SELECT TBL_DIST.dist_id, TBL_CLIENTE.cli_id, TBL_DIST.cli_id,
TBL_DIST.dist_tot1, TBL_DIST.dist_fissatodata, TBL_DIST.dist_vendita,
TBL_DIST.dist_totlav, TBL_DIST.dist_totcstvari, TBL_DIST.dist_margf,
TBL_DIST.dist_scartopercf, TBL_DIST.dist_tottrasp,
TBL_DIST.dist_przlistino
FROM TBL_CLIENTE INNER JOIN TBL_DIST ON TBL_CLIENTE.cli_id =
TBL_DIST.cli_id
WHERE (((TBL_DIST.cli_id)=[forms]![Msc_generalistinovendita]!
[cbocliente]));

 wrote:
Ola,
non so cosa sia successo, fatto sta che ho cambiato queste righe del
codice
Set rst = qdffly.OpenRecordset()
'Set rst = Me.RecordsetClone
'If rst.EOF And rst.BOF Then Exit Sub
Non lavoro sul clone e ho commentato queste due, e ora va. Mi cicla x
i tre prodotti filtrati del cliente MTS è una maschera continua.
Va ma non come dovrebbe. purtroppo
Se il prodotto BLU costa 1,4589
il prodotto ROSSO costa 2,4589
e quello VERDE costa 0,4589
lui imposta il costo di BLU, il primo che trova nel campo calcolato, a
tutti i prodotti.
Perciò  BLU ROSSO VERDE costano tutti 1,4589 ????????
Come origine campo del costo ("dist_tot1") -> ME!FLY1 ho l'espressione
=IIf(IsError(nz(DSum("[cstarticolo]";"[q_smcstflyTOTMATPRI]";"[dist_id]=
" & [DISTINTAID]);0));0;
(nz(DSum("[cstarticolo]";"[q_smcstflyTOTMATPRI]";"[dist_id]= " &
[DISTINTAID]);0)))
Come posso fare per farsì che lui prenda il valore corretto?
Grazie,
Samantha


Per me Me!Fly1 non è un valore statico ma va ricalcolato ogni volta...

=IIf(IsError(nz(DSum("[cstarticolo]";"[q_smcstflyTOTMATPRI]";"[dist_id]=
" & [DISTINTAID]);0));0;
(nz(DSum("[cstarticolo]";"[q_smcstflyTOTMATPRI]";"[dist_id]= " &
[DISTINTAID]);0)))
FLY4= costolavorazioni ->
=IIf(IsError(nz(DSum("[cstlavo]";"[q_smdlavo]";"[dlavo_distid]= " &
[DISTINTAID]);0));0;
(nz(DSum("[cstlavo]";"[q_smdlavo]";"[dlavo_distid]= " & [DISTINTAID]);
0)))
Il DSUM funziona solo se in origine controllo dei campi calcolati. Se
lo facevo tramite VBA, mi trovava la somma del primo record... e gli
altri erano uguali.
Ora tramite pulsante alla fine della maschera, vorrei prendere i
valori e salvarli all'interno di una tabella. Solo che la DSUM viene
fatta per il primo record, e per gli altri non viene ricalcolata.
Forse dentro il recordset, prima del .movenext devo fare Me!
fly1.recalc
Ora provo
Samantha

 Antonio
La query q_saveprzlistino contiene dist_fissatodata, ho controllato +
volte e poi lo posto qui sotto.
L'unica cosa x cui mi viene il dubbio possa dare problemi, č che il
campo ME!Datafly ha come origine record cstmp_data.
la query:
SELECT TBL_DIST.dist_id, TBL_CLIENTE.cli_id, TBL_DIST.cli_id,
TBL_DIST.dist_tot1, TBL_DIST.dist_fissatodata, TBL_DIST.dist_vendita,
TBL_DIST.dist_totlav, TBL_DIST.dist_totcstvari, TBL_DIST.dist_margf,
TBL_DIST.dist_scartopercf, TBL_DIST.dist_tottrasp,
TBL_DIST.dist_przlistino
FROM TBL_CLIENTE INNER JOIN TBL_DIST ON TBL_CLIENTE.cli_id =
TBL_DIST.cli_id
WHERE (((TBL_DIST.cli_id)=[forms]![Msc_generalistinovendita]!
[cbocliente]));
Continui a non dirmi dove ti si pianta e con che messaggio
Antonio

 Antonio
Ciao Antonio,
ora non si pianta + nel messaggio delle 14:58 ti ho scritto che
modificando il codice ora mi trova il campo
PROBLEMA ATTUALE:
Maschera continua con 10 record
Il valore di ME!FLY1 che è una DSUM        da VBA lo vedo uguale per
tutti e 10 i record.
Non dovrebbe essere così :(
Lui accoda in tabella rst.fields("dist_tot1") = ME!FLY1  per tutti i
10 record il valore del primo record che legge, nel campo calcolato ME!
FLY1
ok è un casino, nel mio msg delle 15:29 cercavo di spiegarti il
background dove dovrebbe lavorare il comando.


Antonio, meglio che apro un altro tread... cmq, il recordset ora gira
e non mi da + errori. Questo è il codice utilizzato
Private Sub SavePrzListino_Click()
On Error GoTo Err_SavePrzListino_Click
Dim dbfly As Database
Dim rstfly As Recordset
Dim qdffly As QueryDef
Set dbfly = CurrentDb
Set qdffly = dbfly.QueryDefs("q_saveprzlistino")
qdffly.Parameters("[Forms]![MSC_Generalistinovendita]![CBOCLIENTE]") =
[Parent]![cboCliente]
Set rst = qdffly.OpenRecordset()
'Set rst = Me.RecordsetClone
If rst.RecordCount = 0 Then
  MsgBox "Non ci sono record"
  Exit Sub
  Else
    Me.Refresh
    rst.MoveLast
    rst.MoveFirst
    Do Until rst.EOF
         rst.Edit
     rst.Fields("dist_fissatodata") = Me!datafly
     rst.Fields("dist_tot1").Value = Me!fly1
     rst.Update
     rst.MoveNext
  Loop
  rst.Close
  Set rst = Nothing
  Me.Requery
End If
Exit_SavePrzListino_Click:
    Exit Sub
Ciao e buon lavoro
Samantha

 background dove dovrebbe lavorare il comando.
Antonio, meglio che apro un altro tread... cmq, il recordset ora gira
e non mi da + errori. Questo è il codice utilizzato
Cmq, non è un bel metodo quello di lavorare cambiando metodologia a casaccio
senza capire dove era il problema e confidando nella buona sorte
Antonio

 ha scritto nel messaggionews:1172590795.8...@p10g2000cwp.googlegroups.com...

Ciao Antonio,
premettendo che ti sono grata dei suggerimenti, prima non andava il
recordset. Non ho ancora  capito cosa mi dava problemi, ma a forza di
lavorarci ora funziona.
A questo punto, è sorto un ulteriore problema, con il quale mi ero
scontrata qualche thread fa, per la funzione DSUM, che in VBA x le
maschere a visualizzazione continua  non funziona.
Tutto qui,
Un sentito ringraziamento,
Samantha

 senza capire dove era il problema e confidando nella buona sorte
premettendo che ti sono grata dei suggerimenti, prima non andava il
recordset. Non ho ancora  capito cosa mi dava problemi, ma a forza di
lavorarci ora funziona.
Quoto.
Ho detto la stessa cosa
Antonio

 Antonio
Ok, non è la mia giornata.
Buona serata Antonio
Samantha

 ha scritto nel messaggionews:1172568827.4...@k78g2000cwa.googlegroups.com...

DANNATI RECORDSET
Private Sub SavePrzListino_Click()
On Error GoTo Err_SavePrzListino_Click
Dim rst As Recordset, intI As Integer
Dim fld As Field
Set rst = Me.RecordsetClone
If rst.RecordCount = 0 Then
     MsgBox "Non ci sono Record"
     Exit Sub
Else
    MsgBox "I record sono " & rst.RecordCount
    rst.MoveLast
    rst.MoveFirst
    Do Until rst.EOF
            Me.Bookmark = rst.Bookmark
            Debug.Print rst.Bookmark
            For Each fld In rst.Fields
            Debug.Print fld.Name
            Debug.Print fld.Value
            Next
    Debug.Print Me!fly1
    Debug.Print Me!FLY7
    rst.MoveNext
    Loop
  rst.Close
  Set rst = Nothing
End If
Così ho scoperto come farlo muovere... certo che è peggio di un mulo

 ha scritto nel messaggio
news:1172660439.6...@z35g2000cwz.googlegroups.com...
DANNATI RECORDSET
Disse il vecchietto guidando una Formula 1
Antonio

 Antonio
Sotto il VBA va
I due recordset funzionano,  hanno query che si basano sulla stessa
Tabella TBL_DIST, perciò hanno lo stesso campo contatore. Quindi
filtrati per cliente mi danno lo stesso nr. di record, in questo caso
3
CURIOSITA': i due recordset hanno lo stesso recordcount, ma quando
stampo questo in msgbox, msc dice di avere 3 recordcount, mentre
rstfly uno solo??????. Tu sapresti il perchè?
 MsgBox "I record sono " & msc.RecordCount & " e " &
rstfly.RecordCount
Private Sub SavePrzListino_Click()
On Error GoTo Err_SavePrzListino_Click
Dim msc As Recordset, intI As Integer
Dim fld As Field
Dim dbfly As Database
Dim rstfly As DAO.Recordset
Dim qdffly As QueryDef
Set dbfly = CurrentDb
Set qdffly = dbfly.QueryDefs("q_saveprzlistino")
qdffly.Parameters("[Forms]![MSC_Generalistinovendita]![CBOCLIENTE]") =
[Parent]![cboCliente]
CurrentDb.QueryDefs.Refresh
Me.Refresh
Set rstfly = qdffly.OpenRecordset()
Set msc = Me.RecordsetClone
If msc.RecordCount = 0 And rstfly.RecordCount = 0 Then
    MsgBox "Non ci sono prodotti per questo cliente"
    Exit Sub
 Else
    MsgBox "I record sono " & msc.RecordCount & " e " &
rstfly.RecordCount
    rstfly.MoveLast
    rstfly.MoveFirst
    msc.MoveLast
    msc.MoveFirst
    Do Until msc.EOF And rstfly.EOF
        rstfly.Edit
        Me.Bookmark = msc.Bookmark
        Debug.Print Me!fly1
        rstfly.Fields("dist_tot1").Value = Me!fly1
        Debug.Print Me!FLY7
        rstfly.Fields("dist_tottrasp") = Me!FLY7
        rstfly.Fields("dist_fissatodata") = Me!datafly
        rstfly.Update
        rstfly.MoveNext
        msc.MoveNext
    Loop
    msc.Close
    Set msc = Nothing
    rstfly.Close
    Set rstfly = Nothing
End If

 
non ho compreso la storia del bookmark ed il fatto di volare.
prova a non metterci la movenext e diventa Varenne.
E' solo per partecipare ;<)
-- 
ac
y-1=x

 y-1=x
Ciao Alessandro
la storia del bookmark mi ha fatto impazzire. Senza bookmark e senza
movenext, il recordset legge i valori del controllo calcolato ME!FLY1
del primo record.
Mi spiego
FLY1 origine controllo
=IIf(IsError(nz(DSum("[cstarticolo]";"[q_smcstflyTOTMATPRI]";"[dist_id]=
" & [DISTINTAID]);0));0;
(nz(DSum("[cstarticolo]";"[q_smcstflyTOTMATPRI]";"[dist_id]= " &
[DISTINTAID]);0))) -> è una DSUM
Anche fly7 ha come origine controllo una DSUM,
Per ogni record il FLY1(DSUM) cambia di valore
Senza bookmark e movenext, lui legge FLY1 del primo record, e assegna
lo stesso valore a tutti gli altri
es1. con bookmark e movenext
dist_id  codice    dist_trasp   fly7     fly1
10        blu                  1      1         1,14
25         rosso              2      2         0,50
26         giallo               3     3          0,30
es2. senza bookmark e movenext
dist_id  codice    dist_trasp   fly7     fly1
10        blu                 1      1         1,14
25         rosso             2     1         1,14
26         giallo             3     1         1,14
Tutto ciò mi serviva, perchè devo ricalcolare i prezzi di vendita dei
prodotti, al variare del costo delle materie prime, delle
lavorazioni... Ogni prodotto è formato da + materie prime, e ho creato
un listino costi delle materie prime, che può essere giornaliero.
Ora, cambiando la data del listino costi, ricalcolo anche il prezzo di
vendita.
ah.... magari riuscissi a spiegarmi il perchè del recordcount, x msc a
3 e rstfly a 1
;) Ciao e buon lavoro
Samantha

 
-- 
ac
y-1=x

 recordset (ha un'altra controindicazione che ritengo superabile)
Ora, dopo aver sbattuto la testa mille volte, e aver dormito male,
stamattina ho risolto con il codice sopra postato, dove iniziavo con
"DANNATI RECORDSET".
Se tu hai idee migliori, o  ti sembra che ho fatto qlc casino, ben
volentieri accetto qls suggerimento o critica, costruttiva,

 wrote:
[CUT]
mmm quanto scritto sopra, mi portava alla situazione di cambiare data
listino costi di acquisto, ed avere i prezzi di vendita così
aggiornati.
Il passo successivo era questo, ossia fissare i prezzi di listino. Se
i costi delle materie prime diminuiscono, devono anche diminuire i
prezzi di listino. Ma il margine deve rimanere invariato. Se i costi
delle materie prime aumentano, il margine viene ricalcolato e così
anche i prezzi di listino.
 Ora, x fare un paragone del margine, costi di acquisto e prezzi di
vendita, ho la necessità di fissare da qualche parte, memorizzare in
tabella il PUNTO X. Quello che mi permetterà di dire se i costi sono
diminuiti, allora mantieni il margine vecchio, mentre se i costi sono
aumentati ricalcola tutto.
Perciò, la mia tabella TBL_DIST = prodotto, contiene i seguenti campi:
dist_id chiave primaria
dist_codice  -> codice prodotto
cli_id      key esterna x cliente
dist_tot1    totale costi acquisto materie prime del prodotto
dist_cstgenacq     percentuale di ricarico sul costo delle materie
prime
dist_scarto    percent. di scarto sulle materie prime
dist_trasp     costo del trasporto
dist_marg     percent di margine
cstmp_data   data associata del listino dei costi materie prime
dist_fissatodata      data del listino dei costi materie prime del
prezzo attualmente in vigore
dist_vendita            prezzo di vendita
dist_totlav              costo totale delle lavorazioni
dist_totcstvari         costo totale dei costi vari
dist_margf             percentuale del margine di ricarico fissato x
il prezzo attualmetne invigore
dist_scartopercf              percentuale del margine di ricarico
fissato x il prezzo attualmetne invigore
dist_tottrasp           valore fissato del trasporto x il prezzo
attualmente in vigore
dist_przlistino       prezzo di listino attualmente in vigore.
Perchè ho pensato, variano si i costi delle materie prime, ma dopo un
anno possono essere cambiati anche i costi di lavorazione, oppure la
percentuale di scarto... perciò devo salvare questi valori, per avere
un termine di paragone, oltre che per facilitarmi la vita nello
stampare il report del listino di vendita
rst.Fields("dist_przlistino") = Me!dist_przlistino
     rst.Fields("dist_fissatodata") = Me!dist_datafly
     rst.Fields("dist_tot1") = Me!fly1
     rst.Fields("dist_totlav") = Me!FLY4
     rst.Fields("dist_totcstvari") = Me!FLY5
     rst.Fields("dist_margf") = Me!FLY9
     rst.Fields("dist_scartopercf") = Me!FLY6
     rst.Fields("dist_tottrasp") = Me!FLY7
    Do Until msc.EOF And rstfly.EOF
        rstfly.Edit
        Me.Bookmark = msc.Bookmark
        Debug.Print Me!fly1
        rstfly.Fields("dist_tot1").Value = Me!fly1
        Debug.Print Me!FLY7
        rstfly.Fields("dist_tottrasp") = Me!FLY7
        rstfly.Fields("dist_fissatodata") = Me!datafly
        rstfly.Fields("dist_totlav") = Me!FLY4
        rstfly.Fields("dist_totcstvari") = Me!FLY5
        rstfly.Fields("dist_margf") = Me!FLY9
        rstfly.Fields("dist_scartopercf") = Me!FLY6
        rstfly.Fields("dist_tottrasp") = Me!FLY7
        rstfly.Update
        rstfly.MoveNext
        msc.MoveNext
    Loop
Quindi  il recordset rstfly dovrebbe storicizzare il PUNTO X dei
costi.
Bene, ti posso offrire un moment virtuale x il mal di testa che ti
avrò sicuramente causato?...

 avrò sicuramente causato?...
Fortunatamente soffro poco di mal di testa ed in genere un buon sonno mi 
rimette in sesto.
Samantha e' "eccessivo" che tu ripeta tutta la storia del tuo processo, 
personalmente problemi del genere forse li ho affrontati in altro modo.
Il processo e' tipico di qualsiasi produzione manifatturiera.
Sono intervenuto solo su un dettaglio tecnico riguardante la gestione di 
un recordset. Lungi da me l'idea di qualsiasi tipo di critica. Volendo 
ripetere una citazione che ho gia' scritto "anyone is entitled to elect 
time and fashion of his own destruction".
-- 
ac
y-1=x


wrote:

Forse non mi sono espressa correttamente,
Visto che è il primo db che faccio, posso immaginare che avendo tu o
Antonio Biso + esperienza di me, magari avevi qualche suggerimento=
"critica costruttiva"
Era inteso in questo senso...
o_O    O_o
poi l'inglese mica lo rosico tanto

 y-1=x
Forse non mi sono espressa correttamente,
Visto che č il primo db che faccio, posso immaginare che avendo tu o
Antonio Biso + esperienza di me, magari avevi qualche suggerimento=
"critica costruttiva"
Ma č quello che ti ho detto anch'io sullo sfoltimento del quoting.
L'esposizione dei tuoi problemi deve essere focalizzata su quello che vuoi
risolvere o rischi di essere dispersiva.
Personalemnte quando rivedo la sfilza di codice che ogni tot riposti, chiudo
precipitosamente col mal di mare...
Era inteso in questo senso...
o_O    O_o
poi l'inglese mica lo rosico tanto
Significa piů o meno e non letteralmente che lui non mette bocca se tu vuoi
darti delle martellate sulle palle...
o meno aulicamente "chi č causa dei propri mali..."
Antonio