Erro 13 ao Inserir novo cadastro em formulário

2024 - VBA & Macros

Post Recente por kev027 9 meses atrás

1 Posts

2 Usuários

0 Reactions

401 Visualizações

RSS

TiagoSouza25

(@tiagosouza25)

Posts: 1

New Member

Topic starter

Boa Noite pessoal estou fazendo um formulario de cadastro com campos de alteração porem na linguagem abaixo quando vou inserir o novo cadastro ao clicar o no botao salvar ele retorno o erro 13

Private Sub Lista_Click()

Dim codigo As Long
codigo = Lista.List(Lista.ListIndex, 0)
Me.TextBoxQtd.Value = codigo

End Sub

Private Sub TextBoxQtd_Change()

Dim codigo As Long
codigo = Me.TextBoxQtd.Value *ERRO NESTE CAMPO
On Error Resume Next

Me.TextBoxCandidato = Application.WorksheetFunction.VLookup(codigo, Sheets("RelacaoCandidato").Range("A:E"), 2, 0)
Me.CboResultado = Application.WorksheetFunction.VLookup(codigo, Sheets("RelacaoCandidato").Range("A:E"), 3, 0)
Me.CboProcesso = Application.WorksheetFunction.VLookup(codigo, Sheets("RelacaoCandidato").Range("A:E"), 4, 0)
Me.CboCategoria = Application.WorksheetFunction.VLookup(codigo, Sheets("RelacaoCandidato").Range("A:E"), 5, 0)

End Sub

Irei encaminhar o arquivo se alguem puder ajudar

Relatorio-de-Candidatos1.xlsm

Postado : 08/07/2024 7:37 pm

kev027

(@kev027)

Posts: 67

Trusted Member

Quando você salva, a macro roda o código abaixo:

Range("A11").Value = Me.TextBoxQtd.Value

Em seguida, você define TextBoxQtd para uma string vazia

Me.TextBoxQtd.Value = ""

Fazendo com que dispare o evento Change de TextBoxQtd

Logo, no código do evento Change você seta a varíavel "codigo" para tipo Long e tenta atribuir uma string vazia, portanto, tipos incompatíveis.

Dim codigo As Long
codigo = Me.TextBoxQtd.Value

Postado : 08/07/2024 8:46 pm