Newsgroup: it.comp.appl.access
Titolo: limitare i caratteri di una textbox non associata a 250 caratteri

?
grazie a tutti

 grazie a tutti
Molto succinto..!!
La proprietą TAG della TextBox serve per limitare il numero caratteri.
Se nella proprietą TAG=5 Nmax=5
Inserisci nell'EVENTO CHANGE della TxtBox il seguente codice:
Private Sub txtTest_Change()
     Call adhLimitChars(Me.txtTest, Val(txtTest.Tag))
End Sub
Metti in un modulo le seguenti API e FUNC....!!
Private Declare Function SendMessageLong _
 Lib "user32" Alias "SendMessageA" _
 (ByVal hWnd As Long, ByVal wMsg As Long, _
 ByVal wParam As Long, lngValue As Long) As Long
Private Declare Function GetFocus _
 Lib "user32" () As Long
Private Const EM_SETLIMITTEXT As Long = &HC5
Public Sub adhLimitChars(txt As TextBox, lngLimit As Long)
    Dim hWnd As Long
    Dim lngResult As Long
    Dim lngNewMax As Long
 
    ' Get the window handle for the current window.
    hWnd = GetFocus()
 
    lngNewMax = Len(txt.Text)
    If lngNewMax < lngLimit Then
        lngNewMax = lngLimit
    End If
 
    ' Send the message to the current text box
    ' to limit itself to lngNewMax characters.
    SendMessageLong hWnd, EM_SETLIMITTEXT, lngNewMax, 0
End Sub
 @Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Metti in un modulo le seguenti API e FUNC....!!
cut
stai scherzando?
perche' vai a scomodare le api (che pungono)?
mettere un controllo della linghezza del testo nella proprieta' su tasto
giu' mi sembra molto piu' funzionale.
Private Sub RagioneSociale_KeyDown(KeyCode As Integer, Shift As Integer)
    If Len(Me.RagioneSociale.Text) > 250 Then KeyCode = 0
End Sub
ovviamente il valore 250 puoi anche farglielo leggere dalla proprieta' tag
del controllo, ma questa e' una scelta arbitraria.
Sib

 
Questa mi pare una bella IDEA, che tra le altre cose mi dą lo spunto
per risolvere un altro problema che ho postato e che non
sņ risolvere.
Da quando mi anno punto le uso per non farle arrabbiare.....!!!!
Ciao


 Ciao Sib.......mi hai stupito....!
cut
e' che dicevi che "serve per quello".
Comunque scusa se sono stato un po' brusco, e' che in questo periodo sono un
po' reattivo per via di alcune cosiderazioni presuntuose (ed errate) su
alcuni argomenti.
Sono contento che la mia proposta ti sia sembrata interessante.
Ciao
Sib

 Sib
Cavolo se mi è sembrata, alcune volte ci si complica la vita
inutilmente...., fino a chè qualcuno non ti riporta sulla
buona strada....!!!
Ciao.


 buona strada....!!!
Sai, capita a tutti, me per primo, di incartarsi in cose complicatissime per
fare cose semplici.
Per questo, secondo me, nessuno puo' dirsi "cosi' preparato" da poter fare a
meno del ng, la "cosa che ti sfugge" e' sempre in agguato, anche per chi
crede di essere posseduto dallo spirito di Bill.
Io posto raramente domande perche' spesso trovo le risposte scartabellando
fra i 3d degli altri.
Sib

 la "cosa che ti sfugge" e' sempre in agguato, anche per chi
cut
non nel senso che sfugge a te, nel senso che sfugge e basta.
Sib

"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:Fk9B9.18380$Yw.7...@news2.tin.it...

Non ti commuovere, e non ti preoccupare, non fraintendo, quasi
mai................!!!
Ciao Sib, buon week-end
@Alex.