Newsgroup: it.comp.appl.access
Titolo: Gestione BLOCNUM

ho notato che a volte access disattiva blocnum
siccome ho faticato un pò a trovare la soluzione posto la soluzione se servisse a qualcuno
 
inizialmente su apertura form eseguivo solo
SendKeys "{NUMLOCK}"
 
il problema è che se è già attivo lo spegne quindi ho trovato questa soluzione che lo attiva solo se è spento altrimenti non fa nulla
 
in un modulo *****
 
#If VBA7 Then
    Public Declare PtrSafe Function GetKeyState Lib "User32.dll" (ByVal nVirtKey As Long) As Long
#Else
    Public Declare Function GetKeyState Lib "User32.dll" (ByVal nVirtKey As Long) As Long
#End If
 
Public Const VK_CAPSLOCK As Long = &H14
Public Const VK_NUMLOCK  As Long = &H90
Public Const VK_INSERT As Long = &H2D
 
Function IsNumLockOn() As Boolean 'controlla se numlock è on
    IsNumLockOn = (GetKeyState(VK_NUMLOCK) And 1)
End Function
fine modulo ******
 
poi su apertura form mettere il seguente codice
If IsNumLockOn() = False Then SendKeys "{NUMLOCK}"
 
 
 
 
 
 
 
 
 
 
 
 

 ho notato che a volte access disattiva blocnum 
 
Io la vedo sotto un altro aspetto: per quale motivo Access dovrebbe disattivare il Bloc Num?
Fai uso di SendKeys da altre parti?

 disattivare il Bloc Num?
 
un ulteriore aspetto, ancora più a monte e probabile causa del 
problema: perché mai Windows ogni tanto mi disabilita il NumLock?
 
-- 
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........

 
 
 
non è windows
è l'uso del sendkeys in access
è un "bug" che si porta dietro ancora dalla versione 97
sono anni che non ricorro più a sendkeys quindi non so se anche le 
ultime versioni abbiano il problema
 
 
BFS


Confermo, utilizzo il sendkeys per selezionare tutto il contenuto di un campo quando una textbox prende il focus, come indicato qui sotto, ma non utilizzavo da nessuna parte SendKeys "{NUMLOCK}"
Quindi non capisco il motivo per il quale disattiva NUMLOCK, secondo voi quel codice può rallentare o creare altri tipi di problemi visto che funziona per riattivare NUMLOCK?
 
Cancel = True
If Not IsNull(Me!Fornitore) Then
    SendKeys "{HOME}+{END}"
End If


E usare il classico:
 
With ActiveControl
     .SelStart = 0
     .SelLength = Len(.Text)
End With
 
cosi' puoi abbandonare il SendKey, che non sempre funziona come ci si 
aspetta

Il 14/11/2022 16:20, mario rossi ha scritto:

basta il solo send keys anche con altri comandi
 
si trovano tracce del bug VBA gia 17 anni fa
 
https://microsoft.public.it.office.excel.narkive.com/bAggCTDv/perche-se-uso-il-sendkeys-nel-vba-mi-si-disattiva-il-numlock
 
 
 
BFS
 


buona idea che non conoscevo


17 anni fa che versioni erano office 97 e windows 3.11?
e in tutti questi anni lorsignori non hanno risolto bug relativi a questo comando? 
Good very good!!!
 
 
 
 
 

 buona idea che non conoscevo
 
Vedi anche:
 
Posizionare il cursore/la selezione
https://www.donkarl.com/it?FAQ4.24
 
e
Blocco numeri (SendKeys)
https://www.donkarl.com/it?FAQ7.8
 
 
che ho scritto circa 20 anni fa.
 
-- 
Ciao
Karl
*********
Access News: 
https://youtu.be/XMOHBSudo-U
 
Access DevCon: 
http://AccessDevCon.com
 
Access FAQ: 
https://www.donkarl.com/it
 

 è l'uso del sendkeys in access
 
no, nel mio caso non ho mai usato sendkeys, ciò nonostante 
saltuariamente Windows mi spegne il caps-lock
 
mah...


 Good very good!!!
 
digli anche dello zoom in struttura report... :')



A che bug zoom ti riferisci?

 A che bug zoom ti riferisci?
 
il bug è che manca del tutto :D


 
 
Eh ma sei perfido, ehhh  :)

 
 
Gia' che scrivete a Bill Gates, ditegli anche se puo' farci aprire 
contemporaneamente due o piu' finestre indipendenti per visualizzare 
Function diverse all'interno dello stesso modulo

 diverse all'interno dello stesso modulo
 
giusto, un'altra cosa di cui sento la mancanza


 
 
2 = Menù Finestra/Dividi


 
 
"...due o PIU' finestre INDIPENDENTI..."
Attualmente non e' possibile avere delle finestre indipendenti, ma e' 
una sola divisa a meta' in senso orizzontale
Si, e' qualcosa meglio di niente, ma non e' sicuramente quanto 
servirebbe per visualizzare/debuggare comodamente