Cuadro combinado me deja escribir pero no se graba en la otra tabla
Publicado por jose leon (2 intervenciones) el 25/02/2014 22:29:27
Buenas noches, tengo dos cuadros combinados en un formulario y quiero poder escribir en ellos y a su vez se guarde tambien en otra tabla.
tabla CENTROS
registro CENTROS
tabla NOMBRE
registro NOMBRE
tabla PRUEBASOLICITADA
registros ID_PRUEBASOLICITADA
NOMBRE
CENTRO
DIA
Formulario con dos cuadros combinados.
AL NO ESTAR EN LA LISTA:
Private Sub cmbPRUEBASOLICITADA_NotInList(NewData As String, Response As Integer)
If MsgBox("No está en la lista ¿Quiere darlo de alta?", vbYesNo) = vbYes Then
Response = acDataErrContinue
Me.cmbPRUEBA_SOLICITADA = NewData
DoCmd.RunSQL "Insert Into CENTROS (CENTROS) values ('" & NewData & "')"
Me.cmbPRUEBA_SOLICITADA.Requery
Else
Response = acDataErrContinue
Me.cmbPRUEBA_SOLICITADA = ""
End If
End Sub
Si alguien me puede ayudar se lo agradecería, un saludo
tabla CENTROS
registro CENTROS
tabla NOMBRE
registro NOMBRE
tabla PRUEBASOLICITADA
registros ID_PRUEBASOLICITADA
NOMBRE
CENTRO
DIA
Formulario con dos cuadros combinados.
AL NO ESTAR EN LA LISTA:
Private Sub cmbPRUEBASOLICITADA_NotInList(NewData As String, Response As Integer)
If MsgBox("No está en la lista ¿Quiere darlo de alta?", vbYesNo) = vbYes Then
Response = acDataErrContinue
Me.cmbPRUEBA_SOLICITADA = NewData
DoCmd.RunSQL "Insert Into CENTROS (CENTROS) values ('" & NewData & "')"
Me.cmbPRUEBA_SOLICITADA.Requery
Else
Response = acDataErrContinue
Me.cmbPRUEBA_SOLICITADA = ""
End If
End Sub
Si alguien me puede ayudar se lo agradecería, un saludo
Valora esta pregunta


0