Re: [RESOLVIDO] Erro atualização de código para 64bits
Enviado: Dom Nov 26, 2017 10:32 am
Olá Mikel.
Tenho feito todos os procedimentos para rodar em 64 bit, todavia, quando teclo no botão pesquisar dá o Erro de compilação e diz que é impossível achar a biblioteca. Por favor, me dê auxílio.
Segue trecho do código:
Private Sub UserForm_Initialize()
With lstLista
.ColumnHeaders.Clear
.ListItems.Clear
.Gridlines = True
.View = 3
.FullRowSelect = True
' .ColumnHeaders.Add Text:="ID", Width:=20
' .ColumnHeaders.Add Text:="reclamante", Width:=60
' .ColumnHeaders.Add Text:="processo", Width:=120
' .ColumnHeaders.Add Text:="advogado", Width:=30
' .ColumnHeaders.Add Text:="reclamada", Width:=50
End With
'preenche o cboDirecao e seleciona o primeiro item
cboDirecao.Clear
cboDirecao.AddItem "Ascendente"
cboDirecao.AddItem "Descendente"
cboDirecao.ListIndex = 0
Call DefinePlanilhaDados
Call Populaterceiro
Call PopulaListBox(vbNullString, vbNullString, vbNullString, vbNullString, vbNullString)
End Sub
Tenho feito todos os procedimentos para rodar em 64 bit, todavia, quando teclo no botão pesquisar dá o Erro de compilação e diz que é impossível achar a biblioteca. Por favor, me dê auxílio.
Segue trecho do código:
Private Sub UserForm_Initialize()
With lstLista
.ColumnHeaders.Clear
.ListItems.Clear
.Gridlines = True
.View = 3
.FullRowSelect = True
' .ColumnHeaders.Add Text:="ID", Width:=20
' .ColumnHeaders.Add Text:="reclamante", Width:=60
' .ColumnHeaders.Add Text:="processo", Width:=120
' .ColumnHeaders.Add Text:="advogado", Width:=30
' .ColumnHeaders.Add Text:="reclamada", Width:=50
End With
'preenche o cboDirecao e seleciona o primeiro item
cboDirecao.Clear
cboDirecao.AddItem "Ascendente"
cboDirecao.AddItem "Descendente"
cboDirecao.ListIndex = 0
Call DefinePlanilhaDados
Call Populaterceiro
Call PopulaListBox(vbNullString, vbNullString, vbNullString, vbNullString, vbNullString)
End Sub