Discussion :

[s200]

Bonjour,

Le but : simple, j'ai des prix HT, mes fournisseurs me donnent des liste de prix en HT et TTC, je dois donc modifier l'un ou l'autre.

Mon champ calculé TTC est fait mais impossible d'en modifier la valeur pour que celle ci se repercute sur le prix HT.

- Est ce une limitation d'access ??
- Moi qui est loupé un épisode ???
- Un passage par le VB me permettrait de m'affranchir de ce probleme ??? et si oui, des pistes ....

Merci d'avance.

[Tofalu]

Un champ calculé est calculé. Dés lors, cela implique qu'il est en lecture seule.

[s200]

Je suis d'accord sur le fait qu'il soit en lecture seule, pas sur le fait qu'il le SOIT...... pour moi c une limitation qui n'a pas lieu d'etre. En quoi un calcul Y=(X+1) ne permettrait pas de changer X si on touche a Y......

Je veux bien que cela puisse poser des problemes dans certains cas, mais kan meme, mon exemple de HT vers TTC est basique pour l'utilisation d'un SGBDR.....

Et d'ailleurs je ne devrais pas etre le seul ou a avoir poser la question, ou a avoir une reponse, cela devrait ete basique sous Access ......

[sasmira_]

Bonjour,
il y a peut être une autre solution que de se braquer sur la modification d'un champ calculé. Mais tu ne donnes pas assez de précision:
Ces listes de prix doivent elle être importées? dans une liste y a-il un mélange de TTC et HT?
Si tu pouvais un peu préciser...

[Tofalu]

Ben tu ne comprends pas les principes de conception d'un modèle là

Dans une base de données on ne stocke jamais des données calculées. Dés lors un champ calculé est recalculé par une règle de gestion. Il n'existe donc uniquement par cette règle. Une saisie opérateur ne peut pas venir remplacer cette règle et heureusement, sinon c'est toute l'intégrité et la cohérence du shéma qui prendrait l'eau.

Soit tu stocke le prix ht et la tva, soit le prix ttc et la tva

[s200]

OK, je concois le fait de perdre l'integrité, mais pourquoi la gestion, ELLLE, ne le permet pas. Si la regle défini est trop compliqué(appel multiple entrainant une ambiguité sur qui changer => A = B +C => si tu change A c sur quil va avoir du mal), mais sur un appel direct, je ne comprend pas que cella ne soit pas possible en natif, désolé.....si c comme ca, de toute facon je n'ai aps le choix.

Verrais tu un moyen de contourner cette "limitation" ????

Ou n'ai je vraiment rien compris ..... lol.

[User]

Salut,

Dans ce cas tu supprime ton champ calculé TTC

Si tu as sur ton form les 2 contrôles HT et TTC

tu attaches les procédures évènementielles suivantes à ton form et à tes 2 contrôles HT et TTC:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Form_Current()
 
   If Not IsNull(Me.HT) Then
   Me.TTC = Me.HT + Me.HT * (TVA / 100)
   End If
 
End Sub
 
Private Sub HT_AfterUpdate()
 
   If Not IsNull(Me.HT) Then
   Me.TTC = Me.HT + Me.HT * (TVA / 100)
   End If
 
End Sub
 
Private Sub TTC_AfterUpdate()
 
   If Not IsNull(Me.TTC) Then
   Me.HT = Me.TTC / (1 + (TVA / 100))
   End If
 
End Sub

Je suppose que tu connais la valeur de TVA (ex: 5.5..)

@+

[s200]

Merci, je teste ca dans la soiree.

En VB, ca doit passer. Car access out...

++

[s200]

Ca marche et ca ne marche pas En mode formulaire Tiptop, par contre en mode "Feuille de donnée" le champ prend la valeur de l'enregistrement en cours, chose normale.....
Pas pratique vu que mon but est de faire du copier coller via des feuille excel vers ma liste de produit.....

Je regarde pour une solution (avec un cours de Cafeine, mais je suis au debut de la lecture...).

C de la faute a Access ca !!!!!!!

[User]

Resalut,

essaie de remplacer la proc sur Form_Current() par:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Form_Current()
 
   If Me.CurrentView = 1 Then   ' mode formulaire
   Me.TTC.ControlSource = ""
   Me.HT.AfterUpdate = "[Event Procedure]"
 
      If Not IsNull(Me.HT) Then
      Me.TTC = Me.HT + Me.HT * (TVA / 100)
      End If
 
   ElseIf Me.TTC.ControlSource = "" Then   ' mode feuille de données
   Me.TTC.ControlSource = "=[HT] + [HT] * (5.5 / 100)"
   Me.HT.AfterUpdate = ""
   End If
 
End Sub

Problème tu ne pourras pas mettre à jour ton contrôle TTC en mode feuille de données..

@+

[s200]

Merci de tes reponses en tout cas...... j'allais abandonner sur ce point....... donc ca sera mieux que rien, et ta technique est tres interressante.

Je ferais un test des que possible.

Merci encore.