Newsgroup: it.comp.appl.access
Titolo: Eliminazione dei dati accodati

Ho la necessita di creare uno storico di alcune tbl,
quindi ho creato una query di accodamento.
Il problema è come eliminare i dati della tbl princ
subito dopo che li ho accodati in un'altra tbl?
--
Debora



FAI PRIMA UN BACKUP DELLA TABELLA ( basta CTRL+C , CTRL+V )
Come esempio, prendi la tua query di accodamento , attraverso il QBE
falla diventare di eliminazione e aggiungi l'asterisco della tabella
di origine ( sulla riga 'elimina' deve esserci 'DA' su questo campo ).
ATTENZIONE: schiaccia  'Esegui', comparirà una finestra di dialogo che
ti avverte di quanti record verranno eliminati , NON schiacciare OK (
se no li elimina in modo permanente ). 
Questa è una query di eliminazione col QBE ( tu lo chiami wizard mi
pare ).
Per la sintassi SQL basta che tu vada a vedere su 'Visualizzazione
SQL'.
Stacci attenta però , le query di eliminazione sono pericolose come
bombe.
Ciao. Fabrizio

[cut]
Probabilmente mi sono spiegata male, come mio solito!
Rincomincio:
In una msk che ha origine dati  "query TBL A",ho un elenco di record.
Questa MSK mi serve per cancellare i record che
l'operatore seleziona tramite un campo si/no.
Quando deseleziono il campo si/no sto facendo la
scelta dei record che andranno eliminati.
Io però questi record li accodo in
una "TBL A STORICO", con un pulsante di
comando che mi esegue l'accodamento.
Fin qui tutto ok, l'operazione viene portata a termine!
Ora devo eliminare sti dati. Dovrei far eseguire la query
di eliminazione, i record sono già pronti in quanto deselezionati!
Cosa scrivere nel codice x far eseguire la query di eliminazione.
Questo qui sotto è la routine per far eseguire qry d'accodamento
Private Sub Comando37_Click()
On Error GoTo Err_Comando37_Click
    Dim stDocName As String
    stDocName = "Query proprstorico"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Comando37_Click:
    Exit Sub
Err_Comando37_Click:
    MsgBox Err.Description
    Resume Exit_Comando37_Click
End Sub

Hai detto query , ma intendevi qlc di diverso non nella sostanza ma
nei termini , vabbè, adesso avranno capito anche gli altri.
Ciao. Fabrizio

Ciao. Fabrizio
    stDocName = "Query proprstorico"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
Spiegami , ma qui apri una query( proprstorico), che tipo di query č?
Ma allora ti serve una query?
Mi fai venire il malditesta , ma perchč ti ho risposto?
Ciao. Fabrizio

"Fabrizio" <fabrizio...@SPAMtiscalinet.it> ha scritto nel messaggio
news:ajkmouckab5fh1thf...@4ax.com...

A ciccio...ma che dici?
Devo poter eseguire le query in contemporanea.
quelle due righe che hai scritto sopra, va bene ma come per
farle eseguire in successione!
Prima accodo i dati nella nuova tabella poi li elimino dalla
tabella in cui sono stati inseriti la prima volta!!!!
Non ti sforzare tanto a trovare soluzioni che probabilmente
non fanno parte del tuo bagaglio culturale!!!! ;-PPPPPPPPPPP
p.e.
stDocName = "Query accodamento"
stdocname1="Query eliminazione"
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.OpenQuery stDocName1, acNormal, acEdit
č corretto fare cosě?
 --
Debora


No, ciccia, non ci siamo capiti , evidentemente non fa parte del tuo
bagaglio culturale leggere quello che ti si scrive , ci provo per
l'ultima volta poi lascio perdere .
Non dare per scontato che io sappia tutto del tuo DB , oltrettutto non
č che sia semplice seguire i tuoi 3d:
il metodo OpenQuery  che vuoi usare apre una query salvata (SQL) nel
tuo DB ? preciso meglio : per fare questa fantomatica query hai usato
il (sigh) wizard(QBE) ? č una query di accodamento essa stessa? 
Hai capito che con il termine "query" si intende di solito quella
costruita con codice SQL? capisci che faccio fatica a capire se tu
intendi un tuo tipo particolare di query o quello comunemente inteso?
Vuoi eliminare i dati che hai accodato: come vuoi farlo attraverso
codice (VBA) oppure con una query di eliminazione (SQL) che abbia gli
stessi criteri di quella di accodamento (SQL)? se sono "query" di
altro tipo , di che tipo sono? sono librerie ? sono cavolfiori ? 
Ti scoccia tanto aiutarmi a capire cosa vuoi, cosě magari si capisce
anche cosa ti dicono i guru del NG senza aspettare di arrivare a una
soluzione dopo settimane.
Capisco di non essere alla tua "altezza" , ma č difficile capire cosa
intendi se non ti si č seguito dall'inizio ( dei tuoi 3d ), certo che
cmq ad aiutarti ci si smena .
Ciao. Fabrizio

