Copie d'une table à l'autre

-----Message d'origine-----
Bonjour,
A la création d'un nouveau client dans la
table 'clients',

j'aimerai que l'adresse de la table clients se copie
directement dans la table 'ADRESSE FACTURATION'.
Si l'adresse de facturation est différente un formulaire
Facturation permet d'entrer cette adresse dans les
champs

[B-ADRESFACTURATION] et [B-ADRESSEPRINCIPALE], qui
doivent

avoir priorité par rapport à l'adresse principale du
client.

Je rencontre deux problèmes :
Le premier : si une modif dans l'adresse de la table
clients est saisie la formule me crée une nouvelle ligne
NClient dans la table 'ADRESSE FACTURATION' au lieu de
modifier les valeurs existantes.
Le deuxième problème : Si dans la table facturation une
adresse a déjà été saisie dans [B-ADRESFACTURATION] et
que

je fais une modification dans la table clients.
J'ai une erreur d'incompatibilité de type.

Voilà ce que j'ai fais :
Dim Critère As String, MaBD As Database, MaTable As
Recordset

Set MaBD = DBEngine.Workspaces(0).Databases(0)
Set MaTable = MaBD.OpenRecordset("ADRESSE FACTURATION",
dbOpenDynaset) ' Crée la feuille de réponses dynamique.
MaTable.MoveFirst ' Recherche la première occurrence.
Do Until MaTable.EOF ' Boucle jusqu'à ce qu'il n'y ait
plus d'enregistrement correspondant.

TESTER = MaTable!NClient
If TESTER = NClient Then
COMPE = MaTable!Adressedef
If COMPE = Me![B-ADRESSE] Or MaTable![B-
ADRESFACTURATION] Or MaTable![B-ADRESSEPRINCIPALE] Then
trouve = 1
Exit Do
Else
trouve = 0
End If
MaTable.MoveNext
Else
MaTable.MoveNext
End If

Loop ' Fin de la boucle.


If trouve = 0 Then

MaTable.AddNew
MaTable!NClient = NClient
MaTable!Adressedef = [B-ADRESSE]
MaTable!NPdef = [B-NP]

MaTable.Update
MaTable.Close
Else
'matable.Close
End If
Je rencontre deux problèmes :
Le premier : si une modif dans l'adresse de la table
clients est saisie la formule me crée une nouvelle ligne
NClient dans la table 'ADRESSE FACTURATION' au lieu de
modifier les valeurs existantes.
Le deuxième problème : Si dans la table facturation une
adresse a déjà été saisie dans [B-ADRESFACTURATION] et
que

je fais une modification dans la table clients.
J'ai une erreur d'incompatibilité de type.

Est-ce que quelqu'un peut m'aider à remédier à ces deux
problèmes ?
Luis

.

-----Message d'origine-----
Salut,
Si j ai bien compris ton probleme pour chaque client tu
as une adresse principale et une adresse facturation qui
peuvent etre les memes ou non.
Personnellement j aurais mis les tables en relation 1-1
et utiliser une requete d'ajout pour inserer une adresse
facturation pour un nouveau client et une requete
actualisation en cas de modification.
Puis creer deux boutons dans ton formulaire:
Un qui utilise ton adresse principale pour ta facturation
ou qui actualiserais les modif. En faisant appel a tes
requetes d action utilisant la fonction "if": Si l
adresse de facturation existe le code lancera la requete
d actualisation sinon il lancera celle d'ajout.

L'autre bouton qui te permettrait d en inserer une
differente, donc ouvrirait tout simplement ton formulaire
en mode nouveau.
C est pas vraiment une reponse directe a ton probleme
mais j'ai fait a peu pres la meme chose dans une de mes
BD et ca marche tres bien.
a+

-----Message d'origine-----
Bonjour,
A la création d'un nouveau client dans la
table 'clients',

j'aimerai que l'adresse de la table clients se copie
directement dans la table 'ADRESSE FACTURATION'.
Si l'adresse de facturation est différente un formulaire
Facturation permet d'entrer cette adresse dans les
champs

[B-ADRESFACTURATION] et [B-ADRESSEPRINCIPALE], qui
doivent

avoir priorité par rapport à l'adresse principale du
client.

Je rencontre deux problèmes :
Le premier : si une modif dans l'adresse de la table
clients est saisie la formule me crée une nouvelle ligne
NClient dans la table 'ADRESSE FACTURATION' au lieu de
modifier les valeurs existantes.
Le deuxième problème : Si dans la table facturation une
adresse a déjà été saisie dans [B-ADRESFACTURATION] et
que

je fais une modification dans la table clients.
J'ai une erreur d'incompatibilité de type.

Voilà ce que j'ai fais :
Dim Critère As String, MaBD As Database, MaTable As
Recordset

Set MaBD = DBEngine.Workspaces(0).Databases(0)
Set MaTable = MaBD.OpenRecordset("ADRESSE FACTURATION",
dbOpenDynaset) ' Crée la feuille de réponses dynamique.
MaTable.MoveFirst ' Recherche la première occurrence.
Do Until MaTable.EOF ' Boucle jusqu'à ce qu'il n'y ait
plus d'enregistrement correspondant.

