Accès à des tables SQL

Thierry (ze Titi)

22/08/2007 à 11:06

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

22/08/2007 à 11:10

Merci de ton aide Thierry

Renaud

"Thierry (ze Titi)" a écrit dans le
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 du
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

22/08/2007 à 11:15

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)

22/08/2007 à 11:19

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

22/08/2007 à 14:16

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

Une autre idée ?

Renaud

"Thierry (ze Titi)" a écrit dans le
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

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

Une autre idée ?

Renaud

"Thierry (ze Titi)" <ze_titi_enlever-ceci@tiscali.fr> a écrit dans le
message de news:mn.b2a77d78db980b0e.64280@tiscali.fr...

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

Vous avez filtré cet utilisateur ! Consultez son message

Sylvain Lafontaine

23/08/2007 à 15:43

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)

wrote in message
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)" a écrit dans le
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

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)

<renaud@roualdes.comNOSPAM> wrote in message
news:AA2ECD0D-55A0-4CE5-9FDE-7CD05B2B6F0B@microsoft.com...

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

Une autre idée ?

Renaud

"Thierry (ze Titi)" <ze_titi_enlever-ceci@tiscali.fr> a écrit dans le
message de news:mn.b2a77d78db980b0e.64280@tiscali.fr...

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

Vous avez filtré cet utilisateur ! Consultez son message

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)

wrote in message
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)" a écrit dans le
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

23/08/2007 à 15:47

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)

wrote in message
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)" a écrit dans le
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

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:eWbdmvY5HHA.4964@TK2MSFTNGP06.phx.gbl...

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)

<renaud@roualdes.comNOSPAM> wrote in message
news:AA2ECD0D-55A0-4CE5-9FDE-7CD05B2B6F0B@microsoft.com...

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

Une autre idée ?

Renaud

"Thierry (ze Titi)" <ze_titi_enlever-ceci@tiscali.fr> a écrit dans le
message de news:mn.b2a77d78db980b0e.64280@tiscali.fr...

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

Vous avez filtré cet utilisateur ! Consultez son message

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)

wrote in message
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)" a écrit dans le
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

23/08/2007 à 16:10

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)

wrote in message
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)" a écrit dans le
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, 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:%23jNHmxY5HHA.1188@TK2MSFTNGP04.phx.gbl...

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:eWbdmvY5HHA.4964@TK2MSFTNGP06.phx.gbl...

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)

<renaud@roualdes.comNOSPAM> wrote in message
news:AA2ECD0D-55A0-4CE5-9FDE-7CD05B2B6F0B@microsoft.com...

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

Une autre idée ?

Renaud

"Thierry (ze Titi)" <ze_titi_enlever-ceci@tiscali.fr> a écrit dans le
message de news:mn.b2a77d78db980b0e.64280@tiscali.fr...

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

Vous avez filtré cet utilisateur ! Consultez son message

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)

wrote in message
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)" a écrit dans le
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)

23/08/2007 à 16:26

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)

wrote in message
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)" a écrit dans le
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

J'aurais presque juré que dbOpenDynaset était mis par défaut... Je me
serais trompé... Navré !

Dans ton message <245463BC-5B20-4E8F-88E4-7AD81FFBF593@microsoft.com>
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:%23jNHmxY5HHA.1188@TK2MSFTNGP04.phx.gbl...

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:eWbdmvY5HHA.4964@TK2MSFTNGP06.phx.gbl...

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)

<renaud@roualdes.comNOSPAM> wrote in message
news:AA2ECD0D-55A0-4CE5-9FDE-7CD05B2B6F0B@microsoft.com...

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

Une autre idée ?

Renaud

"Thierry (ze Titi)" <ze_titi_enlever-ceci@tiscali.fr> a écrit dans le
message de news:mn.b2a77d78db980b0e.64280@tiscali.fr...

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

Vous avez filtré cet utilisateur ! Consultez son message

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)

wrote in message
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)" a écrit dans le
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

Accès à des tables SQL

9 réponses

Veuillez sélectionner un problème