Error 424

[Leandro Menezes 0]

Galera, tenho um sistema em VB6 com relatórios em Crystal Reports, porém, quando tenho gerar um relatório o sistema acusa o seguinte erro:

Run-time error '424': Object required

 

o código é o seguinte:

 

Private Sub Section4_Format(ByVal pFormattingInfo As Object)

If (UCase(Trim(InStr(objCodTabela.Value, "90")))) > 0 Then

Set objCodTabela.Value = "01" '<<<< acusa erro aki

End If

End Sub

 

Ou seja, estou capturando um determinado valor do banco e tratando ele para q seja mostrado outro valor no relatório; detalhe, o objeto (objCodTabela.Value) apresenta o valor quando a gente "Debuga", então significa que o nome não está errado e o objeto existe.

 

Como faço para resolver esse problema???

 

Valeu galera...

[Claudio Neto 3]

Tire as aspas do 1:

 

objCodTabela.Value = 1

 

1 significa verdadeiro, e 0 false. E da forma que está passando, é como se quisesse passar uma string.

[Leandro Menezes 0]

Mas eu quero mesmo passar uma string, ou seja, no relatório, ao invés de mostrar o que a pesquisa traz do banco, quero que mostre outro valor....

[Claudio Neto 3]

Mas a propriedade value não aceita strings. Somente verdadeiro ou falso.