VERIFY DATA BASE

Citação:

Set TBRelatorio = bd.openrecordset([Ô]SELECT * from usuarios)
Report.database.setdatasource TBusuarios

Dim Sql As String

Sql = [Ô]Select Codigo as Codigo,Nome as Nome...[Ô]
Set TBRelatorio = bd.openrecordset(Sql)

[ô]Neste Caso, os campos Reais são os Apelidos
[ô]Quando mudar o campo no banco:
Sql = [Ô]Select Cod as Codigo,NomeCompleto as Nome...[Ô]
[ô]Neste caso o nome do campo mudou mas o fiend no cristal vai apontar para o novo campo pelo apelido

Citação:

ROBIU escreveu:
Set TBRelatorio = bd.openrecordset([Ô]SELECT * from usuarios)
Report.database.setdatasource TBusuarios

Tenta colocando [Ô]apelido[Ô] para os campos no select. Neste caso, a instrução Sql ficará maior e será recomendado criar uma Variavel string para definir essa instrução:

Dim Sql As String

Sql = [Ô]Select Codigo as Codigo,Nome as Nome...[Ô]
Set TBRelatorio = bd.openrecordset(Sql)

[ô]Neste Caso, os campos Reais são os Apelidos
[ô]Quando mudar o campo no banco:
Sql = [Ô]Select Cod as Codigo,NomeCompleto as Nome...[Ô]
[ô]Neste caso o nome do campo mudou mas o fiend no cristal vai apontar para o novo campo pelo apelido

Note que isso não vale para os campos critérios.

[ô]...Where Nome=...[Ô], [Ô]Order By Codigo[Ô] => Nesses casos só valem os nomes reais da tabela.