ACCESS 2003 : Code erreur d'execution '3075'

**Eric26** · 09/08/2006, 08h18

Bonjour,

Aprés plusieurs tentative et grâce à l'aide de pros, j'ai trouvé ce que je cherchais : un code qui me permet d'ajouter des enregistrements d'une table à un autre.

MAIS CA NE MARCHE PAS !!!!! il me met une erreur

Voici ma BD : Pièce jointe 3704

si ça tente quelqu'un.

Merci

**Macno** · 09/08/2006, 08h32

Salut,

Voici le code SQL corrigé:

Dim strSQL As String
strSQL = "INSERT INTO T_avenants (NumCt_Avnt, Anc_Avnt, Dct_Avnt, Tct_Avnt, Hct_Avnt, Fct_Avnt, Date_Avnt, NumSal_Avnt) " & _
"SELECT T_contrats.N_Ct, T_contrats.Anc_Ct, T_contrats.Début_Ct, T_contrats.Type_Ct, T_contrats.Heure_Ct, T_contrats.Fin_Ct, T_contrats.Av_Ct, T_contrats.NumSal_Ct " & _
"FROM T_contrats " & _
"WHERE (N_Ct Not In (select NumCt_Avnt from T_avenants)) and (Av_Ct Not In (select Date_Avnt from T_avenants));"
CurrentDb.Execute (strSQL)

Il manquait un espace a chaque fin de ligne et des parenthèses en trop

J'ai également modifié l'évènement déclenchant l'insertion et j'ai mit "Après Insertion" sur le sous formulaire.

**Eric26** · 09/08/2006, 09h11

Quand tu dis Après Insertion, tu veux dire Après Mise à jour ?

**Macno** · 09/08/2006, 09h24

je veux dire "Après Insertion". L'évènement se trouve non pas sur un controle de ton sous-formulaire mais sur le sous-formulaire lui même.

P.S :je te conseille de vérifier les données saisies par l'utilisateur avant l'insertion dans la table...

**Eric26** · 09/08/2006, 09h42

ça ne marche pas : rien ne se passe et aucun enregistrement n'est ajouté.

Pourtant, lorsque l'on remplie le champ [T_contrats.Av_Ct], l'enregistrement correspondant devrait s'ajouter (en respectant bien les conditions du WHERE bien entendu)

j'comprends pas

**Macno** · 09/08/2006, 09h43

Sur Quel évènement ta requête s'execute ?

**Eric26** · 09/08/2006, 09h47

Comme tu m'as conseillé : Après insertion dans le formulaire lui-même

voici le code :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_AfterInsert()
Dim strSQL As String
strSQL = "INSERT INTO T_avenants (NumCt_Avnt, Anc_Avnt, Dct_Avnt, Tct_Avnt, Hct_Avnt, Fct_Avnt, Date_Avnt, NumSal_Avnt)" & _
         "SELECT T_contrats.N_Ct, T_contrats.Anc_Ct, T_contrats.Début_Ct, T_contrats.Type_Ct, T_contrats.Heure_Ct, T_contrats.Fin_Ct, T_contrats.Av_Ct, T_contrats.NumSal_Ct" & _
         "FROM T_contrats" & _
         "WHERE ((N_Ct Not In (select NumCt_Avnt from T_avenants)) and ((Av_Ct Not In (select Date_Avnt from T_avenants));"
CurrentDb.Execute (strSQL)
End Sub

**Macno** · 09/08/2006, 09h54

Tu l'as bien saisie ta procédure sur l'évènement du sous-formulaire et non pas du formulaire ?

**Eric26** · 09/08/2006, 10h08

Je l'ai saisi dans le formulaire "T_contrats Sous-formulaire", qui lui même, est sous formulaire : pour cela, dans objets 'FORMULAIRES', j'ai ouvert le sous formulaire "T_contrats Sous-formulaire" en mode création, et ensuite dans les propriétés, j'ai créer la procédure sur l'évènement Après insertion. Voilà.

je vois pas oû j'aurais pu le mettre sinon

**Macno** · 09/08/2006, 10h19

tient voila base modifié. cela fonctionne (en tout cas chez moi)

