Discussion :

[massi15]

Bonsoir,

svp, étant novice en programmation je suis sur application de gestion sous ACCESS 2007
avec l'aide d'un ami, j'ai pu réaliser l'application en question, ceci dit..!
je suis confronter un problème suivant:
je n'arrive pas à ouvrir un formulaire en mode insertion " ajout d'un nouveau enregistrement"

Code :

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

1
2
3
4
5
6
7
8
9
Set cmbBtn = cmb.Controls.Add(msoControlButton) 
 
With cmbBtn 
.Style = msoButtonIconAndCaption 
.BeginGroup = True 
.FaceId = 600 
.Caption = "Nouvel Enregistrement" 
.TooltipText = "Nouveau Enregistrement" 
.OnAction = "????????=()" ' à ce niveau là que je suis bloqué

mes salutations les plus sincères

[helas]

Bonjour,
pour ouvrir un formulaire en ajout

Code :

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

1
2
 
docmd.OpenForm "NomFormulaire",acNormal,,,acFormAdd

[massi15]

Bonjour Merci pour votre réponse cest vraiment très gentil
ce que je cherche c'est de completer mon application qui se présente comme suite:
J'ai creer un menu personnalisé sous access 2007 avec l'aide d'un ami:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Public Function CreateMenuForm()    ' crées le menu formulaire
 
    Dim cmb As Office.CommandBar
    Dim btn As Office.CommandBarButton
    Dim cmbBtn As CommandBarButton
 
 
    On Error Resume Next
    Application.CommandBars("MyMenu").Delete
 
    ' On crée la barre de menu
    Set cmb = Application.CommandBars.Add("MyMenu", msoBarTop, True, False)
 
 ' Ajout sur la barre du bouton  "Tous les Concessionnaiores"
    Set cmbBtn = cmb.Controls.Add(msoControlButton)
    With cmbBtn
        .Style = msoButtonIconAndCaption
        .BeginGroup = True
        .FaceId = 605
        .Caption = "Tous les Agréments"
        .TooltipText = "Tous les Agréments"
        .OnAction = "=Filtre_Tous()"
    End With
et là je souhaiterai faire appel à un formulaire "Saisie1" en mode ajout comme ci-après:
 
Set cmbBtn = cmb.Controls.Add(msoControlButton)
 
    With cmbBtn
        .Style = msoButtonIconAndCaption
        .BeginGroup = True
        .FaceId = 600
        .Caption = "Nouvel Enregistrement"
        .TooltipText = "Nouveau"
        .OnAction = "=docmd.OpenForm "NomFormulaire",acNormal,,,acFormAdd
         End With

rien à faire ca ne marche pas
merci pour votre aide.

[Tofalu]

La propriété OnAction dans votre cas doit être le nom d'une procédure de votre forrmulaire courant ou bien une procédure publique dans un module et qui fera appel à DoCmd.OpenForm.

[massi15]

Bonsoir
Merci pour votre réponse
svp pouvez vous m'orienter davantage svp merci

[massi15]

Bonsoir, mes vives remerciements pour vos orientations
j'ai trouvé l'astuce
la voilà :

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function ouvrir_form()
    Application.Echo False
    Call CreateMenuForm
    Dim stDocName As String
    stDocName = "saisie1"
    DoCmd.OpenForm stDocName, acNormal, , , acFormAdd
    'DoCmd.Minimize
    DoEvents
    Application.Echo True
End Function