pabel
2004-01-24 08:15:06 UTC
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
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