Access - Ejecutar consulta desde VB

Tengo una funcion que lo que hace es crearme una clave.
Con esa clave quiero buscar si existe alguna parecida. Tengo puesto:

Dim sql As String

sql = "SELECT count(*) " & _
"FROM peliculas " & _
"WHERE codpel like '%" & cod & "%' "

DoCmd.RunSQL sql

Pero me da un error que dice: "A RunSQL action requires an argument consisiting of an SQL statement"

Porque puede ser?

El error consiste en que no tienes porque ejecutar el DoCmd, ya que estas haciendo una consulta de Selección, el DoCmd se utiliza con un INSERT, UPDATE ó DELETE, has la prueba y omite el DoCmd y sql metelo a una Lista o combo para que veas el resultado.

Pero como se lo muevo? Yo solo consigo tener el valor
Tendria que abrir antes un record set? Si es asi he probado poniendo:
sql = "SELECT count(*) " & _
"FROM peliculas " & _
"WHERE codpel like '*the*'"
Set rs = CurrentDb.OpenRecordset(sql)

y me da "Type mismatch"

En realidad lo que yo necesito es tener el resultado de esa SELECT en una variable para luego poder tratarla

Muchas gracias

No se cual sea tu confusion porque probe tu consulta y si hace el filtro correctamente, meti 10 peliculas de las cuales 4 tienen en algun lugar la palabra then y el resultado que me dio es 4.

textualmente dices :
"yo necesito es tener el resultado de esa SELECT en una variable para luego poder tratarla "

mi amigo el resultado ya lo tienes en tu variable llamada sql, crea una lista que te muestre un solo campo corre tu codigo y ahi vas a ver el resultado.

sql = "SELECT count(*) FROM peliculas WHERE codpel like '*the*'"
Me.Lista.RowSource = sql
Me.Lista.Requery

Muchas gracias, la he probado y funciona.

Pero de la manera que me dices tengo una lista que no necesito, podria ocultarla, pero seguiria estando ahi.

Ademas, si sustituyo:
"WHERE codpel like '*the*' "
por
"WHERE codpel like '*" & cod & "*' "

da "Type mismatch" en el primer &, esto lo hago para obtener el valor dependiendo de una variable externa

amigo la lista te la puse solo como ejemplo para que veas el resultado de tu consulta, omitela.

Lo he intentado y en una lista si lo consigo, poniendo fija la clave, si la tengo en una varibale, no.

Yo ya me estoy volviendo loco.
Lo que quiero es obtener en la variable "cla" el numero de registros de la tabla peliculas cuya clave contengan el valor de la variable "cod"

Siento ser tan pesado

Hola:
Como te comente usa la funcion DCount()

Dim strCriterio As String
Dim cod As String
Din cla As Integer

cod = CampoCriterioBuscar
strCriterio = "codpel like '*' & '" & cod & "' & '*'"

cla = DCount("*", "peliculas", strCriterio)
MsgBox cla

Creo que codpel era el campo clave.

Un saludo.

Con eso da "Type mismatch" en el segundo & del strCriterio

Hola:
La verdad que no sé muy bién lo que quieres, sí lo que quieres es obtener cuantas películas tienes según el criterio de la variable cod, lo que te he puesto antes te lo da. Sí lo que quieres es hacer un recordset y saber cuantos registros tiene:

Dim cod As String
Dim rst As DAO.Recordset
Dim ssql As String
Dim cla As Long

cod = CampoBuscar

ssql = " select * from peliculas where codpel like '*' & '" & cod & "' & '*'"
Set rst = CurrentDb.OpenRecordset(ssql)
rst.MoveLast
cla = rst.RecordCount

MsgBox cla
rst.Close
Set rst = Nothing

otra forma:
ssql = " select Count(codpel) as cantidad from peliculas where codpel like '*' & '" & cod & "' & '*'"
Set rst = CurrentDb.OpenRecordset(ssql)

cla = rst!cantidad
MsgBox cla

rst.Close
Set rst = Nothing

Un saludo

Lo que necesito es saber cuantos registros de una tabla cumplen la condicion. No necesito nada mas. Lo que pasa es que al probar lo que me has dicho antes da un error "Type mismatch".

Probare en casa lo que me comentas ahora, y ya te contare

Muchas gracias de todas formas

Acabo de probar las dos opciones y en las dos me da el mismo error: "No coinciden los tipos". Da en el segundo &, el que está antes de la variable cod

Hola:
Pon el nombre de la tabla, el nombre de los campos que utilices y su tipo de datos, y luego pon exactamente el código que estas utilizando, seguramente será un error de sintaxis.

Un saludo

Esto es lo que tengo puesto. Antes tengo un trozo de codigo donde calculo el valor de "cod" que es un string

Dim rst As Recordset
Dim ssql As String
Dim cla As Long

ssql = " select * from peliculas where codpel like '*' & '" & cod & "' & '*'"
Set rst = CurrentDb.OpenRecordset(ssql)
rst.MoveLast
cla = rst.RecordCount

MsgBox cla
rst.Close
Set rst = Nothing

Hola:
He creado una tabla a la que le he llamado peliculas, con el campo clave codpel de tipo texto,
en el código he declarado la variable cod de tipo String y le he asignado el valor de un cuadro de texto de un formulario
cod = Texto0
luego he puesto el código que tienes y funciona perfectamente, como todos los que puse anteriormente.
Sí no te funciona, lo siento, pero no se más.

Un saludo.

Hola:
Mirate la función Dcount() en la ayuda

Un saludo:

Hola
En Access el caracter comodín es el asterisco "*"

sql = "SELECT count(*) " & _
"FROM peliculas " & _
"WHERE codpel like '*" & cod & "*' "

Un saludo