Notifications
Clear all

Erro 13 ao Inserir novo cadastro em formulário

1 Posts
2 Usuários
0 Reactions
132 Visualizações
(@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 

 
Postado : 08/07/2024 7:37 pm
kev027
(@kev027)
Posts: 55
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