Últimos mensajes - Powered by IBM

Palabras claves

Lío con entrada de datos

30/06/2003 - 11:32 por Laura McNee | Informe spam

Tengo dos tablas relacionadas por el campo clave CIF. En una de ellas
constan datos personales y en la otra, pedidos. Quiero hacer lo siguiente al
introducir registros:

1) Tecleo el CIF, y si no existe, que añada a ese cliente a un nuevo
registro, al que en un subformulario haré entrar el pedido que nos haga.

2) Si dicho CIF existe, que me presente en pantalla los datos personales
tomados de la tabla Personal, y me aparezca el subformulario de pedidos en
blanco.

¿Cómo hacer para que un mismo formulario de datos personales me sirva tanto
para entrar datos como para que me busque los existentes, en caso de que los
haya?

Gracias, chicos.

Siga el debate

22 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#11 Laura McNee

01/07/2003 - 11:26 | Informe spam

Tengo Access 2002 sobre Windows XP (creo que me he equivocado en el mensaje
a marjan), y en estos momentos me olvidé del DAO y demás, y sigo con vuestro
sistema, pero ya comento abajo que no me funciona.

"Sendo Gimenez" escribió en el mensaje
news:

Hola Laura.
He seguido este hilo con interes.
Haz caso a la ayuda que te da marjan, que te esta aconsejando bien,
si estas con access 97 deberias eliminar DAO.

Saludos desde England
Sendo
summitmedia.co.uk
"Laura McNee" wrote in message
news:bdre6v$10dm55$
> Hola marjan, buenos días. Decidí seguir con la forma en que Sendo y tú

> habíais aconsejado. Tengo el combo enlazado, "Limitar a la lista" en SI,

> el código que me apuntaste en el evento "Al no estar en la lista", y he
> dejado el que crea automáticamente el asistente en "Después de
actualizar".
> Funciona bien mientras no meta un CIF que no consta en la tabla.

Entonces

no
> de deja salir del combo.
>
> El combo no tiene "Origen del control" ¿es correcto? Al ponerlo en el
> formulario, quité el txtBox que me creó el asistente enlazado al campo
CIF.
>
> Y una última duda: en el código que me diste, el DoCmd.Openform abrirá
> (dices) el formulario en modo añadir. ¿No dará error al estar ya

abierto?

>
> "marjan" escribió en el mensaje
> news:
> > Hola Laura,
> >
> > Hasta mañana ya no podré responderte, Si quieres enviame la base
> COMPRIMIDA
> > a mi correo para ver mejor lo que pretendes...
>
>
>

Responder a este mensaje

#12 Laura McNee

01/07/2003 - 12:37 | Informe spam

"marjan" escribió en el mensaje
news:OU%

Hola Laura,
> El combo no tiene "Origen del control" ¿es correcto?
Sí, ya que solo utilizas el Combo para hacer las búsquedas. El "Orígen del
control" es para vincular dicho control a un campo de una tabla, o sea, si
quisieras guardar dicho valor en una tabla...

> Funciona bien mientras no meta un CIF que no consta en la tabla.

Entonces

no
> de deja salir del combo.
Claro. En el codigo que te pasé, si te fijas, hay dos lineas que son
necesarias:
Response = acDataErrContinue
'Esta esconde el mensaje de error

y la otra : (ahora corregida)
Me.CCombi.Undo

En esta línea me da error de compilación. Y ha he puesto al DAO por encima
del DataObjets.

Responder a este mensaje

#13 Laura McNee

01/07/2003 - 13:09 | Informe spam

:-))) Gracias Sendo. A mi no se me cuelga, pero no logro salir del Combo al
meter un dato que no está en la tabla.

"Sendo Gimenez" escribió en el mensaje
news:%
Laura...¿¿ cual es el nombre de tu caja combinada, combo-box???

Me.CCombi.Undo

