Post by Vladimiro LeonePost by DinoPost by Vladimiro LeonePost by Vladimiro LeonePost by DinoCiao a tutti volevo sapere se era possibile durantel'inserimento di
dati in una textbox avvisare che il maiuscolo "lucchetto" e' attivato
o che si sta' pigiando lo Shift.
Grazie
Dino
Ciao Dino,
Private Sub Nome_KeyPress(KeyAscii As Integer)' su pressione della
casella di testo
If KeyAscii = Asc(UCase(Chr(KeyAscii))) Then
MsgBox "Non puoi inserire la lettera maiuscola!"
DoCmd.CancelEvent
Exit Sub
End If
End Sub
Ciao Vladimiro.
Prima che me lo chiedi, voglio anticipare la risposta :-)
If KeyAscii = Asc(UCase(Chr(KeyAscii))) Then
If MsgBox("Stai inserendo una lettera maiuscola, continuare?",
vbQuestion + vbCritical + vbYesNo, "Attenzione") = vbNo Then
DoCmd.CancelEvent
Exit Sub
End If
End If
Ciao Vladimiro.- Nascondi testo citato
- Mostra testo citato -
Grazie Vladimiro per la risposta e grazie "per la fiducia che riponi
in me"Visto il primo post nel secondo potevo arrivarci dove inserire
il codice ma ...tu dici "non si sa mai"
Scherzi a parte il codice inserito "su pressione" della casella di
testo da un problema. Es: L'utente non pigia il lucchetto,scrive
normalmente e poi pigia sulla barra spaziatrice.Ovviamente esce la
segnalazione del codice.Cos' pero' non va bene.Il codice dovrebbe
intervenire solo se l'utente pigia il tasto "lucchetto".E' possibile???
Se no che soluzione dai???
grazie ancora per disponibilita' e FIDUCIA......
Dino- Nascondi testo citato
- Mostra testo citato -
Ciao Dino, come presupponevo stai cercando con due post di risolvere
il problema (bastava solo un post, non credi?)
Comunque sono dell'idea che la soluzione migliore per te sia quella
che ti ho suggerito in questo post, magari con qualche ritocco.
scrivendo con carattere minuscolo nella casella di testo (non vale per
i records gi� scritti) tutto prosegue tranquillamente, anche inserendo
gli eventuali spazi tra una parola e l'altra (codice che ho aggiunto);
nel momento in cui cominci a scrivere in maiuscolo (sia se attivi il
tasto "MAIUSC" o il LUCCHETTO come lo chiami tu) devi dare
l'autorizzazione se lasciare la lettera maiuscola o no.
If KeyAscii = Asc(" ") Then
Exit Sub
End If
If KeyAscii = Asc(UCase(Chr(KeyAscii))) Then
If MsgBox("Stai inserendo una lettera maiuscola, continuare?",
vbQuestion + vbCritical + vbYesNo, "Attenzione") = vbNo Then
DoCmd.CancelEvent
Exit Sub
End If
End If
Ciao Vladimiro.- Nascondi testo citato
- Mostra testo citato -
Ciao Vladi...(mi permetto ormai di chiamarti cos�).Allora prima di
tutto devo iniziare il mio post con i
doverosi ringraziamenti (non di rito) per la tua pazienza e
disponibilita'.Per quanto riguarda i "due post" a dir la verita' se
noti questo riguardava l'avviso dello shift e del "lucchetto" (o caps
lock come lo chiami tu) e' un'idea che mi e' venuta l'altra
sera.Ovviamente mi sembrava piu' corretto aprire un secondo post.Mi
sembrava corretto avvisare anche gli "Accessauti" dell' altro post di
questa idea,lungi da me l'idea di non rispettare le regole del NG.
Beh dopo tutta questa "prefazione" io passerei alle cose serie.SEnza
essere melenso io ribadisco i miei ringraziamenti.Abbiamo (cioe' hai)
risolto il problema.Mi sono permesso di fare un'aggiunta.
il tuo codice sul Keypress e' PERFETTO. Io poi sull'evento dopo
aggiornamento sono andato ad inserire il codice che mi permette di
scrivere la prima iniziale della prima parola sempre in maiusc.
Prima di congedarmi (alla prossima esigenza) ti vorrei chiedere ancora
Dal codice che mi hai postato se volessi togliere la verifica dello
shift o Maiusc(come lo chiami tu) come dovrei fare??Lasciando
ovviamente la verifica sul caps lock.
Grazie ancora Dino
Risposta
Io rimango della mia idea
Avrei controllato con strcomp le stringe e se sono in un caso faccio una
cosa se sono in un altro no- Nascondi testo citato
- Mostra testo citato -
lettera minuscola).