[AC-2002] Calculateur de charges VBA

[Scantf]

Bonjour à tous,

Etant nouveau sur le forum, je viens consulter les experts .
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...

Voici les points sur lesquels je bloque :

1/- Faire resortir le champ "Abaques" (charges) de la base "Abaques Base Access" en fonction des choix des valeurs des zones de liste du Formulaire (qui sont aussi des champs de la base) et afficher un message d'erreur si la requête ne trouve rien.

(=> Je pensais à une requête du type select Abaques,... where zone_de_liste.value = Service de TMA.value. frome Abaques Base Access)


2/- Mettre la sommes des lignes calculés dans la zone de texte "Total"
et pouvoir pondérer celle-ci en fonction du choix "débutant" X1,75, "Autonome" X1,25, ou "Expert" x 1


3/- Pouvoir effectuer la mise à jour du champ Abaques de la base "Abaques Base Access" pour chaque ligne à partir du formulaire en modifiant ce champs "Abaques" et en cliquant sur le bouton MAJ pour effectuer la mise à jour dans la base.


4-/ Générer une base Access en cliquant sur le bouton "générer feuille" qui reprend dans l'ordre ligne par ligne les initiales et la date générale du formulaire, le N° de ref de chaque ligne et les infos (Service TMA, Activités, Classe,...Abaques) (faire donc une base en reprenant les lignes calculés du formulaire, avec ref, date et initiales).

5-/ Mon bouton "sauvegarder-sous" ne marche pas...


Un Très Grand Merci pour votre aide et contributions !!!

Thanks for sharing your knowledge

[lelensois16]

Bonjour,

Pour tout le monde et pour vous même ,
il vaudrait mieux mettre les portions de code où vous avez des problèmes car on ne peux pas faire tout le boulot.

1. Oui , il faut relier 2 requêtes :
un exemple :
on suppose que la 1ère ZDL est Pays
la deuxième ZDL est Société
la requête alimentant la deuxième ZDL doit être de la forme :
" Select Société from table where Pays = Forms!NomFormulaire!nomchamp "

2.Pourquoi ne pas faire une simple fonction VBA ? un select case suffit.

3. le bouton MAJ contient un évenement OnClik. Cet évenement contient une requête d'action de type

Code :

1
2
3
4
 
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Table ... "
DoCmd.SetWarnings True

4.5 Je ne comprends pas ...

Bien cdt

RM

[Scantf]

Merci pour les réponses !
Effectivement, je vais enlever le fichier et mettre des portions de code.

Sur le point 1/ voici mon code, qui ne marche pas, je fais ma sélection dans mes zones de liste mais le résultat ne s'affiche pas dans ma zone de texte...:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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 d'avance