bonjour j'ai une application access sur un poste en local et se connecte sur une base de données SQL server 2005 (liaisons de tables) sur le serveur, mon code fonctionnait tres bien puis du jour au lendemain ca fonctionne plus;

le code s'exécute bien jusqua la ligne "Add new" puis il saute les autres lignes et sort de la fonction sans message d'erreur voici mon code :


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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
' début code déclaration des variables pour le module
' Force explicit variable declaration.
Option Compare Database
Option Explicit
 
Dim db As Database, rst As Recordset, db3 As Database
    Dim STR_SQL As String
    Dim STR_SQL1 As String
    Dim STR_SQL2 As String
    Dim STR_SQL3 As String
 
    Dim STR_SQL5 As String
    Dim STR_SQL6 As String
    Dim STR_SQL7 As String
 
' fin code déclaration des variables pour le module
 
 
' Ouverture de la base de données
 
'insère une soumission dans la table soumission
Function insert_quote(combobox)
 
    Dim Quote As String
 
 ' Ouverture de la base de données
   Set db = CurrentDb
 
    Form_trio.TreeView1.Requery
 
   STR_SQL1 = "SELECT [tbl_soumissions].[id_Quote] FROM [tbl_soumissions]"
   STR_SQL2 = " WHERE ((([tbl_soumissions].[id_Quote]) = '" & combobox & " '))"
 
   STR_SQL = STR_SQL1 & STR_SQL2
 
   Quote = combobox
 
   Set rst = db.OpenRecordset(STR_SQL)
 
   With rst
 
   If rst.RecordCount > 0 Then
 
   MsgBox ("la soumission existe déja")
   Exit Function
 
   Else
   .AddNew
   ![id_quote] = Quote
   .Update
   .Bookmark = .LastModified
 
   Call Forms("trio").cmdQuote_Click
 
   End If
 
   End With
 
   db.Close
 
 
End Function
update : j'ai l'impression que je n'ai plus les droits d'access sur la base impossible de faire une requete delete read only database"

si quelq'un aurais une idée merci d'avance

Alex