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