Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Appeler une procedure d'un autre formulaire

Appeler une procedure d'un autre formulaire

4 réponses
Avatar
André Houssonloge
Bonjour,

J'ai un Form1 avec les élèves. Dans ce Form1, il y a un SFrm2 des commandes
de cet élève. Dans ce SFrm2, il y a un bouton "Nouvelle commande" Avec le
code suivant:

Private Sub InsertNewCommande_Click()
Drapeau = True

DoCmd.GoToRecord , , acNewRec
If Me.NewRecord Then
Me.DateCommande.SetFocus
Me.Dirty = True
Me.Requery
End If

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FrmTableauDetailsCommande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms![FrmTableauDetailsCommande].Requery

End Sub

Je voudrais exécuter ce code via un bouton situé dans le form principal
(Form1) pour regrouper les boutons ensembles et ne pas les disperser.

Je ne vois pas comment faire.

Merci

André Houssonloge
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
André Houssonloge
J'avance, mais j'ai une erreur sur la 4ième ligne... requery je ne vois pas
ce que je dois mettre.

merci si vous avez une piste

J'ai mis dans un bouton du form principal (Form1) le code suivant:

Drapeau = True
DoCmd.OpenForm "SfrmInsertCommandeFiltreSurClasse", acNormal
DoCmd.GoToRecord , "SfrmInsertCommandeFiltreSurClasse", acNewRec
If Forms![SfrmInsertCommandeFiltreSurClasse].NewRecord Then
Forms![SfrmInsertCommandeFiltreSurClasse].DateCommande.SetFocus
Forms![SfrmInsertCommandeFiltreSurClasse].Dirty = True
Forms![SfrmInsertCommandeFiltreSurClasse].Requery '(j'ai une erreur ici
sur cette ligne, erreur 3314 le champs TblCommandes.CompteurSE ne peut
contenir une valeur null car la propriété required de ce champs est à true)
End If

'Ouverture du formulaire "FrmTableauDetailsCommande"
On Error GoTo Err_Commande105_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FrmTableauDetailsCommande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms![FrmTableauDetailsCommande].Requery

Exit_Commande105_Click:
Exit Sub

Err_Commande105_Click:
MsgBox Err.Description
Resume Exit_Commande105_Click



"André Houssonloge" a écrit dans le message de news:

Bonjour,

J'ai un Form1 avec les élèves. Dans ce Form1, il y a un SFrm2 des
commandes

de cet élève. Dans ce SFrm2, il y a un bouton "Nouvelle commande" Avec le
code suivant:

Private Sub InsertNewCommande_Click()
Drapeau = True

DoCmd.GoToRecord , , acNewRec
If Me.NewRecord Then
Me.DateCommande.SetFocus
Me.Dirty = True
Me.Requery
End If

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FrmTableauDetailsCommande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms![FrmTableauDetailsCommande].Requery

End Sub

Je voudrais exécuter ce code via un bouton situé dans le form principal
(Form1) pour regrouper les boutons ensembles et ne pas les disperser.

Je ne vois pas comment faire.

Merci

André Houssonloge





Avatar
André AVONS
Salut
Forms![SfrmInsertCommandeFiltreSurClasse].Requery '(j'ai une erreur ici
sur cette ligne, erreur 3314 le champs TblCommandes.CompteurSE ne peut
contenir une valeur null car la propriété required de ce champs est à true)
End If
C'est normal ton formulaire est vide et ton champ dans ta table doit avoir
la propriéte null interdit = Oui
pourquoi ne fais tu pas
DoCmd.OpenForm "SfrmInsertCommandeFiltreSurClasse", acNormal, , , acFormAdd
ca evite la ligne
DoCmd.GoToRecord , "SfrmInsertCommandeFiltreSurClasse", acNewRec
Puis tu mets dans l'evenement sur ouverture de
SfrmInsertCommandeFiltreSurClasse
If Me.NewRecord Then
Docmd.gotocontrol "DateCommande"
Else 'Si modif pas exemple
Docmd.gotocontrol "AutreChamp"
end If
Mais ces 3 lignes ne servent a rien en modif de
SfrmInsertCommandeFiltreSurClasse barre de menu affichage > ordre de
tabulation > est tu mets dateCommande en premier et sur tous les controles
ou tu ne veux pas t'arreter (Bouton etc ) tu mets la propriete du controle
arret tabulation à Non

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"André Houssonloge" a écrit dans le message de
news:
J'avance, mais j'ai une erreur sur la 4ième ligne... requery je ne vois
pas

ce que je dois mettre.

merci si vous avez une piste

J'ai mis dans un bouton du form principal (Form1) le code suivant:

Drapeau = True
DoCmd.OpenForm "SfrmInsertCommandeFiltreSurClasse", acNormal
DoCmd.GoToRecord , "SfrmInsertCommandeFiltreSurClasse", acNewRec
If Forms![SfrmInsertCommandeFiltreSurClasse].NewRecord Then
Forms![SfrmInsertCommandeFiltreSurClasse].DateCommande.SetFocus
Forms![SfrmInsertCommandeFiltreSurClasse].Dirty = True
Forms![SfrmInsertCommandeFiltreSurClasse].Requery '(j'ai une erreur
ici

