Recorrer un subformulario

Que tal expertos tengo un formulario principal llamado categorías y un subformulario que se llama percepciones
el campo principal tengo un campo llamado salario, quiero que el evento después de recorra el subformulario buscando la clave 2001 y el campo que tenga la clave 2001 coloque el importe
he creado esta rutina ..
Dim rstsub1 As Recordset, rstsub2 As Recordset
Set rstsub1 = Categorias.RecordsetClone()
Set rstsub2 = sfPercepciones.RecordsetClone()"OJO AQUI ME DICE QUE NO ENCONTRO EL METODO O DATO MIEMBRO"
rstsub2.MoveFirst
Do Until rstsub2.EOF
If rstsub2!Clave = 2001 Then
rstsub2!Importe = rstsub1!Importe
rstsub2.Update
rstsub2.MoveNext
Loop
Rstsub2. Close: rstsub1. Close

1 respuesta

Respuesta
1
Me parece que te estás complicando la vida. Supongamos que el origen del subformulario es la tabla Percepciones. Lo más sencillo es que en el código pongas
DoCmd.RunSQL "update percepciones set importe=[forms]![categorías]![salario] where [Clave]=2001"
Me!Percepciones.Form.Requery
Así, te pondrá el valor Salario en el campo Importe de la tabla Percepciones en todos aquellos registros cuyo campo Clave sea 2001.
Mira ya encontré la solución lo intente como dice pero se lo hacia a todos los registros y no a los id del formulario activo. Lo solucione así
Dim rstsub2 As DAO.Recordset
Dim F As Form, SF As Form
' Asignamos valores
Set F = Forms![categorias]
Set SF = F![sfPercepciones].Form
Set rstsub2 = SF.Recordset
rstsub2.MoveFirst
Do Until rstsub2.EOF
If rstsub2!Clave = "2001" Then
rstsub2.Edit
rstsub2!Importe = [Forms]![categorias]![Importe]
rstsub2.Update
End If
If rstsub2!Clave = "2002" Then
rstsub2.Edit
rstsub2!Importe = Round([Forms]![categorias]![Importe] / 8, 2)
rstsub2.Update
End If
If rstsub2!Clave = "2003" Then
rstsub2.Edit
rstsub2!Importe = [Forms]![categorias]![Importe]
rstsub2.Update
End If
If rstsub2!Clave = "2004" Then
rstsub2.Edit
rstsub2!Importe = -[Forms]![categorias]![Importe]
rstsub2.Update
End If
rstsub2.MoveNext
Loop
rstsub2.Close
Set rstsub2 = Nothing
Exit Sub
Pero me actualiza el subformulario ya marque la pregunta en el tablón si fueras ta amable de decirme como hacerlos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Numerar Registro en Tabla

Tengo una Tabla así: Campo1 Campo2 Campo3 Orden 1 3 4 1 3 4 1 3 4 2 3 1 2 3 1 2 3 1 Lo que quiero es que en Orden me quede así: Campo1 Campo2 Campo3 Orden 1 3 4 1 1 3 4 2 1 3 4 3 2 3 1 1 2 3 1 2 2 3 1 3 Y así sucesivamente, ya lo había hecho hace...
1 respuesta

Problemas de subformulario

Tengo un pequeño problema. Tengo un formulario en el cual dispongo de varios campos de selección. Cuando se realiza la selección, creo una consulta tomando los valores introducidos y utilizando VBA creo la consulta en cuestión. El problema viene...
1 respuesta

Comparar dos campos de tablas diferentes.

Como podría hacer para comparar dos tablas y en un informe me muestre el cualquier color la diferencia que hay entre las tablas, ejempemplo: Tabla 1 Tabla2 Manzana Roja Manzana roja Manzana Roja Manzana verde La Rev1 La Rev2 Fecha 12/10/11 Fecha...
1 respuesta

Bucle para comparar dos tablas por un campo id y campo monto

En vba de access estoy intentando comparar los registros de dos tablas ( Banco y Sistema), la idea es que un bucle recorra el campo Doc de la tabla banco y evalúe el campo Doc y campo Monto de la tabla sistema, es decir, si en la tabla Sistema...
1 respuesta

Validar stock

Tengo tres tablas: Bobinas: numbob, ancho, largo, espesor, calidad, ffab, fenv, stock(sí/no) Salidas: numenv, cliente, fenv Detallesalidas: numbob, numenv, fenv El stock estará disponible sí no tiene fenv (fecha de salida), sí tiene fenv, pues no...
1 respuesta

Consultar datos distintos en una misma tabla de datos

Augusto, soy Ricardo de nuevo, ayer te hice esta misma pregunta, pero parece que no te llego porque no me sale como pregunta activa, de lo que te pregunte anteriormente sobre como recorrer una base de datos esta todo bien pero hay algo que necesito...
1 respuesta

¿Cómo puedo multiplicar un campo en un subformulario?

En un subformulario si Pones =Suma([Campo1]) en el campo independiente que tenemos por debajo si te vasomando los valores, (isto es correcto), ¿Mi pregunta es como puedo acer lo mismo pero en vez de sumar multiplicar? 2*2*2*2=16
1 respuesta

Como Utilizar mi id de Usuario en una tabla

Que tal tengo una base de datos en el cual ingreso solicitudes de cheques o depósitos de diferentes departamentos y necesito llevar un control en el cual se vea reflejado quien solicto el cheche o deposito. Esto con el fin de deslindar...
1 respuesta

Actualizar tabla desde formulario con campo SI/NO

Estoy tratando de ejecutar una consulta de actualización desde el botón de un formulario, evaluando una caja de texto cuyo valor debe ser cero y un control de un dos subformularios que corresponde a un campo si/NO , pero no lo consigo, ¿Me puedes...
1 respuesta

Exportar informe de Access a un archivo TXT sin saltos de líneas

Intento exportar un informe diseñado en Access a un archivo .TXT, el cual tiene campos con máscaras muy específicas y debe ser continuo, pero se insertan líneas en blanco de manera automática. ¿Cómo exportar el mencionado informe sin saltos de líneas?
1 respuesta