CALL ANOTHER CODE

[rainbows]

at the bottom on the first screen shot there are 3 buttons i use to open acknowlegement , send it to a file , and send it to the customer i am now trying to adda button to carry out all these tasks in one go but i dont know how to call them up having tried a few ways. the code at the bottom is a part of one of the codes that i was trying to call up.

thanks steve

yhanks

 

[MajP]

You can call each event procedure
just call it by its name
cmdEmail_Click()

You do not have a procedure called
subCmdEmail_Click()

 

[cheekybuddha]

What is the error you are getting?

It will probably work if you just remove the "Call" from each line, since you are just running Sub procedures.

 

[Gasman]

That would seem to work if you could get the names correct?
What have you tried and what was the result.?
Have you walked through your code line by line?

 

[MajP]

It is cleaner to pull the procedure code out of the event procedure and put into its own standard procedure. Then the event procedure calls the procedure. Then other events procedures can call the same procedure.

Private CmdEmail_Click()
   'remove code and put in its own sub
   SendEmail
end sub

Private Sub SendEmail()
  'code to send email
end sub

Now from another event or another button

Private SomeOtherButtonOrEvent()
  SendEmail
  OpenInvoice
  SavePDF 
end sub

 

[arnelgp]

maybe add a flag to test if the other process is already done before proceeding to the next Click event:

Dim bolDone As Boolean

Private Sub allack_Click()
    bolDone = False
    call syscmd(acSysCmdSetStatus,"stage (1) sending email...")
    Call SubcmdEmail_Click
    Do While bolDone = False
        DoEvents
    Loop
    bolDone=False
    call syscmd(acSysCmdSetStatus,"stage (2) creating pdf....")
    Call SubcmdPDF_Click
    Do While bolDone = False
        DoEvents
    Loop
    bolDone = False
    call syscmd(acSysCmdSetStatus,"stage (3) open invoices...")
    Call SubcmdOpenInvoice_Click
    Do While bolDone = False
        DoEvents
    Loop
    call syscmd(acSysCmdClearStatus)
End Sub

'on each sub before the End Sub, set bolDone=True

 

[LarryE]

at the bottom on the first screen shot there are 3 buttons i use to open acknowlegement , send it to a file , and send it to the customer i am now trying to adda button to carry out all these tasks in one go but i dont know how to call them up having tried a few ways. the code at the bottom is a part of one of the codes that i was trying to call up.

thanks steve


View attachment 112779

View attachment 112780
yhanks

The Private Subs are NOT SubcmdEMail_Click etc.
They are cmdEMail_Click, cmdPDF_Click, cmdOpenInvoice_Click
You don't use Sub as a prefix that I know of.

 

[Uncle Gizmo]

WHY? - event procedures execute when a specific event happens.

Yes as Pat and majP say, it's not a good idea to call command button code from elsewhere... There's another post about it here, which basically says the same as what Pat already said!

Command Button

What is the vba code for: afterupdate, goto a command button and click it?

www.access-programmers.co.uk

 

[LarryE]

In addition to what the others have said, if I were going to run a lot of lines of code all at one time I would just create a Public Function, put all the code there, and call the Public Function from a single command button or other form Event Procedure. You only have one place to change anything you need and one place to trap errors. Easy.

 

[Uncle Gizmo]

They are cmdEMail_Click, cmdPDF_Click, cmdOpenInvoice_Click

Regarding:-
cmdEMail_Click, cmdPDF_Click, cmdOpenInvoice_Click

There is an alternative:-
btnEMail_Click, btnPDF_Click, btnOpenInvoice_Click


The prefix "btn" for command buttons comes from the Leszynski naming convention. Stan's convention has been widely adopted. However, it's worth noting that you don't have to follow Stan Leszynski's naming convention, you are free to use your own prefixes, or as some prefer suffixes. Whatever you use you must stick to one system in your project.

I mention it because I prefer the prefix "btn" for command buttons. It just has a feeling of rightness about it. I always felt that "cmd" represented "command" which is not unambiguously associated with a button "btn".

In other words there's no ambiguity in "btn", whereas in what is an unlikely case, but something you might come across, is code which uses command, for instance, if you were using a command line interface within your MS Access database.

 

[rainbows]

these are the 3 codes i use should they be put them into one of which i would struggle to do or just call up the 3

Private Sub cmdEmail_Click()
Dim strTo As String
    Dim strSubject As String
    Dim strMessageText As String
   
    Me.Dirty = False
     strTo = [Order Details subform].[Form]![EMailaddress]

    strSubject = " Acknowledgement Number " & Me.orderID
    strMessageText = Me.Firstname & "," & _
        vbNewLine & vbNewLine & _
        "Your latest Acknowledgement is attached." & _
        vbNewLine & vbNewLine & _
        ""


    DoCmd.SendObject ObjectType:=acSendReport, _
        ObjectName:="order acknowledgement", _
        OutputFormat:=acFormatPDF, _
        TO:=strTo, _
        Subject:=strSubject, _
        messageText:=strMessageText, _
        EditMessage:=True
       
       
