ERRO DE COMPILAÇÃO : O TIPO DEFINIDO PELO USUÁRIO NÃO FOI DEFINIDO

Question

PESSOAL SOU INICIANTE EM VB.

RECENTEMENTE ACOMPANHANDO UM PROJETO DE VBA COM EXCEL PELA INTERNET ACOMPANHEI TODOS OS PASSOS E QUANDO EXECUTEI O PROJETO E CLIQUEI NO BOTÃO INCLUIR DEU O SEGUINTE ERRO:

 

Erro de compilação:

O Tipo definido pelo usuário não foi definido.

 

ESSE É O CÓDIGO DO BOTÃO INCLUIR:

 

 

Private Sub CommandButton10_Click()
Dim bd As Database

Dim Rs As Recordset

 

Set bd = OpenDatabase(ThisWorkbook.Path & "\" & ThisWorkbook.Name, False, False, "excel 8.0")

Set Rs = bd.OpenRecordset("CLIENTES$", dbOpenDynaset)

 

If Me.textbox_cod > Me.Label_n Then

 

            If Me.textbox_nome = "" Then

                Me.textbox_nome = "-"

            End If

            If Me.textbox_endereco = "" Then

                Me.textbox_endereco.Text = "-"

            End If

            If Me.textbox_bairro = "" Then

                Me.textbox_bairro.Text = "-"

            End If

            If Me.combobox_cidade = "" Then

                Me.combobox_cidade.Text = "-"

            End If

            If Me.combobox_estado = "" Then

                Me.combobox_estado.Text = "-"

            End If

            If Me.textbox_cep = "" Then

                Me.textbox_cep.Text = "-"

            End If

             If Me.textbox_telefone = "" Then

                Me.textbox_telefone.Text = "-"

            End If

            If Me.textbox_cpf = "" Then

                Me.textbox_cpf.Text = "-"

            End If

            If Me.textbox_rg = "" Then

                Me.textbox_rg.Text = "-"

            End If

            If Me.textbox_ucompra = "" Then

                Me.textbox_ucompra.Text = "-"

            End If

            If Me.textbox_obs = "" Then

                Me.textbox_obs.Text = "-"

            End If

 

        Dim CADASTRO(1 To 13)

            CADASTRO(1) = UCase(Me.textbox_cod)

            CADASTRO(2) = UCase(Me.textbox_nome)

            CADASTRO(3) = UCase(Me.textbox_endereco)

            CADASTRO(4) = UCase(Me.textbox_bairro)

            CADASTRO(5) = UCase(Me.textbox_cep)

            CADASTRO(6) = UCase(Me.combobox_cidade)

            CADASTRO(7) = UCase(Me.combobox_estado)

            CADASTRO(8) = UCase(Me.textbox_telefone)

            CADASTRO(9) = UCase(Me.textbox_cpf)

            CADASTRO(10) = UCase(Me.textbox_rg)

            CADASTRO(11) = UCase(Me.textbox_ucompra)

            CADASTRO(12) = UCase(Me.textbox_obs)

            CADASTRO(13) = UCase(Me.textbox_cod.Value)

 

    Dim GERENCIADOR As Object

    Dim L, i

    Set GERENCIADOR = Plan2.Cells(1, 1).CurrentRegion

    L = GERENCIADOR.Rows.Count + 1

                If Len(Me.textbox_cod) = 0 Then

                MsgBox "VOCÊ NÃO DIGITOU NENHUM NOME PARA INCLUSÃO", vbCritical, "CADASTRO DE CLIENTES"

                Else

 

                                 For i = 1 To 13

                                     Plan1.Cells(L, i).Value = Trim(CADASTRO(i))

                                     Next i

 

                Me.textbox_cod.Text = ""

                Me.textbox_nome.Text = ""

                Me.textbox_bairro.Text = ""

                Me.textbox_endereco.Text = ""

                Me.textbox_bairro.Text = ""

                Me.textbox_cep.Text = ""

                Me.combobox_cidade.Text = ""

                Me.combobox_estado.Text = ""

                Me.textbox_telefone.Text = ""

                Me.textbox_cpf.Text = ""

                Me.textbox_rg.Text = ""

                Me.textbox_ucompra.Text = ""

                Me.textbox_obs.Text = ""

 

            MsgBox "CADASTRADO", vbInformation, "EFETUADO COM SUCESSO"

 

                                   ThisWorkbook.Save

                                End If

       Exit Sub

 Else

MsgBox "No campo COD digite um número maior do que há no campo Total Registro para casdastrar."

 

End If
End Sub

 

Desde já agradeço a quem puder me ajudar.

Answer 1

olá,

abra seu módulo, clique no menu Ferramentas > Referências e assinale a biblioteca Microsoft DAO 3.6 Object library.

Alternativamente, assinale Microsoft Office 1x.0 Access Database Engine Object.

---

Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br - Access FAQ: www.accessfaq.com.br

Answer 2

Obrigado, cara! Funcionou perfeitamente

Answer 3

Estou com este mesmo erro no cod abaixo, ja realizei as orientaçes anteriores e não funcionol

Global conexao As ADODB.Connection
Global tabela As ADODB.Recordset
Global tabela2 As ADODB.Recordset
Global strconn As String

Sub conectar()

Dim cbd As String

cdb = ThisWorkbook.Path & "\extrapatrimonio.mdb"

Set conexao = New ADODB.Connection

strconn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & cdb & ";Persist Security Info=false;"
conexao.Open strconn

End Sub

Answer 4

Olá,

Talvez uma solução que possa te ajudar, é trocar as versões de bibliotecas já selecionadas anteriormente, por exemplo, eu recebi este mesmo erro (igualzinho) mas foi por causa da versão da biblioteca. Depois de desmarcar a biblioteca que eu tinha setado, por exemplo, que era a Microsoft XML, v.6.0 para  a Microsoft XML, v.3.0, meu código voltou a compilar.

Boa sorte!

Answer 5

Pessoal, desmarquei a biblioteca Microsoft XML, v.6.0 e habilitei a biblioteca Microsoft XML, v.3.0, Agora o meu código voltou a compilar.

Estou importando os dados de arquivos XML para o Excel

Foi simples e rápido.

valeu pelas dicas.