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

  • Pergunta

  • 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.

    sexta-feira, 1 de outubro de 2010 01:57

Respostas

  • 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
    sexta-feira, 1 de outubro de 2010 19:29
    Moderador

Todas as Respostas

  • 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
    sexta-feira, 1 de outubro de 2010 19:29
    Moderador
  • Obrigado, cara! Funcionou perfeitamente
    segunda-feira, 14 de novembro de 2016 18:29
  • 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

    • Sugerido como Resposta Vitor Reiter quarta-feira, 4 de março de 2020 16:27
    • Não Sugerido como Resposta Vitor Reiter quarta-feira, 4 de março de 2020 16:27
    sábado, 13 de abril de 2019 17:14
  • 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!

    • Sugerido como Resposta Vitor Reiter quarta-feira, 4 de março de 2020 16:32
    quarta-feira, 4 de março de 2020 16:31