Come si fa per cancellare i record da VBA

[pabel]

Ciao a tutti sono uno che non sa usare il vba.
Vi spiego brevemente il mio problema, ho creato un gestionale che ho messo
in internet in forma gratuita per raccogliere fondi per una valida causa,
per renderlo più comprensivo ho inserito alcuni dati campione, molti però mi
scrivono su come fare per eliminarli, volevo quindi creare un pulsante che
automaticamente lo facesse, ho trovato nel sitocomune questa Function che
non riesco ad far funzionare, supponendo che io volessi con un pulsante su
clic, eliminare i dati nella tabella (fatture) cosa devo scrivere?
Public Function SvuotaTab(nomeTab As String)
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM " & nomeTab & ";"
DoCmd.SetWarnings True
End Function

'OPPURE

Function SvuotaTabella(strTab As String)
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset(strTab)
With rst
If rst.RecordCount > 0 Then
.MoveFirst
Do
.Delete
.MoveNext
Loop Until .EOF
End If
.Close
End With
Set dbs = Nothing
End Function
Molte gazie a quelli che mi possono aiutarePabel

[Alessandro Baraldi]

Post by pabel
Ciao a tutti sono uno che non sa usare il vba.
Vi spiego brevemente il mio problema, ho creato un gestionale che ho messo
in internet in forma gratuita per raccogliere fondi per una valida causa,
per renderlo più comprensivo ho inserito alcuni dati campione, molti però mi
scrivono su come fare per eliminarli, volevo quindi creare un pulsante che
automaticamente lo facesse, ho trovato nel sitocomune questa Function che
non riesco ad far funzionare, supponendo che io volessi con un pulsante su
clic, eliminare i dati nella tabella (fatture) cosa devo scrivere?
Public Function SvuotaTab(nomeTab As String)
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM " & nomeTab & ";"
DoCmd.SetWarnings True
End Function
'OPPURE

La seconda Function lasciala perdere.

Nell'Evento Click del Pulsante che inserirai devi richiamare
la Funzione SvuotaTab in che modo:

Supponi che il CommandButton si chiami cmdDeleteAll

Private Sub cmdDeleteAll_Click()
SvuotaTab "Fatture"
End Sub

Ciao.
@Alex.

[pabel]

Post by Alessandro Baraldi

Post by pabel
Ciao a tutti sono uno che non sa usare il vba.
Vi spiego brevemente il mio problema, ho creato un gestionale che ho messo
in internet in forma gratuita per raccogliere fondi per una valida causa,
per renderlo più comprensivo ho inserito alcuni dati campione, molti però mi
scrivono su come fare per eliminarli, volevo quindi creare un pulsante che
automaticamente lo facesse, ho trovato nel sitocomune questa Function che
non riesco ad far funzionare, supponendo che io volessi con un pulsante su
clic, eliminare i dati nella tabella (fatture) cosa devo scrivere?
Public Function SvuotaTab(nomeTab As String)
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM " & nomeTab & ";"
DoCmd.SetWarnings True
End Function
'OPPURE

La seconda Function lasciala perdere.
Nell'Evento Click del Pulsante che inserirai devi richiamare
Supponi che il CommandButton si chiami cmdDeleteAll
Private Sub cmdDeleteAll_Click()
SvuotaTab "Fatture"
End Sub
Ciao.
@Alex.

Grazie ma scrivendo cosi..
Private Sub Comando0_Click()
SvuotaTab "fatture"
End Sub

Mi viene questo errore: Sub o function non definita
Ancora grazie Pabel

[Alessandro Baraldi]

"pabel" <***@hotmail.com> wrote in message news:IrqQb.180323$***@news4.tin.it
[CUT]

Post by pabel

Post by Alessandro Baraldi

Post by pabel
Public Function SvuotaTab(nomeTab As String)
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM " & nomeTab & ";"
DoCmd.SetWarnings True
End Function
'OPPURE

La seconda Function lasciala perdere.
Nell'Evento Click del Pulsante che inserirai devi richiamare
Supponi che il CommandButton si chiami cmdDeleteAll
Private Sub cmdDeleteAll_Click()
SvuotaTab "Fatture"
End Sub
Ciao.
@Alex.

Grazie ma scrivendo cosi..
Private Sub Comando0_Click()
SvuotaTab "fatture"
End Sub
Mi viene questo errore: Sub o function non definita
Ancora grazie Pabel

Ma hai inserito la 1° Funzione che accennavi ill'interno di un Modulo..?

Public Function SvuotaTab(nomeTab As String)
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM " & nomeTab & ";"
DoCmd.SetWarnings True
End Function


Se hai difficoltà fai così:

Private Sub Comando0_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM Fatture;"
DoCmd.SetWarnings True
End Sub

Ciao.
@Alex.

[pabel]

Cut

Post by pabel
Private Sub Comando0_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM Fatture;"
DoCmd.SetWarnings True
End Sub
Ciao.
@Alex.
--
Posted via Mailgate.ORG Server - http://www.Mailgate.ORG

Ok ora funziona, ti ringrazio.
Pabel

[Vazim]

Post by pabel

Post by Alessandro Baraldi

Post by pabel
Ciao a tutti sono uno che non sa usare il vba.
Vi spiego brevemente il mio problema, ho creato un gestionale che ho

messo

Post by Alessandro Baraldi

Post by pabel
in internet in forma gratuita per raccogliere fondi per una valida

causa,

Post by Alessandro Baraldi

Post by pabel
per renderlo più comprensivo ho inserito alcuni dati campione, molti

però mi

Post by Alessandro Baraldi

Post by pabel
scrivono su come fare per eliminarli, volevo quindi creare un pulsante

che

Post by Alessandro Baraldi

Post by pabel
automaticamente lo facesse, ho trovato nel sitocomune questa Function

che

Post by Alessandro Baraldi

Post by pabel
non riesco ad far funzionare, supponendo che io volessi con un pulsante

su

Post by Alessandro Baraldi

Post by pabel
clic, eliminare i dati nella tabella (fatture) cosa devo scrivere?
Public Function SvuotaTab(nomeTab As String)
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM " & nomeTab & ";"
DoCmd.SetWarnings True
End Function
'OPPURE

La seconda Function lasciala perdere.
Nell'Evento Click del Pulsante che inserirai devi richiamare
Supponi che il CommandButton si chiami cmdDeleteAll
Private Sub cmdDeleteAll_Click()
SvuotaTab "Fatture"
End Sub
Ciao.
@Alex.

Grazie ma scrivendo cosi..
Private Sub Comando0_Click()
SvuotaTab "fatture"
End Sub
Mi viene questo errore: Sub o function non definita
Ancora grazie Pabel

Scusa sarei interesseto a dare un occhiata al gestionale di cui parlavi.

Mi daresti l'url.

[pabel]

Cut

Post by Vazim
Scusa sarei interesseto a dare un occhiata al gestionale di cui parlavi.
Mi daresti l'url.

Non so se posso postarlo in un NG, se mi dai la tua email.
Ho provato con rispondi al mittente, ma mi ritorna.

[Vazim]

Post by pabel
Cut

Post by Vazim
Scusa sarei interesseto a dare un occhiata al gestionale di cui parlavi.
Mi daresti l'url.

Non so se posso postarlo in un NG, se mi dai la tua email.
Ho provato con rispondi al mittente, ma mi ritorna.

scusa avevo dimneticato il dot net