Access - Necesito ayuda urgente

Tengo dos cuadros combinados. Necesito que el valor de un cuadro pase al otro cuadro combinado de forma automatica.

Dependerá del origen de datos de los combos, pueden ser tablas o listas de valores.

Si son tablas lo correcto es que se añadan o retiren de las tablas (añadir de la 'A' a la 'B' y se supone que eliminar de la 'A'), algo que se puede hacer con SQLs y tras ello refrescar la presentación en los combos.

Si se trata de listas de valores, lo idóneo es utilizar el método 'AddItem' de 'A' a 'B' y tras ello borrarla en 'A'

'A' y 'B' solo sirven como ejemplos del método a aplicar, el combo 'A' será el 'donante' y 'B' el receptor (no hay un automatismo para ello, se tiene que crear y para el usuario final ...) será transparente y 'Automático'

Bueno, te comento más en detalle que necesito realizar.
Tengo un cuadro combinado (Select), el cual toma un valor ej. casa.
En el mismo formulario tengo otro Cuadro combinado (Product ID) el cual necesito que tome el mismo valor que Select.
El cuadro combinado (Product ID) tiene origen de registro de la tabla productos, y el valor casa es una opción solo que quiero que salga directamente escrito en ese cuadro combinado.
Me explico. Te puedo pasar la base de datos.

Bueno, te comento más en detalle que necesito realizar.
Tengo un cuadro combinado (Select), el cual toma un valor ej. casa.
En el mismo formulario tengo otro Cuadro combinado (Product ID) el cual necesito que tome el mismo valor que Select.
El cuadro combinado (Product ID) tiene origen de registro de la tabla productos, y el valor casa es una opción solo que quiero que salga directamente escrito en ese cuadro combinado.
Me explico. Te puedo pasar la base de datos.

En definitiva, pasar (copiar) de un cuadro combinado cuyo origen de datos es una tabla uno de sus Items a otro cuadro combinado.

Si ambos combos tienen orígenes compatibles (ambos se basan en una tabla) una SQL lo soluciona, solo se precisa el ID del registro o un dato (o combinación de datos) que lo diferencie del resto de registros para poder seleccionarlo y (por adelantado) los combos no tendrán datos, solo mostraran los de sus orígenes (las tablas), la SQL seria sencilla:


En el combo [nombre-combo1] en el que se selecciona el dato a copiar, su columna predeterminada ha de ser el dato (ID) que defina el registro como único.

Tras la ejecución de la SQL el dato aparecerá en la tabla destino, para que se muestre en el combo solo hay que refrescar su contenido

Si se trata de generar algo como una factura, documento de entrega o presupuesto, utilizar un combo para los elementos seleccionados no es lo optimo (se copia el elemento, pero ¿y la cantidad? ...) lo habitual es utilizar un subformulario en lugar de un combo.

Si el tipo de combo (su origen de datos) es una 'lista de valores', el método es diferente y los resultados no se guardan (con la excepción de guardar el formulario por la modificación de uno de sus objetos)

Desde ya te agradezco el esfuerzo que estás haciendo por enseñarme.

Voy a tratar de ser lo mas claro posible.

Tengo un Cuadro Combinado llamado Select que no tiene origen de control, pero tiene origen de fila los valores de la tabla Productos. [ID y Nombre del Producto], de ahi selecciono un nombre de un producto.

En el cuadro combinado segundo llamado Product ID que necesito que directamente tome el mismo valor que Select, si tiene origen de control y tiene tambien origen de fila igual de tabla Productos [Id y Nombre de Producto]

Lo que difiere a Select de Product ID es que el que necesito que tome el valor del primero tiene origen de control y origen de fila.

Siendo ambos combos idénticos (solo los diferencia que uno depende de una tabla y el otro una lista de valores en base a la misma tabla),
Para 'sincronizarlos' de forma sencilla ambos han de tener la misma 'columna dependiente' y puede estar oculta.

Para sincronizarlos se utiliza el evento 'al hacer click' de [Select] y con cada click (o al seleccionar uno de los Items) ambos se igualaran:

Activar el evento en [SELECT], seleccionar en el desplegable '[Procedimiento de evento]' y un click en los tres puntitos....
En la ventana que se abre (la de VBA) copiar la línea numero dos (la uno y la tres las pone Access).


He asumido los nombres de los objetos pero no me parecen los apropiados:
.- [Select] es una de las 'palabras reservadas' (no se debería utilizar en ese contexto)
.- El otro 'parece' que contiene un espacio (no es lo optimo, un guion bajo le vendría bien)

No tengo clara la verdadera funcionalidad de los dos combos y su sincronía, la solución esta un poco mas arriba (al menos cumple con lo que se solicita).

Si eso lo había probado, pero no me funciona.
Si tienes un correo donde pueda enviarte el archivo, me ayudaría. je.
Te pido mil disculpas, pero estoy trabado con esto.-

Entiendo que no tenemos el mismo entorno y por ello lo verificado y funcional en el mío, puede que dar problemas en otro diferente.