TESTER = MaTable!NClient
If TESTER = NClient Then
COMPE = MaTable!Adressedef
If COMPE = Me![B-ADRESSE] Or MaTable![B-
ADRESFACTURATION] Or MaTable![B-ADRESSEPRINCIPALE] Then
trouve = 1
Exit Do
Else
trouve = 0
End If
MaTable.MoveNext
Else
MaTable.MoveNext
End If

Loop ' Fin de la boucle.


If trouve = 0 Then

MaTable.AddNew
MaTable!NClient = NClient
MaTable!Adressedef = [B-ADRESSE]
MaTable!NPdef = [B-NP]

MaTable.Update
MaTable.Close
Else
'matable.Close
End If
Je rencontre deux problèmes :
Le premier : si une modif dans l'adresse de la table
clients est saisie la formule me crée une nouvelle ligne
NClient dans la table 'ADRESSE FACTURATION' au lieu de
modifier les valeurs existantes.
Le deuxième problème : Si dans la table facturation une
adresse a déjà été saisie dans [B-ADRESFACTURATION] et
que

je fais une modification dans la table clients.
J'ai une erreur d'incompatibilité de type.

Est-ce que quelqu'un peut m'aider à remédier à ces deux
problèmes ?
Luis

.

.

Bonjour,
Effectivement c'est une solution, mais j'ai une contreinte
qui m'oblige à faire autrement.
C'est à dire qu'il faut que l'adresse de facturation soit
de suite copiée depuis l'adresse principale et le faire
avec le bouton Valider, ors si aprés avoir enregistré une
autre adresse facturation à travers le formulaire adresse
facturation, il deviendra impossible de faire des
modifications dans le formulaire principal, car la
Validation de la midification se fait avec le même bouton
valider et là l'adresse saisie depuis le formulaire
adresse facturation serai écrasé par celui contenu dans le
formulaire principal.
Luis

-----Message d'origine-----
Salut,
Si j ai bien compris ton probleme pour chaque client tu
as une adresse principale et une adresse facturation qui
peuvent etre les memes ou non.
Personnellement j aurais mis les tables en relation 1-1
et utiliser une requete d'ajout pour inserer une adresse
facturation pour un nouveau client et une requete
actualisation en cas de modification.
Puis creer deux boutons dans ton formulaire:
Un qui utilise ton adresse principale pour ta facturation
ou qui actualiserais les modif. En faisant appel a tes
requetes d action utilisant la fonction "if": Si l
adresse de facturation existe le code lancera la requete
d actualisation sinon il lancera celle d'ajout.

L'autre bouton qui te permettrait d en inserer une
differente, donc ouvrirait tout simplement ton formulaire
en mode nouveau.
C est pas vraiment une reponse directe a ton probleme
mais j'ai fait a peu pres la meme chose dans une de mes
BD et ca marche tres bien.
a+

-----Message d'origine-----
Bonjour,
A la création d'un nouveau client dans la
table 'clients',

j'aimerai que l'adresse de la table clients se copie
directement dans la table 'ADRESSE FACTURATION'.
Si l'adresse de facturation est différente un formulaire
Facturation permet d'entrer cette adresse dans les
champs

[B-ADRESFACTURATION] et [B-ADRESSEPRINCIPALE], qui
doivent

avoir priorité par rapport à l'adresse principale du
client.

Je rencontre deux problèmes :
Le premier : si une modif dans l'adresse de la table
clients est saisie la formule me crée une nouvelle ligne
NClient dans la table 'ADRESSE FACTURATION' au lieu de
modifier les valeurs existantes.
Le deuxième problème : Si dans la table facturation une
adresse a déjà été saisie dans [B-ADRESFACTURATION] et
que

je fais une modification dans la table clients.
J'ai une erreur d'incompatibilité de type.

Voilà ce que j'ai fais :
Dim Critère As String, MaBD As Database, MaTable As
Recordset

Set MaBD = DBEngine.Workspaces(0).Databases(0)
Set MaTable = MaBD.OpenRecordset("ADRESSE FACTURATION",
dbOpenDynaset) ' Crée la feuille de réponses dynamique.
MaTable.MoveFirst ' Recherche la première occurrence.
Do Until MaTable.EOF ' Boucle jusqu'à ce qu'il n'y ait
plus d'enregistrement correspondant.

TESTER = MaTable!NClient
If TESTER = NClient Then
COMPE = MaTable!Adressedef
If COMPE = Me![B-ADRESSE] Or MaTable![B-
ADRESFACTURATION] Or MaTable![B-ADRESSEPRINCIPALE] Then
trouve = 1
Exit Do
Else
trouve = 0
End If
MaTable.MoveNext
Else
MaTable.MoveNext
End If

Loop ' Fin de la boucle.


If trouve = 0 Then

MaTable.AddNew
MaTable!NClient = NClient
MaTable!Adressedef = [B-ADRESSE]
MaTable!NPdef = [B-NP]

MaTable.Update
MaTable.Close
Else
'matable.Close
End If
Je rencontre deux problèmes :
Le premier : si une modif dans l'adresse de la table
clients est saisie la formule me crée une nouvelle ligne
NClient dans la table 'ADRESSE FACTURATION' au lieu de
modifier les valeurs existantes.
Le deuxième problème : Si dans la table facturation une
adresse a déjà été saisie dans [B-ADRESFACTURATION] et
que

je fais une modification dans la table clients.
J'ai une erreur d'incompatibilité de type.

