Visualizzazione dei risultati da 1 a 5 su 5

Visualizzazione discussione

  1. #5
    Utente di HTML.it L'avatar di nman
    Registrato dal
    Jan 2011
    residenza
    Milano
    Messaggi
    1,333
    Comunque per mia "cultura" mi sono fatto un esperimento:

    il risultato è che:
    - Il limite dei caratteri per una stringa scritta su riga unica è di 1014

    - il limite dei caratteri per una stringa scritta su righe multiple è di oltre 91000

    NB: Access2013

    codice:
    Private Sub cmd0_Click()
    '  cmd0  è un pulsante di comando su una maschera
    
    Dim SrGi As String
    SrGi = ""
    SrGi = SrGi & "12345678901234567890123456789012345678901234567890"
    SrGi = SrGi & "12345678901234567890123456789012345678901234567890"
    ' eccetera fino a 91000 caratteri è andata bene
    
    Dim SrSb As String
    SrSb = "2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"
    ' questi sono 1014 caratteri  di piu non ne posso scrivere su riga unica
    
    Me.TeGi.Value = SrGi
    Me.TeSb.Value = SrSb
    ' Visualizzo le 2 stringhe su semplici caselle di testo
    
    Me.LeGi = Len(SrGi)
    Me.LeSb = Len(SrSb)
    ' Visualizzo la lunghezza delle 2 stringhe su caselle di testo
    
    Me.Testo6.SetFocus
    ' sposto il focus
    
    End Sub
    Ultima modifica di nman; 10-10-2013 a 07:14

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.