Share a form

  • Thread starter Thread starter blsaint
  • Start date Start date
B

blsaint

I have this code in a form, but I'm the only one that can use. What did I do
wrong?

Option Compare Database
Option Explicit

Public Sub cmdSendEmails_Click()

On Error GoTo HandleError

With Me.RecordsetClone
Do Until .EOF
DoCmd.SendObject acSendReport, "Cierre_de_Cuentas",
acFormatPDF, Nz(!EMAIL), , , _
"Su Número de Cuenta: " & Nz(!NUM_CTA) & " está por
vencer.", "Favor de revisar el mensaje anejo relacionado a su cuenta."
.MoveNext
Loop
End With
EndOfSub:
Exit Sub

HandleError:
Select Case Err
Case 2501
Resume Next
Case Else
DoCmd.CancelEvent

Resume EndOfSub
End Select

End Sub
 
I am trying to get some help regarding a form that has a button with VB code.
The other users in my network click the button and the button doesn't do
anything, please help me discover what I did wrong.
 
Back
Top