TIPO DE DADOS COM VETOR

PATRIQUE 23/10/2009 08:34:59
#326132
Bom dia, tenho um estrutura montada dessa maneira em um modulo

Private Type T_Importacao
Numero As String
Data As String
Hora As String
Descricao As String
End Type

Private Type T_Dados
Matricula As Long
Nome As String
dtReferencia As Date
vtDados() As T_Importacao
End Type

Public Arquivo() As T_Dados

[ô]******************************************************

Preciso verificar se o vetor vtDados() tem dados, estou usando algo assim em um formulário

If UBound(Arquivo(1).vtDados()) Is Nothing Then
[ô]faça..
end if

Porém ocorre esse erro antes de compilar

Compile error:
Type mismatch

Ou seja, tipo inconrreto de dados.. a estrurura estah funcionando perfeitamento.
Alguém poderia me informar como poderia proceder.. se eh possivel..
já tentei isso tbm


If Arquivo(1).vtDados() Is Nothing Then
[ô]faça..
end if

Obrigado!
EDERMIR 25/10/2009 17:55:43
#326256
If UBound(Arquivo(1).vtDados()) <> 0 Then
[ô]vazio
end if
PATRIQUE 29/10/2009 13:52:48
#326515
Opah! tdo bem Edermir?

Não funcionou seu código.. dah o erro número 9, o mesmo que dava antes...

Obrigado!
MARCELO.TREZE 29/10/2009 14:03:45
#326516 Resposta escolhida
a situação é a seguint o uboud não irá funcionar com array em type

uma solucão seria tratar o erro

No inicio do código

On Error Goto trataErro

[ô] seu código

Exit Sub
TrataErro:

If Err.Number = 9 then msgbox [Ô]está vazio

teste
PATRIQUE 29/10/2009 14:12:55
#326518
Certo Marcelo...

Obrigado pela dica..
luz e paz!
Tópico encerrado , respostas não são mais permitidas
Voltar