Visual Basic - Error Consulta

Life is soft - evento anual de software empresarial
   
Vista:

Error Consulta

Publicado por GeorgeChurch (7 intervenciones) el 20/11/2009 02:44:50
Alguien por favor me puede regalar una gran ayuda, es que tengo un problema con una consuta y es como grave porque no tengo ni la mas minima idea de cual es el problema:

Para el siguiente codigo porque se genera el error: ""No coinciden los tipos de datos en la expresión de criterios""

Sub select01()

Dim rs As Recordset, dbs As Database
Dim stCOD As Long, stQuery As Variant

stCOD = Form_PasoVendido.Codigo_del_Animal.Value
ss = MsgBox("Esta seguro de que este animal se vendio?, si lo introduce al invetario de ventas por error debe consultar al proveedor", vbYesNo + vbInformation, "SIGAH")

If ss = 6 Then

stQuery = "SELECT DiasPendientes FROM PeriododeRETIRO WHERE [Codigo del Animal]= '" & stCOD & "'"
Set dbs = CurrentDb
Set rs = dbs.OpenRecordset(stQuery)

rs.MoveFirst
Do Until rs.EOF = True
s = rs![DiasPendientes]
MsgBox s
rs.MoveNext
Loop
Exit Sub

rs.Close

End If
End Sub

MUCHAS GRACIAS PARA LOS PROGRAMADORES QUE ME PUEDAN AYUDAR.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Error Consulta

Publicado por Llaverin (70 intervenciones) el 30/11/2009 18:19:26
Hola GeorgeChurch:

Creo que el error que arroja se debe a esto:
'" & stCOD & "'"
no???

Comprueba que es de tipo string, ya que lo pones con comillas, verificalo, porque creo que es numerico y como tal no debe de llevar comillas.

Saludos
Llaverin
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar