Inserimento data in textbox sia da calendario che manuale

[lone wolf]

Salve ho un file con delle text box di cui una che inserisce la data tramite calendario ma non permette la digitazione, è possibile modificare il codice affinchè permetta anche la digitazione manuale della data? Grazie

Questo è il codice:

Codice: Seleziona tutto

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
Me.TextBox2.Value = DateClicked
End Sub


[Anthony47]

Mi pare di capire che in realta' hai una userform che contiene un controllo calendario e un textbox, e vorresti pericolosamente consentire all'utente di inputare la data non solo come scelta sul calendario ma anche per libera digitazione.
La risposta alla domanda dipende dal tipo di "controllo Calendario" che hai inserito e da quali liberta' la form lascia all'utente.
Prova a scrivere tu la data all'interno del Textbox, e se non te lo consente bisognera' guardare dentro la form, cosa che si puo' ottenere con questo processo:
-dalla finestra del vba, visualizza la form ed esportale: Menu /File /Esporta file; verranno creati un file .frm e uno .frx che descrivono la tua form con i cotrolli e le relative macro di gestione.
-Pubblica questi due file per consentirci di guardare dentro e capire le cose che ti ho detto.

Controlla che all'interno della form e delle sue macro non ci siano informazioni riservate, ma evita di consegnarci un ambiente di prova che sia diverso da quello tuo reale...

Ciao

[lone wolf]

Grazie per l'aiuto Anthony, ecco i file:
http://www.filedropper.com/nuovacartella_7

[lone wolf]

Salve credo di aver risolto modificando nella proprietà della textbox alla voce Locked e portandolo a False, adesso sembra funzionare come volevo, grazie per l'aiuto

[Anthony47]

Va bene quello che hai fatto; io aggiungerei anche la verifica che quanto scritto sia una data corretta. Per questo visualizza la form, premi F7 e inserisci questo codice in fondo al codice gia' presente:

Codice: Seleziona tutto

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox5.Text) Then
    TextBox5.Text = Format(TextBox5.Value, "dd-mmm-yyyy")
Else
    If TextBox5 <> "" Then
        MsgBox ("Data non valida")
        TextBox5.Text = ""
        Cancel = True
    End If
End If
End Sub

Ciao