[ BaneK987 @ 03.07.2014. 19:39 ] @
Pozdrav s mora.
Kreirao sa program za praćenje i izračunavanje putnih naloga.
U jednoj od subformi izračunavam troškove putnog naloga.
Problem je u tome što šetajući kroz program i subforme kada dođem na izračun NUMLOCK je neki put upanjen neki ne,
pa bi htio ulaskom u taj dio provjeriti da li je upaljen ili ne.
[ Getsbi @ 04.07.2014. 06:53 ] @
Najbolje da podesiš osobinu BootUp Num-Lock u Bios-u, tako da uvek bude uključena kad se OS podigne.
Ako ti to ne odgovara, probaj da potražiš odgovor ovde: http://access.mvps.org/access/api/api0046.htm
[ izonic @ 04.07.2014. 12:22 ] @
Code:
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Function TasterCP()
Dim K_V As Boolean

K_V = GetKeyState(20)
If K_V = True Then
MsgBox "Caps Lock Uključen"
Else
MsgBox "Nije uključen Caps Lock "
End If
End Function
[ BaneK987 @ 05.07.2014. 15:03 ] @
U biosu je uključena numerička tastatura, ali sam Access 2003 ukopčava i iskopčava. Pojma nemam razlog.
Ovaj kod od Izonica sam ugradio, to bi bilo to samo ne znam koji je kod NUMLOCK-a
[ BaneK987 @ 05.07.2014. 17:40 ] @
Riješio sam - kod je 144

Zahvaljujem na pomoći - Pozdrav s mora
[ BaneK987 @ 09.07.2014. 19:06 ] @
Nisam riješio problem.
Sad mi se pali i gasi NUM LOCK na svaki klik mišem na bilo koji događaj na formi ili subformi.
Htio sam sa malo - razumljivog koda riješiti problem, no treba u glavi sazrit.
Pozdrav s mora!
[ izonic @ 09.07.2014. 20:42 ] @
Njabolje da zakacis taj dio gdje si to uradio ali u nekoj verziji accessa 2003 ili nizoj da ne nagadjamo.