Bonjour à tous,
Je dois migrer les tables locales Access sur sql server, seulement voilà, j'ai des soucis sur une table en particulier, la table IMMATRICULATION, elle a un champ IMMAT déclaré comme étant une clé primaire.
Quand je veux exécuter le code suivant:
La ligne de 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 Dim mydb As Database Dim myrs As Recordset Dim req As String Set mydb = CurrentDb() DoCmd.Hourglass True req = "SELECT * FROM IMMATRICULATION WHERE IMMAT ='" & Me.Liste_CANum & "'" Set myrs = mydb.OpenRecordset(req, dbOpenDynaset, dbDenyWrite) If myrs.RecordCount > 0 Then IMMAT = myrs![IMMAT] MARQUE = myrs![MARQUE] MODELE = myrs![MODELE] PRIX = myrs![PRIX] DATE = myrs![DATE] AMO_DUREE = myrs![AMO_DUREE] AMO_MONTANT = myrs![AMO_MONTANT] AMO_DEBUT = myrs![AMO_DEBUT] AMO_FIN = myrs![AMO_FIN] ASS_MONTANT = myrs![ASS_MONTANT] SOM = myrs![SOMMEIL] Else myrs.AddNew myrs![IMMAT] = Me.Liste_CANum myrs.Update IMMAT = Me.Liste_CANum MARQUE = "" MODELE = "" PRIX = "" DATE = "" AMO_DUREE = "" AMO_MONTANT = "" AMO_DEBUT = "" AMO_FIN = "" ASS_MONTANT = "" SOM = "Non" End If myrs.Close mydb.Close DoCmd.Hourglass False
est en erreur, j'obtiens comme message d'erreur
Code : Sélectionner tout - Visualiser dans une fenêtre à part Set myrs = mydb.OpenRecordset(req, dbOpenDynaset, dbDenyWrite)
Auriez-vous des idées de comment résoudre le problème?ODBC - ne peut pas verrouiller tous les enregistrements
Merci
Partager