Discussion :

[clem62173]

Bonjour,

Je rencontre un soucis pour utiliser ma table je vourdai la réorganiser



comment mettre les tarifs en face du departement et enlever autres localité

merci

[LE VIEUX]

bonsoir,
je mettrais ce code sur un bouton d'un de mes formulaires (menu par ex

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
'mettre la reférence "microsoft activeX data objects 2.X library
 
Function reaffectation()
Dim cnc As New ADODB.Connection
Dim rst As New ADODB.Recordset
Set cnc = CurrentProject.Connection
rst.Open "palettes_t", cnc, adOpenDynamic, adLockBatchOptimistic
NbEnr = DCount("Departement", "palettes_t") 'compte le nombre d'enregistrements
For i = 1 To NbEnr / 2 ' parcours de la table par 2 enregistrements
Dep = rst("Departement") ' met le departement dans la variable Dep
rst.Delete 'supprime l'enregistrement courant
rst.UpdateBatch ' valide la suppression
rst.MoveNext ' va à la ligne suivante
rst("Departement") = Dep ' affecte le dep à la ligne
rst.UpdateBatch ' enregistre
rst.MoveNext ' passe à l'enregistrement suivant
Next i
rst.Close
cnc.Close
 
End Function

attention ne pas oublier la référence

[marot_r]

Pour avoir une donne structure relationnelle il conviendrait d'avoir la struture suivante :

Table Departement :
CodeDepartement
NomDepartement

Table Tarif :
DateDebutTarif (si tu souhaites conserver un historique des prix)
DateFinTarif (si tu souhaites conserver un historique des prix)
CodeDepartement
NombrePalette
PrixUnitaire

Cette structure te permets un nombre infini de tarif selon le nombre de palettes.

Si pas d'historique penser à enregistrer le prix courrant dans ta commande au moment de la création.

A+