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 :
- Private Sub Form_Current()
- Dim strReq As String
- Dim objRs As DAO.Database
- 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;"
- Set objRs = CurrentDb()
- Resultat = objRs.OpenRecordset(strReq)
- objRs.Close
- If IsNull(Resultat) Then MsgBox ""
- End If
- Me.Abaques.Value = Resultat
|
End Sub
Merci ! 
Message édité par Printff le 17-11-2011 à 11:20:21
