OVH Cloud OVH Cloud

Ouverture d'un form et nouvel enregistrement

2 réponses
Avatar
gael_
Bonjour,

Comment appeler un nouvel enregistrement dans une table sans appeler toute
la table ?

Voici le code du bouton:
"""""""""""""""""""""""""""""
Private Sub Bouton0_Click()
On Error GoTo Err_Bouton0_Click

Dim DocName As String
Dim LinkCriteria As String

DocName = "COMMANDE"
DoCmd.OpenForm DocName, , , LinkCriteria
DoCmd.GoToRecord , , A_NEWREC
Exit_Bouton0_Click:
Exit Sub

Err_Bouton0_Click:
MsgBox Error$
Resume Exit_Bouton0_Click

End Sub
""""""""""""""""""""""""""""""
Ce bouton appelle toutes les commandes et se positionne sur un nouveau
record vierge.
Mais il est inutile et coûteux en temps de réponse d'appeler les commandes
déjà établies.
Je n'ai besoin que d'un NEWREC.

Pour info, le formulaire d'introduction de commande s'ouvre avec la req.
suivante:

SELECT DISTINCTROW CMD.*, CLI.*
FROM CMD LEFT JOIN CLI ON CMD.NUM_CLI = CLI.num_cli
WHERE (((CMD.DateCommande)>#1/1/2005#))
ORDER BY CMD.NUM_CMD;

DONC, en bref, je voudrais un bouton qui m'ouvre un formulaire vierge.

Merci de votre aide,

Gael

2 réponses

Avatar
Eric
Bonjour Gael,

Juste
DoCmd.OpenForm "COMMANDE", , , , acFormAdd
me parait suffisant

Bonjour,

Comment appeler un nouvel enregistrement dans une table sans appeler toute
la table ?

Voici le code du bouton:
"""""""""""""""""""""""""""""
Private Sub Bouton0_Click()
On Error GoTo Err_Bouton0_Click

Dim DocName As String
Dim LinkCriteria As String

DocName = "COMMANDE"
DoCmd.OpenForm DocName, , , LinkCriteria
DoCmd.GoToRecord , , A_NEWREC
Exit_Bouton0_Click:
Exit Sub

Err_Bouton0_Click:
MsgBox Error$
Resume Exit_Bouton0_Click

End Sub
""""""""""""""""""""""""""""""
Ce bouton appelle toutes les commandes et se positionne sur un nouveau
record vierge.
Mais il est inutile et coûteux en temps de réponse d'appeler les commandes
déjà établies.
Je n'ai besoin que d'un NEWREC.

Pour info, le formulaire d'introduction de commande s'ouvre avec la req.
suivante:

SELECT DISTINCTROW CMD.*, CLI.*
FROM CMD LEFT JOIN CLI ON CMD.NUM_CLI = CLI.num_cli
WHERE (((CMD.DateCommande)>#1/1/2005#))
ORDER BY CMD.NUM_CMD;

DONC, en bref, je voudrais un bouton qui m'ouvre un formulaire vierge.

Merci de votre aide,

Gael





--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
gael_
Merci, Eric, ça va très bien et le temps de réponse est devenu parfait (ma
table compte +/- 10.000 records...)
Gael


"Eric" a écrit dans le message de
news:
Bonjour Gael,

Juste
DoCmd.OpenForm "COMMANDE", , , , acFormAdd
me parait suffisant

Bonjour,

Comment appeler un nouvel enregistrement dans une table sans appeler
toute


la table ?

Voici le code du bouton:
"""""""""""""""""""""""""""""
Private Sub Bouton0_Click()
On Error GoTo Err_Bouton0_Click

Dim DocName As String
Dim LinkCriteria As String

DocName = "COMMANDE"
DoCmd.OpenForm DocName, , , LinkCriteria
DoCmd.GoToRecord , , A_NEWREC
Exit_Bouton0_Click:
Exit Sub

Err_Bouton0_Click:
MsgBox Error$
Resume Exit_Bouton0_Click

End Sub
""""""""""""""""""""""""""""""
Ce bouton appelle toutes les commandes et se positionne sur un nouveau
record vierge.
Mais il est inutile et coûteux en temps de réponse d'appeler les
commandes


déjà établies.
Je n'ai besoin que d'un NEWREC.

Pour info, le formulaire d'introduction de commande s'ouvre avec la req.
suivante:

SELECT DISTINCTROW CMD.*, CLI.*
FROM CMD LEFT JOIN CLI ON CMD.NUM_CLI = CLI.num_cli
WHERE (((CMD.DateCommande)>#1/1/2005#))
ORDER BY CMD.NUM_CMD;

DONC, en bref, je voudrais un bouton qui m'ouvre un formulaire vierge.

Merci de votre aide,

Gael





--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr