eliminare caratteri in casella di testo

Question

Ciao a tutti,

ho una maschera come segue

vorrei far in modo che su uscita dal controllo Testo0 il controllo Testo2 diventa come nell'immagine, cioè eliminare gli ultimi 4 caratteri ed i primi 11.

Grazie in anticipo a tutti Voi

Answer 1

ciao Giuseppe,

mi par di capire che la riga incriminata è quella in grassetto...quindi sostituisci :

CLng(Me.check_data_documento)

con

CLng(CVDate(Me.check_data_Documento))

mantieni invariato il resto comprese le &, altrimenti la stringa che contiene il predicato sql non viene costruita correttamente e siamo daccapo...

Facci sapere.

Ciao, Sandro.

Answer 2

Grazie Sandro, sempre TOP...

è possibile aggiungere l'inserimento nel Testo4 della data presente nel Testo0, però invertita, da 2019-06-10 a 10-06-2019? 

buona domenica... mi farebbe piacere ricevere un tuo messaggio via mail :-)

Grazie ancora

Answer 3

ciao Giuseppe,

dopo aggiornamento della textBox chiamata testo0 prova come segue :

Private Sub Testo0_AfterUpdate()

Dim AString() As String

AString = Split(Me.Testo0, "-")

Me.Testo2 = Split(AString(UBound(AString)), ".")(0)

End Sub

ciao, Sandro.

Answer 4

riesco con questo codice ad eliminare solo la prima parte

Private Sub Testo0_Exit(Cancel As Integer)

Me.Testo2 = Right([Testo0], 8)

End Sub

Cosa dovrei aggiungere per eliminare anche gli ultimi 4 caratteri?

Grazie ancora a tutti Voi

Answer 5

ho quasi trovato https://support.office.com/it-it/article/funzioni-stringa-e-come-usarle-965efa84-7009-4603-9765-2eb4a099ec72