COMPILE ERROR
compile error
...type mismatch
...
call GravaC(An2, Valor4) <- aqui no An2 da o erro
...
...type mismatch
...
call GravaC(An2, Valor4) <- aqui no An2 da o erro
...
Public Function GravaC(C as String, V as Valor)
Dim bd as DataBase
Dim rs as recordset
bd = OpenDatabase("C:\Contabil\Contabil.mdb")
sql = "Update * from Balanco where VlrCta = " & CStr(V)
sql = sql + " And CodigoC = '" & C & "'"
bd.Execute sql
bd.close
End Function
Este erro ocorre quando vc está tentando passar uma variável de tipo diferente ao do parâmetro da função...
Veja se a variavel An2 é string!
Veja se a variavel An2 é string!
Valeu colega, mas ja conferi, ela eh string.
Se eu testar mandando o parametro "10000" ai funciona.
Se eu testar mandando o parametro "10000" ai funciona.
Cara..num sei..se foi detalhe e tal...mas sua sql ta diferente ..tenta assim
sql = "Update * from Balanco where CodigoC = '" & C & "' And VlrCta = " & CStr(V) & ""
e outra...desculpa minha igno mas no update, n teria q ter o SET bla bla bla?
Tópico encerrado , respostas não são mais permitidas