Ciao. Fabrizio
1° parte fatta con QBE su NorthWind
------------------------
Con Query1 = query di accodamento
SQL:
INSERT INTO Tabella1 ( CampoA, CampoB, CampoC, CampoD )
SELECT Clienti.NomeSocietà, Clienti.Contatto, Clienti.Posizione,
Clienti.Indirizzo
FROM Clienti
WHERE (((Clienti.NomeSocietà) Like "a*")) OR (((Clienti.Contatto) Like
"b*")) OR (((Clienti.Posizione) Like "c*"));
--------------------------- 
Con Query2 = query di eliminazione
SQL
DELETE BkUpClienti.NomeSocietà, BkUpClienti.Contatto,
BkUpClienti.Posizione, BkUpClienti.*
FROM BkUpClienti
WHERE (((BkUpClienti.NomeSocietà) Like "a*")) OR
(((BkUpClienti.Contatto) Like "b*")) OR (((BkUpClienti.Posizione) Like
"b*"));
-------------------
2° parte codice VBA
Private Sub DataOrdine_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.OpenQuery "Query1", acNormal, acEdit
DoCmd.OpenQuery "Query2", acNormal, acEdit
DoCmd.SetWarnings True
End Sub
IO l'ho fatta su AfterUpdate su una maschera fittizia, tu fattela dove
vuoi .
Non ho messo il gestore di errore , ma tanto ci pensi tu.
E' un inizio: si avvicina a quello che volevi?
Il resto te lo sgrezzi tu
Ciao. Fabrizio

>IO l'ho fatta su AfterUpdate su 
 
(refuso)
un controllo di 


 cmq ad aiutarti ci si smena .
Comè che te la prendi cosi tanto? tu sei uno che scherza su tutto con tutti
 ma quando lo si fa con te non lo mandi giù!!!! Bene bene.
Tesoro quando si vuole aiutare qualcuno ci si impegna in tutto e
per tutto, anche a leggere 3d incomprensibili (a tuo dire).
quindi la prossima volta (se ci sarà) fallo, seguimi dall'inizio.
--
Debora

 End Sub
Ecco mi serviva sapere questo!
Grazie mille.
--
Debora

quindi la prossima volta (se ci sarà) fallo, seguimi dall'inizio.
L'ho fatto, è stato quello l'errore , avrei dovuto lasciare che qln
andasse avanti per me e  facesse lui la figura dell'idiota :-) .
Ciao. Fabrizio

 andasse avanti per me e  facesse lui la figura dell'idiota :-) .
questa frase mi ha amareggiata tantissimo, anche se hai messo la faccina!
Qui non ce nessuno idiota! Ho sempre pensato che fossi un ragazzo
intelligente, ma... che dici, sono stata troppo frettolosa nel giudicarti
tale?
Non credo.
Ti ho voluto dedicare mezzora di una mia domenica, pensa stavo
uscendo ma non ho resistito alla tentazione di
risponderti a caldo.
In questo NG ci sn 7, 8 persone che rispondono sistematicamente
alle risposte di noi "ignoranti", lo fanno senza fare grosse storie,
se non capiscono chiedono spiegazioni o di integrare il post,
tu invece sei una lagna almeno con me lo sei stato.
Probabilmente non ti sn molto simpatica, forse per niente,
se non ti va di leggere i miei 3d's NON FARLO PIU'
non mi offendo, ma tienitelo x te, che gli frega altri
se non capisci i miei 3d's.
Non mi vuoi più aiutare? Non farlo, non sei obbligato
e nessuno mai ti obbligherà a farlo.
Concludo ricordandoti che io non ho niente contro
di te. Ti saluto.
--
Debora
P.S. Se ti sembra che non sia chiaro il messaggio
fammi sapere, proverò ad integrare!

di te. Ti saluto.
Ne io contro di te :
-Ieri parlavo di te a mia moglie , lei pensa che tu abbia ragione .
-Ero tentato di risponderti in privato , essendo più che OT , ma ho
deciso di espormi a publico ludibrio e dare la misura di quello che
sono.
Credo riceverai qlc adesione , ricordati solo che la prima è la mia.
;-)
Ciao. Fabrizio

 di te. Ti saluto.
Vabbeh, adesso dateve un bacetto
Fabrizio, non approfittarne per toccare...
Antonio


wrote:

Azz sei già tornato .... non ho ancora fatto in tempo a sedurla , ma
mi sa che sto scegliendo la strada sbagliata .... :-))) 
Cmq c'avrei giurato che l'avresti detto : c'hai una fissa te per i
baci. :-)
Ciao. Fabrizio

"Fabrizio" <fabrizio...@SPAMtiscalinet.it> ha scritto nel messaggio
news:7fhuous84shmb1ilt...@4ax.com...

Beh... ma io devo anche mediare, fare da paciere...
e che c'è di meglio per pacificarsi che un bel bacio?
Fabrizio, ora però tira dentro quella lingua!!!
Antonio


Ben tornato Antò.
Ciao. Fabrizio