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
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
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
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 duBonjour à 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
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 <5439A46C-5891-485B-8537-F607B52E117C@microsoft.com> 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
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 duBonjour à 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
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
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
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
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
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
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)" 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
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)
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
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: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
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:%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
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