Discussion :

[lololebricoleur]

Bonjour,

Ma question va probablement sembler basic mais je bloque.

Dans ma base Access, j'ai pris l'habitude de créer certains formulaire en double, un pour consulter des enregistrement existant et un autre pour créer les nouveaux.
Mais c'est lourd à maintenir car tout est doublé ou presque.

Exemple de code que j'utilise pour ouvrir un formulaire et voir enregistrement souhaité :

Code :

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

1
2
3
4
 
stDocName = "F_Facture"
stLinkCriteria = "[FAC_Num]=" & Me![FAC_Num]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Voilà le code que je pensais pouvoir utiliser pour ouvrir le même formulaire mais avec création d'un nouvel enregistrement :

Code :

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

1
2
3
 
stDocName = "F_Facture"
DoCmd.OpenForm stDocName, , acNewRec

Mais ça ne marche pas.
Le formulaire s'ouvre mais il n'est pas vide. Les champs sont rempli par les données d'un enregistrement existant.

Où est-ce que je merde svp ?

[hyperion13]

Que de créer autant de form qu'il y aurait d'options, autant utiliser les propriétés Form.AllowAdditions et Form.AllowEdits.

[lololebricoleur]

Merci Hyperion,

Mais en quoi utiliser ces propriétés résout mon problème !?
Dans mon cas, le formulaire que je voudrais utiliser pour visualiser ou créer un enregistrement, autorise déjà l'ajout et pour autant, le formulaire ne s'ouvre pas vide.

[tee_grandbois]

bonsoir lololebricoleur,

Mais en quoi utiliser ces propriétés résout mon problème !?
Dans mon cas, le formulaire que je voudrais utiliser pour visualiser ou créer un enregistrement, autorise déjà l'ajout et pour autant, le formulaire ne s'ouvre pas vide.

vous devriez faire confiance à ceux qui vous donnent les bonnes solutions ...
C'est justement les propriétés que vous a donné hyperion13 qui vous permettront d'ouvrir le formulaire, soit en création/ajout:

Code :

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

1
2
stDocName = "F_Facture"
DoCmd.OpenForm stDocName,  , , , acFormAdd

soit en consultation:

Code :

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

1
2
stDocName = "F_Facture"
DoCmd.OpenForm stDocName,  , , , acFormReadOnly

soit en modification:

Code :

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

1
2
stDocName = "F_Facture"
DoCmd.OpenForm stDocName,  , , , acFormEdit

[lololebricoleur]

Merci,
Je ne remets pas en doute le conseil d'hyperion ! J'avais juste besoin de précisions.
Je les ai, merci à vous 2 ;-)