Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Erro em Tempo de Execução "91"

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
Responder
Avatar do usuário
Bruno_Almeida
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Seg Out 30, 2017 5:47 pm
Localização: Salvador-Ba
Contato:
Contato Bruno_Almeida

Erro em Tempo de Execução "91"

Mensagem por Bruno_Almeida »

Olá, estou com um problema com a "variável do objeto ou bloco 'With" não foi definida.

Peguei um modelo de um formulário de cadastro aqui no fórum feito pelo Vásquez em 2008 e adaptado pelo Coutinho em 2011 e adaptei para algo um pouquinho maior. Quando chega na SUB de Carregar os registros para o formulário, acontece o erro de execução. Já revisei a SUB e nada.
Poderiam me ajudar?

Código: Selecionar todos

Option Explicit

'Declarações
Dim Largura As Single
Dim Altura As Single
Dim Redimensionado As Boolean

Const PlanUSUARIO_colID_USUARIO As Integer = 1
Const PlanUSUARIO_colUSUARIO  As Integer = 2
Const PlanUSUARIO_colSENHA As Integer = 3
Const PlanUSUARIO_colDATA_CADASTRO As Integer = 4
Const PlanUSUARIO_colHORA_CADASTRO As Integer = 5
Const PlanUSUARIO_colNOME As Integer = 6
Const PlanUSUARIO_colEMAIL1 As Integer = 7
Const PlanUSUARIO_colEMAIL2 As Integer = 8
Const PlanUSUARIO_colLINKEDIN As Integer = 9
Const PlanUSUARIO_colSKYPE As Integer = 10
Const PlanUSUARIO_colTWITTER As Integer = 11
Const PlanUSUARIO_colTELDDD1 As Integer = 12
Const PlanUSUARIO_colTEL1 As Integer = 13
Const PlanUSUARIO_colTELDDD2 As Integer = 14
Const PlanUSUARIO_colTEL2 As Integer = 15
Const PlanUSUARIO_colTELDDD3 As Integer = 16
Const PlanUSUARIO_colTEL3 As Integer = 17
Const PlanUSUARIO_colRG As Integer = 18
Const PlanUSUARIO_colORGEXPRG As Integer = 19
Const PlanUSUARIO_colUFRG As Integer = 20
Const PlanUSUARIO_colCPF As Integer = 21
Const PlanUSUARIO_colE_ESTRANGEIRO As Integer = 22
Const PlanUSUARIO_colDTNASCIMENTO As Integer = 23
Const PlanUSUARIO_colSEXO As Integer = 24
Const PlanUSUARIO_colNATURALIDADE As Integer = 25
Const PlanUSUARIO_colNACIONALIDADE As Integer = 26
Const PlanUSUARIO_colUF_NAC As Integer = 27
Const PlanUSUARIO_colESTADO_CIVIL As Integer = 28
Const PlanUSUARIO_colCONJUGE As Integer = 29
Const PlanUSUARIO_colFILHOS As Integer = 30
Const PlanUSUARIO_colQTOSFILHOS As Integer = 31
Const PlanUSUARIO_colTIPO_LOGRADOURO As Integer = 32
Const PlanUSUARIO_colLOGRADOURO As Integer = 33
Const PlanUSUARIO_colNUMERO_LOGRADOURO As Integer = 34
Const PlanUSUARIO_colCOMP_LOGRADOURO As Integer = 35
Const PlanUSUARIO_colCEP As Integer = 36
Const PlanUSUARIO_colBAIRRO As Integer = 37
Const PlanUSUARIO_colCONJUNTO As Integer = 38
Const PlanUSUARIO_colMUNICIPIO As Integer = 39
Const PlanUSUARIO_colESTADO As Integer = 40
Const PlanUSUARIO_colPAIS As Integer = 41
Const PlanUSUARIO_colGRADUACAO1 As Integer = 42
Const PlanUSUARIO_colCURSO1 As Integer = 43
Const PlanUSUARIO_colTIPO1 As Integer = 44
Const PlanUSUARIO_colINSTITUICAO1 As Integer = 45
Const PlanUSUARIO_colDTCONCLUSAO1 As Integer = 46
Const PlanUSUARIO_colGRADUACAO2 As Integer = 47
Const PlanUSUARIO_colCURSO2 As Integer = 48
Const PlanUSUARIO_colTIPO2 As Integer = 49
Const PlanUSUARIO_colINSTITUICAO2 As Integer = 50
Const PlanUSUARIO_colDTCONCLUSAO2 As Integer = 51
Const PlanUSUARIO_colGRADUACAO3 As Integer = 52
Const PlanUSUARIO_colCURSO3 As Integer = 53
Const PlanUSUARIO_colTIPO3 As Integer = 54
Const PlanUSUARIO_colINSTITUICAO3 As Integer = 55
Const PlanUSUARIO_colDTCONCLUSAO3 As Integer = 56
Const PlanUSUARIO_colGRADUACAO4 As Integer = 57
Const PlanUSUARIO_colCURSO4 As Integer = 58
Const PlanUSUARIO_colTIPO4 As Integer = 59
Const PlanUSUARIO_colINSTITUICAO4 As Integer = 60
Const PlanUSUARIO_colDTCONCLUSAO4 As Integer = 61
Const PlanUSUARIO_colGRADUACAO5 As Integer = 62
Const PlanUSUARIO_colCURSO5 As Integer = 63
Const PlanUSUARIO_colTIPO5 As Integer = 64
Const PlanUSUARIO_colINSTITUICAO5 As Integer = 65
Const PlanUSUARIO_colDTCONCLUSAO5 As Integer = 66
Const PlanUSUARIO_colGRADUACAO6 As Integer = 67
Const PlanUSUARIO_colCURSO6 As Integer = 68
Const PlanUSUARIO_colTIPO6 As Integer = 69
Const PlanUSUARIO_colINSTITUICAO6 As Integer = 70
Const PlanUSUARIO_colDTCONCLUSAO6 As Integer = 71
Const PlanUSUARIO_colEXERCICIO As Integer = 72
Const PlanUSUARIO_colTERAPIA As Integer = 73
Const PlanUSUARIO_colDROGAS As Integer = 74
Const PlanUSUARIO_colQUAIS_DROGAS As Integer = 75
Const PlanUSUARIO_colHOBBIES As Integer = 76
Const Linha_Plan_Usuario As Byte = 2
Const corDisabledTextBox As Long = -2147483633
Const corEnabledTextBox As Long = -2147483643
Const nomePlanilhaCadastro As String = "USUARIO"