cambialo el rojo, por el nombre de tu caja combinada
por ejemplo yo estoy siguiendo el hilo y mi combo-box (no se como lo llamais
alla, aqui en England es combo-box)
se llama Combo10 (el tuyo tendra otro nombre, o sea sustituye tal como ves
en el color rojo (ponte texto enriquecido(html) para verlo.

Private Sub Combo10_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[clienteid] = " & Str(Me![Combo10])
Me.Bookmark = rs.Bookmark
End Sub

Private Sub Combo10_NotInList(NewData As String, Response As Integer)
DoCmd.OpenForm "Formpersonal", , , , acFormAdd
'Abre el formulario Clientes modo añadir
Response = acDataErrContinue
'Esconde el mensaje de error
Me.Combo10.Undo o sea cambia CCombi
'Borra lo que has escrito en el CCombi
End Sub

como me he picado con el tema, he hecho una mini bd con 2 tablas, personal y
pedidos relacionada uno a muchos por el campo cif, y dos formularios:
formpersonal y formpedidos.
He incustrado formpedidos en formpersonal, he puesto este combo y me pasa lo
mismo que a ti, si busco bien pero si escribo en el..como que se
'cuelga' .me sale el reloj de arena y que si quieres arroz catalina,
seguiremos investigando.
Saludos desde England
Sendo
summitmedia.co.uk
"Laura McNee" wrote in message
news:bdroc2$urdcm$

"marjan" escribió en el mensaje
news:OU%
> Hola Laura,
> > El combo no tiene "Origen del control" ¿es correcto?
> Sí, ya que solo utilizas el Combo para hacer las búsquedas. El "Orígen

del

> control" es para vincular dicho control a un campo de una tabla, o sea,

> quisieras guardar dicho valor en una tabla...
>
> > Funciona bien mientras no meta un CIF que no consta en la tabla.
Entonces
> no
> > de deja salir del combo.
> Claro. En el codigo que te pasé, si te fijas, hay dos lineas que son
> necesarias:
> Response = acDataErrContinue
> 'Esta esconde el mensaje de error
>
> y la otra : (ahora corregida)
> Me.CCombi.Undo

En esta línea me da error de compilación. Y ha he puesto al DAO por encima
del DataObjets.

Responder a este mensaje

#14 Sendo Gimenez

01/07/2003 - 14:38 | Informe spam

Laura. Jolinespues me tiene frito el tema ya!!!
ya esta bien eh.me estoy peleando con el hace ratillo y que nanai de
nanai.
A mi ahora ya tampoco se me cuelga, ahora me deja escribir, me daja digamos
entrar datos, pero no consigo que los acepte, el muy ladino,
de ninguna manera.
No acepta que le meta un dato que 'no esta' en la tblpersonal ni en
tblclientes y viceversa, por supuesto.

mnmhhnmnmnmnhhh.a ver que mas nos comenta marjan

Besos pá ti!!
;-)
Saludos desde England
Sendo
summitmedia.co.uk
"Laura McNee" wrote in message
news:bdrq8n$voaeg$

:-))) Gracias Sendo. A mi no se me cuelga, pero no logro salir del Combo

meter un dato que no está en la tabla.

"Sendo Gimenez" escribió en el mensaje
news:%
Laura...¿¿ cual es el nombre de tu caja combinada, combo-box???

>>Me.CCombi.Undo

cambialo el rojo, por el nombre de tu caja combinada
por ejemplo yo estoy siguiendo el hilo y mi combo-box (no se como lo

llamais

alla, aqui en England es combo-box)
se llama Combo10 (el tuyo tendra otro nombre, o sea sustituye tal como

ves

en el color rojo (ponte texto enriquecido(html) para verlo.

Private Sub Combo10_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[clienteid] = " & Str(Me![Combo10])
Me.Bookmark = rs.Bookmark
End Sub

Private Sub Combo10_NotInList(NewData As String, Response As Integer)
DoCmd.OpenForm "Formpersonal", , , , acFormAdd
'Abre el formulario Clientes modo añadir
Response = acDataErrContinue
'Esconde el mensaje de error
Me.Combo10.Undo o sea cambia CCombi
'Borra lo que has escrito en el CCombi
End Sub

como me he picado con el tema, he hecho una mini bd con 2 tablas, personal

pedidos relacionada uno a muchos por el campo cif, y dos formularios:
formpersonal y formpedidos.
He incustrado formpedidos en formpersonal, he puesto este combo y me pasa

mismo que a ti, si busco bien pero si escribo en el..como que se
'cuelga' .me sale el reloj de arena y que si quieres arroz catalina,
seguiremos investigando.
Saludos desde England
Sendo
summitmedia.co.uk
"Laura McNee" wrote in message
news:bdroc2$urdcm$
>
> "marjan" escribió en el mensaje
> news:OU%
> > Hola Laura,
> > > El combo no tiene "Origen del control" ¿es correcto?
> > Sí, ya que solo utilizas el Combo para hacer las búsquedas. El "Orígen
del
> > control" es para vincular dicho control a un campo de una tabla, o

sea,

si
> > quisieras guardar dicho valor en una tabla...
> >
> > > Funciona bien mientras no meta un CIF que no consta en la tabla.
> Entonces
> > no
> > > de deja salir del combo.
> > Claro. En el codigo que te pasé, si te fijas, hay dos lineas que son
> > necesarias:
> > Response = acDataErrContinue
> > 'Esta esconde el mensaje de error
> >
> > y la otra : (ahora corregida)
> > Me.CCombi.Undo
>
> En esta línea me da error de compilación. Y ha he puesto al DAO por

encima

> del DataObjets.
>
>

Responder a este mensaje

#15 Laura McNee

01/07/2003 - 16:25 | Informe spam

Jajaja, veo que es un tema que ha llamado la atención. No creas que antes de
preguntar no me fui a Google a ver los mensajes referidos al tema, pero en
ninguna parte encontré una solución. Y los que crean haberla visto en
Neptuno, se equivocan. Supongo que si alguna vez lo conseguimos será para
colgarlo de la web de Búho.
:-))))

"Sendo Gimenez" escribió en el mensaje
news:%

Laura. Jolinespues me tiene frito el tema ya!!!
ya esta bien eh.me estoy peleando con el hace ratillo y que nanai de
nanai.
A mi ahora ya tampoco se me cuelga, ahora me deja escribir, me daja

digamos

entrar datos, pero no consigo que los acepte, el muy ladino,
de ninguna manera.
No acepta que le meta un dato que 'no esta' en la tblpersonal ni en
tblclientes y viceversa, por supuesto.

mnmhhnmnmnmnhhh.a ver que mas nos comenta marjan

Besos pá ti!!
;-)
Saludos desde England
Sendo

Responder a este mensaje

Ads by Google

Hacer una preguntaSiguiente

Tengo una respuesta

1 2 3 4 5

Busqueda sugerida