[Resolvido] Erro - Uso de Null invalido - ao executar um loop

Bom dia Srs,
sou novo por aqui e ante mao muito obrigaado pelo espaço, este e meu 1° post...

Estou fazendo um loop onde eu pego as informações de uma consulta pra mostar uma tabela em html para ser enviado por email, porem tem 3 situações possiver para montar a tabela, mas nem todas as informações de cada status vou precisar e é ai que esta aparecendo o erro.
Codigo

Código:



'Loop para tarzer OP's do dia de cada Cliente
    Do Until rst.EOF
        
        strQuery = "SELECT * FROM TBLORDEMPAGAMENTO WHERE SOLICITACAO_OP = " & rst("ID_SOLICITACAO")
        Set dataset = CurrentDb.OpenRecordset(strQuery)
        
        'Loop para montar o conteudo da Tabela no email.
        Do Until dataset.EOF
                                    
            If dataset("status_op") = "DEVOLVIDO" Then
        
                strTableBody = strTableBody & _
                            "<tr>" & _
                                TD(dataset!documento_op) & _
                                TD(dataset!status_op) & _
                                TD(Format(dataset!valor_op, "currency")) & _
                                TD(dataset!data_op) & _
                                TD(dataset!ag_destino_op) & _ >>>>>>>>> nesses estao vindo null da tabela
                                TD(dataset!hora_op = " - ") & _ >>>>>>>>> ""                                       ""
                            "</tr>"
                        
            End If
        ...



Sou novo no Access, desculpem se o codigo nao esta muito legivel....

E se verificar se é nulo antes:

Código:

If not isnull(dataset("status_op")) Then
  If dataset("status_op") = "DEVOLVIDO" Then
     ...
  end if
  ...
end if

Abs

Continua dando o mesmo erro,
minha ideia e nesses campos que esta vindo nulo, na tabela montada no email, colocat um hifen " - ", mas não esta rolando...

Ah, desculpe, não vi que o erro não era na condição, mas sim na montagem da msg.

Para sites, uso ASP e sempre incluo a função iif para essas horas:

Código:

<%
Function IIf(i,j,k)
 If i Then IIf = j Else IIf = k
End Function
%>

No seu exemplo ficaria:

Código:

               strTableBody = strTableBody & _
                            "<tr>" & _
                                TD(dataset!documento_op) & _
                                TD(dataset!status_op) & _
                                TD(Format(dataset!valor_op, "currency")) & _
                                TD(dataset!data_op) & _
                                iif(isnull(TD(dataset!ag_destino_op)),"",TD(dataset!ag_destino_op)) & _
                               iif(isnull(TD(dataset!hora_op = " - ")),"",TD(dataset!hora_op = " - ")) & _ ""                                       ""
                            "</tr>"


Caso ainda continue dando o erro para o nulo (já me ocorreu mesmo assim), crie uma variável e vá verificando e passando o valor para ela.
Ficaria +ou- assim:

Código:


                  Dim xVar
                 xVar = TD(dataset!documento_op) & _
                            TD(dataset!status_op) & _
                            TD(Format(dataset!valor_op, "currency")) & _
                            TD(dataset!data_op)

                 if not isnull(TD(dataset!ag_destino_op)) then
                     xVar = xVar & TD(dataset!ag_destino_op)
                  end if
                  if not isnull(TD(dataset!hora_op)) then
                     xVar = xVar & TD(dataset!hora_op)
                  end if

                  strTableBody = strTableBody & _
                            "<tr>" & xVar &"</tr>"


Aí é adaptar para o que vc realmente precisa.

Flw

Opa Marcos, vlw mesmo pela ajuda, cara fiz o seu segundo exemplo e nao deu certo, no seu terceiro achei meio complicado, ate pq eu sou novato na arrea....   , ma acabei resolvendo o problema de uam forma bem simples, os campos que estavao vindo nulos, eu nao precisaria usa-los na tabela no email, dai eu tirei eles das TD's e para nao ficar vazio o campo na tabela, concatenei com uma " - " hifen, o codigo ficou assim...

Código:



'Loop para montar o conteudo da Tabela no email.
        Do Until dataset.EOF
           
            If dataset("status_op") = "DEVOLVIDO" Then
           
               
           
                   
                    strTableBody = strTableBody & _
                                "<tr>" & _
                                    TD(dataset!documento_op) & _
                                    TD(dataset!status_op) & _
                                    TD(Format(dataset!valor_op, "currency")) & _
                                    TD(dataset!data_op) & _
                                    TD("-") & _ >>>> Aqui
                                    TD("-") & _ >>>> Aqui
                                    TD("-") & _ >>>> Aqui
                                "</tr>"
                           
                End If



desse jeito resolveu o meu problema, Vlw cara pela ajuda abçs.