Access VBA + Formularios

No se si es una pregunta muy fácil o no, pero no me sale. El tema es así, tengo un formulario, en donde tengo un cuadro de texto. A ese cuadro de texto le tengo que asignar el valor de una variable que declaro en este mismo formulario. Esa variable tiene un valor que depende de otros campos de otros formularios, pero se tilda en esa parte y no hace nada de lo siguiente. Te paso el código para que veas mejor:
Dim MiForm As Form
Set MiForm = Forms!Form_Mips
Dim MiForm2 As Form
Set MiForm2 = Forms!Form_Mips2
If MiForm2!Res81 = 1 Then v_1a = v_1a + 3
If MiForm!Res94 = 1 Then v_1a = v_1a + 3
If MiForm!Res106 = 1 Then v_1a = v_1a + 3
If MiForm!Res129 = 1 Then v_1a = v_1a + 3
If MiForm!Res151 = 1 Then v_1a = v_1a + 3
If MiForm2!Res10 = 1 Then v_1a = v_1a + 2
If MiForm!Res180 = 1 Then v_1a = v_1a + 2
If MiForm2!Res26 = 1 Then v_1a = v_1a + 1
If MiForm2!Res65 = 1 Then v_1a = v_1a + 1
If MiForm!Res149 = 1 Then v_1a = v_1a + 1
If MiForm2!Res18 = 2 Then v_1a = v_1a + 2
If MiForm2!Res57 = 2 Then v_1a = v_1a + 2
If MiForm2!Res72 = 2 Then v_1a = v_1a + 2
If MiForm!Res111 = 2 Then v_1a = v_1a + 2
If MiForm!Res122 = 2 Then v_1a = v_1a + 2
If MiForm!Res139 = 2 Then v_1a = v_1a + 2
If MiForm2!Res17 = 2 Then v_1a = v_1a + 1
If MiForm2!Res69 = 2 Then v_1a = v_1a + 1
If MiForm!Res142 = 2 Then v_1a = v_1a + 1
Me.Ctl1A = v_1a
Me.Ctl1A.Enabled = True
Lo que pasa es que ni siquiera llega al Enable, pero no se porque.

1 Respuesta

Respuesta
1
¿Amigo los datos deberías sacarlos de las tablas no de un formulario a no ser que este abierto este último . porque ademas en que registro están los datos que necesitas?
Al abrir un form o crear una instancia estarás parado en el primer registro
por eso creo que lo mejor seria buscar mejor en las tablas de los formularios
---------------------------------------------------------------------------------------------------
dim db as database
dim tabla1, tabla2 as recordset
set db= currentdb
set tabla1= db.openrecordset("nombredetabla1") 'abrimos la tabla
set tabla2= db.openrecordset("nombredetabla2") 'abrimos la tabla
tabla1.index="nombredelindice"  ' el nombre que tiene en el indice el campo de la tabla
tabla1.seek "=", numerodeindicequebusco ' se posiciona en el registro que busco
if tabla1[res81]=1 then   ' suponiendo que res81 es el nombre del campo de la tabla
v_1a = v_1a + 3
end if
Me.Ctl1A = v_1a
Me.Ctl1A.Enabled = True
tabla1.close
tabla2.close
End sub
---------------------------------------------------------------------------------------------------------------
'deberias hacer lo mismo con la tabla2 para buscar donde te posicionas y despues comparar los datos con un if y hacer la operacion que quieras en el formulario
------------------------------------------------------------------------------------------------------

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Copiar contenido campo memo de tabla1 a campo memo de tabla2

Tengo dos tablas (Tabla1 y Tabla2) con diversos campos, entre ellos 'Documento' (tipo texto) y 'Notas' (tipo memo) en ambas tablas. En Tabla2 tengo bastantes registros que coinciden el campo Documento con el mismo campo de la Tabla1. De dichos...
1 respuesta

Rellenar Campo con valor Aleatorio No Repetido

Tengo una tabla simple que unicamente dispone de los campos nombre, apellidos, edad y código. El campo código está vacío. Necesitaría saber como puedo rellenar automáticamente el campo código (numérico) con cifras del 1 al 9400 (ya que existen 9400...
1 respuesta

Access mensaje antes de elimin registro en fórmula

Espero que me puedas ayudar con un tema en el que ando un poco bloqueado y no se como hacerlo. Tengo la siguiente tabla: Tabla1: Registo Campo1 Campo2.. 1 Juan 2 Luis Juan 3 Pedro Juan 4 Ramón Pedro Tengo un formulario en el que me aparecen todos...
1 respuesta

Como copiar campos de una tabla a otra con botón

Tengo dos tablas: tabla1 y tabla2. La tabla2 está vacía a espera de que en el formulario de tabla1 cree un botón que al pulsarlo copie determinados campos en la tabla2 por cada registro que esté visualizando en ese momento y que no me permita...
1 respuesta

Evento NotInList

En Access, un Formulario de PEDIDOS, en un Subformulario PEDIDOS_CLIENTES, un combo presenta una lista de clientes (pero presenta apellido y teléfono, ocultando su clave ID), quiero que al no encontrar el nombre que busco me lo añada a la tabla...
1 respuesta

Validar dato antes de insertarlo en una tabla

Tengo una bd en access, en una tabla1 tengo los campos nombre y código, en la tabla2 tengo los campos código y fecha estas dos tablas se relacionan entre si por el campo código. La idea es que en un formulario cuando yo ingrese un código válido (que...
1 respuesta

Formulario Recordatorio Access

¿Cómo puedo elaborar un formulario que funcione como recordatorio para citas hechas? Cuento con un formulario de access al cual programo citas de callback, y debo llamar a mis clientes a una hora especifica. Quisiera elaborar un formulario que se...
1 respuesta

Consulta Días Hábiles y Festivos access

Después de haberme estudiado cada post de este asunto por toda la web, no he conseguido encontrar una solución a mi problema, por eso, he decido solicitarle ayuda. Actualmente tengo en Access una tabla llamada "Tabla1" con 2 campos Fecha 1 y Fecha 2...
2 respuestas

Como declarar una variable global en access

Tengo un gran problema en el programador de access 2007 la cosa esta así tengo una tabla en la que tengo los campos usuario, clave y tipo. Después tengo un formulario en el que te pide el usuario y la clave en este tengo este código: Option Compare...
1 respuesta

Tablas insertadas con Word

Soy usuario de Visual Basic 6 desde hace un año. Tengo problemas a la hora de entender el mecanismo de OLE Automatización entre otras cosas porque no lo tengo documentado a pesar de tener varios libros de VB 6, uno muy bueno de 1200 págs. Pero donde...
1 respuesta