Est-ce que quelqu'un peut m'aider à remédier à ces deux
problèmes ?
Luis

.

.

-----Message d'origine-----
Bonsoir,
tu peux peut-etre te contenter d'ajouter une case a
cocher dans ton formulaire

client. Cette case aura pour etiquette :
(Adresse de facturation si differente de
l'adresse principale)

ainsi que la (ou les) zone de texte (Ex: ADRESSEFACT)
pour la saisie

de l'adresse facturation.

Quand cette case est validee, les zones de saisie pour
l'adresse de

facturation
deviennent accessibles.
Pour la mise a jour de la table ADRESSE FACTURATION :
Si la case a cocher est validee
Alors B-ADRESFACTURATION = ADRESSEFACT
Sinon B-ADRESFACTURATION = B-ADRESSEPRINCIPALE



Pour la mise a jour, ajouter du code du genre :
Exemple : 1 zone de texte ADRESSEFACT pour l'adresse de
facturation

Set MaTable=CurrentDb.OpenRecordset("SELECT * FROM
[ADRESSE FACTURATION]

WHERE NumClient=" & controlnumclient.Value)

If MaTable.BOF and MaTable.EOF then
MaTable.AddNew
MaTable!NumClient=controlnumclient.Vlue
End if
End if
MaTable!B-ADRESFACTURATION=B-ADRESSEPRINCIPALE
If CaseaCocher.Value=True And AdresseFact.Value<>"" Then
MaTable!B-ADRESFACTURATION­RESSEFACT.Value
End if
MaTable.UpDate
MaTable.Close

Bonjour,
Effectivement c'est une solution, mais j'ai une
contreinte

qui m'oblige à faire autrement.
C'est à dire qu'il faut que l'adresse de facturation
soit

de suite copiée depuis l'adresse principale et le
faire

avec le bouton Valider, ors si aprés avoir enregistré
une

autre adresse facturation à travers le formulaire
adresse

facturation, il deviendra impossible de faire des
modifications dans le formulaire principal, car la
Validation de la midification se fait avec le même
bouton

valider et là l'adresse saisie depuis le formulaire
adresse facturation serai écrasé par celui contenu
dans le

formulaire principal.
Luis

-----Message d'origine-----
Salut,
Si j ai bien compris ton probleme pour chaque client
tu

as une adresse principale et une adresse facturation
qui

peuvent etre les memes ou non.
Personnellement j aurais mis les tables en relation 1-
1

et utiliser une requete d'ajout pour inserer une
adresse

facturation pour un nouveau client et une requete
actualisation en cas de modification.
Puis creer deux boutons dans ton formulaire:
Un qui utilise ton adresse principale pour ta
facturation

ou qui actualiserais les modif. En faisant appel a tes
requetes d action utilisant la fonction "if": Si l
adresse de facturation existe le code lancera la
requete

d actualisation sinon il lancera celle d'ajout.

L'autre bouton qui te permettrait d en inserer une
differente, donc ouvrirait tout simplement ton
formulaire

en mode nouveau.
C est pas vraiment une reponse directe a ton probleme
mais j'ai fait a peu pres la meme chose dans une de
mes

BD et ca marche tres bien.
a+

-----Message d'origine-----
Bonjour,
A la création d'un nouveau client dans la
table 'clients',

j'aimerai que l'adresse de la table clients se copie
directement dans la table 'ADRESSE FACTURATION'.
Si l'adresse de facturation est différente un
formulaire

Facturation permet d'entrer cette adresse dans les
champs

[B-ADRESFACTURATION] et [B-ADRESSEPRINCIPALE], qui
doivent

avoir priorité par rapport à l'adresse principale
du

client.

Je rencontre deux problèmes :
Le premier : si une modif dans l'adresse de la table
clients est saisie la formule me crée une nouvelle
ligne

NClient dans la table 'ADRESSE FACTURATION' au lieu
de

modifier les valeurs existantes.
Le deuxième problème : Si dans la table facturation
une

adresse a déjà été saisie dans [B-
ADRESFACTURATION] et

que

je fais une modification dans la table clients.
J'ai une erreur d'incompatibilité de type.

Voilà ce que j'ai fais :
Dim Critère As String, MaBD As Database, MaTable As
Recordset

Set MaBD = DBEngine.Workspaces(0).Databases(0)
Set MaTable = MaBD.OpenRecordset("ADRESSE
FACTURATION",

dbOpenDynaset) ' Crée la feuille de réponses
dynamique.

MaTable.MoveFirst ' Recherche la première occurrence.
Do Until MaTable.EOF ' Boucle jusqu'Ã ce qu'il n'y
ait

plus d'enregistrement correspondant.

TESTER = MaTable!NClient
If TESTER = NClient Then
COMPE = MaTable!Adressedef
If COMPE = Me![B-ADRESSE] Or MaTable![B-
ADRESFACTURATION] Or MaTable![B-ADRESSEPRINCIPALE]
Then

trouve = 1
Exit Do
Else
trouve = 0
End If
MaTable.MoveNext
Else
MaTable.MoveNext
End If

Loop ' Fin de la boucle.


If trouve = 0 Then

MaTable.AddNew
MaTable!NClient = NClient
MaTable!Adressedef = [B-ADRESSE]
MaTable!NPdef = [B-NP]

MaTable.Update
MaTable.Close
Else
'matable.Close
End If
Je rencontre deux problèmes :
Le premier : si une modif dans l'adresse de la table
clients est saisie la formule me crée une nouvelle
ligne

NClient dans la table 'ADRESSE FACTURATION' au lieu
de

modifier les valeurs existantes.
Le deuxième problème : Si dans la table facturation
une

adresse a déjà été saisie dans [B-
ADRESFACTURATION] et

que

je fais une modification dans la table clients.
J'ai une erreur d'incompatibilité de type.

Est-ce que quelqu'un peut m'aider à remédier à ces
deux

problèmes ?
Luis

.

.

.

Bonjour Ilan,
J'ai trouvé ton idée très bonne.
Alors j'ai ajouté une case à cocher avec valeur par
défaut "0" et ajouté un champ à ma table
appelé 'Facturation', comme ça dès que l'on clique sur
cette case la valeur est "1".
Et j'ai mis ça mais Rien ne se passe:

If Facturation = 0 Then
Exit Sub
Else
If Facturation = 1 Then
MaTable = "ADRESSE FACTURATION"

Set MaTable = CurrentDb.OpenRecordset("SELECT * FROM
CLIENTS WHERE NClient = " & NCLIENT)

If MaTable.BOF And MaTable3.EOF Then
MaTable.AddNew
MaTable!NCLIENT = NCLIENT

MaTable![Adressedef] = Me.[B-ADRESSE]
MaTable![NPdef] = Me.[B-NP]
Exit Sub

MaTable.Update
MaTable.Close
End If
End If
End If
[Adressedef] et [NPdef] sont les champs de la
table "ADRESSE FACTURATION"

[B-ADRESSE] et [B-NP] sont les champs de la table "Clients"
Luis

-----Message d'origine-----
Bonsoir,
tu peux peut-etre te contenter d'ajouter une case a
cocher dans ton formulaire

client. Cette case aura pour etiquette :
(Adresse de facturation si differente de
l'adresse principale)

ainsi que la (ou les) zone de texte (Ex: ADRESSEFACT)
pour la saisie

de l'adresse facturation.

Quand cette case est validee, les zones de saisie pour
l'adresse de

facturation
deviennent accessibles.
Pour la mise a jour de la table ADRESSE FACTURATION :
Si la case a cocher est validee
Alors B-ADRESFACTURATION = ADRESSEFACT
Sinon B-ADRESFACTURATION = B-ADRESSEPRINCIPALE



Pour la mise a jour, ajouter du code du genre :
Exemple : 1 zone de texte ADRESSEFACT pour l'adresse de
facturation

Set MaTable=CurrentDb.OpenRecordset("SELECT * FROM
[ADRESSE FACTURATION]

WHERE NumClient=" & controlnumclient.Value)

If MaTable.BOF and MaTable.EOF then
MaTable.AddNew
MaTable!NumClient=controlnumclient.Vlue
End if
End if
MaTable!B-ADRESFACTURATION=B-ADRESSEPRINCIPALE
If CaseaCocher.Value=True And AdresseFact.Value<>"" Then
MaTable!B-ADRESFACTURATION­RESSEFACT.Value
End if
MaTable.UpDate
MaTable.Close

Bonjour,
Effectivement c'est une solution, mais j'ai une
contreinte

qui m'oblige à faire autrement.
C'est à dire qu'il faut que l'adresse de facturation
soit

de suite copiée depuis l'adresse principale et le
faire

avec le bouton Valider, ors si aprés avoir enregistré
une

autre adresse facturation à travers le formulaire
adresse

facturation, il deviendra impossible de faire des
modifications dans le formulaire principal, car la
Validation de la midification se fait avec le même
bouton

valider et là l'adresse saisie depuis le formulaire
adresse facturation serai écrasé par celui contenu
dans le

formulaire principal.
Luis

-----Message d'origine-----
Salut,
Si j ai bien compris ton probleme pour chaque client
tu

as une adresse principale et une adresse facturation
qui

peuvent etre les memes ou non.
Personnellement j aurais mis les tables en relation 1-
1

et utiliser une requete d'ajout pour inserer une
adresse

facturation pour un nouveau client et une requete
actualisation en cas de modification.
Puis creer deux boutons dans ton formulaire:
Un qui utilise ton adresse principale pour ta
facturation

ou qui actualiserais les modif. En faisant appel a tes
requetes d action utilisant la fonction "if": Si l
adresse de facturation existe le code lancera la
requete

d actualisation sinon il lancera celle d'ajout.

L'autre bouton qui te permettrait d en inserer une
differente, donc ouvrirait tout simplement ton
formulaire

en mode nouveau.
C est pas vraiment une reponse directe a ton probleme
mais j'ai fait a peu pres la meme chose dans une de
mes

BD et ca marche tres bien.
a+

-----Message d'origine-----
Bonjour,
A la création d'un nouveau client dans la
table 'clients',

j'aimerai que l'adresse de la table clients se copie
directement dans la table 'ADRESSE FACTURATION'.
Si l'adresse de facturation est différente un
formulaire

Facturation permet d'entrer cette adresse dans les
champs

[B-ADRESFACTURATION] et [B-ADRESSEPRINCIPALE], qui
doivent

avoir priorité par rapport à l'adresse principale
du

client.

Je rencontre deux problèmes :
Le premier : si une modif dans l'adresse de la table
clients est saisie la formule me crée une nouvelle
ligne

NClient dans la table 'ADRESSE FACTURATION' au lieu
de

modifier les valeurs existantes.
Le deuxième problème : Si dans la table facturation
une

adresse a déjà été saisie dans [B-
ADRESFACTURATION] et

que

je fais une modification dans la table clients.
J'ai une erreur d'incompatibilité de type.

Voilà ce que j'ai fais :
Dim Critère As String, MaBD As Database, MaTable As
Recordset

Set MaBD = DBEngine.Workspaces(0).Databases(0)
Set MaTable = MaBD.OpenRecordset("ADRESSE
FACTURATION",

dbOpenDynaset) ' Crée la feuille de réponses
dynamique.

MaTable.MoveFirst ' Recherche la première occurrence.
Do Until MaTable.EOF ' Boucle jusqu'Ã ce qu'il n'y
ait

plus d'enregistrement correspondant.

TESTER = MaTable!NClient
If TESTER = NClient Then
COMPE = MaTable!Adressedef
If COMPE = Me![B-ADRESSE] Or MaTable![B-
ADRESFACTURATION] Or MaTable![B-ADRESSEPRINCIPALE]
Then

trouve = 1
Exit Do
Else
trouve = 0
End If
MaTable.MoveNext
Else
MaTable.MoveNext
End If

Loop ' Fin de la boucle.


If trouve = 0 Then

MaTable.AddNew
MaTable!NClient = NClient
MaTable!Adressedef = [B-ADRESSE]
MaTable!NPdef = [B-NP]

MaTable.Update
MaTable.Close
Else
'matable.Close
End If
Je rencontre deux problèmes :
Le premier : si une modif dans l'adresse de la table
clients est saisie la formule me crée une nouvelle
ligne

NClient dans la table 'ADRESSE FACTURATION' au lieu
de

modifier les valeurs existantes.
Le deuxième problème : Si dans la table facturation
une

adresse a déjà été saisie dans [B-
ADRESFACTURATION] et

que

je fais une modification dans la table clients.
J'ai une erreur d'incompatibilité de type.

Est-ce que quelqu'un peut m'aider à remédier à ces
deux

problèmes ?
Luis

.

.

.

-----Message d'origine-----
Bonjour Luis,
Une case à cocher n'accepte que deux valeurs TRUE et
FALSE.

En fait TRUE et FALSE sont des constantes numeriques.
TRUE (VRAI)= -1 et FALSE (FAUX) = 0

Je ne comprends rien a ton code :
MaTable3 ??? Kezako
MaTable ??? Contient quoi au juste la table Clients ou
la table AdresseFacturation

Tu ajoutes une nouvelle adresse de facturation
systematiquement,

De plus, il y a dans ton code un Exit sub (Sortir de la
procedure) avant

d'avoir enregistrer les modifications apportees a la
table.

ex:
If Facturationúlse Then Exit Sub
MaTable = "ADRESSE FACTURATION"
Set MaTable = CurrentDb.OpenRecordset("SELECT * FROM
CLIENTS WHERE NClient = " & NCLIENT)
If MaTable.BOF And MaTable3.EOF Then
MaTable.AddNew
MaTable!NCLIENT = NCLIENT
MaTable![Adressedef] = Me.[B-ADRESSE]
MaTable![NPdef] = Me.[B-NP]
Exit Sub

MaTable.Update
MaTable.Close
End If
End If
End If
[Adressedef] et [NPdef] sont les champs de la
table "ADRESSE FACTURATION"

[B-ADRESSE] et [B-NP] sont les champs de la
table "Clients"

Bonjour Ilan,
J'ai trouvé ton idée très bonne.
Alors j'ai ajouté une case à cocher avec valeur par
défaut "0" et ajouté un champ à ma table
appelé 'Facturation', comme ça dès que l'on clique
sur

cette case la valeur est "1".
Et j'ai mis ça mais Rien ne se passe:

If Facturation = 0 Then
Exit Sub
Else
If Facturation = 1 Then
MaTable = "ADRESSE FACTURATION"

Set MaTable = CurrentDb.OpenRecordset("SELECT * FROM
CLIENTS WHERE NClient = " & NCLIENT)

If MaTable.BOF And MaTable3.EOF Then
MaTable.AddNew
MaTable!NCLIENT = NCLIENT

MaTable![Adressedef] = Me.[B-ADRESSE]
MaTable![NPdef] = Me.[B-NP]
Exit Sub

MaTable.Update
MaTable.Close
End If
End If
End If
[Adressedef] et [NPdef] sont les champs de la
table "ADRESSE FACTURATION"

[B-ADRESSE] et [B-NP] sont les champs de la
table "Clients"

Luis

-----Message d'origine-----
Bonsoir,
tu peux peut-etre te contenter d'ajouter une case a
cocher dans ton formulaire

client. Cette case aura pour etiquette :
(Adresse de facturation si differente
de

l'adresse principale)

ainsi que la (ou les) zone de texte (Ex: ADRESSEFACT)
pour la saisie

de l'adresse facturation.

Quand cette case est validee, les zones de saisie pour
l'adresse de

facturation
deviennent accessibles.
Pour la mise a jour de la table ADRESSE FACTURATION :
Si la case a cocher est validee
Alors B-ADRESFACTURATION = ADRESSEFACT
Sinon B-ADRESFACTURATION = B-ADRESSEPRINCIPALE



Pour la mise a jour, ajouter du code du genre :
Exemple : 1 zone de texte ADRESSEFACT pour l'adresse
de

facturation

Set MaTable=CurrentDb.OpenRecordset("SELECT * FROM
[ADRESSE FACTURATION]

WHERE NumClient=" & controlnumclient.Value)

If MaTable.BOF and MaTable.EOF then
MaTable.AddNew
MaTable!NumClient=controlnumclient.Vlue
End if
End if
MaTable!B-ADRESFACTURATION=B-ADRESSEPRINCIPALE
If CaseaCocher.Value=True And AdresseFact.Value<>""
Then

MaTable!B-ADRESFACTURATION­RESSEFACT.Value
End if
MaTable.UpDate
MaTable.Close

Bonjour,
Effectivement c'est une solution, mais j'ai une
contreinte

qui m'oblige Ãf faire autrement.
C'est Ãf dire qu'il faut que l'adresse de
facturation

soit

de suite copiÃf©e depuis l'adresse principale et le
faire

avec le bouton Valider, ors si aprÃf©s avoir
enregistrÃf©

une

autre adresse facturation Ãf travers le formulaire
adresse

facturation, il deviendra impossible de faire des
modifications dans le formulaire principal, car la
Validation de la midification se fait avec le
mÃfªme

bouton

valider et lÃf l'adresse saisie depuis le
formulaire

adresse facturation serai Ãf©crasÃf© par celui
contenu

dans le

formulaire principal.
Luis

-----Message d'origine-----
Salut,
Si j ai bien compris ton probleme pour chaque
client

tu

as une adresse principale et une adresse
facturation

qui

peuvent etre les memes ou non.
Personnellement j aurais mis les tables en relation
1-

1

et utiliser une requete d'ajout pour inserer une
adresse

facturation pour un nouveau client et une requete
actualisation en cas de modification.
Puis creer deux boutons dans ton formulaire:
Un qui utilise ton adresse principale pour ta
facturation

ou qui actualiserais les modif. En faisant appel a
tes

requetes d action utilisant la fonction "if": Si l
adresse de facturation existe le code lancera la
requete

d actualisation sinon il lancera celle d'ajout.

L'autre bouton qui te permettrait d en inserer une
differente, donc ouvrirait tout simplement ton
formulaire

en mode nouveau.
C est pas vraiment une reponse directe a ton
probleme

mais j'ai fait a peu pres la meme chose dans une de
mes

BD et ca marche tres bien.
a+

-----Message d'origine-----
Bonjour,
A la crÃf©ation d'un nouveau client dans la
table 'clients',

j'aimerai que l'adresse de la table clients se
copie

directement dans la table 'ADRESSE FACTURATION'.
Si l'adresse de facturation est diffÃf©rente un
formulaire

Facturation permet d'entrer cette adresse dans les
champs

[B-ADRESFACTURATION] et [B-ADRESSEPRINCIPALE], qui
doivent

avoir prioritÃf© par rapport Ãf l'adresse
principale

du

client.

Je rencontre deux problÃf¨mes :
Le premier : si une modif dans l'adresse de la
table

clients est saisie la formule me crÃf©e une
nouvelle

ligne

NClient dans la table 'ADRESSE FACTURATION' au
lieu

de

modifier les valeurs existantes.
Le deuxiÃf¨me problÃf¨me : Si dans la table
facturation

une

adresse a dÃf©jÃf Ãf©tÃf© saisie dans [B-
ADRESFACTURATION] et

que

je fais une modification dans la table clients.
J'ai une erreur d'incompatibilitÃf© de type.

VoilÃf ce que j'ai fais :
Dim CritÃf¨re As String, MaBD As Database,
MaTable As

Recordset

Set MaBD = DBEngine.Workspaces(0).Databases(0)
Set MaTable = MaBD.OpenRecordset("ADRESSE
FACTURATION",

dbOpenDynaset) ' CrÃf©e la feuille de rÃf©ponses
dynamique.

MaTable.MoveFirst ' Recherche la premiÃf¨re
occurrence.

Do Until MaTable.EOF ' Boucle jusqu'Ãf ce qu'il
n'y

ait

plus d'enregistrement correspondant.

TESTER = MaTable!NClient
If TESTER = NClient Then
COMPE = MaTable!Adressedef
If COMPE = Me![B-ADRESSE] Or MaTable![B-
ADRESFACTURATION] Or MaTable![B-ADRESSEPRINCIPALE]
Then

trouve = 1
Exit Do
Else
trouve = 0
End If
MaTable.MoveNext
Else
MaTable.MoveNext
End If

Loop ' Fin de la boucle.


If trouve = 0 Then

MaTable.AddNew
MaTable!NClient = NClient
MaTable!Adressedef = [B-ADRESSE]
MaTable!NPdef = [B-NP]

MaTable.Update
MaTable.Close
Else
'matable.Close
End If
Je rencontre deux problÃf¨mes :
Le premier : si une modif dans l'adresse de la
table

clients est saisie la formule me crÃf©e une
nouvelle

ligne

NClient dans la table 'ADRESSE FACTURATION' au
lieu

de

modifier les valeurs existantes.
Le deuxiÃf¨me problÃf¨me : Si dans la table
facturation

une

adresse a dÃf©jÃf Ãf©tÃf© saisie dans [B-
ADRESFACTURATION] et

que

je fais une modification dans la table clients.
J'ai une erreur d'incompatibilitÃf© de type.

Est-ce que quelqu'un peut m'aider Ãf remÃf©dier
Ãf ces

deux

problÃf¨mes ?
Luis

.

.

.

.

Set MaTable = CurrentDb.OpenRecordset("SELECT * FROM
CLIENTS WHERE NClient = " & NCLIENT)Set MaTable ce qui correspond aux enregistrements de la table Clients.
Commence par ecrire en francais ce que tu comptes faire puis traduit en

Bonjour Ilan,
MaTable3 est une faute de frappe, sans faute de frappe
c'est MaTable
MaTable contient la table "AdresseFacturation"
Facturation est le nom de la case à cocher

Effectivement If Facturationúlse Then Exit Sub
est faux mais même comme ça:


If Facturation = False Then
MaTable = ("ADRESSE FACTURATION")

Set MaTable = CurrentDb.OpenRecordset("SELECT * FROM
CLIENTS WHERE NClient = " & NCLIENT)

If MaTable.BOF And MaTable.EOF Then
MaTable.AddNew
MaTable!NCLIENT = NCLIENT

MaTable![Adressedef] = Me.[B-ADRESSE]
MaTable![NPdef] = Me.[B-NP]
Exit Sub
MaTable.Update
MaTable.Close
Else
If Facturation = True Then
Exit Sub
End If
End If
End If
Je ne sais pas si j'ai réussi à expliquer de toutes façons
le code est faux mais où????
Luis

-----Message d'origine-----
Bonjour Luis,
Une case à cocher n'accepte que deux valeurs TRUE et
FALSE.

En fait TRUE et FALSE sont des constantes numeriques.
TRUE (VRAI)= -1 et FALSE (FAUX) = 0

Je ne comprends rien a ton code :
MaTable3 ??? Kezako
MaTable ??? Contient quoi au juste la table Clients ou
la table AdresseFacturation

Tu ajoutes une nouvelle adresse de facturation
systematiquement,

De plus, il y a dans ton code un Exit sub (Sortir de la
procedure) avant

d'avoir enregistrer les modifications apportees a la
table.

ex:
If Facturationúlse Then Exit Sub
MaTable = "ADRESSE FACTURATION"
Set MaTable = CurrentDb.OpenRecordset("SELECT * FROM
CLIENTS WHERE NClient = " & NCLIENT)
If MaTable.BOF And MaTable3.EOF Then
MaTable.AddNew
MaTable!NCLIENT = NCLIENT
MaTable![Adressedef] = Me.[B-ADRESSE]
MaTable![NPdef] = Me.[B-NP]
Exit Sub

MaTable.Update
MaTable.Close
End If
End If
End If
[Adressedef] et [NPdef] sont les champs de la
table "ADRESSE FACTURATION"

[B-ADRESSE] et [B-NP] sont les champs de la
table "Clients"

Bonjour Ilan,
J'ai trouvé ton idée très bonne.
Alors j'ai ajouté une case à cocher avec valeur par
défaut "0" et ajouté un champ à ma table
appelé 'Facturation', comme ça dès que l'on clique
sur

cette case la valeur est "1".
Et j'ai mis ça mais Rien ne se passe:

If Facturation = 0 Then
Exit Sub
Else
If Facturation = 1 Then
MaTable = "ADRESSE FACTURATION"

Set MaTable = CurrentDb.OpenRecordset("SELECT * FROM
CLIENTS WHERE NClient = " & NCLIENT)

If MaTable.BOF And MaTable3.EOF Then
MaTable.AddNew
MaTable!NCLIENT = NCLIENT

MaTable![Adressedef] = Me.[B-ADRESSE]
MaTable![NPdef] = Me.[B-NP]
Exit Sub

MaTable.Update
MaTable.Close
End If
End If
End If
[Adressedef] et [NPdef] sont les champs de la
table "ADRESSE FACTURATION"

[B-ADRESSE] et [B-NP] sont les champs de la
table "Clients"

Luis

-----Message d'origine-----
Bonsoir,
tu peux peut-etre te contenter d'ajouter une case a
cocher dans ton formulaire

client. Cette case aura pour etiquette :
(Adresse de facturation si differente
de

l'adresse principale)

ainsi que la (ou les) zone de texte (Ex: ADRESSEFACT)
pour la saisie

de l'adresse facturation.

Quand cette case est validee, les zones de saisie pour
l'adresse de

facturation
deviennent accessibles.
Pour la mise a jour de la table ADRESSE FACTURATION :
Si la case a cocher est validee
Alors B-ADRESFACTURATION = ADRESSEFACT
Sinon B-ADRESFACTURATION = B-ADRESSEPRINCIPALE



Pour la mise a jour, ajouter du code du genre :
Exemple : 1 zone de texte ADRESSEFACT pour l'adresse
de

facturation

Set MaTable=CurrentDb.OpenRecordset("SELECT * FROM
[ADRESSE FACTURATION]

WHERE NumClient=" & controlnumclient.Value)

If MaTable.BOF and MaTable.EOF then
MaTable.AddNew
MaTable!NumClient=controlnumclient.Vlue
End if
End if
MaTable!B-ADRESFACTURATION=B-ADRESSEPRINCIPALE
If CaseaCocher.Value=True And AdresseFact.Value<>""
Then

MaTable!B-ADRESFACTURATION­RESSEFACT.Value
End if
MaTable.UpDate
MaTable.Close

Bonjour,
Effectivement c'est une solution, mais j'ai une
contreinte

qui m'oblige Ãf faire autrement.
C'est Ãf dire qu'il faut que l'adresse de
facturation

soit

de suite copiÃf©e depuis l'adresse principale et le
faire

avec le bouton Valider, ors si aprÃf©s avoir
enregistrÃf©

une

autre adresse facturation Ãf travers le formulaire
adresse

facturation, il deviendra impossible de faire des
modifications dans le formulaire principal, car la
Validation de la midification se fait avec le
mÃfªme

bouton

valider et lÃf l'adresse saisie depuis le
formulaire

adresse facturation serai Ãf©crasÃf© par celui
contenu

dans le

formulaire principal.
Luis

-----Message d'origine-----
Salut,
Si j ai bien compris ton probleme pour chaque
client

tu

as une adresse principale et une adresse
facturation

qui

peuvent etre les memes ou non.
Personnellement j aurais mis les tables en relation
1-

1

et utiliser une requete d'ajout pour inserer une
adresse

facturation pour un nouveau client et une requete
actualisation en cas de modification.
Puis creer deux boutons dans ton formulaire:
Un qui utilise ton adresse principale pour ta
facturation

ou qui actualiserais les modif. En faisant appel a
tes

requetes d action utilisant la fonction "if": Si l
adresse de facturation existe le code lancera la
requete

d actualisation sinon il lancera celle d'ajout.

L'autre bouton qui te permettrait d en inserer une
differente, donc ouvrirait tout simplement ton
formulaire

en mode nouveau.
C est pas vraiment une reponse directe a ton
probleme

mais j'ai fait a peu pres la meme chose dans une de
mes

BD et ca marche tres bien.
a+

-----Message d'origine-----
Bonjour,
A la crÃf©ation d'un nouveau client dans la
table 'clients',

j'aimerai que l'adresse de la table clients se
copie

directement dans la table 'ADRESSE FACTURATION'.
Si l'adresse de facturation est diffÃf©rente un
formulaire

Facturation permet d'entrer cette adresse dans les
champs

[B-ADRESFACTURATION] et [B-ADRESSEPRINCIPALE], qui
doivent

avoir prioritÃf© par rapport Ãf l'adresse
principale

du

client.

Je rencontre deux problÃf¨mes :
Le premier : si une modif dans l'adresse de la
table

clients est saisie la formule me crÃf©e une
nouvelle

ligne

NClient dans la table 'ADRESSE FACTURATION' au
lieu

de

modifier les valeurs existantes.
Le deuxiÃf¨me problÃf¨me : Si dans la table
facturation

une

adresse a dÃf©jÃf Ãf©tÃf© saisie dans [B-
ADRESFACTURATION] et

que

je fais une modification dans la table clients.
J'ai une erreur d'incompatibilitÃf© de type.

VoilÃf ce que j'ai fais :
Dim CritÃf¨re As String, MaBD As Database,
MaTable As

Recordset

Set MaBD = DBEngine.Workspaces(0).Databases(0)
Set MaTable = MaBD.OpenRecordset("ADRESSE
FACTURATION",

dbOpenDynaset) ' CrÃf©e la feuille de rÃf©ponses
dynamique.

MaTable.MoveFirst ' Recherche la premiÃf¨re
occurrence.

Do Until MaTable.EOF ' Boucle jusqu'Ãf ce qu'il
n'y

ait

plus d'enregistrement correspondant.

TESTER = MaTable!NClient
If TESTER = NClient Then
COMPE = MaTable!Adressedef
If COMPE = Me![B-ADRESSE] Or MaTable![B-
ADRESFACTURATION] Or MaTable![B-ADRESSEPRINCIPALE]
Then

trouve = 1
Exit Do
Else
trouve = 0
End If
MaTable.MoveNext
Else
MaTable.MoveNext
End If

Loop ' Fin de la boucle.


If trouve = 0 Then

MaTable.AddNew
MaTable!NClient = NClient
MaTable!Adressedef = [B-ADRESSE]
MaTable!NPdef = [B-NP]

MaTable.Update
MaTable.Close
Else
'matable.Close
End If
Je rencontre deux problÃf¨mes :
Le premier : si une modif dans l'adresse de la
table

clients est saisie la formule me crÃf©e une
nouvelle

ligne

NClient dans la table 'ADRESSE FACTURATION' au
lieu

de

modifier les valeurs existantes.
Le deuxiÃf¨me problÃf¨me : Si dans la table
facturation

une

adresse a dÃf©jÃf Ãf©tÃf© saisie dans [B-
ADRESFACTURATION] et

que

je fais une modification dans la table clients.
J'ai une erreur d'incompatibilitÃf© de type.

Est-ce que quelqu'un peut m'aider Ãf remÃf©dier
Ãf ces

deux

problÃf¨mes ?
Luis

.

.

.

.