No publico mi correo-e, pero este foro permite adjuntar datos a los mensajes.

Se puede crear una copia de la aplicación, eliminar de ella la información delicada y tras ello comprimirla en un archivo ZIP para finalmente publicarla aquí.

Hacerlo así añade la ventaja de poder obtener diversos enfoques y sus correspondientes soluciones.

Formulario Detalles de Pedido.

Vas a encontrar dos cuadros combinados, el primero de la izquierda es el que necesito que copie el valor del segundo. Este segundo tiene la función medio para extraer parte de un cuadro de texto que también te va a figurar en el sistema.
Para que veas el funcionamiento del cuadro de texto y el segundo cuadro combinado cambia el numero de la 6 posición por 1, 2 o 3. Cambiando ese número va a tirar producto en el segundo cuadro combinado. Ahora yo necesito que el primer cuadro combinado copie ese valor.

Muchas gracias.

• File.rar(493,6 KB)

El problema lo ha creado el 'origen del control' que se le asigna al combo.

El origen del control es donde se guarda el valor seleccionado en el objeto (un campo del origen de datos del formulario) y no puede ser la/una función que extrae una parte de otro objeto.

Access nunca manipulara una parte de un valor de forma directa, se tendría que crear una función que modificase el dato que hay en el objeto [código].

Es por ello que si se modifica manualmente el dato de referencia (siguiendo las instrucciones comentadas) se cambia directamente el Item seleccionado.

Lo primero que hace Access al cambiar el Item del combo: es actualizar su origen.
Como NO lo logra (no le es posible, es parte de otro objeto) se para la ejecución y nunca llega a ejecutar el evento que actualiza el segundo combo.

En líneas generales me ha dado la impresión de que necesita una revisión de la planificación en aras de conseguir fluidez (tal vez al estar aun en pleno desarrollo, aun no se llego a ese punto).

Si se desea guardar el Item seleccionado en el combo, se le ha de asignar como origen del combo un campo de la tabla subyacente, y si no se va a guardar, no necesita un origen de datos (ni estar duplicado).

Ok, te entiendo.
Una consulta, existe alguna forma que con el combo 2 que tiene la función medio, me traiga el precio del producto. Y el mismo precio si lo cambio de la tabla productos, no me mueva todos los valores?.

Para 'sincronizar' el combo con el cuadro de texto [código] mediante la función MID, se puede hacer de varias formas, pero lo que me llama la atención es que pueda existir el dato [código] cuando aún se está creando el registro.
Si la expresión que da error en el combo solo tiene esa funcionalidad, recomiendo eliminarla (será un combo independiente pero funcional).
Si existe un [código] valido y desea que se seleccione el Ítem del combo correcto, propongo que se añada una línea más en el evento CURRENT del formulario (solo se precisa una única vez, después el usuario podrá cambiar la selección).
Para evitar errores se ha de verificar que [código] no sea NULL y que su longitud sea igual o superior a seis caracteres (se utilizan el quinto y sexto):

Sobre obtener el precio del ítem seleccionado en el combo, lo más sencillo es añadirlo en el combo por lo que su ‘origen de la fila’ será:
Antes:

Después:

Hay que modificar (en modo diseño) el combo para que tenga cuatro columnas (no tres que de las que se utilizan dos) e indicar el ancho de las nuevas columnas (cero si se desean ocultar)

En esas condiciones con un Item seleccionado:

Conocido su ID el resto de los datos se puede obtener con la función DLookup (en el ejemplo se obtendria el precio):


Si se 'copia' el precio (no se le referencia) un cambio no altera los datos guardados, solo se modifican los datos que se mantienen 'enlazados' a sus orígenes.

Seguramente estoy desperdiciando tu tiempo, pero cabe mencionarte que estoy muy agradecido con la ayuda brindada.

Te comento que hice. El combo ProductoSeleccion lo saque. Puse el código este:

If Len(Nz(Me.Codigo, "")) >= 6 Then Me.ProductID = Mid(Me.Codigo, 5, 2)
If Nz(Me![Id de situación], None_OrderItemStatus) = Invoiced_OrderItemStatus Then
Me.AllowEdits = False
Else
Me.AllowEdits = True
End If


Cambie esto Me.ProductoSeleccion por Me.ProductID para usar un solo combo y que tiene el origen de control. el cual ahora logro llegar al resultado requerido. Dos problemas. El Combo no me refresca el dato de forma automática y si vuelvo con un click al Cuadro de texto [Codigo] ahí si me lo hace. Intente con esto, pero no logra refrescar.

Private Sub Codigo_AfterUpdate()

Me.[ProductID].Requery

End Sub

El segundo es que el combo ProductID si me cambia el cuadro de texto cuando selecciono un producto, pero no me tira el precio de esta forma.

Puedo hacer con el precio lo que me planteas, pero si puedo pasarlo a el cuadro de texto que habia puesto mejor.

Discúlpame la terrible molestia.
Saludos.

Bueno, algo solucionado

Me.requery me lo soluciono. no se si es la forma correcta, pero me anduvo.