quisiera hacer un update, pero no se si estoy haciendo lo correcto.
Código:
me da: error de sintaxis (falta operador) en la esprecion de consulta 'Id'Option Explicit Enum EACCION AGREGAR_REGISTRO = 1 EDITAR_REGISTRO = 0 End Enum Public IdRegistro Public ACCION As EACCION Private Sub Command1_Click() On Error GoTo ErrorSub ' Valida el Nombre que no este vacio '''''''''''''''''''''''''''''''' If Trim(cmbnombre) = "" Then MsgBox "El Nombre de registro no puede estar vacio", vbCritical, "Datos incompletos" cmbnombre.SetFocus Exit Sub End If 'Agrega el registro ''''''''''''''''''''''''''''''' Select Case ACCION Case EDITAR_REGISTRO cnn.Execute "UPDATE Personas set Nombre = '" & cmbnombre & _ "', Tratamientos = '" & cmbtrat & _ "', Precios = '" & lblttotal & _ "' where Id = " & IdRegistro & "" Case AGREGAR_REGISTRO cnn.Execute "INSERT INTO Personas " & "(Nombre,Tratamientos,Precios,Fecha) VALUES('" & _ cmbnombre & "','" & _ cmbtrat & "','" & _ lblttotal & "','" & _ Format(Date, "dd/mm/yyyy") & "')" End Select rs.Requery 1 DoEvents Unload Me Set frmnv = Nothing Exit Sub ErrorSub: MsgBox Err.Description End Sub
gracias