Discussion :

[nomade333]

Bonsoir,
J'ai un formulaire A avec un sous formulaire B, je me positionne sur un enregistrement sur B, je voudrais lorsque j'appuie sur la touche N ouvrir un nouvel enregistrement dans B
code ci dessous.

Code :

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

1
2
3
4
5
6
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Propriété Apercu touche = OUI
If KeyCode = vbKeyN Then
DoCmd.GoToRecord acDataForm, "Frm MOTG Activité", acNewRec
End If
End Sub

mais lorsque j'appuie sur N ,apparait le message "l'objet "B" n'est pas ouvert"
Y aurait il une astuce pour contourner le Pb
Merci par avance

[francishop]

Bonsoir,

Il semble "Dangereux" de se condamner une touche comme N. Il est prudent de prévoir quelque chose genre F3

Si le focus est sur "Frm MOTG Activité" qui est le S/formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyN
            DoCmd.GoToRecord , , acNewRec
        Case vbKeyF3
            MsgBox "Bien joué nomade333"
        Case Else
      Exit Sub
    End Select
  KeyCode = 0
End Sub

Si le Focus est sur le formulaire principal :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Select Case KeyCode
        Case vbKeyN
            Me.Frm_MOTG_Activité.Form.Recordset.AddNew
        Case vbKeyF3
            MsgBox "Bien joué nomade333"
        Case Else
      Exit Sub
   End Select
 KeyCode = 0
End Sub

Cordialement.

[nomade333]

Merci pour la réponse
Je vous souhaite à tous de passer de bonnes fêtes de Noel et n'oubliez pas que "aussi rude que l'on veuille faire le présent, le futur sera beau".
Merci à tous et BONNES FÊTES