URGENTE cuadroCombinad
Publicado por alberto (1 intervención) el 23/05/2003 12:11:41
hola me ocurre una cosa a ver si me la puedes solucionar ya que somos paisanos.
Tengo el siguiente codigo:
Private Sub CuaComCargo_NotInList(NewData As String, Response As Integer)
Dim strMensaje As String, verdadero As Byte, Mensaje As String, vbCodigoCargo As String
'Public vbCodigoCargo As String
Dim dbs As Database
Dim rstCargos As Recordset
Dim numeros As String
strMensaje = "¿Está seguro que desea añadir '" & NewData & "' a la lista de cargos?"
If Confirmar(strMensaje) Then
'Abre la tabla Cargos y añade el nuevo valor preguntando antes por la clave principal
Set dbs = CurrentDb()
Set rstCargos = dbs.OpenRecordset("CARGOS_INDEPENDIENTES")
'vbCodigo = InputBox("Para dar de alta en la lista a este elemento tiene que introducir el Codigo Cargo obligatoriamente")
Mensaje = "Para dar de alta este elemento en la lista tiene que introducir su Correspondiente Codigo Cargo"
MostrarMensaje (Mensaje)
'vbCodigoCargo = RecogerCodigoCargo
vbCodigoCargo = InputBox("¿Introduzca el Codigo del Cargo?")
Mensaje = "Este campo es obligatorio no puede quedar en blanco"
While IsNull(vbCodigoCargo) Or vbCodigoCargo = ""
MostrarMensaje (Mensaje)
UCase(vbCodigoCargo) = InputBox("¿Introduzca el Codigo del Cargo?")
Wend
rstCargos.AddNew
rstCargos!CodigoCargo = vbCodigoCargo
rstCargos!NombreCargo = NewData
rstCargos.Update
Response = acDataErrAdded 'reconsulta la lista.
docmd.openform,,,"julio"
Else
Response = acDataErrDisplay 'muestra el error estandar de Access.
End If
Mi problema es
Tengo el siguiente codigo:
Private Sub CuaComCargo_NotInList(NewData As String, Response As Integer)
Dim strMensaje As String, verdadero As Byte, Mensaje As String, vbCodigoCargo As String
'Public vbCodigoCargo As String
Dim dbs As Database
Dim rstCargos As Recordset
Dim numeros As String
strMensaje = "¿Está seguro que desea añadir '" & NewData & "' a la lista de cargos?"
If Confirmar(strMensaje) Then
'Abre la tabla Cargos y añade el nuevo valor preguntando antes por la clave principal
Set dbs = CurrentDb()
Set rstCargos = dbs.OpenRecordset("CARGOS_INDEPENDIENTES")
'vbCodigo = InputBox("Para dar de alta en la lista a este elemento tiene que introducir el Codigo Cargo obligatoriamente")
Mensaje = "Para dar de alta este elemento en la lista tiene que introducir su Correspondiente Codigo Cargo"
MostrarMensaje (Mensaje)
'vbCodigoCargo = RecogerCodigoCargo
vbCodigoCargo = InputBox("¿Introduzca el Codigo del Cargo?")
Mensaje = "Este campo es obligatorio no puede quedar en blanco"
While IsNull(vbCodigoCargo) Or vbCodigoCargo = ""
MostrarMensaje (Mensaje)
UCase(vbCodigoCargo) = InputBox("¿Introduzca el Codigo del Cargo?")
Wend
rstCargos.AddNew
rstCargos!CodigoCargo = vbCodigoCargo
rstCargos!NombreCargo = NewData
rstCargos.Update
Response = acDataErrAdded 'reconsulta la lista.
docmd.openform,,,"julio"
Else
Response = acDataErrDisplay 'muestra el error estandar de Access.
End If
Mi problema es
Valora esta pregunta
0