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 :
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"
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
si quelq'un aurais une idée merci d'avance
Alex
Partager