Error 3021 en tiempo de ejecucion. No current record

[Sylvestre]

Hola!!

Tengo un problema en una consulta a una BD..
al ejecutar el siguiente código..

Conjunto_de_resultados!clave = Clave_txt.Text & " "
Conjunto_de_resultados!apell1 = Apell1_txt.Text & " "
Conjunto_de_resultados!nombre = Nombre_txt.Text & " "
Conjunto_de_resultados!apell2 = Apell2_txt.Text & " "
Conjunto_de_resultados!Edad = Edad_txt.Text & " "
Conjunto_de_resultados!patologi = patologi_combo.Text & " "
Conjunto_de_resultados!lateralid = lateralid_combo.Text & " "
Conjunto_de_resultados!contrala = contrala_combo.Text & " "
Conjunto_de_resultados!comtec = comtec_combo.Text & " "
Conjunto_de_resultados!Agudepre = agudepre_combo.Text & " "
Conjunto_de_resultados!Agudepost = agudepost_combo.Text & " "
Conjunto_de_resultados!funcion = funcion_combo.Text & " "
Conjunto_de_resultados!celulas = celulas_combo.Text & " "
CadenaSQL = "SELECT Crondan.usoapo From Crondan WHERE (((Crondan.patolon)='" & Conjunto_de_resultados!patologi & "') AND ((Crondan.lateralin)='" & Conjunto_de_resultados!lateralid & "') AND ((Crondan.contralan)='" & Conjunto_de_resultados!contrala & "') AND ((Crondan.comtecn)='" & Conjunto_de_resultados!comtec & "') AND ((Crondan.agudepren)='" & Conjunto_de_resultados!Agudepre & "') AND ((Crondan.agudeposn)='" & Conjunto_de_resultados!Agudepost & "') AND ((Crondan.funcionn)='" & Conjunto_de_resultados!funcion & "') AND ((Crondan.celulasn)='" & Conjunto_de_resultados!celulas & "'))"
MsgBox "" & CadenaSQL
Set Conjunto_de_resultados2 = Base_de_datos.OpenRecordset(CadenaSQL, dbOpenDynaset, dbOptimistic)
usoap = Conjunto_de_resultados2!usoapo




me sale el error "Error 3021 en tiempo de ejecución. No current record.".
Pero hago la misma consulta en Access y sale el valor que estoy buscano, no es nula la consulta.. ¿a que se debe?

Gracias de antemano

SALUDOS

[marcocho2005]

Iniciado por Sylvestre

Hola!!

Tengo un problema en una consulta a una BD..
al ejecutar el siguiente código..

Conjunto_de_resultados!clave = Clave_txt.Text & " "
Conjunto_de_resultados!apell1 = Apell1_txt.Text & " "
Conjunto_de_resultados!nombre = Nombre_txt.Text & " "
Conjunto_de_resultados!apell2 = Apell2_txt.Text & " "
Conjunto_de_resultados!Edad = Edad_txt.Text & " "
Conjunto_de_resultados!patologi = patologi_combo.Text & " "
Conjunto_de_resultados!lateralid = lateralid_combo.Text & " "
Conjunto_de_resultados!contrala = contrala_combo.Text & " "
Conjunto_de_resultados!comtec = comtec_combo.Text & " "
Conjunto_de_resultados!Agudepre = agudepre_combo.Text & " "
Conjunto_de_resultados!Agudepost = agudepost_combo.Text & " "
Conjunto_de_resultados!funcion = funcion_combo.Text & " "
Conjunto_de_resultados!celulas = celulas_combo.Text & " "
CadenaSQL = "SELECT Crondan.usoapo From Crondan WHERE (((Crondan.patolon)='" & Conjunto_de_resultados!patologi & "') AND ((Crondan.lateralin)='" & Conjunto_de_resultados!lateralid & "') AND ((Crondan.contralan)='" & Conjunto_de_resultados!contrala & "') AND ((Crondan.comtecn)='" & Conjunto_de_resultados!comtec & "') AND ((Crondan.agudepren)='" & Conjunto_de_resultados!Agudepre & "') AND ((Crondan.agudeposn)='" & Conjunto_de_resultados!Agudepost & "') AND ((Crondan.funcionn)='" & Conjunto_de_resultados!funcion & "') AND ((Crondan.celulasn)='" & Conjunto_de_resultados!celulas & "'))"
MsgBox "" & CadenaSQL
Set Conjunto_de_resultados2 = Base_de_datos.OpenRecordset(CadenaSQL, dbOpenDynaset, dbOptimistic)
usoap = Conjunto_de_resultados2!usoapo




me sale el error "Error 3021 en tiempo de ejecución. No current record.".
Pero hago la misma consulta en Access y sale el valor que estoy buscano, no es nula la consulta.. ¿a que se debe?

Gracias de antemano

SALUDOS

No crees que sería mejor usar:
Set Conjunto_de_resultados2 = New ADODB.Recordset
Conjunto_de_resultados2.Open CadenaSQL, adOpenDyna set, adLockOptimistic

[Sylvestre]

Iniciado por marcocho2005

No crees que sería mejor usar:
Set Conjunto_de_resultados2 = New ADODB.Recordset
Conjunto_de_resultados2.Open CadenaSQL, adOpenDyna set, adLockOptimistic

creo que ya lo he solucionado.. hice que me saliera un msgbox para ver como me hacia la consulta (porque de antemano sabia que no era vacia, tenia que dar como resultado algún valor..) y resulta que los valores me los cogía con espacios por lo que una vez solucionado, funciona correctamente