Private ws_USUARIO As Worksheet
Private wb_Paln_Vida_Carreira As Workbook
Private indiceRegistro As Long


'FUNÇÃO DOS BOTÕES
Private Sub btn_DadosPessoais_Cancelar_Click()
    btn_DadosPessoais_Salvar.Enabled = False
    btn_DadosPessoais_Cancelar.Enabled = False
    Call DesabilitaControles
    Call CarregaDadosIniciais
    Call DesabilitaBotoes
End Sub


'Carrega Dados de Registro
'ATENÇÃO: as linhas relacionada aos campos USUARIO, SENHA, DATA_CADASTRO E HOR CADSTRO estão SOMENTE à título de controle
Private Sub CarregaRegistro()
    With ws_USUARIO
        If Not IsEmpty(.Cells(indiceRegistro, PlanUSUARIO_colID_USUARIO)) Then
            Me.TextBox_DadosPessoais_Id_Usuario.Text = .Cells(indiceRegistro, PlanUSUARIO_colID_USUARIO).Value
            Me.TextBox_DadosPessoais_Usuario.Text = .Cells(indiceRegistro, PlanUSUARIO_colUSUARIO).Value
            'Me.TextBox_DadosPessoais_SENHA.Text = .Cells(indiceRegistro, PlanUSUARIO_colSENHA).Value
            'Me.TextBox_DadosPessoais_DATA_CADASTRO.Text = .Cells(indiceRegistro, PlanUSUARIO_colDATA_CADASTRO).Value
            'Me.TextBox_DadosPessoais_HORA_CADASTRO.Text = .Cells(indiceRegistro, PlanUSUARIO_colHORA_CADASTRO).Value
            Me.TextBox_DadosPessoais_Nome.Text = .Cells(indiceRegistro, PlanUSUARIO_colNOME).Value
            Me.TextBox_DadosPessoais_Email1.Text = .Cells(indiceRegistro, PlanUSUARIO_colEMAIL1).Value
            Me.TextBox_DadosPessoais_Email2.Text = .Cells(indiceRegistro, PlanUSUARIO_colEMAIL2).Value
            Me.TextBox_DadosPessoais_Linkedin.Text = .Cells(indiceRegistro, PlanUSUARIO_colLINKEDIN).Value
            Me.TextBox_DadosPessoais_Skype.Text = .Cells(indiceRegistro, PlanUSUARIO_colSKYPE).Value
            Me.TextBox_DadosPessoais_Twitter.Text = .Cells(indiceRegistro, PlanUSUARIO_colTWITTER).Value
            Me.TextBox_DadosPessoais_TelDDD1.Text = .Cells(indiceRegistro, PlanUSUARIO_colTELDDD1).Value
            Me.TextBox_DadosPessoais_Tel1.Text = .Cells(indiceRegistro, PlanUSUARIO_colTEL1).Value
            Me.TextBox_DadosPessoais_TelDDD2.Text = .Cells(indiceRegistro, PlanUSUARIO_colTELDDD2).Value
            Me.TextBox_DadosPessoais_Tel2.Text = .Cells(indiceRegistro, PlanUSUARIO_colTEL2).Value
            Me.TextBox_DadosPessoais_TelDDD3.Text = .Cells(indiceRegistro, PlanUSUARIO_colTELDDD3).Value
            Me.TextBox_DadosPessoais_Tel3.Text = .Cells(indiceRegistro, PlanUSUARIO_colTEL3).Value
            Me.TextBox_DadosPessoais_RG.Text = .Cells(indiceRegistro, PlanUSUARIO_colRG).Value
            Me.TextBox_DadosPessoais_OrgExpRG.Text = .Cells(indiceRegistro, PlanUSUARIO_colORGEXPRG).Value
            Me.Cbo_DadosPessoais_UFRG.Text = .Cells(indiceRegistro, PlanUSUARIO_colUFRG).Value
            Me.TextBox_DadosPessoais_CPF.Text = .Cells(indiceRegistro, PlanUSUARIO_colCPF).Value
            'Me.CheckBox_DadosPessoais_E_Estrangeiro.Text = .Cells(indiceRegistro, PlanUSUARIO_colE_ESTRANGEIRO).Value
            Me.TextBox_DadosPessoais_DtNascimento.Text = .Cells(indiceRegistro, PlanUSUARIO_colDTNASCIMENTO).Value
            Me.Cbo_DadosPessoais_Sexo.Text = .Cells(indiceRegistro, PlanUSUARIO_colSEXO).Value
            Me.TextBox_DadosPessoais_Naturalidade.Text = .Cells(indiceRegistro, PlanUSUARIO_colNATURALIDADE).Value
            Me.TextBox_DadosPessoais_Nacionalidade.Text = .Cells(indiceRegistro, PlanUSUARIO_colNACIONALIDADE).Value
            Me.Cbo_DadosPessoais_UF_Nac.Text = .Cells(indiceRegistro, PlanUSUARIO_colUF_NAC).Value
            Me.Cbo_DadosPessoais_Estado_Civil.Text = .Cells(indiceRegistro, PlanUSUARIO_colESTADO_CIVIL).Value
            Me.TextBox_DadosPessoais_Conjuge.Text = .Cells(indiceRegistro, PlanUSUARIO_colCONJUGE).Value
            'Me.CheckBox_DadosPessoais_FILHOS.Text = .Cells(indiceRegistro, PlanUSUARIO_colFILHOS).Value
            Me.TextBox_DadosPessoais_QtosFilhos.Text = .Cells(indiceRegistro, PlanUSUARIO_colQTOSFILHOS).Value
            Me.Cbo_CBX_DadosPessoais_Tipo_Logradouro.Text = .Cells(indiceRegistro, PlanUSUARIO_colTIPO_LOGRADOURO).Value
            Me.TextBox_DadosPessoais_Logradouro.Text = .Cells(indiceRegistro, PlanUSUARIO_colLOGRADOURO).Value
            Me.TextBox_DadosPessoais_Numero_Logradouro.Text = .Cells(indiceRegistro, PlanUSUARIO_colNUMERO_LOGRADOURO).Value
            Me.TextBox_DadosPessoais_Comp_Logradouro.Text = .Cells(indiceRegistro, PlanUSUARIO_colCOMP_LOGRADOURO).Value
            Me.TextBox_DadosPessoais_CEP.Text = .Cells(indiceRegistro, PlanUSUARIO_colCEP).Value
            Me.TextBox_DadosPessoais_Bairro.Text = .Cells(indiceRegistro, PlanUSUARIO_colBAIRRO).Value
            Me.TextBox_DadosPessoais_Conjunto.Text = .Cells(indiceRegistro, PlanUSUARIO_colCONJUNTO).Value
            Me.TextBox_DadosPessoais_Municipio.Text = .Cells(indiceRegistro, PlanUSUARIO_colMUNICIPIO).Value
            Me.TextBox_DadosPessoais_Estado.Text = .Cells(indiceRegistro, PlanUSUARIO_colESTADO).Value
            Me.TextBox_DadosPessoais_Pais.Text = .Cells(indiceRegistro, PlanUSUARIO_colPAIS).Value
            Me.Cbo_DadosPessoais_Graduacao1.Text = .Cells(indiceRegistro, PlanUSUARIO_colGRADUACAO1).Value
            Me.TextBox_DadosPessoais_Curso1.Text = .Cells(indiceRegistro, PlanUSUARIO_colCURSO1).Value
            Me.Cbo_DadosPessoais_Tipo1.Text = .Cells(indiceRegistro, PlanUSUARIO_colTIPO1).Value
            Me.TextBox_DadosPessoais_Instituicao1.Text = .Cells(indiceRegistro, PlanUSUARIO_colINSTITUICAO1).Value
            Me.TextBox_DadosPessoais_DtConclusao1.Text = .Cells(indiceRegistro, PlanUSUARIO_colDTCONCLUSAO1).Value
            Me.Cbo_DadosPessoais_Graduacao2.Text = .Cells(indiceRegistro, PlanUSUARIO_colGRADUACAO2).Value
            Me.TextBox_DadosPessoais_Curso2.Text = .Cells(indiceRegistro, PlanUSUARIO_colCURSO2).Value
            Me.Cbo_DadosPessoais_Tipo2.Text = .Cells(indiceRegistro, PlanUSUARIO_colTIPO2).Value
            Me.TextBox_DadosPessoais_Instituicao2.Text = .Cells(indiceRegistro, PlanUSUARIO_colINSTITUICAO2).Value
            Me.TextBox_DadosPessoais_DtConclusao2.Text = .Cells(indiceRegistro, PlanUSUARIO_colDTCONCLUSAO2).Value
            Me.Cbo_DadosPessoais_Graduacao3.Text = .Cells(indiceRegistro, PlanUSUARIO_colGRADUACAO3).Value
            Me.TextBox_DadosPessoais_Curso3.Text = .Cells(indiceRegistro, PlanUSUARIO_colCURSO3).Value
            Me.Cbo_DadosPessoais_Tipo3.Text = .Cells(indiceRegistro, PlanUSUARIO_colTIPO3).Value
            Me.TextBox_DadosPessoais_Instituicao3.Text = .Cells(indiceRegistro, PlanUSUARIO_colINSTITUICAO3).Value
            Me.TextBox_DadosPessoais_DtConclusao3.Text = .Cells(indiceRegistro, PlanUSUARIO_colDTCONCLUSAO3).Value
            Me.Cbo_DadosPessoais_Graduacao4.Text = .Cells(indiceRegistro, PlanUSUARIO_colGRADUACAO4).Value
            Me.TextBox_DadosPessoais_Curso4.Text = .Cells(indiceRegistro, PlanUSUARIO_colCURSO4).Value
            Me.Cbo_DadosPessoais_Tipo4.Text = .Cells(indiceRegistro, PlanUSUARIO_colTIPO4).Value
            Me.TextBox_DadosPessoais_Instituicao4.Text = .Cells(indiceRegistro, PlanUSUARIO_colINSTITUICAO4).Value
            Me.TextBox_DadosPessoais_DtConclusao4.Text = .Cells(indiceRegistro, PlanUSUARIO_colDTCONCLUSAO4).Value
            Me.Cbo_DadosPessoais_Graduacao5.Text = .Cells(indiceRegistro, PlanUSUARIO_colGRADUACAO5).Value
            Me.TextBox_DadosPessoais_Curso5.Text = .Cells(indiceRegistro, PlanUSUARIO_colCURSO5).Value
            Me.Cbo_DadosPessoais_Tipo5.Text = .Cells(indiceRegistro, PlanUSUARIO_colTIPO5).Value
            Me.TextBox_DadosPessoais_Instituicao5.Text = .Cells(indiceRegistro, PlanUSUARIO_colINSTITUICAO5).Value
            Me.TextBox_DadosPessoais_DtConclusao5.Text = .Cells(indiceRegistro, PlanUSUARIO_colDTCONCLUSAO5).Value
            Me.Cbo_DadosPessoais_Graduacao6.Text = .Cells(indiceRegistro, PlanUSUARIO_colGRADUACAO6).Value
            Me.TextBox_DadosPessoais_Curso6.Text = .Cells(indiceRegistro, PlanUSUARIO_colCURSO6).Value
            Me.Cbo_DadosPessoais_Tipo6.Text = .Cells(indiceRegistro, PlanUSUARIO_colTIPO6).Value
            Me.TextBox_DadosPessoais_Instituicao6.Text = .Cells(indiceRegistro, PlanUSUARIO_colINSTITUICAO6).Value
            Me.TextBox_DadosPessoais_DtConclusao6.Text = .Cells(indiceRegistro, PlanUSUARIO_colDTCONCLUSAO6).Value
            'Me.CheckBox_DadosPessoais_EXERCICIO.Text = .Cells(indiceRegistro, PlanUSUARIO_colEXERCICIO).Value
            'Me.CheckBox_DadosPessoais_TERAPIA.Text = .Cells(indiceRegistro, PlanUSUARIO_colTERAPIA).Value
            'Me.CheckBox_DadosPessoais_DROGAS.Text = .Cells(indiceRegistro, PlanUSUARIO_colDROGAS).Value
            Me.TextBox_DadosPessoais_Quais_Drogas.Text = .Cells(indiceRegistro, PlanUSUARIO_colQUAIS_DROGAS).Value
            Me.TextBox_DadosPessoais_Hobbies.Text = .Cells(indiceRegistro, PlanUSUARIO_colHOBBIES).Value
        End If
    End With
    Call AtualizaRegistroCorrente
