OVH Cloud OVH Cloud

Dernier enregistrement encore....

2 réponses
Avatar
djeaty
Bonjour à tous...

J'aimerais que lorsque j'appuie sur un bouton sur un formulaire X qui a pour
role de m'ouvrir un autre formulaire Y, j'arrive sur un nouvel
enregistrement...

J-Pierre m'avais donné une astuce en selectionnant "Entrée de donnée" OUI
dans les propriétés du formulaire Y mais cela me cause un problème car sur un
autre formulaire Z, j'ai créer une fonction de recherche de ce formulaire Y
ce qui fait que les recherches n'aboutissent pas.

Y aurait-il un code à rajouter dans l'evenement de mon bouton du formulaire
X qui ouvre le formulaire Y ?

Mon code actuel pour ce bouton est:

Private Sub PO_Open_Click()
On Error GoTo Err_PO_Open_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "PO"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_PO_Open_Click:
Exit Sub

Err_PO_Open_Click:
MsgBox Err.Description
Resume Exit_PO_Open_Click

End Sub

Merci beaucoups

2 réponses

Avatar
pgz
Bonsoir,

Après la commande d'ouverture du formulaire, tu peux ajouter :
DoCmd.GoToRecord acDataForm, stDocName, acNewRec

Bon courage,
--
pgz
_____________________________




Bonjour à tous...

J'aimerais que lorsque j'appuie sur un bouton sur un formulaire X qui a pour
role de m'ouvrir un autre formulaire Y, j'arrive sur un nouvel
enregistrement...

J-Pierre m'avais donné une astuce en selectionnant "Entrée de donnée" OUI
dans les propriétés du formulaire Y mais cela me cause un problème car sur un
autre formulaire Z, j'ai créer une fonction de recherche de ce formulaire Y
ce qui fait que les recherches n'aboutissent pas.

Y aurait-il un code à rajouter dans l'evenement de mon bouton du formulaire
X qui ouvre le formulaire Y ?

Mon code actuel pour ce bouton est:

Private Sub PO_Open_Click()
On Error GoTo Err_PO_Open_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "PO"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_PO_Open_Click:
Exit Sub

Err_PO_Open_Click:
MsgBox Err.Description
Resume Exit_PO_Open_Click

End Sub

Merci beaucoups




Avatar
Gilbert
Bonjour,

Tu peux utiliser l'argument ModeDonnées

DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd

Gilbert


"djeaty" a écrit dans le message de
news:
Bonjour à tous...

J'aimerais que lorsque j'appuie sur un bouton sur un formulaire X qui a
pour

role de m'ouvrir un autre formulaire Y, j'arrive sur un nouvel
enregistrement...

J-Pierre m'avais donné une astuce en selectionnant "Entrée de donnée" OUI
dans les propriétés du formulaire Y mais cela me cause un problème car sur
un

autre formulaire Z, j'ai créer une fonction de recherche de ce formulaire
Y

ce qui fait que les recherches n'aboutissent pas.

Y aurait-il un code à rajouter dans l'evenement de mon bouton du
formulaire

X qui ouvre le formulaire Y ?

Mon code actuel pour ce bouton est:

Private Sub PO_Open_Click()
On Error GoTo Err_PO_Open_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "PO"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_PO_Open_Click:
Exit Sub

Err_PO_Open_Click:
MsgBox Err.Description
Resume Exit_PO_Open_Click

End Sub

Merci beaucoups