Mon code ci-dessous ne fonctionne pas.
Pas d'erreur d'ex=E9cution.
Dim qry As QueryDef
Dim db As Database
=20
On Error Resume Next
Err.Clear
Set db =3D CurrentDb
Set qry =3D db.CreateQueryDef
qry.Name =3D ""
qry.SQL =3D "INSERT INTO ProjetsPlan SELECT * FROM=20
ProjetsPlan WHERE IDProjet =3D " & Me.IDProjet.Value & ";"
qry.Execute
If Err.Number <> 0 Then
MsgBox "Duplication non effectu=E9e. Erreur rencontr=E9e."=20
& vbCrLf & vbCrLf & _
Err.Description, vbExclamation + vbOKOnly,=20
ABISS_NomApplication
If Err.Number <> 0 Then
MsgBox "Duplication non effectu=E9e. Erreur rencontr=E9e."=20
& vbCrLf & vbCrLf & _
Err.Description, vbExclamation + vbOKOnly,=20
ABISS_NomApplication
ElseIf qry.RecordsAffected < 1 Then
MsgBox "Duplication non effectu=E9e." & vbCrLf & vbCrLf=20
& _
Err.Description, vbExclamation + vbOKOnly,=20
ABISS_NomApplication
End If
=20
qry.Close
Set qry =3D Nothing
Set db =3D Nothing
qry.Execute ne fait rien!!
La propri=E9t=E9 SQL vaut par exemple
INSERT INTO ProjetsPlan SELECT * FROM ProjetsPlan WHERE=20
IDProjet =3D 301;
La cha=EEne SQL copi=E9e/coll=E9e dans le requ=EAteur=20
fonctionne??!!
Je pourrais passer par une requ=EAte enregistr=E9e, mais=20
j'aimerais =E9viter.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Xavier HUE
Re,
Autant pour moi.
C'est un problème sur la clé primaire définie en NumAuto.
Dans le requêteur, j'avais bien le message "vous allez ajouter 1 enregistrement", et j'annulais à ce moment. Or si je valide, j'ai droit au message "Modifications non effectuées: risque de doublons..."
Je suis face à un truc étrange!! J'ai environ 200 enregs dans ma table. Le dernier NuméroAuto attribué par Access est le 336.
Si je cherche à créer un enreg directement dans la table, Access me donne comme NumAuto, une valeur inférieure à 336. Valeur qui existe déjà dans ma table.
Zarbi non?
Je vais compacter tout ça histoire de...
Pardon pour le dérangement ;-)
Cordialement. Xavier.
Re,
Autant pour moi.
C'est un problème sur la clé primaire définie en NumAuto.
Dans le requêteur, j'avais bien le message "vous allez
ajouter 1 enregistrement", et j'annulais à ce moment.
Or si je valide, j'ai droit au message "Modifications non
effectuées: risque de doublons..."
Je suis face à un truc étrange!!
J'ai environ 200 enregs dans ma table.
Le dernier NuméroAuto attribué par Access est le 336.
Si je cherche à créer un enreg directement dans la table,
Access me donne comme NumAuto, une valeur inférieure à 336.
Valeur qui existe déjà dans ma table.
C'est un problème sur la clé primaire définie en NumAuto.
Dans le requêteur, j'avais bien le message "vous allez ajouter 1 enregistrement", et j'annulais à ce moment. Or si je valide, j'ai droit au message "Modifications non effectuées: risque de doublons..."
Je suis face à un truc étrange!! J'ai environ 200 enregs dans ma table. Le dernier NuméroAuto attribué par Access est le 336.
Si je cherche à créer un enreg directement dans la table, Access me donne comme NumAuto, une valeur inférieure à 336. Valeur qui existe déjà dans ma table.
Zarbi non?
Je vais compacter tout ça histoire de...
Pardon pour le dérangement ;-)
Cordialement. Xavier.
Xavier HUE
OK, problème résolu.
http://minilien.com/?0sjTJzrjMs
Merci à Raymond et Daniel.
Pour info, je suis sous XP. Un compactage n'a pas résolu le problème. Je suis passé par une requête ajout.
Cordialement.
OK, problème résolu.
http://minilien.com/?0sjTJzrjMs
Merci à Raymond et Daniel.
Pour info, je suis sous XP.
Un compactage n'a pas résolu le problème.
Je suis passé par une requête ajout.
