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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Thierry (ze Titi)
Le #6395541
Bonjour renaud

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
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


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info

Le #6395531
Merci de ton aide Thierry

Renaud



"Thierry (ze Titi)" message de news:
Bonjour renaud

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
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


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info





Le #6395521
Encore une question, moi j'ai ça

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
Thierry (ze Titi)
Le #6395511
Exactement là où je l'avais mis dans l'exemple donné:

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 :
Encore une question, moi j'ai ça

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


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info

Le #6395281
Ben c'est exactement ce que j'ai fait, mais j'ai la même erreur !!!

Une autre idée ?

Renaud



"Thierry (ze Titi)" message de news:
Exactement là où je l'avais mis dans l'exemple donné:

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 :
Encore une question, moi j'ai ça

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


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info





Sylvain Lafontaine
Le #6322561
Après les deux virgules et non pas juste une seule?

--
Sylvain Lafontaine, ing.
MVP - Technologies Virtual-PC
E-mail: sylvain aei ca (fill the blanks, no spam please)


news:
Ben c'est exactement ce que j'ai fait, mais j'ai la même erreur !!!

Une autre idée ?

Renaud



"Thierry (ze Titi)" message de news:
Exactement là où je l'avais mis dans l'exemple donné:

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 :
Encore une question, moi j'ai ça

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


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info








Sylvain Lafontaine
Le #6322551
Peut-être aussi prendre la peine de préciser le deuxième argument:

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:
Après les deux virgules et non pas juste une seule?

--
Sylvain Lafontaine, ing.
MVP - Technologies Virtual-PC
E-mail: sylvain aei ca (fill the blanks, no spam please)


news:
Ben c'est exactement ce que j'ai fait, mais j'ai la même erreur !!!

Une autre idée ?

Renaud



"Thierry (ze Titi)" message de news:
Exactement là où je l'avais mis dans l'exemple donné:

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 :
Encore une question, moi j'ai ça

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


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info












Le #6322501
Sylvain, je te connais pas mais déjà je t'aime, il fallait mettre TOUS les
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:%
Peut-être aussi prendre la peine de préciser le deuxième argument:

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:
Après les deux virgules et non pas juste une seule?

--
Sylvain Lafontaine, ing.
MVP - Technologies Virtual-PC
E-mail: sylvain aei ca (fill the blanks, no spam please)


news:
Ben c'est exactement ce que j'ai fait, mais j'ai la même erreur !!!

Une autre idée ?

Renaud



"Thierry (ze Titi)" message de news:
Exactement là où je l'avais mis dans l'exemple donné:

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 :
Encore une question, moi j'ai ça

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


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info
















Thierry (ze Titi)
Le #6322471
J'aurais presque juré que dbOpenDynaset était mis par défaut... Je me
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:
Sylvain, je te connais pas mais déjà je t'aime, il fallait mettre TOUS les
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:%
Peut-être aussi prendre la peine de préciser le deuxième argument:

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:
Après les deux virgules et non pas juste une seule?

-- Sylvain Lafontaine, ing.
MVP - Technologies Virtual-PC
E-mail: sylvain aei ca (fill the blanks, no spam please)


news:
Ben c'est exactement ce que j'ai fait, mais j'ai la même erreur !!!

Une autre idée ?

Renaud



"Thierry (ze Titi)" message de news:
Exactement là où je l'avais mis dans l'exemple donné:

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 :
Encore une question, moi j'ai ça

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


-- Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info













--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info






Publicité
Poster une réponse
Anonyme