Bonjour à tous,
Voila je met à jour une table Access grâce à des données contenues dans une feuille Excel.
Voila mes tables :
SbNeed(IdSb, IDNumber,DateSb,...)
ML(IDml, IdSb)
LinkMLEqb(IdML, IdEqb)
Eqb(IDEqb,...,IdEq)
Eq(IdEq,...)
Lors du premier import, la table SbNeed se rempli normalement :
1,1,2011
2,1,2010
...
Le champ IDNumber fait référence au nombre de date correspondant au IdSb, donc je suis censé avoir
1,1
1,2
1,3
etc...
Cette table me permettrai d'avoir une liste de date correspondant à chaque IdML
Cependant, lors de l'import d'un deuxieme fichier, je ne vois pas comment récupéré l'IdSB et lui ajouté une occurence qui serai du type :
1,2,2010,...
1,3,2009,...
Voila une partie de mon code :
Je pense que ce n'est pas très clair donc n'hésiter pas à poser des questions.
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 WbName = ActiveWorkbook.Name 'date recovery for assignation, modification or insertion SBDate SBModif = Mid(WbName, 5, 4) ... '-------------------------------------------------------------------------- 'If IdEq exist, then we updating the database else we insert data '-------------------------------------------------------------------------- Sql = ("Select Eq.IDEQ from Eq where IDEQ ='" & safeString(IdEq) & "'") Set res = CurrentDb.OpenRecordset(Sql) 'Set res = db.OpenRecordset(Sql) If Not res.EOF Then '-------------------------------------------------------------------------- 'Update of SBB date '-------------------------------------------------------------------------- Sql = ("Select distinct ML.SB From ML,LinkEqBML, EqB, Eq where ML.IDML = LinkEqBML.IDML and LinkEqBML.IDEQB = EqB.IDEQ and EqB.ID = Eq.ID and E.IDEQ = '" & safeString(IdEq) & "'") Set resSB = CurrentDb.OpenRecordset(Sql) If Not resSB.EOF Then DoCmd.RunSQL "Insert into SBNEED values (" & IdSB & ",'+ 1','" & SBModif & "','" & DateSB & "', '" & ExSB & "')" End If '-------------------------------------------------------------------------- 'End of updating '-------------------------------------------------------------------------- Else ...
Merci
Partager