Module parou de funcionar

Question

 Tenho um module em um projeto, ele estava funcionando corretamente, sem explicação ele simplesmente parou de funcionar, eu peguei alguns códigos deste module e passei pra outro, e os codigos passados funcionaram, achei que poderia ser algum problema causado pela quantidade de códigos, fui dividindo os códigos até que todos funcionassem em modules separados, porém ai da erro na criação do form que usa os códigos destes módules, o aplicativo que estou montando é muito grande, seria inviavel refaze-lo totalmente, alguem teria uma solução pra que este module volte a funcionar?

---

Ajudei? Marque como respondido! Aderson Pucci VB.NET

Answer 1

Poderia colocar o erro que está ocorrendo?

---

Se sua pergunta foi respondida por favor marque a resposta como certa.

Answer 2

ele apenas diz o seguinte:
 O inicializador de tipo de 'MeuPrograma.Module1' acionou uma exceção.

 E pra ajudar, este module consulta aguns dados no banco de dados pra conseguir construir o form principal do programa, como o mudule parou, se eu peço por exemplo pro sistema entrar direto no form principal ai da erro por não conseguir criar o form

 Eu na realidade não resolvi o problema, mais peguei um backup do programa que eu tinha de uma semana atraz e repassei os códigos novos pra essa cópia, e o sistema FUNCIONOU CORRETAMENTE, ou seja, o problema não estava em nenhum código, ja que eu apenas copiei os codigos do projeto que não funcionava e passei pra outra cópia, estou consiguindo seguir meu projeto, mais não descobri o motivo de o module simplesmente parar de funcionar, meu medo é que o mesmo erro aconteça novamente! Ja que o ideal seria eu consertar o erro, e não refazer o projeto pra evita-lo!

---

Ajudei? Marque como respondido! Aderson Pucci VB.NET

Answer 3

Vc poderia investigar a innerexception. Por q segundo a mensagem, dentro do construtor de algum objeto está sendo lançada uma exceção, por isso deveria ser investigado toda a exceção.

---

Se sua pergunta foi respondida por favor marque a resposta como certa.

Answer 4

Boa tarde

Grande, já tive um problrma igual a esse utilizando C# e Postgres.
A unica mensagem apresentada era: O inicializador de tipo de 'MinhaClasse' acionou uma exceção.
Quando fui ver no projeto ao qual pertencia a classe, uma referencia estava com o sinal amarelo de alerta, como se tivesse sido excluida. Adicionei novamente a referencia e voltou a funcionar.
Veja se não é isso.

---

Euzebio Barreto Se consegui ajudar marque esta resposta como util

Answer 5

o erro do module aponta pra QUALQUER função que eu chame primeiro, ele possui varias funções, e sempre que eu chamo qualquer função função dele, por mais simples que for ele da erro, se eu por exemplo criar uma função nele assim:

FUNCTION exemplo as string
    exemplo = "TESTE"
END FUNCTION

ele não consegue retornar o valor da string, ou seja, nem referencia tem, e mais estranho é eu chamar as funções todas em um backup do projeto, e tudo funcionar, como expliquei, resolvi usando um backup do projeto da semana passada, mais de qualquer forma não consegui resolver o problema, sem resolver não posso impedir que ele ocorra novamente!

---

Ajudei? Marque como respondido! Aderson Pucci VB.NET

Answer 6

Poderia colocar o código onde vc chama este metodo?

---

Se sua pergunta foi respondida por favor marque a resposta como certa.

Answer 7

'Função no Mudule
Public Sub ini_regst()
        sck_blocks() 'antes de tudo checa oq deve ser bloqueado
        Dim con_strqq As String = My.Settings.ctrl_funcConnectionString
        Dim connctqq As New OleDb.OleDbConnection(con_strqq)
        Dim in_dados As OleDb.OleDbCommand
        in_dados = New OleDb.OleDbCommand("UPDATE cadastros SET ck_b = 0", connctqq)
        connctqq.Open()
        Try
            in_dados.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
        connctqq.Close()
    End Sub


'Chamando a função no evento load do Form1

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ini_regst()
    End Sub
End Class
Desta forma o código não abre de forma alguma no module, mais se eu crio um novo module e chamo apenas esta função o codigo funciona corretamente

---

Ajudei? Marque como respondido! Aderson Pucci VB.NET

Answer 8

Em qual linha ocorre o erro?
Uma boa dica foi do Euzebio, esta exceção pode ocorrer caso ele não consiga carregar uma dll, esta mensagem é lançada quando não é possivel criar um tipo, ou seja pode estar no construtor da classe, ou qdo não carrega alguma dependencia.

---

Se sua pergunta foi respondida por favor marque a resposta como certa.

Answer 9

eu ja testei, esse modulo em questão carrega componentes de uma dll, eu peguei todas as referencias e coloquei em outro modulo, elas funcionaram normalmente em outro modulo, porem o modulo com erro continuou com o erro, qualquer função dele que eu chame da o mesmo erro.

 Eu peguei o mudulo todo, e transferi todos os codigos pra mais 2 outros modulos, e deixei o modulo com problema totalmente vaziu, o aplicativo voltou a funcionar, mais o modulo em si não!

 Consegui resolver o problema, mais não consegui identificar oq pode ter ocasionado!

---

Ajudei? Marque como respondido! Aderson Pucci VB.NET

Answer 10

Eu tive o mesmo problema, dai descobri que era uma variável global 

public Variavel As Color = Color.FromArgb("255; 255; 128")

Answer 11

Olá,

Decobri no meu aplicativo uma linha que faz isso, alias é até engraçado, no momento que renomeamos o EXE ele volta ao normal e depois de um tempo o erro volta.

Quando faço a chamada my.settigs, dispara o "parou de funcionar"

Se alguém descobrir o que pode estar ocasionando me avise.

Obrigado,