Tira o vba do date

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Me.TextBox1.Value = Date
End Sub

Tira o vba do date

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Me.TextBox1.Value = Date
End Sub

OK obrigado
Em relação ao Erro em tempo de execução '-2147352571 (800200005)': do codigo abaixo já descobri o porque do erro, ao fazer uma alteração quando clico ok todos os campos do formulario tem de estar preenchidos.
Mas queria que alterasse apenas os TEXTBOX que pretendo alterar mas com o codigo abaixo so aceita se todas as TEXTBOX estiverem preenchidas o que devo fazer para alterar o codigo abaixo para gravar apenas os campos que preencho sem dar erro por estarem TEXTBOXs em Branco?

Sub Alterar_Registro()
  '  If MsgBox("Confirma a Alteração de dados: " & Me.txtNomeEmpresa & "?", vbYesNo + vbQuestion, "ModeloCadastro") = vbNo Then
   ' Exit Sub
    'End If
    ' , , , , , , , , ,,
    With rstBanco
        .Update Array("FIA", "COA", "DATA", "LSA", "NAPMD", "CORG", "NNA", "REF", "CATALOGADOR", "SIC", "LAU", "LDU", "TRDATA", "TRSIC", "TRLAU", "TRCATALOGADOR", "OBS", "ESTADO"), _
        Array(txtFIA.Text, txtCOA.Text, txtDATA.Text, txtLSA.Text, txtNAPMD.Text, txtCORG.Text, txtNNA.Text, txtREF.Text, txtCATALOGADOR.Text, txtSIC.Text, txtLAU.Text, txtLDU.Text, txtTRDATA.Text, txtTRSIC.Text, txtTRLAU.Text, txtTRCATALOGADOR.Text, txtOBS.Text, txtESTADO.Text)
    End With
    rstBanco.Update
    'MsgBox "Alterado com sucesso.", vbInformation, "ModeloCadastro"
End Sub

Mais uma vez obrigado

Tenta antes do With rstBanco

On Error Resume Next

Tenta antes do With rstBanco

On Error Resume Next

Resultou perfeitamente muito obrigado.
Em relação ao código que inseri também o código na txtNAPMD

Acontece que sempre que digito as letras desliga me o numlk do teclado e queria que nunca desligasse.
Sabe o que devo alterar no código para que isso não aconteça?

Private Sub txtNAPMD_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Limita a Qde de caracteres
txtNAPMD.MaxLength = 16

'A linha abaixo mantem as letras APENAS MAIÚSCULAS.
'txtNAPMD.Value = UCase(txtNAPMD.Value)

If Len(txtNAPMD) = 4 Or Len(txtNAPMD) = 5 Then
txtNAPMD.Text = txtNAPMD.Text & "-"
SendKeys "{End}", False

ElseIf Len(txtNAPMD) = 7 Then
txtNAPMD.Text = txtNAPMD.Text & "-"

ElseIf Len(txtNAPMD) = 11 Then
txtNAPMD.Text = txtNAPMD.Text & "-"
SendKeys "{End}", False
End If

End Sub

Muito obrigado pela ajuda que já me deu

Preciso de ajuda urgente

lfrbranca todos que participam do forum oferecem ajuda de forma voluntaria, e possuem outras coisas a fazer entao sugiro que aguarde alguem responder sua necessidade, se tem urgencia ao ponto de nao ser possivel aguardar uma resposta sugiro que contrate um profissional em VBA.

Do contrario sugiro que aguarde alguem responder sua pergunta.

Sugiro inclusive que disponiblize o seu arquivo sem dados originais para facilitar a quem for lhe ajudar.

Boa sorte!

Preciso de ajuda urgente

Favor acessar --> viewtopic.php?f=7&t=12600

[]s

Patropi - Moderador

Peco desculpa