Newsgroup: it.comp.appl.access
Titolo: per Roberto da casa query elimin....

ciao Roberto la funzione che mi hai suggerito .....
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
non capisco perchč mi porta sempre un errore .............
Errore di sintassi  nell'espressione della query
"MiaData..........ecc.........ecc (mi visualizza la data di inizio č
fine............
Ciao
Gianni _B

 ha scritto nel messaggio
news:40242859$1...@news.bluewin.ch...

Non ho capito dove e quando Access ti segnala errore di sintassi.
Per scupolo ho provato la soluzione che ti ho consigliato con il mio
messaggio del 3/2/2004 ore 19:27 ed a me non viene segnalato alcun errore;
mi dispiace ma non so cosa ipotizzare se non il fatto che tu abbia copiato
male.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Beh allora io credo che il mio problema lo esposto male l'ultima
volta................
Io ho una query di eliminazione che lancio da una maschera "Elimina record"
che ha due caselle di testo "DataInizio", "DataFine" nella query  nel campo
"Datum" ho scritto come criteri:  Between [Forms]![Elimina
record]![DataInizio] And [Forms]![Elimina record]![DataFine].
Mentre nella maschera "Elimina record" ho un pulsante di comando che
sull'evento click mi lancia la query di eliminazione qui sotto riporto il
codice
del pulsante di comando.
Private Sub Comando4_Click()
On Error GoTo Err_Comando4_Click
    Dim stDocName As String
    stDocName = "Copia_Sicurezza Query"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    DoCmd.Close acForm, "loschen", acSaveNo
Exit_Comando4_Click:
    Exit Sub
Err_Comando4_Click:
    MsgBox Err.Description
    Resume Exit_Comando4_Click
End Sub
Io quello che vorrei come ho detto prima poter avere la possibbilita di
scegliere
se voglio cancellare i record è visualizzare i record compresi tra le due
date, senza
usare il messagio predefinito di Access.
il codice che hai scritto sopra lo trovo davvero fantastico ma non rieco a
farlo funzionare....
Grazie come sempre Roberto della tua pazienza.
-- 
Grazie dei vostri conisgli ,
Gianni_B

 ha scritto nel messaggio
news:40255...@news.bluewin.ch...

Se per eliminare i record vuoi usare la query  Copia_Sicurezza Query, nel
codice VBA che ti ho suggerito elimina:
Dim strSQL As String
strSQL = "DELETE * FROM Tabella1 " & _
"WHERE MiaData >= #" & Format(Me!DataInizio, _
"mm/dd/yyyy") & "# AND MiaData <= #" _
& Format(Me!DataFine, "mm/dd/yyyy") & "#;"
e sostituisci la riga:
DoCmd.RunSQL strSQL
con:
DoCmd.OpenQuery "Copia_Sicurezza Query", acNormal, acEdit
DoCmd.Close acForm, "loschen", acSaveNo
Se continui ad avere segnalato degli errori non saprei proprio come
aiutarti.