End Sub


Private Sub DesabilitaControles()
'Desabilita Controles Em Dados Pessoais
'ATENÇÃO: as linhas relacionada aos campos USUARIO, SENHA, DATA_CADASTRO E HOR CADSTRO estão SOMENTE à título de controle
    Me.TextBox_DadosPessoais_Id_Usuario.Locked = True
    Me.TextBox_DadosPessoais_Usuario.Locked = True
    'Me.TextBox_DadosPessoais_SENHA.Locked = True
    'Me.TextBox_DadosPessoais_DATA_CADASTRO.Locked = True
    'Me.TextBox_DadosPessoais_HORA_CADASTRO.Locked = True
    Me.TextBox_DadosPessoais_Nome.Locked = True
    Me.TextBox_DadosPessoais_Email1.Locked = True
    Me.TextBox_DadosPessoais_Email2.Locked = True
    Me.TextBox_DadosPessoais_Linkedin.Locked = True
    Me.TextBox_DadosPessoais_Skype.Locked = True
    Me.TextBox_DadosPessoais_Twitter.Locked = True
    Me.TextBox_DadosPessoais_TelDDD1.Locked = True
    Me.TextBox_DadosPessoais_Tel1.Locked = True
    Me.TextBox_DadosPessoais_TelDDD2.Locked = True
    Me.TextBox_DadosPessoais_Tel2.Locked = True
    Me.TextBox_DadosPessoais_TelDDD3.Locked = True
    Me.TextBox_DadosPessoais_Tel3.Locked = True
    Me.TextBox_DadosPessoais_RG.Locked = True
    Me.TextBox_DadosPessoais_OrgExpRG.Locked = True
    Me.Cbo_DadosPessoais_UFRG.Locked = True
    Me.TextBox_DadosPessoais_CPF.Locked = True
    Me.CheckBox_DadosPessoais_E_Estrangeiro.Locked = True
    Me.TextBox_DadosPessoais_DtNascimento.Locked = True
    Me.Cbo_DadosPessoais_Sexo.Locked = True
    Me.TextBox_DadosPessoais_Naturalidade.Locked = True
    Me.TextBox_DadosPessoais_Nacionalidade.Locked = True
    Me.Cbo_DadosPessoais_UF_Nac.Locked = True
    Me.Cbo_DadosPessoais_Estado_Civil.Locked = True
    Me.TextBox_DadosPessoais_Conjuge.Locked = True
    'Me.CheckBox_DadosPessoais_FILHOS.Locked = True
    Me.TextBox_DadosPessoais_QtosFilhos.Locked = True
    Me.TextBox_DadosPessoais_Logradouro.Locked = True
    Me.TextBox_DadosPessoais_Logradouro.Locked = True
    Me.TextBox_DadosPessoais_Numero_Logradouro.Locked = True
    Me.TextBox_DadosPessoais_Comp_Logradouro.Locked = True
    Me.TextBox_DadosPessoais_CEP.Locked = True
    Me.TextBox_DadosPessoais_Bairro.Locked = True
    Me.TextBox_DadosPessoais_Conjunto.Locked = True
    Me.TextBox_DadosPessoais_Municipio.Locked = True
    Me.TextBox_DadosPessoais_Estado.Locked = True
    Me.TextBox_DadosPessoais_Pais.Locked = True
    Me.Cbo_DadosPessoais_Graduacao1.Locked = True
    Me.TextBox_DadosPessoais_Curso1.Locked = True
    Me.Cbo_DadosPessoais_Tipo1.Locked = True
    Me.TextBox_DadosPessoais_Instituicao1.Locked = True
    Me.TextBox_DadosPessoais_DtConclusao1.Locked = True
    Me.Cbo_DadosPessoais_Graduacao2.Locked = True
    Me.TextBox_DadosPessoais_Curso2.Locked = True
    Me.Cbo_DadosPessoais_Tipo2.Locked = True
    Me.TextBox_DadosPessoais_Instituicao2.Locked = True
    Me.TextBox_DadosPessoais_DtConclusao2.Locked = True
    Me.Cbo_DadosPessoais_Graduacao3.Locked = True
    Me.TextBox_DadosPessoais_Curso3.Locked = True
    Me.Cbo_DadosPessoais_Tipo3.Locked = True
    Me.TextBox_DadosPessoais_Instituicao3.Locked = True
    Me.TextBox_DadosPessoais_DtConclusao3.Locked = True
    Me.Cbo_DadosPessoais_Graduacao4.Locked = True
    Me.TextBox_DadosPessoais_Curso4.Locked = True
    Me.Cbo_DadosPessoais_Tipo4.Locked = True
    Me.TextBox_DadosPessoais_Instituicao4.Locked = True
    Me.TextBox_DadosPessoais_DtConclusao4.Locked = True
    Me.Cbo_DadosPessoais_Graduacao5.Locked = True
    Me.TextBox_DadosPessoais_Curso5.Locked = True
    Me.Cbo_DadosPessoais_Tipo5.Locked = True
    Me.TextBox_DadosPessoais_Instituicao5.Locked = True
    Me.TextBox_DadosPessoais_DtConclusao5.Locked = True
    Me.Cbo_DadosPessoais_Graduacao6.Locked = True
    Me.TextBox_DadosPessoais_Curso6.Locked = True
    Me.Cbo_DadosPessoais_Tipo6.Locked = True
    Me.TextBox_DadosPessoais_Instituicao6.Locked = True
    Me.TextBox_DadosPessoais_DtConclusao6.Locked = True
    'Me.CheckBox_DadosPessoais_EXERCICIO.Locked = True
    'Me.CheckBox_DadosPessoais_TERAPIA.Locked = True
    'Me.CheckBox_DadosPessoais_DROGAS.Locked = True
    Me.TextBox_DadosPessoais_Quais_Drogas.Locked = True
    Me.TextBox_DadosPessoais_Hobbies.Locked = True
