Bonjour, j'ai une BD que j'ai développé depuis 2 mois,le but est de la mettre sur un réseau partagé pour mutli-user (35 postes). Aujourd'hui, j'ai essayé de la fractionner, mais le prob est que ça rame bcp après le fractionnemt et il y a des fonctions qui ne marchent plus... j'espère que vous pouvez me dire où est mon pb? voici le détail:
L'étape fractionnement:
j'ai utilisé le fonction "fractionnement d'une base de données" de ACCESS pour fractionner une base en 2. J'ai mis BD principale sur le serveur et BD frontale sur les bureux.. ensuite j'ai essayé sur 2 postes simultanémt, du coup l'appli s'exécute plus lent que d'habitute ( avant le frac)..
dysfonctionnement du code:
j'ai un formulaire qui sert à enregistrer les info à partir une table existante (éviter la saisie manuellement), en complétant les champs ajoutés, les info vont être enregistré dans une autre table en affichant en même temps dans ma liste qui se situe en bas du formulaire.Avant le fractionnemt, il marche bien pourtant.. voici le code en VBA:
Code sql : 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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Private Sub bt_enregistrerDcDEF_Click()
On Error GoTo err
Dim oRst As DAO.Recordset
Dim oDB As DAO.Database
Set oDB = CurrentDb
Set oRst = oDB.OpenRecordset("T_temp", dbOpenTable)
'passe à l'ajout
oRst.AddNew
'Affecte les differents champs
oRst.Fields("nDC") = Me.nDC
oRst.Fields("DateReal") = Me.DateReal
oRst.Fields("HrReal") = Me.HrReal
oRst.Fields("DateEngaTheo") = Me.DateEngaTheo
oRst.Fields("HrEngaTheo") = Me.HrEngaTheo
oRst.Fields("DateSITE") = Me.DateSITE
oRst.Fields("HrSITE") = Me.HrSITE
oRst.Fields("DateLivr") = Me.DateLivr
oRst.Fields("HrLivr") = Me.HrLivr
oRst.Fields("DateAnnul") = Me.DateAnnul
oRst.Fields("HrAnnul") = Me.HrAnnul
oRst.Fields("MotifAnnul") = Me.motifAnnul
oRst.Fields("Origine") = Me.Origine
oRst.Fields("destination") = Me.destination
oRst.Fields("etatDC") = Me.EtatDC
oRst.Fields("Nom_CLIENT") = Me.NOM_CLIENT
oRst.Fields("nbWag") = Me.nbWag
oRst.Fields("LgUAF") = Me.lgUAF
oRst.Fields("mUAF") = Me.mUAF
oRst.Fields("charge") = Me.charge
oRst.Fields("b_en_b") = Me.b_en_b
oRst.Fields("DateReelEnga") = Me.DateReelEnga
oRst.Fields("DEFPPC") = Me.DEFPPC
oRst.Fields("ARectifier") = Me.ARectifier
oRst.Fields("Secteur") = Me.Secteur
oRst.Fields("Segment") = Me.Segment
oRst.Fields("prenom_GDC") = Me.prenom_GDC
oRst.Fields("nom_GDC") = Me.nom_GDC
oRst.Fields("Inter") = Me.Inter
oRst.Fields("RA") = Me.RA
oRst.Fields("PUF") = Me.PUF
oRst.Fields("Observation") = Me.Observation
'met à jour
oRst.Update
oRst.Close
oDB.Close
Set oRst = Nothing
Set oDB = Nothing
Dim sql As String
Dim nb As Recordset
sql = "SELECT nDC,DEFPPC,Secteur,Segment,Origine,Destination,DateReal,DateEngaTheo,HrEngaTheo,DateReelEnga,nom_GDC,observation from T_temp where nom_GDC = " & Chr(34) & Forms!F_DC_DEF.nom_GDC & Chr(34) & " and DEFPPC= ""DEF"""
'MsgBox SQL
Me.list_temp_DEF.RowSource = sql
Me.list_temp_DEF.Requery
Refresh
err:
    Select Case err.Number
        Case 3022: MsgBox "DC demandé a déjà enregistré !"
    End Select
End Sub
j'espère que j'ai bien expliqué ma question en éspérant que vous pouvez m'aider