Discussion :

[SIGER_971]

Bonjour,

Ma question est simple, j'aimerais qu'on m'aide à écrire un code qui me permettra d'inhiber/de désinhiber la touche MAJ au démarrage en double cliquant sur une étiquette !
J'ai déjà lu le tuto dessus(http://access.developpez.com/faq/?page=AdminDBB#inhiber), mais je n'arrive pas à le modifier !

Quelqu'un peut m'aider ?

Merci d'avance !

[loufab]

Bonjour,

ça devrait ressembler à ça !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Function IsSet(strPropName As String, varPropType As Long, varPropValue As boolean)
 
    Dim dbs As Database
    prp As Variant
    Const conPropNotFoundError = 3270
    IsSet = False
    Set dbs = CurrentDb
    On Error GoTo Change_Err
    if dbs.Properties(strPropName ) = varPropValue then  
       dbs.Properties(strPropName ) = not varPropValue 
    else
       dbs.Properties(strPropName ) = varPropValue  
    endif 
Change_Bye:
    Exit Function
Change_Err:
    If Err = conPropNotFoundError Then    ' Propriété non trouvée.
    Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
    dbs.Properties.Append prp
    Resume
Else
  ' --Erreur inconnue.
  Resume Change_Bye
End If
End Function

[SIGER_971]

Hello !
Désolé du retard, mais comme je ne bosse sur mon applic qu'au boulot, ce n'est qu'aujourd'hui que j'ai pu tester le code !
Merci beaucoup Loufab, ça marche nikel !
Je publie un petit edit car tu as oublié un petit "dim" (3 fois rien quoi ! )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Function IsSet(strPropName As String, varPropType As Long, varPropValue As boolean)
 
Dim dbs As Database
Dim prp As Variant
Const conPropNotFoundError = 3270
IsSet = False
 
Set dbs = CurrentDb
 
On Error GoTo Change_Err
 
If dbs.Properties(strPropName ) = varPropValue then  
     dbs.Properties(strPropName ) = not varPropValue 
Else
     dbs.Properties(strPropName ) = varPropValue  
End If 
 
Change_Bye:
    Exit Function
 
Change_Err:
    If Err = conPropNotFoundError Then    ' Propriété non trouvée.
         Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
         dbs.Properties.Append prp
         Resume
    Else
         ' --Erreur inconnue.
         Resume Change_Bye
     End If
End Function