Access - Actualizar campos

 
Vista:

Actualizar campos

Publicado por eperez (5 intervenciones) el 19/08/2004 09:51:46
Buenos días, tengo el siguiente problema: al actualizar dos campos de una tabla desde otra, cuando uno de los dos campos están vacíos no me lo hace. El código que uso es el siguiente:

Private Sub Comando58_Click()
Dim base As Database
Dim registro1 As Recordset
Dim miquery1 As QueryDef
Dim stdocname As String
Set base = CurrentDb()
Set miquery1 = base.CreateQueryDef("")
With miquery1
.SQL = " select * from [tabla1] "
Set registro1 = miquery1.OpenRecordset()
End With
If registro1.BOF Then
MsgBox "No hay datos para actualizar"
Exit Sub
Else
registro1.MoveFirst
Do While Not registro1.EOF
indicador_buscar = registro1!Num_indicador
If IsNull(registro1!campo1) Then
variable1 = ""
Else
variable1 = registro1!campo1
End If
If IsNull(registro1!campo2) Then
variable2 = ""
Else
variable2 = registro1!campo2
End If
base.Execute "UPDATE tabla2 SET campo1 = " & "'" & variable1 & "'" & _
",campo2 = " & "'" & variable2 & "'" & " WHERE Num_indicador = " & indicador_buscar
registro1.MoveNext
Loop
End If
MsgBox "Operación terminada"
End Sub

No me da error, pero cuando algún registro uno de los campos a actualizar en blanco, la instruccción execute no se realiza.

Si alguien me puede ayudar, se lo agradecería mucho.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Actualizar campos

Publicado por eperez (5 intervenciones) el 19/08/2004 11:51:47
Gracias, pero ya he visto el error. Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar