Alguien me ayuda con este código???
Publicado por hell (63 intervenciones) el 01/06/2004 11:53:59
Wenas amig@sss!!
Tengo el siguiente código, pero me da un error y me dice lo siguente: "Error de sintaxis en la clausula FROM".
Alguien me puede decir que es lo que esta mal???
Private Sub Comando6_Click()
Dim strsql As String
On Error GoTo Err_Comando6_Click
DoCmd.SetWarnings False
strsql = "DELETE FROM Relación usuarias-actividades WHERE Cod_usuaria =" & Me.combinado4
If MsgBox("¿Está segur@?", vbOKCancel) = vbOK Then
DoCmd.RunSQL strsql
End If
DoCmd.SetWarnings True
Exit_Comando6_Click:
Exit Sub
Err_Comando6_Click:
MsgBox Err.Description
Resume Exit_Comando6_Click
End Sub
Mutxisimas gracias!!
Saludos!
Tengo el siguiente código, pero me da un error y me dice lo siguente: "Error de sintaxis en la clausula FROM".
Alguien me puede decir que es lo que esta mal???
Private Sub Comando6_Click()
Dim strsql As String
On Error GoTo Err_Comando6_Click
DoCmd.SetWarnings False
strsql = "DELETE FROM Relación usuarias-actividades WHERE Cod_usuaria =" & Me.combinado4
If MsgBox("¿Está segur@?", vbOKCancel) = vbOK Then
DoCmd.RunSQL strsql
End If
DoCmd.SetWarnings True
Exit_Comando6_Click:
Exit Sub
Err_Comando6_Click:
MsgBox Err.Description
Resume Exit_Comando6_Click
End Sub
Mutxisimas gracias!!
Saludos!
Valora esta pregunta


0