Usuário com melhor resposta
ERRO DE COMPILAÇÃO : O TIPO DEFINIDO PELO USUÁRIO NÃO FOI DEFINIDO

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 SubDesde já agradeço a quem puder me ajudar.
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- Sugerido como Resposta 8 you go quarta-feira, 1 de dezembro de 2010 19:47
- Marcado como Resposta Hezequias VasconcelosModerator terça-feira, 11 de dezembro de 2012 13:11
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- Sugerido como Resposta 8 you go quarta-feira, 1 de dezembro de 2010 19:47
- Marcado como Resposta Hezequias VasconcelosModerator terça-feira, 11 de dezembro de 2012 13:11
-
-
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
-
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
-