hola soy nuevo en esto pero necesito ayuda,
En un cuadro combinado tengo 3 opciones, en tramite, cancelado, concluido
cuando le doy en concluido quiero que se guarde un otra tabla esos datos, así que tengo esto:
Código:
Private Sub Cuadro_combinado65_Change()
If Me.Cuadro_combinado65 = "Concluido" Then
strSQL = "INSERT INTO Etapa2 (NUMERO_REGISTRO, ORGANISMO,[AREA DE ASIGNACION], SECCION, NIVEL, CATEGORIA, PUESTO, [REQUERIMIENTO PROFESIONAL], CLASIFICACION, [NUMERO DE PLAZA], [ID BTI], GRUPO, SELECCIONADO, FICHA, PROFESION, [REGIMEN CONTRACTUAL], [ANTIGUEDAD EN AÑOS], [ANTIGUEDAD EN DIAS],[ESTATUS ACTUAL], [FECHA DE RECEPCION])"
strSQL = strSQL & "SELECT " & lngSiguiente & ", '" & Me.ORGANISMO & "', '" & Me.AREA_DE_ASIGNACION & "', '" & Me.SECCION & "', '" & Me.NIVEL & "', '" & Me.CATEGORIA & "', '" & Me.PUESTO & "', '" & Me.REQUERIMIENTO_PROFESIONAL & "', '" & Me.CLASIFICACION & "', '" & Me.[NUMERO DE PLAZA] & "', '" & Me.[ID BTI] & "', '" & Me.GRUPO & "', '" & Me.CANDIDATO & "', '" & Me.FICHA & "', '" & Me.PROFESION & "','" & Me.REGIMEN_CONTRACTUAL & "', '" & Me.ANTIGUEDAD_EN_AÑOS & "', '" & Me.ANTIGUEDAD_EN_DIAS & "','" & Me.ESTADO & "', '" & Me.FECHA_DE_RECEPCION & "'"
strSQL = strSQL & "FROM Etapa1"
CurrentDb.Execute strSQL, dbFailOnError
Me.Requery
DoCmd.GoToRecord , , acLast
End If
End Sub
me manda un mensaje de error el cual es el siguiente:
Se ha producido el error '3134' en tiempo de ejecucion:
Error en la instruccion INSERT INTO
ya lo hice en un boton y si me funciono perfectamente, pero cuando el codigo lo cambio al cuadro combinado me manda el error
que hago!!!!
muchas gracias por su ayuda!!!!
PD: Trabajo en VBA Access 2007