Codigo para copiar valores

28/04/2010 - 23:38 por JANTHER | Informe spam

Hola a tod@s

Nuevamente estoy atorado.
Tengo un formulario creado con tres tablas relacionadas
1. Agentes
2. Ingresos
3. Ingresos Bancarios

Hay cuatro campos con los que tengo problemas

Seleccionado(SI/NO) - Tabla Ingresos Bancarios
Aplicado (SI/NO) - Tabla Ingresos Bancarios
Importe(Moneda) - Tabla Ingresos Bancarios
Importe(Moneda) - Tabla Ingresos

Con un grupo de opciones activo un cuadro combinado para seleccionar el
ingreso bancario. Los valores que aqui aparecen estan filtrados
(aplicado=Falso)

Al momento de seleccionar un registro todo esta bien.

Lo que necesito es que cuando le de clic en Seleccionar haga lo siguiente:
1. Copiar el valor de Seleccionar a Aplicar (aplicar=Verdadero)
2. Copiar el valor de Importe_ingresos_Bancarios a Importe_Ingresos
3. Bloquear El cuadro combinado para no poder seleccionar otro ingreso
bancario
4. Bloquear la casilla Seleccionar para no modificer su valor.

De antemano gracias por su apoyo.

J. Antonio Hernández B.

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Roys

30/04/2010 - 04:20 | Informe spam

PARA APLICAR LOS CAMBIOS A LOS CAMPOS INDICADOS

lo mejor es que uses una macro o código visual basic para asignarlos de
acuerdo con los criterios que desees.

Por ejemplo con código VB:

Public Function AlSeleccionar()
If Forms!Tramite!Seleccionar <>"" Then
Forms!ImpresionDocumentos!Aplicado="Verdadero"
Forms!ImpresionDocumentos!Seleccionar.Enable=false

Else
Forms!ImpresionDocumentos!Aplicado="False"
Forms!ImpresionDocumentos!Seleccionar.Enable=true
End If
End Function

Espero te sirva de algo

Saludos
Desde Costa Rica

"JANTHER" escribió:

Mostrar la cita

Responder a este mensaje

#2 JANTHER

06/05/2010 - 21:29 | Informe spam

Agradezco tu respuesta "Roy''''s"

Yo se que las dos formas de realizar lo que necesito es por medio de macros
o codigo de VBA, lo que necesito es el código con el cual puedo realizarlo.

Por el momento ya tengo un avance muy considerable puesto que genere el
siguiente código

DoCmd.GoToControl "AUXTotal"
DoCmd.RunCommand acCmdCopy
DoCmd.GoToControl "TOTAL"
DoCmd.RunCommand acCmdPaste

Hasta aqui funciona todo muy bien, pero si trato dirigirme a otro cuadro de
texto para crear otro copiar-pegar no me lo permite, me manda un error.

Sigo esperando sus comentarios. Gracias

J. Antonio Hernández B.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida