Access - Cuadro combinado

 
Vista:

Cuadro combinado

Publicado por Imma (27 intervenciones) el 19/05/2005 10:16:49
Hola,
Tengo un cuadro combinado que me sirve para rellenar unos campos en el formulario, necesito que cuando el registro no existe en el cuadro combinado el mismo cuadro me lo guardo. Ahora cuando escribo un nombre en el cuadro que no existe no me lo guarda.
¿Alguien me puede ayudar?
Gracias,
Imma
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
sin imagen de perfil
Val: 32
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

RE:Cuadro combinado

Publicado por juliocalvache (95 intervenciones) el 19/05/2005 16:15:27
Analiza este codigo y adaptalo a tu programa..
El evento del combo es "al no estar en la lista"

Private Sub IdCliente_NotInList(NewData As String, Response As Integer)
If MsgBox("¿ Cliente no existe, Desea Incluirlo ?", vbQuestion + vbYesNo + vbDefaultButton2, "Atención") = vbYes Then
Dim Rs As Recordset
Dim IdClie As Integer
Set Rs = CurrentDb.OpenRecordset("Clientes")
Rs.AddNew
Rs!NomCliente = Me.IdCliente.Text
IdClie = Rs!IdCliente
Rs.Update
Rs.Close
Me.IdCliente.Undo
Me.IdCliente.Requery
Me.IdCliente = IdClie
Me.ProximoCampo.SetFocus
endif
Response = acDataErrContinue
End Sub
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