**Eric26** · 09/08/2006, 10h28

dis moi, quelle manip tu as fais pour que les enregistrement s'ajoutent à la base AVENANTS.

Merci

**Macno** · 09/08/2006, 10h37

j'ai modifié la requête (les parenthèses en trop et les espaces au bout de chaque ligne) et changé l'évènement par rapport à ta base initiale

**Eric26** · 09/08/2006, 10h56

oui ça j'avais compris, ce que je voudrais comprendre (car chez moi ça ne marche toujours pas), c'est quels champs tu as rempli ou modifié pour que l'enregistrement s'ajoute à la table.

je pige rien : chez toi ça marche et chez moi non ; donc ça veut dire que je ne procède pas de la même façon que toi ou alors c'est le contraire.

Je résume :
Normalement, lorsqu'on entre une date d'avenant dans le champ [Av_Ct] du sous formulaire "T_contrats Sous-formulaire" , alors l'enregistrement en question doit s'jouter à la table AVENANTS SAUF si le même contrat AVEC la même date d'avenant figure déjà dans la table AVENANTS.

En fait il ne faut pas qu'il y ait de doublons dans la table AVENANTS, à savoir, 2 enregistrements carrément identiques.

**Macno** · 09/08/2006, 12h08

Attention j'ai testé la requête pour voir si elle s'excute mais je n'ai pas regardé ce qu'elle fait...

je regarde dès que j'ai 2 minutes

**Eric26** · 09/08/2006, 14h29

ok merci

**Macno** · 09/08/2006, 14h59

Ce n'est pas un problème d'execution de requête que tu as, mais un problème sur la requête.

La formulation du "Not In" n'est pas exacte et ne renvoie aucun enregistrement a ajouter. Je n'ai jamais utilisé les sous-requêtes dans une requête donc je ne suis pas un spécialiste.

Donc la requête n'ajoute pas 2 fois la même association de N_CT et de AV_CT

OR N_Ct est toujours différent de ce que tu as dans la table T_Avenants dans NumCt_Avnt puisqu'il s'agit d'un numéro auto. Donc il faut trouver un autre type de vérification pour éviter les doublons.

Je pencherais pour une vérif par Type_Ct à condition de changer le type de champ en numérique et enregistrer les type de contrat dans une table, et par Anc_CT et par N_Sal

**Eric26** · 10/08/2006, 18h49

oui en effet ça s'avère plus compliqué qu'on aurait pu le penser.

j'ai réfléchi à ta solution et j'ai réalisé un petit schéma qui pourrait peut-être aider.

le voici : Pièce jointe 3743

Qu'en penses tu ?

**Mahefasoa** · 12/08/2006, 10h21

Salut Eric26,
J'ai relu plusieurs fois ton post et comme toi j'ai cherché et je n'ai pas trouvé ... car j'ai suivi ton raisonnement:

Eric26 a écrit:
alors l'enregistrement en question doit s'jouter à la table AVENANTS SAUF si le même contrat AVEC la même date d'avenant figure déjà dans la table AVENANTS

et le code que tu as proposé (une partie de l'instruction SQL)

Code :

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

1
2
3
 
 
"WHERE ((N_Ct Not In (select NumCt_Avnt from T_avenants)) and ((Av_Ct Not In (select Date_Avnt from T_avenants));"

Ce qui ne donne rien la deuxième fois que l'on modifie Date_Avnt.
En fait j'ai changé cette partie en ceci:

Code :

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

1
2
3

"WHERE ((([N_Ct] & [Av_CT]) Not In (select NumCt_Avnt & Date_Avnt As Tes from T_avenants)));"

Je l'ai testé et ça marche... en tout cas chez moi.

Bon courage!

**Eric26** · 12/08/2006, 13h15

Salut Mahefasoa,

J'ai copié et collé ton WHERE ; et il me met la même erreur qu'au début "ERREUR 3075".

C'est quoi 'As Tes'

merci

**Moha25fr** · 12/08/2006, 17h25

je pense que ça doit venir d'un apostrophe qui traine dans ton where
A+

ACCESS 2003 : Code erreur d'execution '3075'

Access

Discussions similaires

Partager

Partager