IPB

Bem-vindo, visitante ( Entrar | Registrar )

 
Reply to this topicStart new topic
#error Quando O Subform Não Tem Registros
OsmarJr
post Jul 11 2008, 09:51 AM
Post #1


Moderador
***

Grupo: Root Admin
Posts: 170
Registrado: 2-July 08
De: Curitiba - Paraná - Brasil
Membro N°: 3



#Error Quando o Subform não tem Registros

Autor Keri Hardwick

Tradução Osmar José Correia Júnior

Alguns fatos sobre #ERROR devolvido quando um subform não tem registros: nestes exemplos [SubCampo] se refere a uma referência correta um campo do subformulário à partir do formulário principal,
  • Não resulta Null: IsNull([SubCampo]) resulta em Falso.
  • Resulta erro no formulário principal mas não quando passado para um módulo global:
  • IsError([SubCampo]) no formulário principal resulta em True
  • IsAnError([SubCampo]) devolve False se a função estiver em um módulo padrão:
    CODE
    Function IsAnError(testvalue as variant) as Boolean
       IsAnError = IsError(testvalue)
    End Function
  • Não resulta em numérico. IsNumeric([SubCampo]) resulta em Falso.
Acho que este é o melhor teste, já que, muitas vezes, é um total ou outro número que é passado para o formulário principal. Se não, normalmente temos um campo numérico no subformulário que pode ser testado, mesmo que não seja utilizado no formulário principal.

Este teste indica quando existem registros: IsNumeric devolve True; quando não há registros, IsNumeric devolve False. Desta forma você pode apresentar uma mensagem “Sem Registros” em vez de #ERROR.
CODE
'***************** Início do Código ***************
‘ Este código foi escrito originalmente por Keri Hardwick.
‘ Não deve ser alterado ou distribuído exceto como parte
‘ de um aplicativo. Sinta-se livre para utiliza-lo em
‘ qualquer aplicativo, desde que este cabeçalho fique
‘ inalterado.
'
Function nnz(testvalue As Variant) As Variant
'Não numérico devolve zero

   If Not (IsNumeric(testvalue)) Then
       nnz = 0
   Else
       nnz = testvalue
   End If
End Function
'***************** Final do código ****************
Go to the top of the page
 
+Quote Post

Reply to this topicStart new topic
1 usuário(s) está(ão) lendo este tópico (1 visitantes e 0 usuários anônimos)
0 membros:

 

Modos de Exibição: Padrão · Mudar para: Linear+ · Mudar para: Outline


Versão Simples Horário: 17th January 2019 - 06:41 PM