Discussione:
Come si fa per cancellare i record da VBA
(troppo vecchio per rispondere)
pabel
2004-01-24 08:15:06 UTC
Permalink
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
2004-01-24 08:27:45 UTC
Permalink
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.
--
Posted via Mailgate.ORG Server - http://www.Mailgate.ORG
pabel
2004-01-24 08:57:12 UTC
Permalink
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
2004-01-24 09:25:03 UTC
Permalink
"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.
--
Posted via Mailgate.ORG Server - http://www.Mailgate.ORG
pabel
2004-01-24 11:45:28 UTC
Permalink
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
2004-01-24 10:04:23 UTC
Permalink
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
2004-01-24 11:48:53 UTC
Permalink
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
2004-01-24 17:14:30 UTC
Permalink
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
--
\ /_ _ : _ _
\/(_|/_|| | |
mail me : vazim_dot_net_at_virgilio_dot_it
view me : http://www.vazim.net
Loading...