Discussion :

[auriolbeach]

J'ai un Form Facture avec un menu déroulant basé sur une table qui affiche:
Le nom du produit, Le prix
Jusque là tout est OK.

Mon problème est que si je change le prix d'un produit pour mes nouvelles factures, les anciennes factures qui ont le même produit changent également leur prix
Gros problème si je dois éditer ou consulter à nouveau mes anciennes factures.
Est ce qu'il existe une méthode pour modifier mes prix sans modifier le contenu de mes anciennes Factures. : :

Merci d'avance pour votre aide

[marot_r]

J'ai un Form Facture avec un menu déroulant basé sur une table qui affiche:
Le nom du produit, Le prix

Un menu déroulant qui affiche des données ? Un menu c'est pour afficher des commandes. Veux-tu dire un form en mode continu ?

Enfin quoi que ce soit je t'invite à utiliser un formulaire basé sur ta table de facture cela devrait résoudre ton problème.

A+

[auriolbeach]

Mauvaise explication de ma part. Je recommence

En fait dans mon FormFacture j'ai une liste déroulante qui affiche les données de ma table Produit: N°, Le nom du produit, Le prix
Jusque là tout est OK.

Mon problème est que si je change le prix d'un produit (dans ma table Produit) pour mes nouvelles factures, les anciennes factures qui ont le même produit changent également leur prix

Gros problème si je dois éditer ou consulter à nouveau mes anciennes factures.

Si l'explication que tu m'as donné est la bonne, peux-tu m'en dire un peu plus STP.

[Alexandre Sahli]

Bonjour,

tu dois crée tes factures de façon "définitive", c'est à dire que lorsque tu choisi un article tu inscris dans la table facture le nom de l'article, le prix unitaire, le prix total etc.. Il ne faut donc pas que la table facture soit liée avec la table article et prix.

Ton problème est donc un problème de conceptualisation de ton appli


A+

[marot_r]

Oui si ton prix doit être fixe alors il faut que tu enregistre ce prix dans ta table de détail de facture.

A la création tu vas prendre le prix dans la table produit mais seulement à la création.

A+

[auriolbeach]

J'ai trouvé sur l'exemple comptoir exactement ce qu'il me faut mais je n'arrive pas à le réaliser.
Je vais encore essayer quelques manip mais je pense que je vais avoir besoin d'aide.

[auriolbeach]

C'est ok çà marche merci à tout les deux.
Par contre Alexandre si je ne me trompe pas une base de donnée est faite justement pour éviter d'avoir à réinscrire des donnée.

A titre d'info voici ce que j'ai fait suivant l'exemple COMPTOIR

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub N°Prestation_AfterUpdate()
On Error GoTo Err_N°Prestation_AfterUpdate
 
    Dim strFiltre As String
 
    ' Définit le filtre avant d'être utilisé dans la fonction DLookup.
    strFiltre = "[N°Prestation] = " & Me![N°Prestation]
 
    ' Recherche le prix unitaire du produit et l'assigne au contrôle Prix unitaire.
    Me![Prix unitaire] = DLookup("[Prix unitaire]", "Tarif Prestation", strFiltre)
 
Quitte_N°Prestation_AfterUpdate:
    Exit Sub
 
Err_N°Prestation_AfterUpdate:
    MsgBox err.Description
    Resume Quitte_N°Prestation_AfterUpdate
 
End Sub
 
Private Sub N°Prestation_BeforeUpdate(Annuler As Integer)
' Si le sous-formulaire Commandes est ouvert comme formulaire
' indépendant, un message s'affiche et les changements effectués sont
' annulés dans la zone de texte NomProduit. (La fonction EstChargé trouve
' un formulaire dans la collection Forms lorsque celui-ci est ouvert en
' tant que formulaire indépendant, mais pas lorsqu'il est ouvert comme
' sous-formulaire dans un formulaire principal.)
 
    Dim strMsg As String, strTitre As String
    Dim intStyle As Integer
 
    If EstChargé("Détails Facture Cotisation Sous-formulaire") Then
        strMsg = "Vous ne pouvez pas ajouter ou modifier un nom de produit lorsque vous ouvrez Détails Facture Cotisation Sous-formulaire en tant que formulaire indépendant."
        intStyle = vbOKOnly
        strTitre = "Impossible d'ajouter ou de modifier un nom de produit"
        MsgBox strMsg, intStyle, strTitre
        Me![N°Prestation].Undo
        Me.Undo
    End If
 
End Sub[/b]

Puis j'ai crée ce module utilitaire

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
Option Compare Database ' Utilise l'ordre de la base pour les comparaisons de chaînes.
Option Explicit         ' Exige que les variables soient déclarées avant leur utilisation.
 
Function EstChargé(ByVal strNomForm As String) As Boolean
 ' Retourne Vrai si le formulaire spécifié est ouvert
 ' en mode Création ou en mode Feuille de données.
    Const conÉtatObjFermé = 0
    Const conModeCréation = 0
 
    Dim oAccessObject As AccessObject
 
    Set oAccessObject = CurrentProject.AllForms(strNomForm)
    If oAccessObject.IsLoaded Then
        If oAccessObject.CurrentView <> acCurViewDesign Then
            EstChargé = True
        End If
    End If
 
End Function

A bientôt

[Alexandre Sahli]

Content que çà marche.
Je me suis mal exprimé, ce que je voulais dire par inscrire, tu choisis un article dans une liste déroulante et ensuite access va "inscrire les données dans la table"

[auriolbeach]

Pas de problèmes merci encore pour ton aide.