'Modifica Cor de Controles Desabilitados Em Dados Pessoais
    Me.TextBox_DadosPessoais_Id_Usuario.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Usuario.BackColor = corDisabledTextBox
    'Me.TextBox_DadosPessoais_SENHA.BackColor = corDisabledTextBox
    'Me.TextBox_DadosPessoais_DATA_CADASTRO.BackColor = corDisabledTextBox
   ' Me.TextBox_DadosPessoais_HORA_CADASTRO.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Nome.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Email1.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Email2.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Linkedin.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Skype.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Twitter.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_TelDDD1.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Tel1.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_TelDDD2.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Tel2.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_TelDDD3.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Tel3.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_RG.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_OrgExpRG.BackColor = corDisabledTextBox
    Me.Cbo_DadosPessoais_UFRG.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_CPF.BackColor = corDisabledTextBox
    Me.CheckBox_DadosPessoais_E_Estrangeiro.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_DtNascimento.BackColor = corDisabledTextBox
    Me.Cbo_DadosPessoais_Sexo.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Naturalidade.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Nacionalidade.BackColor = corDisabledTextBox
    Me.Cbo_DadosPessoais_UF_Nac.BackColor = corDisabledTextBox
    Me.Cbo_DadosPessoais_Estado_Civil.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Conjuge.BackColor = corDisabledTextBox
    'Me.CheckBox_DadosPessoais_FILHOS.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_QtosFilhos.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Logradouro.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Logradouro.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Numero_Logradouro.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Comp_Logradouro.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_CEP.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Bairro.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Conjunto.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Municipio.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Estado.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Pais.BackColor = corDisabledTextBox
    Me.Cbo_DadosPessoais_Graduacao1.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Curso1.BackColor = corDisabledTextBox
    Me.Cbo_DadosPessoais_Tipo1.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Instituicao1.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_DtConclusao1.BackColor = corDisabledTextBox
    Me.Cbo_DadosPessoais_Graduacao2.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Curso2.BackColor = corDisabledTextBox
    Me.Cbo_DadosPessoais_Tipo2.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Instituicao2.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_DtConclusao2.BackColor = corDisabledTextBox
    Me.Cbo_DadosPessoais_Graduacao3.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Curso3.BackColor = corDisabledTextBox
    Me.Cbo_DadosPessoais_Tipo3.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Instituicao3.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_DtConclusao3.BackColor = corDisabledTextBox
    Me.Cbo_DadosPessoais_Graduacao4.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Curso4.BackColor = corDisabledTextBox
    Me.Cbo_DadosPessoais_Tipo4.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Instituicao4.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_DtConclusao4.BackColor = corDisabledTextBox
    Me.Cbo_DadosPessoais_Graduacao5.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Curso5.BackColor = corDisabledTextBox
    Me.Cbo_DadosPessoais_Tipo5.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Instituicao5.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_DtConclusao5.BackColor = corDisabledTextBox
    Me.Cbo_DadosPessoais_Graduacao6.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Curso6.BackColor = corDisabledTextBox
    Me.Cbo_DadosPessoais_Tipo6.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Instituicao6.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_DtConclusao6.BackColor = corDisabledTextBox
    'Me.CheckBox_DadosPessoais_EXERCICIO.BackColor = corDisabledTextBox
    'Me.CheckBox_DadosPessoais_TERAPIA.BackColor = corDisabledTextBox
    'Me.CheckBox_DadosPessoais_DROGAS.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Quais_Drogas.BackColor = corDisabledTextBox
    Me.TextBox_DadosPessoais_Hobbies.BackColor = corDisabledTextBox
