Access - COMO OBTENER PROMEDIOS CON FILTRO PREVIO

Dim PrecioPromedio As Long

Dim dbs1 As Recordset

Set dbs1 = Currentdb.OpenRecordset ("SELECT AVERAGE(precio) As AvPrecio FROM tabla WHERE pisos vendidos = no AND tipologia especial = Duplex Planta Baja")

PrecioPromedio = dbs1!AvPrecio

dbs1.Close

Set dbs1 = Nothing

Private Sub Report_Load()

Dim PRECIOPromedio As Long

Dim dbs1 = Currentdb.OpenRecordset ("SELECT AVERAGE(PRECIO)As AvPrecio FROM tabla WHERE STOCK_VENDIDO = no AND TIPOLOGIA_ESPECIAL <> 0")

PRECIOPromedio = dbs1!AvPRECIO

End Sub

Private Sub Report_Load()

Dim SUPERFICIE_CONSTRUIDAPromedio As Long

Dim dbs1 = Currentdb.OpenRecordset ("SELECT AVERAGE(SUPERFICIE_CONSTRUIDA)As AvPrecio FROM tabla WHERE STOCK_VENDIDO = no AND TIPOLOGIA_ESPECIAL <> 0")

SUPERFICIE_CONSTRUIDAPromedio = dbs1!AvPRECIO

End Sub

Private Sub Report_Load()

Dim PRECIOPromedio As Long

Dim dbs1 As Recordset

Set dbs1 = CurrentDb.OpenRecordset("SELECT AVERAGE(PRECIO)As AvPrecio FROM INMUEBLES WHERE STOCK_VENDIDO='no' AND TIPOLOGIA_ESPECIAL <>0")

PRECIOPromedio = dbs1!AvPRECIO

dbs1.Close

Set dbs1 = Nothing

Dim SUPERFICIE_CONSTRUIDAPromedio As Long

Dim dbs1 As Recordset

Set dbs1 = CurrentDb.OpenRecordset("SELECT AVERAGE(SUPERFICIE_CONSTRUIDA)As AvPrecio FROM INMUEBLES WHERE STOCK_VENDIDO='no' AND TIPOLOGIA_ESPECIAL <>0")

SUPERFICIE_CONSTRUIDAPromedio = dbs1!AvSUPERFICIE_CONSTRUIDA

dbs1.Close

Set dbs1 = Nothing

End Sub

Private Sub Report_Load()

    Dim PRECIOPromedio As Long

    Dim dbs1 As Recordset

    Set dbs1 = CurrentDb.OpenRecordset("SELECT AVG(PRECIO) AS AvPrecio FROM INMUEBLES WHERE STOCK_VENDIDO=0 AND TIPOLOGIA_ESPECIAL IS NULL;")

    PRECIOPromedio = dbs1!AvPRECIO

    Me.PRECIOmedio.Value = PRECIOPromedio

    dbs1.Close

    Set dbs1 = Nothing

    Dim SUPERFICIE_CONSTRUIDAPromedio As Long

    Dim dbs2 As Recordset

    Set dbs2 = CurrentDb.OpenRecordset("SELECT AVG(SUPERFICIE_CONSTRUIDA)As AvSUPERFICIE_CONSTRUIDA FROM INMUEBLES WHERE STOCK_VENDIDO=0 AND TIPOLOGIA_ESPECIAL IS NULL;")

    SUPERFICIE_CONSTRUIDAPromedio = dbs2!AvSUPERFICIE_CONSTRUIDA

    Me.SUPERFICIE_CONSTRUIDAmedia.Value = SUPERFICIE_CONSTRUIDAPromedio

    dbs2.Close

    Set dbs2 = Nothing

End Sub

Me.PRECIOmedio.Value = PRECIOPromedio

Me.SUPERFICIE_CONSTRUIDAmedia.Value = SUPERFICIE_CONSTRUIDAPromedio