Public Function fVacíaTabla(Nombretabla As String) As Boolean
On Error GoTo err_fVacíatabla
 DoCmd.SetWarnings False
 Dim VacíaTabla As String, mibd As Database
    Set mibd = CurrentDb()
        VacíaTabla = "DELETE [" & Nombretabla & "].* FROM [" & Nombretabla & "];"
        mibd.Execute VacíaTabla
        mibd.Close
        Set mibd = Nothing
DoCmd.SetWarnings True
fVacíaTabla = True
exit_fVacíatabla:
    Exit Function
err_fVacíatabla:
    fVacíaTabla = False
    Resume exit_fVacíatabla
End Function