Olá, pessoal!
Gostaria de uma ajuda de quem entender sobre classes
estou definindo uma classe chamada clsPessoa com os seguintes campos
Option Compare Database
Option Explicit
Private strNomePessoa As String
Private Type Ctps
Numero As String * 7
Serie As String * 5
Uf As String * 2
Emissao As Date
End Type
Property Get CarteiraTrabalho() As Ctps
CarteiraTrabalho.Numero = Numero
CarteiraTrabalho.Serie = Serie
CarteiraTrabalho.Uf = Uf
CarteiraTrabalho.Emissao = Emissao
End Property
Property Let CarteiraTrabalho(argCarteiraTrabalho As Ctps)
Numero = argCarteiraTrabalho.Numero
Serie = argCarteiraTrabalho.Serie
Uf = argCarteiraTrabalho.Uf
Emissao = argCarteiraTrabalho.Emissao
End Property
Property Get NomePessoa() As String
NomePessoa = strNomePessoa
End Property
Property Let NomePessoa(argNomePessoa As String)
strNomePessoa = UCase(argNomePessoa)
End Property
Quando compilo ou executo um código dentro de uma classe dá a seguinte mensagem de erro de compilação na linha:
Property Get CarteiraTrabalho() As Ctps dizendo que:
Enum Particular e tipos definidos pelo usuário não podem ser usados como parâmetros ou tipos retornados para procedimentos públicos, membros de dados públicos ou campos de tipos públicos definidos pelo usuário
Pergunto não dá para criar variável do tipo type (definido pelo usuário) numa classe?
se alguém tiver outra ideia de como criar agradeceria muito
segue tela do erro e arquivo para teste
Gostaria de uma ajuda de quem entender sobre classes
estou definindo uma classe chamada clsPessoa com os seguintes campos
Option Compare Database
Option Explicit
Private strNomePessoa As String
Private Type Ctps
Numero As String * 7
Serie As String * 5
Uf As String * 2
Emissao As Date
End Type
Property Get CarteiraTrabalho() As Ctps
CarteiraTrabalho.Numero = Numero
CarteiraTrabalho.Serie = Serie
CarteiraTrabalho.Uf = Uf
CarteiraTrabalho.Emissao = Emissao
End Property
Property Let CarteiraTrabalho(argCarteiraTrabalho As Ctps)
Numero = argCarteiraTrabalho.Numero
Serie = argCarteiraTrabalho.Serie
Uf = argCarteiraTrabalho.Uf
Emissao = argCarteiraTrabalho.Emissao
End Property
Property Get NomePessoa() As String
NomePessoa = strNomePessoa
End Property
Property Let NomePessoa(argNomePessoa As String)
strNomePessoa = UCase(argNomePessoa)
End Property
Quando compilo ou executo um código dentro de uma classe dá a seguinte mensagem de erro de compilação na linha:
Property Get CarteiraTrabalho() As Ctps dizendo que:
Enum Particular e tipos definidos pelo usuário não podem ser usados como parâmetros ou tipos retornados para procedimentos públicos, membros de dados públicos ou campos de tipos públicos definidos pelo usuário
Pergunto não dá para criar variável do tipo type (definido pelo usuário) numa classe?
se alguém tiver outra ideia de como criar agradeceria muito
segue tela do erro e arquivo para teste
- Anexos
- classe.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (168 Kb) Baixado 10 vez(es)