[ACCESS] ouvrir un formulaire en mode ajout [Résolu/Fermé]

Messages postés
51
Date d'inscription
jeudi 15 novembre 2007
Statut
Membre
Dernière intervention
9 juin 2008
- - Dernière réponse :  Yazid BALDE - 11 avril 2008 à 13:23
Bonjour, je suis débutante, je crais une base de données sous access, je souhaite ouvrir à partir d'un bouton de commande un formulaire "clients" en mode ajout, j'ai fais le code ci-suit en VB mais lorsque j'ouvre mon formulaire je ne peux inscrire aucune information alors que dans les proropriété je peux ajouter :
Private Sub ajouter_client_Click()
On Error GoTo Err_ajouter_client_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "clients"
DoCmd.OpenForm stDocName, , , "[N° client]=" & Me.NewRecord, , acDialog, "GotoNew"
Exit_ajouter_client_Click:
Exit Sub

Err_ajouter_client_Click:
MsgBox Err.Description
Resume Exit_ajouter_client_Click

End Sub
Si quelqu'un pouvait me dépanner, je bloque vraiment là.
Merci d'avance
Afficher la suite 

5 réponses

Meilleure réponse
6
Merci
Bonjour SAYLA,

Voici une qui va satisfaire votre besoin.


DoCmd.OpenForm StDocName, , , , acFormAdd


Bonne journée

La science ne fait que trouver ce qui existe depsuis toujours.
REEVES Hubert.

Dire « Merci » 6

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 62792 internautes nous ont dit merci ce mois-ci

Messages postés
79
Date d'inscription
lundi 26 février 2007
Statut
Membre
Dernière intervention
5 mai 2010
4
0
Merci
slt

Ce que propose Jacques doit marcher ...

La solution est simple : soit tu utilise l'assistant, soit tu place un bouton sur le formulaire, tu selectionne le bouton, tu ouvre la fenetre des Propriétés, cliquez sur l'onglet Evenement, cliquez 2 sois dans la ligne "Sur Clic"
tapez l'instruction suivante : DoCmd.OpenForm "Clients"

Sauvegardez tout, et fermez
puis exécutez

Bonne chance
Messages postés
51
Date d'inscription
jeudi 15 novembre 2007
Statut
Membre
Dernière intervention
9 juin 2008
0
Merci
Merci pour la réponse jacques mais ça ne marche pas, lorsque le formulaire s'ouvre il est vierge OK mais je ne peux inscrire aucune donnée à l'intérieur, et pour l'autre solution de tleboukaka ça marche mais ça m'ouvre tous les formulaires alors que je veux ouvrir un formulaire vierge. Auriez-vous une autre solution ?
Merci
Messages postés
51
Date d'inscription
jeudi 15 novembre 2007
Statut
Membre
Dernière intervention
9 juin 2008
0
Merci
ok j'ai trouver mon erreur, ça marche ! je voulais que les données soient saisies en capital alors dans les proriétés Masque de saisie, j'avais mis >. ça me bloqué l'écriture du champ.
Je vous remercie beaucoup pour votre aide et merci de m'avoir répondu rapidement.
-3
Merci
les marches a suivre
et je te conseil de ne pas utiliser l'adrresse

Declarations
Dim db as DAO.database
di rs as DAO.Recordset
Affectations
Set rs=
Set db = currentDb
cad la base sur la kel on travail
Instruction a utiser:
Docmdmulaire
Docmd.openForm,"nomfor", acNormal
end sub
mais tu purra aussi utilser MsgBox au debut de la declration
vois si sa marche