End Sub

'Carrega Dados Iniciais
Private Sub CarregaDadosIniciais()
    indiceRegistro = 2
    Call CarregaRegistro
End Sub

'Desabilita Botões
Private Sub DesabilitaBotoes()
    btn_DadosPessoais_Pesquisa.Enabled = False
    btn_DadosPessoais_Novo.Enabled = False
    btn_DadosPessoais_Alterar.Enabled = False
    btn_DadosPessoais_Excluir.Enabled = False
    btn_DadosPessoais_Salvar.Enabled = False
    btn_DadosPessoais_Cancelar.Enabled = False
End Sub


Voltar ao topo
Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.

srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Erro em Tempo de Execução "91"

Mensagem por srobles »

Bruno,

Sabe dizer em qual linha a rotina é interrompida (onde o erro é apresentado) ?

Apenas analisar a rotina sem ter uma referência da origem dos dados fica difícil.

Se puder, disponibilize seu modelo. O mesmo não precisa ter dados, apenas os cabeçalhos.

Abs


Voltar ao topo
Avatar do usuário
Bruno_Almeida
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Seg Out 30, 2017 5:47 pm
Localização: Salvador-Ba
Contato:
Contato Bruno_Almeida

Re: Erro em Tempo de Execução "91"

Mensagem por Bruno_Almeida »

