Calculateur de charges VBA Access

Calculateur de charges VBA Access - VB/VBA/VBS - Programmation

Marsh Posté le 16-11-2011 à 11:27:48    

Bonjour à tous,  
 
J'ai un projet de développement d'un calculateur de charges sous VBA Access.
 
J'ai mis toutes les données utiles dans des bases, et j'aimerai faire resortir ces données en fonction des choix dans le formulaire et les mettres à jour en fonction des corrections...
 
Je fais ma sélection dans mes zones de liste mais le résultat ne s'affiche pas dans ma zone de texte...
 
Voici mon code qui ne marche pas:
 

Code :
  1. Private Sub Form_Current()
  3. Dim strReq As String
  4. Dim objRs As DAO.Database
  6. 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!Ass.Recette = [Abaques Base Access].Assistance à recette And Forms!Chiffreur!Tache = [Abaques Base Access].Tâches;"
  7. Set objRs = CurrentDb()
  8. Resultat = objRs.OpenRecordset(strReq)
  9. objRs.Close
  11. If IsNull(Resultat) Then MsgBox ""
  12. End If
  14. Me.Abaques.Value = Resultat


 
End Sub
 
Merci !  :)


Message édité par Printff le 17-11-2011 à 11:20:21
Reply

Marsh Posté le 16-11-2011 à 11:27:48   

Reply

Sujets relatifs:

Leave a Replay

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