Botón de Vaciar Campo ACCESS
Hola..., estoy queriendo hacer un código para un comando que sea capaz de borrar todo el contenido de un campo, dando nobmre de tabla y campo... El tema es que no se como escribir la variable al momento de asignar "" a todo el campo. En fin... Alguien me dirá como! Gracias
Dim TABLA As String
Dim CAMPO As String
TABLA = InputBox("Escriba el nombre de la tabla que contiene el campo a borrar", "Borrando")
CAMPO = InputBox("escriba el campo a borrar su contenido totalmente", "Campo a Vaciar")
CAMPO = "rs.Fields(" & CAMPO & ")"
Set rs = CurrentDb.OpenRecordset("SELECT * FROM " & TABLA, dbOpenDynaset)
rs.MoveFirst
Do While Not rs.EOF
rs.Edit
CAMPO = ""
rs.Update
rs.MoveNext
Loop
MsgBox "Se completo la operacion de actualizacion", , "Listo..."
rs.Close
Set rs = Nothing
1 Respuesta
Respuesta de xavi -ae soft-
1
Lo complicas de narices...
(Obviando declaración de variables)
Opción 1: con el recordset (este casi lo tenias)
Set rs = CurrentDb.OpenRecordset("SELECT " & strCampo & " FROM " & strTabla)
Do Until rs.EOF
rs.Edit
rs(strCampo) = Null
rs.Update
Loop
rs.Close
Set rs = Nothing
Opción 2: con una consulta de actualización (o sea, con una sola línea)
CurrentDb.Execute "UPDATE " & strTabla & " SET " & strCampo & " = Null"