sur cette ligne, erreur 3314 le champs TblCommandes.CompteurSE ne peut
contenir une valeur null car la propriété required de ce champs est à
true)

End If

'Ouverture du formulaire "FrmTableauDetailsCommande"
On Error GoTo Err_Commande105_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FrmTableauDetailsCommande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms![FrmTableauDetailsCommande].Requery

Exit_Commande105_Click:
Exit Sub

Err_Commande105_Click:
MsgBox Err.Description
Resume Exit_Commande105_Click



"André Houssonloge" a écrit dans le message de news:

Bonjour,

J'ai un Form1 avec les élèves. Dans ce Form1, il y a un SFrm2 des
commandes

de cet élève. Dans ce SFrm2, il y a un bouton "Nouvelle commande" Avec
le


code suivant:

Private Sub InsertNewCommande_Click()
Drapeau = True

DoCmd.GoToRecord , , acNewRec
If Me.NewRecord Then
Me.DateCommande.SetFocus
Me.Dirty = True
Me.Requery
End If

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FrmTableauDetailsCommande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms![FrmTableauDetailsCommande].Requery

End Sub

Je voudrais exécuter ce code via un bouton situé dans le form principal
(Form1) pour regrouper les boutons ensembles et ne pas les disperser.

Je ne vois pas comment faire.

Merci

André Houssonloge









Avatar
André AVONS
Re salut
J'avais mal lu, je n'ai regarde que le code
Sur ton bouton tu mets
Me.SfrmInsertCommandeFiltreSurClasse.SetFocus
* Il faut que SfrmInsertCommandeFiltreSurClasse soit le nom du controle dans
le formulaire Form1 pas le nom du sf (moi je mets le meme comme ca je me
trompe pas
DoCmd.GoToRecord , , acNewRec

Puis tu mets dans l'evenement sur ouverture de
SfrmInsertCommandeFiltreSurClasse
If Me.NewRecord Then
Docmd.gotocontrol "DateCommande"
Else 'Si modif pas exemple
Docmd.gotocontrol "AutreChamp"
end If




--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"André AVONS" a écrit dans le message de
news:eN$
Salut
Forms![SfrmInsertCommandeFiltreSurClasse].Requery '(j'ai une erreur ici
sur cette ligne, erreur 3314 le champs TblCommandes.CompteurSE ne peut
contenir une valeur null car la propriété required de ce champs est à
true)

End If
C'est normal ton formulaire est vide et ton champ dans ta table doit avoir
la propriéte null interdit = Oui
pourquoi ne fais tu pas
DoCmd.OpenForm "SfrmInsertCommandeFiltreSurClasse", acNormal, , ,
acFormAdd

ca evite la ligne
DoCmd.GoToRecord , "SfrmInsertCommandeFiltreSurClasse", acNewRec
Puis tu mets dans l'evenement sur ouverture de
SfrmInsertCommandeFiltreSurClasse
If Me.NewRecord Then
Docmd.gotocontrol "DateCommande"
Else 'Si modif pas exemple
Docmd.gotocontrol "AutreChamp"
end If
Mais ces 3 lignes ne servent a rien en modif de
SfrmInsertCommandeFiltreSurClasse barre de menu affichage > ordre de
tabulation > est tu mets dateCommande en premier et sur tous les controles
ou tu ne veux pas t'arreter (Bouton etc ) tu mets la propriete du controle
arret tabulation à Non

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"André Houssonloge" a écrit dans le message de
news:
J'avance, mais j'ai une erreur sur la 4ième ligne... requery je ne vois
pas

ce que je dois mettre.

merci si vous avez une piste

J'ai mis dans un bouton du form principal (Form1) le code suivant:

Drapeau = True
DoCmd.OpenForm "SfrmInsertCommandeFiltreSurClasse", acNormal
DoCmd.GoToRecord , "SfrmInsertCommandeFiltreSurClasse", acNewRec
If Forms![SfrmInsertCommandeFiltreSurClasse].NewRecord Then
Forms![SfrmInsertCommandeFiltreSurClasse].DateCommande.SetFocus
Forms![SfrmInsertCommandeFiltreSurClasse].Dirty = True
Forms![SfrmInsertCommandeFiltreSurClasse].Requery '(j'ai une erreur
ici

sur cette ligne, erreur 3314 le champs TblCommandes.CompteurSE ne peut
contenir une valeur null car la propriété required de ce champs est à
true)

End If

'Ouverture du formulaire "FrmTableauDetailsCommande"
On Error GoTo Err_Commande105_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FrmTableauDetailsCommande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms![FrmTableauDetailsCommande].Requery

Exit_Commande105_Click:
Exit Sub

Err_Commande105_Click:
MsgBox Err.Description
Resume Exit_Commande105_Click



"André Houssonloge" a écrit dans le message de news:

Bonjour,

J'ai un Form1 avec les élèves. Dans ce Form1, il y a un SFrm2 des
commandes

