Borrar registros de tablas en Access desde VB

hola, alguien sabe como puedo borrar todos los registros de una tabla de access desde VB pero udejando un solo registro para que cuando corra mi aplicacion y use esta tabla no me genere un error por falta de datos? espero alguien sepa como hacerle. gracias..

Lo mas fasil es mediante SQL

query =" Delete [tabla] where [Condicion]"

Recodset.open Query, etc.....

La otra forma es

Recodrset.delete
Esta es una propiedad del recodset

me parece tocayo que no te has enterado

¡que no quiere borrar todos los registros!

¡y tampoco uno solamente!

Ya lo se pero eso es algo que no se puede depender el programa debe de ser validaddo si no encuentradatos en la tabla , ya que por etica o en realidad por logica no debemos de tener registros en blanco ni campos null.
No lo crees asi tocayo.

HOLA MEN, TU ESCRIBISTES UN CODIGO PARA BORRAR DATOS DE ACCES DESDE VIUSUAL BASIC,
ESTOY ASIENDO UN TALLERCITO EN EL INSTITUTO , Y NO E PILLADO EL CODIGO BIEN COMO PARA BORRAR DATOS DE LA TABLA , DESDE MI PROGRAMA, AGREGO Y TODO BIEN...


ESPERO TU AYUDA.

va para que todo te funcione bien coloca este codigo
Private Sub Command1_Click()
Adodc1.Recordset.Delete

End Sub

te eliminara registro por registro y al eliminar uno le das ver los demas y te daras cuenta q ia no vas a encontrarlo

Esta un poco atrazado pero por si le sirve a alguien... Saludos desde Hualqui


While Data.rsTabla.RecordCount > 0
Data.rsTabla.MoveFirst
Data.rsTabla.Delete

If Data.rsTabla.RecordCount = 0 Then Exit Sub
Data.rsTabla.MoveNext
Wend

Si deseas dejar 1 registro solo cambia el valor 0 po 1 Saludos...


Aunque no deberia por que mandarte error dejando en 0 la tabla como tu dices, pero cualquier duda solo consulta.

Tengo una bd en Acces y quisiera un codigo de visual basic o consulta para borrar registros de una tabla en una columna de ella en acces que contenga cierto y determinados digidos dentros, ejemplo la columna tiene digitos que de hasta 7 dijitos pero tiene de 13 los de 13 los quiero dejar intancto y los de hasta 7 borrarlos todos