Discussion :

[nounous54]

Bonjour à tous,

Je bloque sur une petite chose dans mon projet de gestion d'un challenge de tir sportif

J'expose le projet.
J'ai plusieurs table mais celle 2 nous intéresse dans ce cas (tblinscr et tbltarifs)

Dans Tbltarifs, je reprend tout les différents tarifs qui peut y avoir.

Dans la TblInscr je reprend toutes les informations utile dont une zone de texte (txt_prix_tir)
Cette Txt_prix_tir reprendra le tarif de l'inscription.
J'aimerais que cette Txt_prix_tir soit automatiquement renseigner en fonction des tarifs que j'aurais indiqué dans la TblTarifs mais en fonction de critères bien précis... (qui sont dans la table TblInscr)
Le tout serait dans un formulaire FrmInscr tiré de la table TblInscr

Pour faire plus simple.

dans mon formulaire FrmInscr (qui reprend la TblInscr),je veut que ma Txt_prix_tir soit renseigné automatiquement (grâce aux tarifs que j'ai renseigné dans la TblTarifs)

mais en fonction des plusieurs critères..

- Si cmb_club = "NANCY" et que cmb_catégorie > 10
alors je cherche l'enregistrement "NANCY adultes" dans la table TblTarifs.
- Si cmb_club = "NANCY" et que cmb_catégorie < 10
alors je cherche l'enregistrement "NANCY jeunes" dans la table TblTarifs.

Ensuite
- Si cmb_club <> "NANCY" et que cmb_discipline = "standard" ou "vitesse"
alors je cherche l'enregistrement "standard" ou "vitesse" suivant la valeur de cmb_discipline dans la Table Tbltarifs

Ensuite
- Si cmb_club<> "NANCY" et que cmb_catégorie > 8
alors je cherche l'enregistrement "adultes" dans la table TblTarifs.
- Si cmb_club<> "NANCY" et que cmb_catégorie < 8
alors je cherche l'enregistrement "jeunes" dans la table TblTarifs.


Voila

J'espère avoir été clair !!!


Merci à tous

[Gado2600]

Bonjour,
Je ne vois pas où est le problème ? Tu as déjà ton algorithme de près en gros, non ?

Le tout est de savoir si tu souhaites le faire en VBA, en source de contrôle ou dans une requête.

Pour un problème de lisibilité et pour toi, voir comment tu transcrit ton algorithme en code, je te conseille en VBA.

Tu n'as juste qu'à traduire ce que tu as noté en gros.
Pour que la mise à jour soit automatique, attribue à tes contrôles un événement (type AfterUpdate par exemple) qui feront appel à ta fonction de calcul.

Bon courage

[nounous54]

Bonjour Gado2600,

C'est surtout au niveau de l'ecriture que ça me pose un souci...
Je ne suis q'un debutant.
J'ai essayer ceci mais ça ne fonctionne pas


Private Sub refresh_prix_tir()
If Me.Club = "nancy" And Me.CmbCat > 10 Then
Me.TXT_prix_tir = tbltarifs!nancy_adultes

ElseIf Me.Club = "nancy" And Me.CmbCat < 10 Then
Me.TXT_prix_tir = tbltarifs!nancy_jeunes

ElseIf Me.Club <> "nancy" And Me.CmbDiscip = "standard" Then
Me.TXT_prix_tir = tbltarifs!standard

ElseIf Me.CmbClub <> "nancy" And Me.CmbDiscip = "vitesse" Then
Me.TXT_prix_tir = tbltarifs!vitesse

ElseIf Me.CmbClub <> "nancy" And Me.CmbCat > 8 Then
Me.TXT_prix_tir = tbltarifs!adultes

ElseIf Me.CmbClub <> "nancy" And Me.CmbCat < 8 Then
Me.TXT_prix_tir = tbltarifs!jeunes
Else

End If
End Sub


merci pour votre aide

[Gado2600]

Re-bonjour,
Alors premier point avant que l'administrateur passe, tous les codes que tu mets sur ce forum doit être contenu entre ['CODE][/CODE] (retire le ' pour que cela fonctionne).

Ensuite, tes "Me.Champs", remplaces les par des :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Champs.VALUE

C'est juste par sécurité.

ensuite, tes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 tbltarifs!nancy_adultes

je ne pense pas que cela soit la bonne syntaxe.
Utilises plutôt les DLookUp dont la syntaxe est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DLookUp("[NomChampsCible]";"[NomTableCible]";"[ChampsCondition]=" & ValeurCondition)

Pour plus de détails dessus, il doit y avoir des tutoriels ou différents topics qui y font référence.

[nounous54]

Bonsoir Gado2600,

Super tes conseilles car ça fonctionne nickel...