de cet élève. Dans ce SFrm2, il y a un bouton "Nouvelle commande" Avec
le


code suivant:

Private Sub InsertNewCommande_Click()
Drapeau = True

DoCmd.GoToRecord , , acNewRec
If Me.NewRecord Then
Me.DateCommande.SetFocus
Me.Dirty = True
Me.Requery
End If

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FrmTableauDetailsCommande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms![FrmTableauDetailsCommande].Requery

End Sub

Je voudrais exécuter ce code via un bouton situé dans le form
principal



(Form1) pour regrouper les boutons ensembles et ne pas les disperser.

Je ne vois pas comment faire.

Merci

André Houssonloge













Avatar
André Houssonloge
Merci, je regarde cela demain car je dois absolument faire ma TVA

MERCI

A+
André Houssonloge

"André AVONS" a écrit dans le message de news:

Re salut
J'avais mal lu, je n'ai regarde que le code
Sur ton bouton tu mets
Me.SfrmInsertCommandeFiltreSurClasse.SetFocus
* Il faut que SfrmInsertCommandeFiltreSurClasse soit le nom du controle
dans

le formulaire Form1 pas le nom du sf (moi je mets le meme comme ca je me
trompe pas
DoCmd.GoToRecord , , acNewRec

Puis tu mets dans l'evenement sur ouverture de
SfrmInsertCommandeFiltreSurClasse
If Me.NewRecord Then
Docmd.gotocontrol "DateCommande"
Else 'Si modif pas exemple
Docmd.gotocontrol "AutreChamp"
end If




--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"André AVONS" a écrit dans le message de
news:eN$
Salut
Forms![SfrmInsertCommandeFiltreSurClasse].Requery '(j'ai une erreur ici
sur cette ligne, erreur 3314 le champs TblCommandes.CompteurSE ne peut
contenir une valeur null car la propriété required de ce champs est à
true)

End If
C'est normal ton formulaire est vide et ton champ dans ta table doit
avoir


la propriéte null interdit = Oui
pourquoi ne fais tu pas
DoCmd.OpenForm "SfrmInsertCommandeFiltreSurClasse", acNormal, , ,
acFormAdd

ca evite la ligne
DoCmd.GoToRecord , "SfrmInsertCommandeFiltreSurClasse", acNewRec
Puis tu mets dans l'evenement sur ouverture de
SfrmInsertCommandeFiltreSurClasse
If Me.NewRecord Then
Docmd.gotocontrol "DateCommande"
Else 'Si modif pas exemple
Docmd.gotocontrol "AutreChamp"
end If
Mais ces 3 lignes ne servent a rien en modif de
SfrmInsertCommandeFiltreSurClasse barre de menu affichage > ordre de
tabulation > est tu mets dateCommande en premier et sur tous les
controles


ou tu ne veux pas t'arreter (Bouton etc ) tu mets la propriete du
controle


arret tabulation à Non

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments
pour


Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"André Houssonloge" a écrit dans le message de
news:
J'avance, mais j'ai une erreur sur la 4ième ligne... requery je ne
vois



pas
ce que je dois mettre.

merci si vous avez une piste

J'ai mis dans un bouton du form principal (Form1) le code suivant:

Drapeau = True
DoCmd.OpenForm "SfrmInsertCommandeFiltreSurClasse", acNormal
DoCmd.GoToRecord , "SfrmInsertCommandeFiltreSurClasse", acNewRec
If Forms![SfrmInsertCommandeFiltreSurClasse].NewRecord Then
Forms![SfrmInsertCommandeFiltreSurClasse].DateCommande.SetFocus
Forms![SfrmInsertCommandeFiltreSurClasse].Dirty = True
Forms![SfrmInsertCommandeFiltreSurClasse].Requery '(j'ai une
erreur



ici
sur cette ligne, erreur 3314 le champs TblCommandes.CompteurSE ne peut
contenir une valeur null car la propriété required de ce champs est à
true)

End If

'Ouverture du formulaire "FrmTableauDetailsCommande"
On Error GoTo Err_Commande105_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FrmTableauDetailsCommande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms![FrmTableauDetailsCommande].Requery

Exit_Commande105_Click:
Exit Sub

Err_Commande105_Click:
MsgBox Err.Description
Resume Exit_Commande105_Click



"André Houssonloge" a écrit dans le message de news:

Bonjour,

J'ai un Form1 avec les élèves. Dans ce Form1, il y a un SFrm2 des
commandes

de cet élève. Dans ce SFrm2, il y a un bouton "Nouvelle commande"
Avec




le
code suivant:

Private Sub InsertNewCommande_Click()
Drapeau = True

DoCmd.GoToRecord , , acNewRec
If Me.NewRecord Then
Me.DateCommande.SetFocus
Me.Dirty = True
Me.Requery
End If

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FrmTableauDetailsCommande"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms![FrmTableauDetailsCommande].Requery

End Sub

Je voudrais exécuter ce code via un bouton situé dans le form
principal



(Form1) pour regrouper les boutons ensembles et ne pas les
disperser.





Je ne vois pas comment faire.

Merci

André Houssonloge