Accès à des tables SQL
Le

Bonjour à tous !
J'ai une base de données sur Access, et je tente de passer toutes les tables
sur sql en tables liés
Mais j'ai du code qui accède à ces données. et j'ai un message d'erreur qui
dit :
"Erreur exec 3622
Vous devez utiliser l'option dbseechanges avec un openrecordset lors de
l'accès à une table Serveur SQL ayant une colonne IDENTITY"
Qu'est-ce que l'option dbseechange ?
Bien à tous
Renaud.R
J'ai une base de données sur Access, et je tente de passer toutes les tables
sur sql en tables liés
Mais j'ai du code qui accède à ces données. et j'ai un message d'erreur qui
dit :
"Erreur exec 3622
Vous devez utiliser l'option dbseechanges avec un openrecordset lors de
l'accès à une table Serveur SQL ayant une colonne IDENTITY"
Qu'est-ce que l'option dbseechange ?
Bien à tous
Renaud.R
SI tu tapes OpenRecordset dans l'aide en ligne de l'éditeur VBA, tu
auras toutes les infos sur cette option.
Set rst=CurrentDb.OpenRecordset("taTable",,dbSeeChanges)
Dans ton message
--
Cordialement,
Thierry
Tout pour réussir avec Access :
http://www.mpfa.info
Renaud
"Thierry (ze Titi)" message de news:
Dim SQL As String
Dim SQL1 As String
Dim CND As Recordset
'================= LECTURE CONDUCTEUR 1
SQL = "SELECT dbo_tierCONDUCTEURS.IDCONDUCTEUR,
dbo_tierCONDUCTEURS.CODECONDUCT, dbo_tierCONDUCTEURS.IDCLIENT, "
SQL = SQL & " dbo_tierCONDUCTEURS.IDCLIENTFACT ,
dbo_tierCONDUCTEURS.TITRECONDUCT, dbo_tierCONDUCTEURS.NOMCONDUCT,"
SQL = SQL & " dbo_tierCONDUCTEURS.ADR1CONDUCT ,
dbo_tierCONDUCTEURS.ADR2CONDUCT, dbo_tierCONDUCTEURS.ADR3CONDUCT,"
SQL = SQL & " dbo_tierCONDUCTEURS.CPCONDUCT ,
dbo_tierCONDUCTEURS.VILLECONDUCT, dbo_tierCONDUCTEURS.SEXECONDUCT,"
SQL = SQL & " dbo_tierCONDUCTEURS.ETATCIVCONDUCT ,
dbo_tierCONDUCTEURS.DATENAISSCONDUCT, dbo_tierCONDUCTEURS.LIEUNAISSCONDUCT,"
SQL = SQL & " dbo_tierCONDUCTEURS.TELCONDUCT ,
dbo_tierCONDUCTEURS.PORTCONDUCT, dbo_tierCONDUCTEURS.FAXCONDUCT,"
SQL = SQL & "dbo_tierCONDUCTEURS.TELBURCONDUCT ,
dbo_tierCONDUCTEURS.FAXBURCONDUCT, dbo_tierCONDUCTEURS.EMAILCONDUCT, "
SQL = SQL & "dbo_tierCONDUCTEURS.NOPERMIS ,
dbo_tierCONDUCTEURS.DATEPERMIS, dbo_tierCONDUCTEURS.LIEUPERMIS, "
SQL = SQL & " dbo_tierCONDUCTEURS.INITIALES ,
dbo_tierCONDUCTEURS.DATEMAJ, dbo_tierCONDUCTEURS.NOTECONDUCT"
SQL = SQL & " FROM dbo_tierCONDUCTEURS"
SQL1 = SQL 'sauvegarde de la chaine pour lecture du second
conducteur
If IsNull(Me.IDCONDUCTEUR) = False Then
SQL = SQL & " WHERE dbo_tierCONDUCTEURS.IDCONDUCTEUR= " &
STR(Me.IDCONDUCTEUR)
Set CND = currentdb.OpenRecordset(SQL)
et le message d'erreur est sur la dernière ligne,
D'après vous, ou puis-je mettre le dbSeeChange ?
Bien à vous
Renaud
Set CND = currentdb.OpenRecordset(SQL,,dbSeeChanges)
En ce jour mémorable du mercredi 22/08/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
--
Cordialement,
Thierry
Tout pour réussir avec Access :
http://www.mpfa.info
Une autre idée ?
Renaud
"Thierry (ze Titi)" message de news:
--
Sylvain Lafontaine, ing.
MVP - Technologies Virtual-PC
E-mail: sylvain aei ca (fill the blanks, no spam please)
news:
Set CND = currentdb.OpenRecordset(SQL, dbOpenDynaset, dbSeeChanges)
--
Sylvain Lafontaine, ing.
MVP - Technologies Virtual-PC
E-mail: sylvain aei ca (fill the blanks, no spam please)
"Sylvain Lafontaine" <sylvain aei ca (fill the blanks, no spam please)>
wrote in message news:
arguments
Merci à toi et à Thierry avant Toi
Renaud
défoi ilfébô
"Sylvain Lafontaine" <sylvain aei ca (fill the blanks, no spam please)> a
écrit dans le message de news:%
serais trompé... Navré !
Dans ton message du jeudi 23/08/2007 jour de Sainte Rose de Lima, tu as pris
l'initiative de nous narrer les faits suivants:
--
Cordialement,
Thierry
Tout pour réussir avec Access :
http://www.mpfa.info