Newsgroup: it.comp.appl.access
Titolo: Query di eleiminazione.......

Salve ragazzi un altra domanda ad un problema che mi sono creato da
solo.....
ho una maschera  con due caselle di testo dove immetto le date
rispettivamente di inizio ,è fine in modo che la query(di eliminazione) mi
elimini i record compresi tra le due date è funziona bene ma quello che
vorrei attuare è che al lancio della query tramite un Msgbox  il Numero di
record che verranno definitivamente eliminati è di confermare cioè ok oppure
annulla.........
Si puo' realzzare.?!?
-- 
Grazie dei vostri conisgli ,
Gianni_B

 ha scritto nel messaggio
news:401fa331$1...@news.bluewin.ch...

Potresti provare a riscrivere il tutto in italiano, considerando quelle cose
tipo ortografia, periodi, segni di punteggiatura ecc. ?
Antonio

 ha scritto nel messaggio
news:401fa331$1...@news.bluewin.ch...

Il modo più facile è quello di abilitare la caselle di controllo Query di
comando in Strumenti => Opzioni => Modifica/Trova => Conferma.
Quindi, prima di eseguire la query di cancellazione esegui:
DoCmd.SetWarnings True
Così facendo Access, prima di eseguire la query di cancellazione,
visualizzerà due finestre di dialogo per chiedere conferma che si voglia
effettivamente effettuare la cancellazione: nella seconda finestra indicherà
anche quanti sarebbero i record cancellati.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:ytPTb.11758$U4.4...@twister1.libero.it...

 Grazie Roberto della tua risposta ci avevo pensato anchio a questa
soluzione..... ma non la  trovo molto simpatica ........ non è possibile
tramite una funzione if farlo in una Msgbox..?!
è possibile poter contare i record che verrano eliminati tramite un
DCount.?!?


 ha scritto nel messaggio
news:f8PTb.11720$U4.4...@twister1.libero.it...

 Beh  Antonio Biso ops o meglio Signor  Biso,(non vorrei che mi dicessi che
sono anche maleducato) se volevo lezioni di Italiano credo che cambiavo
News.....
ho letto quello che ho scritto nel mio precedente messaggio è non credo che
per un Italiano sia  che conosce la lingua italiana molto meglio di me sia
incomprensibile beh qualche virgola o qualche punto che mancano ci sono lo
ammetto ma non credo che questo vuol dire che sia cosi male come tu ops LEI
lo abbia descritto.....
grazie comunque della lezione.......
Gianni_B

 grazie comunque della lezione.......
Vedi ciccio, se io fossi uno che rompe solo le palle (cosa che comunque
faccio, ok) e non aiutassi molte persone (cosa altrettanto fatta), allora il
tuo "incazzolirti" potrebbe avere anche una ragione di esistere, ma visto
che non č cosě, scusa se ho cercato di capire il tuo problema e vedi di
arrangiarti per cavoli tuoi!!!
Antonio

 ha scritto nel messaggio
news:bgRTb.12053$U4.4...@twister1.libero.it...

 Beh Antonio la mia non era una provocazione ma solo una batuta fatta ad un
amico (dato che anche tu mi hai aiutato tanto) non mi sono incazolato come
hai detto tu ....
Scusami se ho fatto capire il contrario vuol dire che oltre al mio pessimo
italiano ho sono dotato anche da un pessimo modo di scherzare....
Gianni_B

 Gianni_B
Certo che si può, ma era solo per lavorare di meno. ;-)
Se la maschera si chiama Maschera1 e le due caselle di testo in essa
contenute si chiamano rispettivamente DataInizio e DataFine.
Se la tabella che contiene i record da cancellare si chiama Tabella1.
Se il campo di tipo Data/ora contenuto in Tabella1 ed in base al quale devi
fare la selezione dei record da cancellare si chiama MiaData.
A fronte dell'evento "Su clic" di un pulsante di comando inserito in
Maschera1 genera il seguente codice VBA:
Dim ContaRec As Long
Dim strSQL As String
strSQL = "DELETE * FROM Tabella1 " & _
"WHERE MiaData >= #" & Format(Me!DataInizio, _
"mm/dd/yyyy") & "# AND MiaData <= #" _
& Format(Me!DataFine, "mm/dd/yyyy") & "#;"
ContaRec = DCount("*", "Tabella1", _
"MiaData >= #" & Format(Me!DataInizio, _
"mm/dd/yyyy") & "# AND MiaData <= #" _
& Format(Me!DataFine, "mm/dd/yyyy") & "#")
If ContaRec = 0 Then
    MsgBox "Non esistono record compresi " _
    & "tra le due date", vbInformation, _
    "Cancellazione record"
Else
    If MsgBox("Vuoi cancellare " & ContaRec _
    & " records?", vbYesNo, "Cancellazione record") _
    = vbYes Then
        DoCmd.SetWarnings False
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
        MsgBox "Sono stati cancellati " & ContaRec _
        & " records!", vbInformation, _
        "Canellazione record"
    Else
        MsgBox "Non hai voluto cancellare alcun record", _
        vbInformation, "Cancellazone record"
    End If
End If
A questo punto api Maschera1, digita la data di inizio e fine periodo e
pigia il pulsante di comando.


 italiano ho sono dotato anche da un pessimo modo di scherzare....
Perfetto, cerchiamo di rilassarci un po' di più tutti....
Antonio

 ha scritto nel messaggio
news:401fa331$1...@news.bluewin.ch...

Puoi inserire il seguente codice, nel punto in cui ti sever...
Dim apri As New ADODB.Recordset
Dim NumeroRecord As Double
Dim scelta As String
apri.Open "Select Cliente1.ID FROM Cliente1 WHERE (((Cliente1.ID) Between 1
And 2))", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
NumeroRecord = apri.RecordCount
apri.Close
scelta = MsgBox("Sei veramente sicuro di voler cancellare n." &
NumeroRecord, vbDefaultButton2 + vbYesNo + vbInformation, "Conferma...")
If scelta = vbYes Then
    'Scelta Si
    apri.Open "DELETE Cliente1.ID FROM Cliente1 WHERE (((Cliente1.ID)
Between 1 And 2))", CurrentProject.Connection, adOpenKeyset,
adLockOptimistic
Else
    'Scelta No
End If
Fammi sapere se ti è servito.