End Sub





Private Sub cmdOpenInvoice_Click()


On Error GoTo Err_Handler
   
    Const MESSAGE_TEXT = "No current ack number."

    If Not IsNull(Me.orderID) Then
        ' ensure current record is saved
        Me.Dirty = False
        ' open report in print preview
        DoCmd.OpenReport "order acknowledgement", View:=acViewPreview
       
       
    Else
        MsgBox MESSAGE_TEXT, vbExclamation, "Invalid Operation"
   
    End If
Exit_Here:


    Exit Sub
   
Err_Handler:
    MsgBox Err.Description
    Resume Exit_Here

End Sub




Private Sub cmdPDF_Click()
On Error GoTo Err_Handler

    Const FOLDER_EXISTS = 75
    Const MESSAGE_TEXT1 = "No current invoice."
    Const MESSAGE_TEXT2 = "No folder set for storing PDF files."
    Dim strFullPath As String
    Dim varfolder As Variant

   If Not IsNull(Me.orderID) Then
       
        varfolder = DLookup("Folderpath", "pdfFolder")
        If IsNull(varfolder) Then
            MsgBox MESSAGE_TEXT2, vbExclamation, "Invalid Operation"
        Else
            ' create folder if does not exist
                                 
             varfolder = varfolder & "\" & Year(date) & "\" & [Order Details subform]![CustomerName] & "\" & "NCO" & Format(Me.NCO_No, "0000")
            Call subUNCFolder(varfolder)
            'strFullPath = varFolder & "\" & ME.CustomerName & " " & Me.Invoicenumber & ".pdf"
          strFullPath = varfolder & "\" & "NCO Number " & " " & Me.NCO_No & ".pdf"
            ' ensure current record is saved before creating PDF file
            Me.Dirty = False
          DoCmd.OutputTo acOutputReport, "order acknowledgement", acFormatPDF, strFullPath
        End If
    Else
        MsgBox MESSAGE_TEXT1, vbExclamation, "Invalid Operation"
    End If
'End If
Exit_Here:
    Exit Sub

Err_Handler:
    Select Case Err.Number
        Case FOLDER_EXISTS
        Resume Next
        Case Else
        MsgBox Err.Description
        Resume Exit_Here
    End Select

End Sub

Private Sub allack_Click()

Call cmdOpenInvoice_Click

Call cmdPDF_Click
Call cmdEmail_Click

End Sub

 

[MajP]

these are the 3 codes i use should they be put them into one

NO! Absolutely not. The idea is to make code streamlined, understandable, and maintainable. That would defeat all of those. Most coders write procedures to do one and only one thing. Then you can debug and test individually. Lots of small encapsulated procedures is better than big multi function procedures.
Some basic principles

Top 10 Coding Principles Every Developer Must Know

Hello, buddies! I would like to get into our topic without wasting time. It's easy to write code....

dev.to

 

[arnelgp]

these are the 3 codes i use should they be put them into one of which i would struggle to do or just call up the 3

its a YES for me.
those subs are a member of the Same form, so Calling them is not an issue (members calling each other).

 

[MajP]

@rainbows I interpreted the question different than arnelgp. I interpreted this to mean if you should put all of your code into a single procedure. If that is what you mean then no. If you want one procedure to call three other procedures then yes.

 

[rainbows]

"if you want one procedure to call three other procedures then yes."



ok , i have done the above
today i see it could go wrong for me if for some reason the report was wrong yet i have put it to the file and sent it to the customer
could the code for the "cmdOpenInvoice_Click" be modified to stop until i have checked it and when i say ok it carries on or stops all the code .if i say no

i am not sure how to stop the other events as this on stops this sub

Private Sub cmdOpenInvoice_Click()


On Error GoTo Err_Handler
    
    Const MESSAGE_TEXT = "No current ack number."

    If Not IsNull(Me.orderID) Then
        ' ensure current record is saved
        Me.Dirty = False
        
        ' open report in print preview
        DoCmd.OpenReport "order acknowledgement", View:=acViewPreview
       ' DoCmd.Maximize
        DoCmd.RunCommand acCmdZoom75
        
           If MsgBox("pleazse confirm report is ok" & vbCrLf & vbCrLf _
   , vbYesNo) = vbNo Then Exit Sub
    Else
 
    
        MsgBox MESSAGE_TEXT, vbExclamation, "Invalid Operation"
        
       End If
              
    
    
    
    
 
Exit_Here:

 
    Exit Sub
    
Err_Handler:
    MsgBox Err.Description
    Resume Exit_Here

or just use the first code separaetly and a button just for the other 2

thanks steve