Registros

[Guest Daltio]

Olá!

Gostaria de saber se o código de verificação de quantidade de registros na minha tabela funcionaria se eu quisesse coloca-lo num relatório ao imprimir num outro código. Por exemplo:

'Código de verificação:

sub Total()

Dim lin as Integer

Lin =1;

Do while Lin <> ""

Lin = Lin + 1;

loop

Lin = lin - 1;

exit sub

'Então igualaria meu campo de exibição desse dado( no caso uma combox) ao meu dado, e depois colocaria o campo no código da impressão?

combox = Total

Printer.print combox

Funcionaria?

Agradeço quem possa me ajudar.

[Graymalkin]

Não tem algo errado nesse código, não?

Do while Lin <> ""

Lin = Lin + 1;

loop

Repare que na condição do while o "Lin" é tratado como uma string, todavia a instrução seguinte faz uso dele como um inteiro. Creio eu que o certo seria:

do while not rs.eof
    lin = lin + 1
    rs.movenext
loop

Onde "rs" é a tabela e "lin" a variável que conterá o número correspondente a quantidade de registros.

ok?

Graymalkin