Discussion :

[Kelly182]

Bonjour,
Alors voila un certain temps que j'ai l'erreur suivnate:

Erreur d'execution '3027'

Mise a jour impossible. La base de données ou l'objet est en lecture seule.
fin-debogage

Alors apres un petit tour sur microsoftsupport (http://support.microsoft.com/default...%3Bfr%3B161252)

ben j'ai essaye mais ca marche pas!!!

si quelqu'un pouvait m'expliquer, je soupconne d'avoir fait trop de requete dans une grande requete!

[Mariboo]

je soupconne d'avoir fait trop de requete dans une grande requete!

C'est à dire ??

Peut-tu nous montrer ton code - Requête ?

[Kelly182]

voila ma requete:
en sql:

Code :

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

1
2
3
SELECT DEVIS.CODEDEVIS, *
FROM TYPEPYLONE INNER JOIN (OPERATEUR INNER JOIN (DEPARTEMENT INNER JOIN (PERSONNE INNER JOIN (SITE INNER JOIN (EMPLOYÉ INNER JOIN ((ENTREPRISE INNER JOIN R_client ON ENTREPRISE.NUMENTREPRISE = R_client.NUMENTREPRISE) INNER JOIN DEVIS ON ENTREPRISE.NUMENTREPRISE = DEVIS.NUMENTREPRISE) ON EMPLOYÉ.NUMEMPLOYE = DEVIS.NUMEMPLOYE) ON SITE.NUMSITE = DEVIS.NUMSITE) ON PERSONNE.IDENTIFIANT = EMPLOYÉ.IDENTIFIANT) ON DEPARTEMENT.NUMDEPARTEMENT = SITE.NUMDEPARTEMENT) ON OPERATEUR.NUMOPERATEUR = DEVIS.NUMOPERATEUR) ON TYPEPYLONE.NUMTYPEPYLONE = DEVIS.NUMTYPEPYLONE
ORDER BY DEVIS.CODEDEVIS DESC;

et avec les tables (plus lisible):


voila merci

[Mariboo]

Que fais tu avec cette requête pour obtenir cette erreur ?

[Kelly182]

voici mon code VBA:

au chargement:

Code :

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

1
2
3
4
Private Sub Form_Load()
 
Set devis = CurrentDb.OpenRecordset("R_Devis", dbOpenDynaset)
F_devis

en delclaration:

Code :

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

1
2
3
4
Option Compare Database
Option Explicit
 
Dim devis As Recordset

en lecture:

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
Private Sub F_devis()
 
txt_ht_pyl.Value = devis![HAUTEURPYLÔNE]
lst_libel_operateur.Value = devis![DEVIS.NUMOPERATEUR]
txt_code.Value = devis![CODEDEVIS]
lst_site_nom.Value = devis![DEVIS.NUMSITE]
txt_libel_dep.Value = devis![LIBELLEDEPARTEMENT]
txt_num_dep.Value = devis![DEPARTEMENT.NUMDEPARTEMENT]
lst_resp.Value = devis![DEVIS.NUMEMPLOYE]
lst_ent_client.Value = devis![DEVIS.NUMENTREPRISE]
txt_date.Value = devis![DATE]
txt_zone.Value = devis![NUMZONE]
cac_expo.Value = devis![EXPOSITIONSITE]
txt_rehausse.Value = devis![REHAUSSE]
txt_ch_pyl.Value = devis![CHARGEPYLÔNE]
txt_depointage.Value = devis![DEPOINTAGE]
txt_comment.Value = devis![COMMENTAIRESDEVIS]
lst_type_pylone.Value = devis![TYPEPYLONE.NUMTYPEPYLONE]
lst_respclient.Value = devis![R_client.nom]
txt_tel.Value = devis![R_client.portable]
txt_fax.Value = devis![R_client.Faxentreprise]
txt_mail.Value = devis![R_client.email]
navigation
 
End Sub

et la ou sa coince a l'enregistrement:

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
Private Sub M_Devis()
 
Dim couleur As Integer
 
If IsNull(lst_respclient.Value) Then
    lst_respclient.BackColor = RGB(245, 122, 182)
    couleur = 1
End If
If couleur = 1 Then
    MsgBox "Veulliez remplir les cases en couleurs.", vbCritical, "Attention!"
    Exit Sub
Else
    If MsgBox("Souhaitez-vous modifier le devis?", vbYesNo) = vbYes Then
 
devis.Edit
devis![HAUTEURPYLÔNE] = txt_ht_pyl.Value
devis![DEVIS.NUMOPERATEUR] = lst_libel_operateur.Value
devis![DEVIS.NUMSITE] = lst_site_nom.Value
devis![LIBELLEDEPARTEMENT] = txt_libel_dep.Value
devis![DEVIS.NUMEMPLOYE] = lst_resp.Value
devis![DEVIS.NUMENTREPRISE] = lst_ent_client.Value
devis![DATE] = txt_date.Value
devis![NUMZONE] = txt_zone.Value
devis![EXPOSITIONSITE] = cac_expo.Value
devis![REHAUSSE] = txt_rehausse.Value
devis![CHARGEPYLÔNE] = txt_ch_pyl.Value
devis![DEPOINTAGE] = txt_depointage.Value
devis![COMMENTAIRESDEVIS] = txt_comment.Value
devis![DEVIS.NUMTYPEPYLONE] = lst_type_pylone.Value
devis![R_client.nom] = lst_respclient.Value
devis![R_client.portable] = txt_tel.Value
devis![R_client.Faxentreprise] = txt_fax.Value
devis![R_client.email] = txt_mail.Value
devis.Update
devis.Requery
 
End If
End If
 
End Sub

voila, le debug bloque sur le devis.edit