Problema de acceso a la declaración VBA
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