Je joins ma base zippée.
Pour le formulaire concerné, c'est FRomRcliVpo50 pour la modification.
Sinon ce formulaire est utilisé lors du lancement de FSaisie et en cliquant sur le bouton option RomRcliVpo50
Je joins ma base zippée.
Pour le formulaire concerné, c'est FRomRcliVpo50 pour la modification.
Sinon ce formulaire est utilisé lors du lancement de FSaisie et en cliquant sur le bouton option RomRcliVpo50
Bonjour,
pour fermer avec docmd, il faut fermer le formulaire principal par
au lieu de
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3DoCmd.Close acForm, "Fsaisie"
A essayer déjà avec cette modif.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 DoCmd.Close acForm, Me.Name
Philippe
re bonjour,
finalement le code peut se résumer à ça, je pense:
a priori...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Private Sub Fermer_Formulaire_Click() If Me.Num_Dossier > 0 Then MsgBox "Votre dossier a été enregistré sous le numéro : " & Me.Num_Dossier DoCmd.Close acForm, Me.Parent.Name, acSaveYes Else DoCmd.Close acForm, Me.Parent.Name, acSaveNo End If End Sub
Philippe
Philben, merci énormément.
Ton dernier code fonctionne à merveille.
Je commencais à dsésespérer.
Merci beaucoup pour ton aide.
Désolé, je reviens sur le "Résolu" car certes, mon problème de MsgBox était résolu, mais cela ne marchait plus concernant ma condition de fermeture de formulaire.
En effet, lorsque je fermais le formulaire, un contrôle devait être fait pour savoir si le numéro existe dans la table.
Si il n'existe pas il prend la valeur +1 par rapport au dernier numéro.
Si il existe(ce qui est possible si 2 utilisateurs saisissent en même temps sur le formulaire), une vérification à la fermeture recalcule le numéro de dossier()
Code : Sélectionner tout - Visualiser dans une fenêtre à part Me!Num_Dossier = DMax("[Num_Dossier]", "TRomRcliVpo50") + 1
Je mets donc le code tel qu'il est actuellement et qui remplis les conditions que je souhaite.
Ceci pour les personnes qui seraient intéressées.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Private Sub Fermer_Formulaire_Click() If Me.Num_Dossier > 0 Or Me.Num_Dossier = DLookup("Num_Dossier", "TRomRcliVpo50", "[Num_Dossier] = " & Me.Num_Dossier) Then Me!Num_Dossier = DMax("[Num_Dossier]", "TRomRcliVpo50") + 1 MsgBox "Votre dossier a été enregistré sous le numéro : " & [Num_Dossier] DoCmd.Close acForm, Me.Parent.Name, acSaveYes Else DoCmd.Close acForm, Me.Parent.Name, acSaveNo End If End Sub
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager