Anónimo
Actualizar Campo con Campos Concatenados
Dim StrSQL As String Dim rst As DAO.Recordset Dim nregistros As Long Dim CONSULTA As String StrSQL = "UPDATE REPORTES SET IDUNICO='[reportes]![COD_LOTE]&[reportes]![NAPC]'" DoCmd.SetWarnings False CurrentDb.Execute StrSQL, dbFailOnError DoCmd.SetWarnings True
Hola jacinto otra vez pidiendo tu apoyo,
Estoy tratando de crear una consulta de actualizacion para un campo que llamare IdUnico, pero este debe ser el resultado de la union de los campos COD_LOTE y NAPC, comence con el codigo referenciado pero al correrlo en el boton me pega los siguiente
1 respuesta
Julio: En el Evento Click del Botón que me dices pones>>
Private Sub BtnIdUnico_Click()
Dim StrSQL As String
StrSQL = "UPDATE Reportes SET Reportes.IdUnico = [Reportes]![COD_LOTE] & [Reportes]![NAPC];"
DoCmd.SetWarnings False
CurrentDb.Execute StrSQL, dbFailOnError
DoCmd.SetWarnings True
MsgBox "Los Datos del Campo IdUnico se han generado",VbInformation, "DATOS ACTUALIZADOS"
End Sub
Dime si te ha funcionado. Saludos >> Jacinto
¡Gracias!
Como siempre jaciento gracias esta confundido de como se realiza me disculparas esta y otras más.
Saludos,
Julio