Exécuter une Procédure dans une autre forme

J'ai un formulaire qui exécute une procédure pour créer un message électronique dans Outlook et joindre un fichier pdf. Sa source d'enregistrement est un non modifiable de la requête. La procédure fonctionne très bien. Je veux maintenant pour exécuter cette procédure à partir d'un autre formulaire, mais je reçois un message disant qu'il ne peut pas être fait, parce que la source d'enregistrement n'est pas modifiable. Le codage de la nouvelle formule est:

Private Sub CourseCert_Click()
On Error GoTo CourseCert_Click_Err

DoCmd.OpenForm "frmCourseDetailsDone", acNormal, "", "[StaffLookup]=" & [StaffLookup], , acNormal
Run Forms!frmCourseDetailsDone.Command23_Click
DoCmd.Close acForm, "frmCourseDetailsDone"

CourseCert_Click_Exit:
    Exit Sub

CourseCert_Click_Err:
    MsgBox Error$
    Resume CourseCert_Click_Exit

End Sub

Depuis qu'elle travaille dans l'ancienne formule, je ne vois pas pourquoi il ne fonctionne pas de la nouvelle forme.

OriginalL'auteur | 2013-09-24

  1. 2

    Au lieu d'utiliser 

    Forms!frmCourseDetailsDone.Command23_Click

    Je voudrais faire le code Command23_Click une procédure publique, puis d'appeler la procédure directement au lieu de faire référence à un bouton dans une autre forme.

    Public sub Command23_Click() 

Call Command23_Click
    Merci. Qui a fait le tour.

    OriginalL'auteur pehanna

  2. 0

    Appel sous une forme

    Form_frmName.PublicSubName(anyVars)

    Exemple - 

    Form_NewClient.SetID()

    L'appel de Sous à partir d'un autre module

    Call MyPublicSub

    Exemple - 

    Call SetID()

    OriginalL'auteur Adarsh Madrecha

  3. 0

    J'ai dû le faire comme cela pour qu'il fonctionne comme la fonction publique, dans le formulaire ne fonctionne pas

    '--- In Form Materials
Private Sub Calc_Click()
    Select Case Me.CATEGORY
    Case "Ply"
        On Error Resume Next
        'CurrentDb.Execute Forms![CASE].GetPlyQty
        Run Forms![CASE].GetPlyQty
        Me.Qty = PlyQty '(PlyQty is in Globals module)
End Select
End Sub

'--- In Globals module
Public PlyQty As Double


'--- In form "Case"
Public Sub GetPlyQty()
    Dim paintarea As Double
    PlyQty = CalcPly(paintarea)
End Sub

    OriginalL'auteur user3718330