Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Duppliquer un DOUBLON

Duppliquer un DOUBLON

2 réponses
Avatar
Cinémas Décavision
Bonjour Amis "Pros" d' Access 2000,

Comment DUPPLIQUER avec un bouton l'enregistrement qui lui est SANS
DOUBLONS....?
Merci de vos réponses.
Ci-joint mon code ( Oui je suis Nlu en VBA - Bernard IsNull).

Merci à tous.
Bernard

Private Sub Dupplicata_Click()
On Error GoTo Err_Dupplicata_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append


Me![Film_ID] = Nz(DLookup("max(Film_ID)", Me.RecordSource)) + 1


DoCmd.RunCommand acCmdSaveRecord

Exit_Dupplicata_Click:
Exit Sub

Jai aussi éssayé cela car je suis conscient qu'il faut MODIFIER le champ
duppilque pour qu'il ne soit pas un DOUBLON. :

'Me![N°] = Nz(DLookup("max(N°)", "T - Films")) + 1
'Me![N°] = Null
'Me![Film_ID] = Null
'Me![Film_ID] = Nz(DLookup("max(Film_ID)", "T - Films")) + 15000
'Me![Film_Titre] = Nz(DLookup("max(Film_Titre)", Me.RecordSource)) + 1
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Bjalla
Salut,
Avec une clé primaire, il est trop compliqué de dupliqué.
Une solution consiste à créer un nouvel enregistrement et à le remplir avec
du code. Comme suit :

DoCmd.GoToRecord , , acNewRec
Me![Film_ID] = Nz(DLookup("max(Film_ID)", Me.RecordSource)) + 1
' et le reste de tes champs
DoCmd.GoToControl "Nom du contrôle où doit se mettre le curseur"



Bonjour Amis "Pros" d' Access 2000,

Comment DUPPLIQUER avec un bouton l'enregistrement qui lui est SANS
DOUBLONS....?
Merci de vos réponses.
Ci-joint mon code ( Oui je suis Nlu en VBA - Bernard IsNull).

Merci à tous.
Bernard

Private Sub Dupplicata_Click()
On Error GoTo Err_Dupplicata_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append


Me![Film_ID] = Nz(DLookup("max(Film_ID)", Me.RecordSource)) + 1


DoCmd.RunCommand acCmdSaveRecord

Exit_Dupplicata_Click:
Exit Sub

Jai aussi éssayé cela car je suis conscient qu'il faut MODIFIER le champ
duppilque pour qu'il ne soit pas un DOUBLON. :

'Me![N°] = Nz(DLookup("max(N°)", "T - Films")) + 1
'Me![N°] = Null
'Me![Film_ID] = Null
'Me![Film_ID] = Nz(DLookup("max(Film_ID)", "T - Films")) + 15000
'Me![Film_Titre] = Nz(DLookup("max(Film_Titre)", Me.RecordSource)) + 1





Avatar
Cinémas Décavision
Bjalla,

Merci beaucoup, je vais essayer cela de suite.

Et merci à tous ceux qui ont lu.

Amitiés.

Bernard