ERRO 28 - OUT OF STACK SPACE

 Tópico anterior Próximo tópico Novo tópico

ERRO 28 - OUT OF STACK SPACE

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#484701 - 30/09/2018 18:40:57

KELLY
BRASILIA
Cadast. em:Setembro/2009


Última edição em 30/09/2018 18:43:59 por KELLY

Olá a todos!

Estou com o erro 28 no meu código e não sei como resolver este problema. Analisei todo o código, mas não encontrei erro.
Este código é uma DLL que estou criando para ser usado em outras aplicações. Alguém sabe onde estou errando?


Código DLL

Option Explicit

Private vNewProduto As String
Private vNewSubCategoria As String
Private vNewCategoria As String
Private vNewPreco As Currency
Private vNewFrete As Currency
Private vNewAtivo As Boolean

Public Property Get Produto() As String
    Produto = vNewProduto
End Property

Public Property Let Produto(ByVal vNewValue As String)
    vNewProduto = vNewValue
End Property

Public Property Get SubCategoria() As String
    SubCategoria = vNewSubCategoria
End Property

Public Property Let SubCategoria(ByVal vNewValue As String)
    vNewSubCategoria = vNewValue
End Property

Public Property Get Categoria() As String
    Categoria = vNewCategoria
End Property

Public Property Let Categoria(ByVal vNewValue As String)
    Categoria = vNewValue
End Property

Public Property Get Preco() As Currency
    Preco = vNewPreco
End Property

Public Property Let Preco(ByVal vNewValue As Currency)
    Preco = vNewValue
End Property

Public Property Get Frete() As Currency
    Frete = vNewFrete
End Property

Public Property Let Frete(ByVal vNewValue As Currency)
    Frete = vNewValue
End Property

Public Property Get Ativo() As Boolean
    Ativo = vNewAtivo
End Property

Public Property Let Ativo(ByVal vNewValue As Boolean)
    Ativo = vNewValue
End Property

Código Teste

Option Explicit

Dim obj As New Project1.Class1

Private Sub Form_Load()

With obj
    .Produto = "arroz"
    .SubCategoria = "alimentos"
    .Categoria = "pacotes"
    .Preco = "12,00"
    .Frete = "100,00"
    .Ativo = True
    
    MsgBox .Produto & vbNewLine & _
           .SubCategoria & vbNewLine & _
           .Categoria & vbNewLine & _
           .Preco & vbNewLine & _
           .Frete & vbNewLine & _
           .Ativo
End With

End Sub






#484706 - 01/10/2018 01:18:46

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
"Erro 28" não nos diz muito, qual a mensagem de erro?

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


Resposta escolhida #484707 - 01/10/2018 08:25:35

FFCOUTO
COM LEVY GASPARIAN
Cadast. em:Março/2005


O erro está destacado em vermelho

Public Property Let Categoria(ByVal vNewValue As String)
    'Categoria = vNewValue
    vNewCategoria = vNewValue
End Property

Public Property Let Preco(ByVal vNewValue As Currency)
    'Preco = vNewValue
    vNewPreco = vNewValue
End Property

Public Property Let Frete(ByVal vNewValue As Currency)
    'Frete = vNewValue
    vNewFrete = vNewValue
End Property

Public Property Let Ativo(ByVal vNewValue As Boolean)
    'Ativo = vNewValue
    vNewAtivo = vNewValue
End Property





#484723 - 01/10/2018 21:24:22

KELLY
BRASILIA
Cadast. em:Setembro/2009


Olá KERPLUNK e FFCOUTO!

Eu conferi o código e realmente errei nas linhas onde o FFCOUTO destacou de vermelho. Mas obrigada pela intenção KERPLUNK e obrigada FFCOUTO pela ajuda.





 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por KELLY em 01/10/2018 21:25:30