Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Validation valeur entrée dans champs

Validation valeur entrée dans champs

14 réponses
Avatar
Alain TEYSSEDRE
Bonjour

J'ai un champ de type texte : TexteChiffre dans lequel l'utilsateur doit
entrer
soit un nombre entier >=0
soit 2 nombres entiers chacun étant >= 0, et ces 2 nombre étants séparés
par un espace (Ex: 10 33)

Le fait de rentrer 1 ou 2 nombre est conditionné par la position d'un
CadreChoix
Me.CadreChoix = 1 l'utilsateur sait qu'il doit entrer 1 seul nombre
Me.CadreChoix = 2 l'utilisateur sait qu'il doit entrer 2 nombre

Comment controler toute erreur de frappe lors de la saisie pour qu'en
fonction du bouton d'option
choisi l'utilsateur soit guidé avec un Msbox pour entrer les données ?

merci

Alain
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Raymond
il faut une api.
va voir sur : http://access.seneque.free.fr/capslock_numlock.htm

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Alain TEYSSEDRE" a écrit dans le message
de news:
Bon ça commence à le faire
j'ai réussi pour la touche Shift
par contre je ne vois pas comment recuperer la valeur de la touche
CapsLock

et NumLock
pour savoir si elle sont enfoncées ou pas.

@+
Alain


Avatar
Anor
Bonjour,

Alain TEYSSEDRE :
| Bon ça commence à le faire
| j'ai réussi pour la touche Shift
| par contre je ne vois pas comment recuperer la valeur de la touche
| CapsLock et NumLock
| pour savoir si elle sont enfoncées ou pas.
|
| @+
| Alain


Regarde les si les deux fonctions ci-dessous te conviennent :

Option Compare Database
Option Explicit
Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long
dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As
String * 128End TypePrivate Declare Function GetVersionEx _Lib "kernel32" Alias "GetVersionExA"
_(lpVersionInformation As OSVERSIONINFO) As LongPrivate Declare Function GetKeyboardState Lib
"user32" _ (pbKeyState As Byte) As LongConst VK_NUMLOCK = &H90Const VK_CAPITAL = &H14Function
IsCapsLockOn() As Boolean Dim o As OSVERSIONINFO o.dwOSVersionInfoSize = Len(o)
GetVersionEx o Dim keys(0 To 255) As Byte GetKeyboardState keys(0) IsCapsLockOn keys(VK_CAPITAL)End FunctionFunction IsNumLockOn() As Boolean Dim o As OSVERSIONINFO
o.dwOSVersionInfoSize = Len(o) GetVersionEx o Dim keys(0 To 255) As Byte
GetKeyboardState keys(0) IsNumLockOn = keys(VK_NUMLOCK)End Function--
à+Arnaud-------------------------------------------------- Avant toute chose :
http://users.skynet.be/mpfa/Access Memorandum - http://memoaccess.free.fr ## Réponses souhaitées
sur ce forum, merci. ##--------------------------------------------------
Avatar
Anor
Bonjour,
(je la refais ;-)

| Alain TEYSSEDRE :
|| Bon ça commence à le faire
|| j'ai réussi pour la touche Shift
|| par contre je ne vois pas comment recuperer la valeur de la touche
|| CapsLock et NumLock
|| pour savoir si elle sont enfoncées ou pas.
||
|| @+
|| Alain
|
|
| Regarde les si les deux fonctions ci-dessous te conviennent :
|
Option Compare Database
Option Explicit

Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128 ' Maintenance pour utilisation de PSS
End Type

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
(lpVersionInformation As OSVERSIONINFO) As Long

Private Declare Function GetKeyboardState Lib "user32" _
(pbKeyState As Byte) As Long


Const VK_NUMLOCK = &H90
Const VK_CAPITAL = &H14

Function IsCapsLockOn() As Boolean
Dim o As OSVERSIONINFO
o.dwOSVersionInfoSize = Len(o)
GetVersionEx o
Dim keys(0 To 255) As Byte
GetKeyboardState keys(0)
IsCapsLockOn = keys(VK_CAPITAL)
End Function

Function IsNumLockOn() As Boolean
Dim o As OSVERSIONINFO
o.dwOSVersionInfoSize = Len(o)
GetVersionEx o
Dim keys(0 To 255) As Byte
GetKeyboardState keys(0)
IsNumLockOn = keys(VK_NUMLOCK)
End Function
Avatar
Alain TEYSSEDRE
MERCI Arnor

c'est super simple (à utiliser, parceque le code c'est du chinois), c'est
génial !!

@+

Alain



"Anor" a écrit dans le message de
news:
Bonjour,
(je la refais ;-)

| Alain TEYSSEDRE :
|| Bon ça commence à le faire
|| j'ai réussi pour la touche Shift
|| par contre je ne vois pas comment recuperer la valeur de la touche
|| CapsLock et NumLock
|| pour savoir si elle sont enfoncées ou pas.
||
|| @+
|| Alain
|
|
| Regarde les si les deux fonctions ci-dessous te conviennent :
|
Option Compare Database
Option Explicit

Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128 ' Maintenance pour utilisation de
PSS

End Type

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA"
_

(lpVersionInformation As OSVERSIONINFO) As Long

Private Declare Function GetKeyboardState Lib "user32" _
(pbKeyState As Byte) As Long


Const VK_NUMLOCK = &H90
Const VK_CAPITAL = &H14

Function IsCapsLockOn() As Boolean
Dim o As OSVERSIONINFO
o.dwOSVersionInfoSize = Len(o)
GetVersionEx o
Dim keys(0 To 255) As Byte
GetKeyboardState keys(0)
IsCapsLockOn = keys(VK_CAPITAL)
End Function

Function IsNumLockOn() As Boolean
Dim o As OSVERSIONINFO
o.dwOSVersionInfoSize = Len(o)
GetVersionEx o
Dim keys(0 To 255) As Byte
GetKeyboardState keys(0)
IsNumLockOn = keys(VK_NUMLOCK)
End Function




1 2