Access - Recorrer cada registro del subformulario

Buen día, Tengo el siguiente problemita en Access, he realizado un proyecto y no he logrado conseguir que haga lo siguiente. Tengo un Formulario frmTpv y dentro de el dos Subformularios SubFrmTpv y SubFrmTpv1. Desde el Subformulario SubFrmTpv1 donde están los datos de los productos los paso uno por uno según lo requerido por el "Cliente" al Subformulario SubFrmTpv. En el momento que quiera pasar un Producto repetido, no lo duplique sino que en el que ya he pasado aumente la cantidad. Muchas gracias por LAS AYUDA.

Lo mas eficaz es utilizar el RecordsetClone del subformulario, el dato a localizar (generalmente el ID) se conoce, solo hay que localizarlo en el 'clone' del subformulario y se pueden dar dos resultados, est o no esta.

Si esta (se localizo), se edita el registro, se le añade una unidad y tras ello se guarda (problema resuelto)
Si no esta (no se localizo) se utiliza el método actual para añadirlo.

Utilizare With para simplificar el codigo (y escribir menos)
En el cuadro de texto (XDato) introduzco un id (en tu diseño: el evento click y el ID será el campo ID) en el ejemplo el evento 'después de actualizar' del cuadro de texto (para poder experimentar)

Si encuentra el ID en el subformulario, aumenta en una unidad el cuadro de texto [Dato], si no lo encuentra envia un mensaje (en tu aplicación y con el metodo que se presupone ya hay, se añade un nuevo registro en el subformulario

Gracias por responder, pero me aparece el siguiente error.

Te explico en el Subformulario SubFrmTpv1 la llave principal es IdProducto y en el Subformulario SubFrmTpv la llave principal es IdProducto.

El codigo lo escribi de la siguiente manera de acuerdo a tu ayuda.

With Forms!frmTpv![SubFrmTpv].Form.RecordsetClone
FindFirst "IdProducto = " & Me.IdProducto
If Not .NoMatch Then
.Edit
.IdProducto = .IdProducto + 1
.Update
Else
MsgBox "Se añade un nuevo registro"
End If
End With

El codigo lo tengo de la siguiente manera :

Dim rst As Recordset
Dim respuesta As Integer
Set rst = Me.RecordsetClone
If DCount("IdProducto", "tblMovimiento", "[IdProducto]=Forms!frmTpv![SubfrmTpv]![IdProducto] And [Codigo_Mov] = Forms!frmTpv![SubfrmTpv]![Codigo_Mov]") >= 1 Then
DoCmd.CancelEvent
respuesta = vbOK
If respuesta = vbOK Then
Forms!frmTpv![SubFrmTpv].SetFocus
DoCmd.GoToControl "SubFrmTpv"
DoCmd.GoToRecord , , acGoTo, Forms!frmTpv![SubFrmTpv]![Cantidad]
Forms!frmTpv![SubFrmTpv]!txtControl.SetFocus
DoCmd.RunCommand acCmdUndo
DoCmd.OpenForm "frmAviso"
End If
End If

Al trasvasar el código que utilice se perdió el punto que antecede a FindFirst.

Ese punto (como lo tiene por ejemplo EDIT) le indica a Access que le añada antes del punto lo que se indica en With (solo se escribe una vez y solo hay que corregir en un único sitio)

Sin With y sin Me

Forms.fmrTpv.SubfmrTpv.Form.RecordsetClone.FindFirst "id = " & Forms.fmrTpv.IdProducto
If Not Forms.fmrTpv.SubfmrTpv.Form.RecordsetClone.NoMatch Then
Forms.fmrTpv.SubfmrTpv.Form.RecordsetClone.Edit
Forms.fmrTpv.SubfmrTpv.Form.RecordsetClone.Cantidad= Forms.fmrTpv.SubfmrTpv.Form.RecordsetClone.Cantidad + 1
Forms.fmrTpv.SubfmrTpv.Form.RecordsetClone.Update
Else
****
Aquí
el
código
que
actualmente
añade
los
productos
que
NO
hay
*****
End If

Ejemplo utilizando una línea y referencias absolutas:
Forms.fmrTpv.SubfmrTpv.Form.RecordsetClone.FindFirst "id = " & Forms.fmrTpv.IdProducto

Si utilizamos Me (que equivale a Forms.fmrTpv) la línea queda así (el resto la imitan)
Me.SubfmrTpv.Form.RecordsetClone.FindFirst "id = " & Me.IdProducto

Si Definimos With solo se necesita el punto, Access añade lo definido mientras no se alcance el End With.
With Forms.fmrTpv.SubfmrTpv.Form.RecordsetClone
también vale así:
With Me.SubfmrTpv.Form.RecordsetClone

La línea de ejemplo queda así (y el resto la imitan):
.FindFirst "id = " & Me.IdProducto

Aplicando lo anterior si se activa el evento Click del objeto CODIGO:

Perfecto muchas gracias el código me sirvió, le agradezco, hasta la próxima.....

Otra pregunta, para situar el Cursor en la Línea del Producto, que código debo utilizar.

Para posicionar (enviar el control) a un objeto solo se precisa enviarle el foco.

La condición es que el objeto sea accesible (si el destino no esta en el mismo formulario pueden ser necesarios pasos adicionales).

Una vez que el objeto tiene el foco (si el objeto que lo recibe ya tiene contenido) existe la posibilidad de enviar el cursor al principio, al final o a un punto especifico (por defecto si hay contenido lo selecciona todo).

En base a la imagen publicada, si el foco esta en el cuadro de texto [nombre del producto] y se quiere enviar al objeto [importe] el comando es:


Si estamos en el objeto [cantidad] (o cualquier otro) y deseamos que el foco se desplace al objeto [nombre del producto] :

Si el objeto que tiene que recibir el foco esta en el subformulario son necesarios dos pasos: el primero enviar el foco al subformulario, el segundo enviar el foco al objeto.


El código correcto depende del flujo del programa (donde estoy .... donde deseo/necesito ir)

Nota: los corchetes ([]) solo son indispensables si el nombre contiene espacios (una muy mala practica de programación) lo mínimo es añadirles un guion bajo o la alternativa de utilizar mayúsculas:
nombre del producto ====>>>> nombre_del_producto // NombreDelProducto

Al colocar el codigo como me dices el foco se me va a un registro nuevo pero si en el campo indicado.


With Forms!frmTpv![SubFrmTpv].Form.RecordsetClone
.FindFirst "IdProducto = '" & Me.IdProducto & "'"
If Not .NoMatch Then

'Forms!frmTpv![SubFrmTpv].SetFocus
'Forms!frmTpv![SubFrmTpv]!Cantidad.SetFocus
.Edit
Forms!frmTpv![SubFrmTpv].SetFocus
Forms!frmTpv![SubFrmTpv]!Cantidad.SetFocus
.Cantidad = .Cantidad + 1
.Update
'.MoveNext

Else

Forms!frmTpv![SubFrmTpv].SetFocus
DoCmd.GoToRecord , , acNewRec
Forms!frmTpv![SubFrmTpv]!IdProducto = strCriteria
Forms!frmTpv![SubFrmTpv]!Cantidad = 1

End If
End With

Te sere sincero, he borrado la respuesta que tenia preparada porque se aprecia en tu mensaje que no tienes claro lo que necesitas.

Intenta aclararlo para encontrar una solución adecuada.

Nota:
Borra las líneas en negrita de tu mensaje (o cámbialas de sitio) para que el código haga lo que tiene que hacer, porque ese código no se entromete con lo que estés viendo en la pantalla (excepto el campo cantidad si el registro afectado esta visible).

Si te funciona el código que has publicado para añadir registros (el que hay entre el Else y el End IF) ... pues habrá que creérselo.

Tienes razón, que pena, en que lugar del código definitivo coloco esta instrucción.

Me.SubFormTpv.SetFocus
Me.Cantidad.SetFocus


ESTE ES EL CÓDIGO DEFINITIVO

With Forms!frmTpv![SubFrmTpv].Form.RecordsetClone
.FindFirst "IdProducto = '" & Me.IdProducto & "'"
If Not .NoMatch Then
.Edit
.Cantidad = .Cantidad + 1 '/// PARA QUE CUANDO ENCUENTE DETERMINADO REGISTRO, LO SELECCIONE Y HAGA LA SUMA
.Update
'.MoveNext

Else

Forms!frmTpv![SubFrmTpv].SetFocus
DoCmd.GoToRecord , , acNewRec
Forms!frmTpv![SubFrmTpv]!IdProducto = strCriteria
Forms!frmTpv![SubFrmTpv]!Cantidad = 1

End If
End With

Incrementar las unidades si el registro ya existe en el subformulario esta resuelto, pero lo de añadir registros (en mi opinion) no es funcional.
Se supone que si se crea un nuevo registro, se le ha de dar valor a todos sus campos y el código expuesto no parece hacerlo.
¿Funciono alguna vez?.

Aparece un nuevo elemento (strCriteria) que asumo es una variable, de la que se desconoce su contenido ni donde fue declarada..

En el origen de datos del subformulario hay como mínimo cuatro campos (el quinto es un valor calculado que supongo no se guarda).

Esta línea carece de sentido (no es valida esa referencia)


Para asignarle un valor al campo [IdProducto] del subformulario [SubFmrTpv] la referencia correcta seria:

Y como el dato a copiar es el ID no localizado ([IdProducto]), seguirá siendo Me.IdProducto y la linea queda asi:

Pero también hay que asignarle valores a [Producto], [Precio] y [cantidad], [SubTotal] no lo necesita es un valor calculado, una vez finalizadas las asignaciones hay que guardarlo.

Un par de consejos (que libremente puedes ignorar):
.- No manipules lo que funciona
.- Antes de manipular lo conseguido hasta ayer >>>> hoy (y antes de empezar): haz una copia de seguridad
(si ocurre un desastre, no se partirá de cero)

Germán, si no tiene información confidencial puede enviarme su base de datos a [email protected] y trato de colaborarle.