[Topic Unique] Access : vos questions et astuces

Access : vos questions et astuces [Topic Unique] - Logiciels - Windows & Software

Marsh Posté le 19-01-2009 à 11:08:10    

Bonjour
 
http://dje69r.free.fr/access.jpg
 
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 !
Reply

Marsh Posté le 19-01-2009 à 11:08:10   

Reply

Marsh Posté le 19-01-2009 à 11:08:20    

reservé1


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

Marsh Posté le 19-01-2009 à 11:08:29    

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 :
  1. Private Const WS_EX_LAYERED = &H80000
  2. Private Const LWA_ALPHA = &H2
  3. Private Const GWL_EXSTYLE = &HFFEC
  4. Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" _
  5. (ByVal hWnd As Long, _
  6. ByVal lngWinIdx As Long, _
  7. ByVal dwNewLong As Long) As Long
  9. Private Declare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" _
  10. (ByVal hWnd As Long, _
  11. ByVal lngWinIdx As Long) As Long
  13. Private Declare Function SetLayeredWindowAttributes Lib "USER32" _
  14. (ByVal hWnd As Long, _
  15. ByVal crKey As Integer, _
  16. ByVal bAlpha As Integer, _
  17. ByVal dwFlags As Long) As Long


 
Ensuite dans l'evenement Open du formulaire :

Code :
  1. Private Sub Form_Open(Cancel As Integer)
  2.   Dim lAlpha As Long
  3.    
  4.     lAlpha = 230 'où 0 est totalement transparent et 255 totalement opaque
  5.     SetWindowLong Me.hWnd, GWL_EXSTYLE, GetWindowLong(Me.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
  6.     SetLayeredWindowAttributes Me.hWnd, 0, lAlpha, LWA_ALPHA
  7. 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 !
Reply

Marsh Posté le 19-01-2009 à 11:18:49    

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

Reply

Marsh Posté le 10-03-2009 à 18:32:05    

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
Reply

Marsh Posté le 12-03-2009 à 11:18:13    

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 :
  1. Function AscChaine(Chaine)
  2.    
  3.     Caract = ""
  4.     For x = 1 To Len(Chaine)
  5.        
  6.         Caract = Caract & Asc(Mid(Chaine, x, 1))
  8.     Next x
  9.    
  10.     AscChaine = Caract
  11. 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 !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed