Discussion :

[stefon]

Bonjour

J'aimerai faire une requete avec une condition mais je ne sais pas si cela est possible...

J'aimerai comparer deux champs dans deux tables si ces deux champs sont identique alors je metterai a jour toutes les valeurs de client_new vers client_complet si ce n'est pas le cas j'ajouterai les valeurs de client_new a la fin de client_complet

if Client_complet.num_SAP=client_new.num_SAP AND
Client_complet.Nom_Prenom=Client_new.Nom_Prenom
Then UPDATE client_complet SET ???
else INSERT INTO client_complet(mes colonnes) VALUES client_new(mes colonnes)

[Moyaku]

Plutot un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
IF Client_complet.num_SAP=client_new.num_SAP 
AND Client_complet.Nom_Prenom=Client_new.Nom_Prenom
THEN 
UPDATE client_complet.num_SAP, client_complet.Nom_Prenom
ELSE INSERT client_new.num_SAP, Client_new.Nom_Prenom, 
INTO Client_complet(colonne), Client_complet(colonne)

[random]

il faut procéder en deux temps mise à jour et ajout en jouant sur la jointure
et sur isnull

[stefon]

il faudrait faire deux requetes alors ?

Ne serait ce pas plus simple de faire cela en Vb ?

[random]

non

[stefon]

Plutot un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
IF Client_complet.num_SAP=client_new.num_SAP 
AND Client_complet.Nom_Prenom=Client_new.Nom_Prenom
THEN 
UPDATE client_complet.num_SAP, client_complet.Nom_Prenom
ELSE INSERT client_new.num_SAP, Client_new.Nom_Prenom, 
INTO Client_complet(colonne), Client_complet(colonne)

Ok , merci bcp

Comment puis je inserer cela dans une requete sql ?

Merci

[stefon]

En fait le mieux serait que je puisse incorporer cette fonction dans access
Si bien sur il n'y a pas de faute

Program Fiche Client

Var i=1

Begin

numero=0;
repeat
numero=numero + i;

Case Client_new.modification OF

Modification : IF Client_complet.num_SAP=client_new.num_SAP AND Client_complet.Nom_Prenom=Client_new.Nom_Prenom
THEN UPDATE client_complet.num_SAP, client_complet.Nom_Prenom;

Supression : IF Client_complet.num_SAP=client_new.num_SAP AND Client_complet.Nom_Prenom=Client_new.Nom_Prenom
THEN DELETE la ligne concernée ? ;

Ajout : INSERT Client_new(Numéro,Num_SAP,Nom_Prenom,Societe,Service,Code_postal,Ville,Adresse1,Adresse2,Tel,Fax,Code_TCF,Categorie_client,Mail,Champ14,Champ15)
INTO Client_complet(Numéro,Num_SAP,Nom_Prenom,Societe,Service,Code_postal,Ville,Adresse1,Adresse2,Tel,Fax,Code_TCF,Categorie_client,Mail,Champ14,Champ15);


i=i+1;
until numero=5000;

End.

[stefon]

Bonjour

Suite a mon autre poste (cf http://www.developpez.net/forums/sho...d.php?t=202899 )
Je pense avoir trouvé une solution face a ce probleme qui est de faire un commande en VB , seulement j'ai un soucis

Comment la faire executer par access ? par un macro ?

Voici ma commande

Var i = 1

Begin
numero = 0
Do
numero = numero + i

Select Case Client_new.Modification
Case Modification
If Client_complet.num_SAP = Client_new.num_SAP And Client_complet.Nom_Prenom = Client_new.Nom_Prenom Then
Update Client_complet.num_SAP, Client_complet.Nom_Prenom
End If
Case Supression
If Client_complet.num_SAP = Client_new.num_SAP And Client_complet.Nom_Prenom = Client_new.Nom_Prenom Then
Delete Client_complet.num_SAP, Client_complet.Nom_Prenom, Client_complet.Societe, Client_complet.Service, Client_complet.Code_postal, Client_complet.Ville, Client_complet.Adresse1, Client_complet.Adresse2, Client_complet.Tel, Client_complet.Fax, Client_complet.Code_TCF, Client_complet.Categorie_client, Client_complet.Mail, Client_complet.Champ14, Client_complet.Champ15
End If
Case Ajout
INSERT Client_new(Numéro, num_SAP, Nom_Prenom, Societe, Service, Code_postal, Ville, Adresse1, Adresse2, Tel, Fax, Code_TCF, Categorie_client, Mail, Champ14, Champ15)
INTO Client_complet(Numéro, num_SAP, Nom_Prenom, Societe, Service, Code_postal, Ville, Adresse1, Adresse2, Tel, Fax, Code_TCF, Categorie_client, Mail, Champ14, Champ15)



i = i + 1
Loop Until numero = 5000

End