Problema de acceso a la declaración VBA

Esto establece el rango de valores del subformulario en función de los valores de los cuadros combinados combo2 (número de edificio) y combo4 (género). Lo reescribí, las condiciones de juicio son las mismas, pero la lógica parece más clara.

Subcomando privado 6_Click()

Dim StrSql como una cadena

Dim boo2 es booleano, boo4 es booleano

boo 2 =( combo 2 lt; gt"")' Determinar si existe la condición del número de edificio.

boo 4 =(combo 4 lt; gt"")' Determinar si existe la condición de género.

Si boo2 y boo4, entonces StrSql = " donde número de edificio = ' " ;combinar amp mientras que género = ' " ;combinar amp" " si ambos existen, luego establece la condición doble.

Si boo 2 y (no boo 4) entonces strsql = " donde número de edificio = ' "; combinación amp" "solo existe la condición del número de edificio

Si (no boo 2) y boo 4 entonces. strsql = " donde sexo = ' " ; Solo existen condiciones de género en combinación amp ""

Ninguna de ellas existe, entonces la cláusula incondicional

i.apartmentRecordSource = form "select *. desde consulta de estado de apartamento"; StrSql

Finalizar conector