Excel Erro quando copia listbox sem data de nascimento

[Jefferson TS]

Olá. Tenho um listbox para pesquisar cadastro e alterar. Porém quando o cadastro selecionado não tem data de nascimento dá erro na hora de copiar os dados para o formulário que vai alterar os dados, conforme código abaixo:
Alguém poderia me ajudar?

Private Sub commandbuttoncopiareditar_Click()
Call Desprotege

Dim Indice As Integer
Dim nasc As Date


    With ListBoxPESQUISAR
    Indice = .ListIndex
    nasc = .List(Indice, 3)
        Form_CADASTRO.TextBoxNOME = .List(Indice, 1)
        Form_CADASTRO.TextBoxID = .List(Indice, 0)
        Form_CADASTRO.TextBoxNASCIMENTO = nasc
            
                
        Form_CADASTRO.TextBoxCPF = .List(Indice, 4)
        Form_CADASTRO.TextBoxCONTATO = .List(Indice, 5)
        Form_CADASTRO.TextBoxEMAIL = .List(Indice, 6)
        Form_CADASTRO.ComboBoxTIPO_PAG = .List(Indice, 7)
        Form_CADASTRO.ComboBoxMODALIDADE = .List(Indice, 8)
        
        If .List(Indice, 2) = "Masculino" Then
            Form_CADASTRO.OptionButton1 = True
        End If
        If .List(Indice, 2) = "feminino" Then
            Form_CADASTRO.OptionButton2 = True
        End If

    End With

Form_CADASTRO.CommandButtonCADASTRAR.Visible = False
Form_CADASTRO.CommandButtonALTERAR.Visible = True
Form_CADASTRO.cmdExcluir.Visible = True

Form_CADASTRO.TextBoxNOME.SetFocus

Unload Me

Call Protege
End Sub

 

 

CONTROLE NOVO.rarBuscando informações...

[AfonsoMira]

@Jefferson TS Boas,

Então o erro acontece, pois a variável nasc está declarada como data, como está a atribuir o valor "" como este não é uma data então dá o erro.

 

Experimente algo como isso, ele verifica se o valor é "" ou não.

  Mostrar conteúdo oculto

Private Sub commandbuttoncopiareditar_Click()
Call Desprotege

If OptionButtonNOME.Value = False And OptionButtonCPF.Value = False Then
MsgBox "Selecione o tipo de filtro (Nome ou CPF)", vbInformation, "Filtro"
Exit Sub
End If

Dim Indice As Integer
Dim nasc As Date

If OptionButtonNOME.Value = True Then


            With ListBoxPESQUISAR
            
            Indice = .ListIndex
            If .List(Indice, 3) = "" Then
            Else
            nasc = .List(Indice, 3)
            End If
            
                Form_CADASTRO.TextBoxNOME = .List(Indice, 1)
                Form_CADASTRO.TextBoxID = .List(Indice, 0)
                Form_CADASTRO.TextBoxNASCIMENTO = nasc
                Form_CADASTRO.TextBoxCPF = .List(Indice, 4)
                Form_CADASTRO.TextBoxCONTATO = .List(Indice, 5)
                Form_CADASTRO.TextBoxEMAIL = .List(Indice, 6)
                Form_CADASTRO.ComboBoxTIPO_PAG = .List(Indice, 7)
                Form_CADASTRO.ComboBoxMODALIDADE = .List(Indice, 8)
                        If .List(Indice, 2) = "Masculino" Then
                            Form_CADASTRO.OptionButton1 = True
                        End If
                        If .List(Indice, 2) = "feminino" Then
                            Form_CADASTRO.OptionButton2 = True
                        End If
             End With
        
        Form_CADASTRO.CommandButtonCADASTRAR.Visible = False
        Form_CADASTRO.CommandButtonALTERAR.Visible = True
        Form_CADASTRO.cmdExcluir.Visible = True
        Form_CADASTRO.TextBoxNOME.SetFocus
        
Unload Me
Call Protege
End If

If OptionButtonCPF.Value = True Then

            nasc = ""
            With ListBoxPESQUISAR
            Indice = .ListIndex
            If .List(Indice, 3) = "" Then
            Else
            nasc = .List(Indice, 3)
            End If
                Form_CADASTRO.TextBoxNOME = .List(Indice, 1)
                Form_CADASTRO.TextBoxID = .List(Indice, 0)
                Form_CADASTRO.TextBoxNASCIMENTO = nasc
                Form_CADASTRO.TextBoxCPF = .List(Indice, 4)
                Form_CADASTRO.TextBoxCONTATO = .List(Indice, 5)
                Form_CADASTRO.TextBoxEMAIL = .List(Indice, 6)
                Form_CADASTRO.ComboBoxTIPO_PAG = .List(Indice, 7)
                Form_CADASTRO.ComboBoxMODALIDADE = .List(Indice, 8)
                        If .List(Indice, 2) = "Masculino" Then
                            Form_CADASTRO.OptionButton1 = True
                        End If
                        If .List(Indice, 2) = "feminino" Then
                            Form_CADASTRO.OptionButton2 = True
                        End If
             End With
        
        Form_CADASTRO.CommandButtonCADASTRAR.Visible = False
        Form_CADASTRO.CommandButtonALTERAR.Visible = True
        Form_CADASTRO.cmdExcluir.Visible = True
        Form_CADASTRO.TextBoxNOME.SetFocus
        
Unload Me
Call Protege
End If

End Sub

 

 

[Jefferson TS]

@AfonsoMira  Não deu certo, poderia dar uma olhada por gentileza. E se puder me ajudar com a parte do filtro desse formulário também:

CONTROLE NOVO.rarBuscando informações...