Ver Mensaje Individual
  #2 (permalink)  
Antiguo 11/10/2004, 02:21
Teri
 
Fecha de Ingreso: abril-2003
Ubicación: Madrid
Mensajes: 707
Antigüedad: 21 años, 9 meses
Puntos: 0
Prueba a hacerlo así:

Private Sub Loeschen_Click()

Dim DB As Database
Dim cSql as String

csql = "DELETE * FROM tb_Rf_Nummer WHERE Satz_ID = " & Me![ID_Rf_Satz] & ";"
set db = currentdb()

db.execute csql, dbfailonerror

End Sub


Un saludo