Olá Saulo

Quando vou depurar com F8 aparece na seguinte linha:

Código: Selecionar todos

If Not IsEmpty(.Cells(indiceRegistro, PlanUSUARIO_colID_USUARIO)) Then


Voltar ao topo
srobles
Jedi
Jedi
Mensagens: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Erro em Tempo de Execução "91"

Mensagem por srobles »

Bruno,

Posso estar errado, mas nas rotina que disponibilizou não vi referências á ws_USUARIO e indiceRegistro.

Repare na rotina :

Código: Selecionar todos

Private Sub CarregaRegistro()
    With ws_USUARIO
        If Not IsEmpty(.Cells(indiceRegistro, PlanUSUARIO_colID_USUARIO)) Then
            Me.TextBox_DadosPessoais_Id_Usuario.Text = .Cells(indiceRegistro, PlanUSUARIO_colID_USUARIO).Value
            Me.TextBox_DadosPessoais_Usuario.Text = .Cells(indiceRegistro, PlanUSUARIO_colUSUARIO).Value
            'Me.TextBox_DadosPessoais_SENHA.Text = .Cells(indiceRegistro, PlanUSUARIO_colSENHA).Value
            'Me.TextBox_DadosPessoais_DATA_CADASTRO.Text = .Cells(indiceRegistro, PlanUSUARIO_colDATA_CADASTRO).Value
            'Me.TextBox_DadosPessoais_HORA_CADASTRO.Text = .Cells(indiceRegistro, PlanUSUARIO_colHORA_CADASTRO).Value
            Me.TextBox_DadosPessoais_Nome.Text = .Cells(indiceRegistro, PlanUSUARIO_colNOME).Value
            Me.TextBox_DadosPessoais_Email1.Text = .Cells(indiceRegistro, PlanUSUARIO_colEMAIL1).Value
            Me.TextBox_DadosPessoais_Email2.Text = .Cells(indiceRegistro, PlanUSUARIO_colEMAIL2).Value
            Me.TextBox_DadosPessoais_Linkedin.Text = .Cells(indiceRegistro, PlanUSUARIO_colLINKEDIN).Value
            Me.TextBox_DadosPessoais_Skype.Text = .Cells(indiceRegistro, PlanUSUARIO_colSKYPE).Value
            Me.TextBox_DadosPessoais_Twitter.Text = .Cells(indiceRegistro, PlanUSUARIO_colTWITTER).Value
            Me.TextBox_DadosPessoais_TelDDD1.Text = .Cells(indiceRegistro, PlanUSUARIO_colTELDDD1).Value
            Me.TextBox_DadosPessoais_Tel1.Text = .Cells(indiceRegistro, PlanUSUARIO_colTEL1).Value
            Me.TextBox_DadosPessoais_TelDDD2.Text = .Cells(indiceRegistro, PlanUSUARIO_colTELDDD2).Value
            Me.TextBox_DadosPessoais_Tel2.Text = .Cells(indiceRegistro, PlanUSUARIO_colTEL2).Value
            Me.TextBox_DadosPessoais_TelDDD3.Text = .Cells(indiceRegistro, PlanUSUARIO_colTELDDD3).Value
            Me.TextBox_DadosPessoais_Tel3.Text = .Cells(indiceRegistro, PlanUSUARIO_colTEL3).Value
            Me.TextBox_DadosPessoais_RG.Text = .Cells(indiceRegistro, PlanUSUARIO_colRG).Value
            Me.TextBox_DadosPessoais_OrgExpRG.Text = .Cells(indiceRegistro, PlanUSUARIO_colORGEXPRG).Value
            Me.Cbo_DadosPessoais_UFRG.Text = .Cells(indiceRegistro, PlanUSUARIO_colUFRG).Value
            Me.TextBox_DadosPessoais_CPF.Text = .Cells(indiceRegistro, PlanUSUARIO_colCPF).Value
            'Me.CheckBox_DadosPessoais_E_Estrangeiro.Text = .Cells(indiceRegistro, PlanUSUARIO_colE_ESTRANGEIRO).Value
            Me.TextBox_DadosPessoais_DtNascimento.Text = .Cells(indiceRegistro, PlanUSUARIO_colDTNASCIMENTO).Value
            Me.Cbo_DadosPessoais_Sexo.Text = .Cells(indiceRegistro, PlanUSUARIO_colSEXO).Value
            Me.TextBox_DadosPessoais_Naturalidade.Text = .Cells(indiceRegistro, PlanUSUARIO_colNATURALIDADE).Value
            Me.TextBox_DadosPessoais_Nacionalidade.Text = .Cells(indiceRegistro, PlanUSUARIO_colNACIONALIDADE).Value
            Me.Cbo_DadosPessoais_UF_Nac.Text = .Cells(indiceRegistro, PlanUSUARIO_colUF_NAC).Value
            Me.Cbo_DadosPessoais_Estado_Civil.Text = .Cells(indiceRegistro, PlanUSUARIO_colESTADO_CIVIL).Value
            Me.TextBox_DadosPessoais_Conjuge.Text = .Cells(indiceRegistro, PlanUSUARIO_colCONJUGE).Value
            'Me.CheckBox_DadosPessoais_FILHOS.Text = .Cells(indiceRegistro, PlanUSUARIO_colFILHOS).Value
            Me.TextBox_DadosPessoais_QtosFilhos.Text = .Cells(indiceRegistro, PlanUSUARIO_colQTOSFILHOS).Value
            Me.Cbo_CBX_DadosPessoais_Tipo_Logradouro.Text = .Cells(indiceRegistro, PlanUSUARIO_colTIPO_LOGRADOURO).Value
            Me.TextBox_DadosPessoais_Logradouro.Text = .Cells(indiceRegistro, PlanUSUARIO_colLOGRADOURO).Value
            Me.TextBox_DadosPessoais_Numero_Logradouro.Text = .Cells(indiceRegistro, PlanUSUARIO_colNUMERO_LOGRADOURO).Value
            Me.TextBox_DadosPessoais_Comp_Logradouro.Text = .Cells(indiceRegistro, PlanUSUARIO_colCOMP_LOGRADOURO).Value
            Me.TextBox_DadosPessoais_CEP.Text = .Cells(indiceRegistro, PlanUSUARIO_colCEP).Value
            Me.TextBox_DadosPessoais_Bairro.Text = .Cells(indiceRegistro, PlanUSUARIO_colBAIRRO).Value
            Me.TextBox_DadosPessoais_Conjunto.Text = .Cells(indiceRegistro, PlanUSUARIO_colCONJUNTO).Value
            Me.TextBox_DadosPessoais_Municipio.Text = .Cells(indiceRegistro, PlanUSUARIO_colMUNICIPIO).Value
            Me.TextBox_DadosPessoais_Estado.Text = .Cells(indiceRegistro, PlanUSUARIO_colESTADO).Value
            Me.TextBox_DadosPessoais_Pais.Text = .Cells(indiceRegistro, PlanUSUARIO_colPAIS).Value
            Me.Cbo_DadosPessoais_Graduacao1.Text = .Cells(indiceRegistro, PlanUSUARIO_colGRADUACAO1).Value
            Me.TextBox_DadosPessoais_Curso1.Text = .Cells(indiceRegistro, PlanUSUARIO_colCURSO1).Value
            Me.Cbo_DadosPessoais_Tipo1.Text = .Cells(indiceRegistro, PlanUSUARIO_colTIPO1).Value
            Me.TextBox_DadosPessoais_Instituicao1.Text = .Cells(indiceRegistro, PlanUSUARIO_colINSTITUICAO1).Value
            Me.TextBox_DadosPessoais_DtConclusao1.Text = .Cells(indiceRegistro, PlanUSUARIO_colDTCONCLUSAO1).Value
            Me.Cbo_DadosPessoais_Graduacao2.Text = .Cells(indiceRegistro, PlanUSUARIO_colGRADUACAO2).Value
            Me.TextBox_DadosPessoais_Curso2.Text = .Cells(indiceRegistro, PlanUSUARIO_colCURSO2).Value
            Me.Cbo_DadosPessoais_Tipo2.Text = .Cells(indiceRegistro, PlanUSUARIO_colTIPO2).Value
            Me.TextBox_DadosPessoais_Instituicao2.Text = .Cells(indiceRegistro, PlanUSUARIO_colINSTITUICAO2).Value
            Me.TextBox_DadosPessoais_DtConclusao2.Text = .Cells(indiceRegistro, PlanUSUARIO_colDTCONCLUSAO2).Value
            Me.Cbo_DadosPessoais_Graduacao3.Text = .Cells(indiceRegistro, PlanUSUARIO_colGRADUACAO3).Value
            Me.TextBox_DadosPessoais_Curso3.Text = .Cells(indiceRegistro, PlanUSUARIO_colCURSO3).Value
            Me.Cbo_DadosPessoais_Tipo3.Text = .Cells(indiceRegistro, PlanUSUARIO_colTIPO3).Value
            Me.TextBox_DadosPessoais_Instituicao3.Text = .Cells(indiceRegistro, PlanUSUARIO_colINSTITUICAO3).Value
            Me.TextBox_DadosPessoais_DtConclusao3.Text = .Cells(indiceRegistro, PlanUSUARIO_colDTCONCLUSAO3).Value
            Me.Cbo_DadosPessoais_Graduacao4.Text = .Cells(indiceRegistro, PlanUSUARIO_colGRADUACAO4).Value
            Me.TextBox_DadosPessoais_Curso4.Text = .Cells(indiceRegistro, PlanUSUARIO_colCURSO4).Value
            Me.Cbo_DadosPessoais_Tipo4.Text = .Cells(indiceRegistro, PlanUSUARIO_colTIPO4).Value
            Me.TextBox_DadosPessoais_Instituicao4.Text = .Cells(indiceRegistro, PlanUSUARIO_colINSTITUICAO4).Value
            Me.TextBox_DadosPessoais_DtConclusao4.Text = .Cells(indiceRegistro, PlanUSUARIO_colDTCONCLUSAO4).Value
            Me.Cbo_DadosPessoais_Graduacao5.Text = .Cells(indiceRegistro, PlanUSUARIO_colGRADUACAO5).Value
            Me.TextBox_DadosPessoais_Curso5.Text = .Cells(indiceRegistro, PlanUSUARIO_colCURSO5).Value
            Me.Cbo_DadosPessoais_Tipo5.Text = .Cells(indiceRegistro, PlanUSUARIO_colTIPO5).Value
            Me.TextBox_DadosPessoais_Instituicao5.Text = .Cells(indiceRegistro, PlanUSUARIO_colINSTITUICAO5).Value
            Me.TextBox_DadosPessoais_DtConclusao5.Text = .Cells(indiceRegistro, PlanUSUARIO_colDTCONCLUSAO5).Value
            Me.Cbo_DadosPessoais_Graduacao6.Text = .Cells(indiceRegistro, PlanUSUARIO_colGRADUACAO6).Value
            Me.TextBox_DadosPessoais_Curso6.Text = .Cells(indiceRegistro, PlanUSUARIO_colCURSO6).Value
            Me.Cbo_DadosPessoais_Tipo6.Text = .Cells(indiceRegistro, PlanUSUARIO_colTIPO6).Value
            Me.TextBox_DadosPessoais_Instituicao6.Text = .Cells(indiceRegistro, PlanUSUARIO_colINSTITUICAO6).Value
            Me.TextBox_DadosPessoais_DtConclusao6.Text = .Cells(indiceRegistro, PlanUSUARIO_colDTCONCLUSAO6).Value
            'Me.CheckBox_DadosPessoais_EXERCICIO.Text = .Cells(indiceRegistro, PlanUSUARIO_colEXERCICIO).Value
            'Me.CheckBox_DadosPessoais_TERAPIA.Text = .Cells(indiceRegistro, PlanUSUARIO_colTERAPIA).Value
            'Me.CheckBox_DadosPessoais_DROGAS.Text = .Cells(indiceRegistro, PlanUSUARIO_colDROGAS).Value
            Me.TextBox_DadosPessoais_Quais_Drogas.Text = .Cells(indiceRegistro, PlanUSUARIO_colQUAIS_DROGAS).Value
            Me.TextBox_DadosPessoais_Hobbies.Text = .Cells(indiceRegistro, PlanUSUARIO_colHOBBIES).Value
        End If
    End With
    Call AtualizaRegistroCorrente
End Sub
O que notei nas declarações de Constantes é que não há referência á qual planilha (ws_USUARIO, não tem um Set ws_USUARIO) e qual índice (indiceRegistro As Long e também não tem um valor atribuído)

Nas Constantes temos apenas atribuições das coluna para referência ao se obter dados.

Abs


Voltar ao topo
Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.

Avatar do usuário
Bruno_Almeida
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Seg Out 30, 2017 5:47 pm
Localização: Salvador-Ba
Contato:
Contato Bruno_Almeida

Re: Erro em Tempo de Execução "91"

Mensagem por Bruno_Almeida »

OK Saulo!

Deu Certo

Obrigado.


Voltar ao topo
Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.

Responder

Voltar para “Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel”