[Topic Unique] Access : vos questions et astuces

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Topic Unique] Access : vos questions et astuces

SuppotDeSaTante

Aka dje69r

Bonjour

Comme les topics uniques Excel de freds45 et Word de Loom the Gloom, ce topic unique Access devrait être utile à pas mal de personnes.
Centraliser l'information parait plus utile pour des recherches par exemple.

Les questions à traiter peuvent être de tous domaines. B.A.-BA, modèle, connexions, requêtes, macros, états, formulaires, vba etc.
Elles peuvent aussi être de toutes versions.

Il est demandé aux personnes qui posent une question, de bien spécifier la version d'Access qu'ils utilisent.

Voili voila

A vos claviers

Merci à freds45 pour son aval

---------------
Soyez malin, louez entre voisins !

Publicité

SuppotDeSaTante

Aka dje69r

reservé1

---------------
Soyez malin, louez entre voisins !

SuppotDeSaTante

Aka dje69r

Astuce de mise en forme de formulaire :

Créer un formulaire transparent.

Mettre votre formulaire en indépendant, dans les propriétés du formulaire.

Dans les déclarations de votre formulaire :

Code :

Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2
Private Const GWL_EXSTYLE = &HFFEC
Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, _
ByVal lngWinIdx As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, _
ByVal lngWinIdx As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "USER32" _
(ByVal hWnd As Long, _
ByVal crKey As Integer, _
ByVal bAlpha As Integer, _
ByVal dwFlags As Long) As Long

Ensuite dans l'evenement Open du formulaire :

Code :

Private Sub Form_Open(Cancel As Integer)
Dim lAlpha As Long
lAlpha = 230 'où 0 est totalement transparent et 255 totalement opaque
SetWindowLong Me.hWnd, GWL_EXSTYLE, GetWindowLong(Me.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes Me.hWnd, 0, lAlpha, LWA_ALPHA
End Sub

Fonctionne sous 97, 2000, Xp, 2003 et 2007

Message édité par SuppotDeSaTante le 19-01-2009 à 11:44:55

---------------
Soyez malin, louez entre voisins !

FlorentG

Doux Jésus, faut que je poste des trucs ici, j'en ai pas mal fait dans ma vie.

RickHunter13

Ca marche pour moi

Bon alors, j'ai une question: comment faire pour que Access soit sensible à la casse. En effet, j'ai dans ma table un champ "unité" et bien sûr, il y a des Mg (Mégagrammes) et des mg (milligrammes)?

Je fais une requête pour convertir en une autre unité (le kg) par exemple mais il mélange les Mg et les mg.

Avec Access 2002.

Message édité par RickHunter13 le 10-03-2009 à 18:32:52

SuppotDeSaTante

Aka dje69r

Bonjour.....

Il faut que tu convertisses ta chaine Mg ou mg en Ascii.
Par exemple
Asc("m" ) = 109
Asc("M" ) = 77

Donc derriere en fonction tu sais si c'est du Mg ou du mg

Fonction :

Code :

Function AscChaine(Chaine)
Caract = ""
For x = 1 To Len(Chaine)
Caract = Caract & Asc(Mid(Chaine, x, 1))
Next x
AscChaine = Caract
End Function

Donc pour mg il renvoie 109103 et pour Mg il renvoie 77103, apres tu filtres ta requete la dessus.

Cordialement

Message édité par SuppotDeSaTante le 12-03-2009 à 11:19:29

---------------
Soyez malin, louez entre voisins !

FORUM HardWare.fr

Windows & Software

Logiciels

[Topic Unique] Access : vos questions et astuces

Sujets relatifs
Questions diverses	Problème avec Microsoft office Access
Résolu [access] Liste modifiable des mois de l'année	[RESOLU] Access - Compter des enregistrements en fonction de 2 champs
ACCESS : recherche a l'aide d'une zone texte	Gros problème avec access
Questions sur les licences de GDATA	Questions sur Rocketdock
access mise a jour table via autre table	Question sur ACCESS
Plus de sujets relatifs à : [Topic Unique] Access : vos questions et astuces

Page générée en 0.047 secondes