Como eliminar registros desde excel a Access utilizando un Formulario
Necesito de su ayuda tengo un formulario con un textbox y un botón en excel para enviar información hacia access y me da un error estoy utilizando otro código
'Formulario
Option Explicit
Private Function SQL_DELETE()
Dim Borrar As String
Borrar = TextBox1
SQL_DELETE = "DELETE * FROM TB_CLIENTES WHERE ID=Borrar "
End Function
Private Sub CMDDELETE_CLICK()
ELIMINAR
If Sx = True Then MsgBox "DATO ELIMINADO SATIFACTORIAMENTE", vbInformation
If Sx = False Then MsgBox Msg_Err, vbCritical
End Sub
Sub ELIMINAR()
On Error GoTo salir
Cnn.Execute SQL_DELETE(), adCmdText
Sx = True
Exit Sub
salir:
Sx = False
Msg_Err = Err.Description
Err.Clear
End Sub
'Modulo
Sub Conectar()
Set Cnn = New ADODB.Connection
On Error GoTo Saltar
With Cnn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.ConnectionString = "Data Source=" & ThisWorkbook.Path & "\DDBB.accdb"
.Open
End With
Exit Sub
Saltar:
Msg_Err = Err.Description
Err.Clear
End Sub
Sub Desconectar()
If Cnn.State = 1 Then
Cnn.Close
Set Cnn = Nothing
End If
End Sub