VBAccess Problème requête paramétrée Formulaire

VBAccess Problème requête paramétrée Formulaire - VB/VBA/VBS - Programmation

Marsh Posté le 18-11-2011 à 15:40:49    

Bonjour,  
 
J'ai un formulaire sur Access avec des zones de liste, et je voudrai faire apparaître un résultat dans une zone de texte en fonction des choix dans les zones de liste.  
 
Voici mon code qui ne marche pas:  
 

Code :
  1. Private Sub Form_Current()
  2. Dim strReq As String
  3. Dim objRs As DAO.Database
  4. strReq = "SELECT [Abaques Base Access].[Abaques] FROM [Abaques Base Access] WHERE Forms!Chiffreur!Service_TMA = [Abaques Base Access].[Service de TMA] And Forms!Chiffreur!Activités = [Abaques Base Access].[Activités] And Forms!Chiffreur!Classe = [Abaques Base Access].[Classe] And Forms!Chiffreur!Type = [Abaques Base Access].[Type de Flux] And Forms!Chiffreur!Complexité = [Abaques Base Access].[Complexité] And Forms!Chiffreur!Coordination = [Abaques Base Access].[Coordination] And Forms!Chiffreur!Recette = [Abaques Base Access].[Recette] And Forms!Chiffreur!Assrecette = [Abaques Base Access].[Assistance à recette] And Forms!Chiffreur!Tache = [Abaques Base Access].[Tâches];"
  5. Set objRs = CurrentDb()
  6. Resultat = objRs.OpenRecordset(strReq)
  7. objRs.Close
  8. If IsNull(Resultat) Then MsgBox "L'Abaque est N/A", vbOKOnly + vbInformation, "Chiffreur d'Abaques"
  9. End If
  10. Me.Abaques.Value = Resultat
  11. End Sub


 
Merci pour vos lumières :)

Reply

Marsh Posté le 18-11-2011 à 15:40:49   

Reply

Marsh Posté le 22-11-2011 à 13:14:43    

Quel est l'interet d'une telle requete en VB ?
Il n'y a aucun parametre, aucune variable, aucune fonction, bref juste une requete toute bete. Pourquoi ne pas creer une requete avec l'editeur de requete (qui te permet aussi de faire autant de clause WHERE), et ensuite avec du code attaquer cette requette avec un DLookUp par exemple ?


Message édité par SuppotDeSaTante le 22-11-2011 à 13:15:03

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

Marsh Posté le 02-12-2011 à 11:34:26    

Merci pour cette réponse  :)  
 
J'ai mis mes requêtes sous Access et fait des Docmd.Openquery.  ;)  
 
regards,


Message édité par Printff le 02-12-2011 à 11:36:45
Reply

Sujets relatifs:

Leave a Replay

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