Access - como contar frases con el dcont

DCOUNT("CLAVE_PRIMARIA","MI_TABLA", "FRASE LIKE '*hp*')

Dim miSQL As String

DIm rst As Recordset

miSQL = "SELECT COUNT(TIPO) "

miSQL = miSQL & "FROM TODOS_EQUIPOS "

miSQL = miSQL & "WHERE MARCA_MODELO IN ( 'DELL OPTIPLEX 3060 MICRO' , 'DELL OPTIPLEX 5260 AIO') "

miSQL = miSQL & "AND ASIGNACION_EQUIPO = 'ACTUAL' "

Set rst = Me.Application.CurrentDB.OpenRecordset( miSQL )

Debug.Printer rst!Fields(0)

Set rst = Nothing

Function Cuantos() AS Long

Dim miSQL As String

DIm rst As Recordset

miSQL = "SELECT COUNT(TIPO) "

miSQL = miSQL & "FROM TODOS_EQUIPOS "

miSQL = miSQL & "WHERE MARCA_MODELO IN ( 'DELL OPTIPLEX 3060 MICRO' , 'DELL OPTIPLEX 5260 AIO') "

miSQL = miSQL & "AND ASIGNACION_EQUIPO = 'ACTUAL' "

Set rst = Me.Application.CurrentDB.OpenRecordset( miSQL )

Cuantos = rst!Fields(0)

Set rst = Nothing

End Function

= Cuantos()

=DCount("TIPO","TODOS_EQUIPOS","[MARCA_MODELO] IN ('DELL OPTIPLEX 3060 MICRO','DELL OPTIPLEX 5260 AIO') AND [Asignacion_Equipo] = 'ACTUAL'")