ACCESS FEED

Jumat, 28 April 2017

Re: [MS_AccessPros] Remote data collection

Hi Mike,

for sending using outlook:

'~~~~~~~~~~~~~~~~~~~

Sub EmailOutlook()
's4p
   'use early binding to develop
'   Dim appOut As Outlook.Application _
      , oMsg As Outlook.MailItem

   'use late binding to deploy
   Dim appOut As Object _
      , oMsg As Object

   Set appOut = CreateObject("Outlook.Application")
   Set oMsg = appOut.CreateItem(0) '0=olMailItem

   With oMsg
      '.Importance = olImportanceHigh
      .to = "someone@somewhere.com"
      '.CC = "cc email address"
      '.BCC = "cc email address"
      .Subject = "My subject line"
      .Body = "My message"
      ' .Attachments.Add sPathFile

      ' If you want to edit before sending
      .Display
      'otherwise, to just send without looking...
      '.Send
   End With

Proc_Exit:
   On Error Resume Next
   'release object variables
   Set appOut = Nothing
   Set oMsg = Nothing
   Exit Sub

Proc_Err:
   MsgBox Err.Description, , _
        "ERROR " & Err.Number _
        & "   EmailOutlook"

   Resume Proc_Exit
   Resume
End Sub

'~~~~~~~~~~~~~~~~~~~

for receiving back: you can link to a local outlook mailbox (that received mail gets put in) from Access and process all mail in there. You can open it up just like a table.

respectfully,
crystal

~ have an awesome day ~

On 4/28/2017 2:49 PM, Sac City Plumbing saccity101@yahoo.com [MS_Access_Professionals] wrote:

I have been using MS Access to track work orders, jobs and such in my plumbing service company. I have been filling out the work orders buy hand and then entering the data into Access when back at the office. As I am starting farm out some of the work. At the moment I copy the client information, address and phone number and send it to the service tech via text message. He then transcribes the information to the work order, fills in for inspection, work completed, recommendations, warranty, and such. A few days later I get the completed work order enter the information into Access and then bill the client...

I would like to be able to have Access fill out a form that I email to the service tech, which he could complete on his Android phone, and then forward back to me, with the updated fields to be read into Access, thus avoiding transcribing the data from the work order and streamlining the billing process.

Any ideas on how to approach this.

Thanks Mike

Sac City Plumbing

__._,_.___

Posted by: crystal 8 <strive4peace2008@yahoo.com>

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (13)

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

Visit Your Group

New Members 2

• Privacy • Unsubscribe • Terms of Use

__,_._,___

Re: [MS_AccessPros] Error 2501; OpenForm command is cancelled

does the form being opened have an Open event that is being Canceled in VBA?

is Me.lstSpecNames.Value for OpenArgs? Does it have a value?

since dialog is specified ... is it possible another form is already open using dialog?

On 4/28/2017 2:23 PM, david.pratt@outlook.com [MS_Access_Professionals] wrote:

I have a command button on a form with a simple DoCmd.Open form statement. I keep getting (2 hours worth) error 2501 when I click this cmdButton. the error table says I am manually cancelling a form I am trying to open with VBA. I am using the very same VBA for this button I have used for 20 other buttons. I have looked at the form properties I am trying to open and I cannot find any problems. The code never opens the form anyway; it errors on the DoCmd statement of the calling form.

If lstSpecNames.ItemsSelected.Count = 0 Then
        MsgBox "Must select a Specification to add the parameters to!" _
        , vbInformation, "No Specification Selected"
        Me.lstSpecNames.SetFocus
Else
        DoCmd.OpenForm "frmSpecDetails", acNormal, , , acFormAdd, acDialog, Me.lstSpecNames.Value
        Me.lstSpecDetails.Requery
End If

Can anyone tell me where I can look to find my error?

__._,_.___

Posted by: crystal 8 <strive4peace2008@yahoo.com>

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (5)

Have you tried the highest rated email app?

Visit Your Group

New Members 2

• Privacy • Unsubscribe • Terms of Use

__,_._,___

RE: [MS_AccessPros] Error 2501; OpenForm command is cancelled

This is a good emotional support group too. We've all done stuff like that.

Respectfully,
[RCEmailSigLogo]
Liz Ravenwood
Software Engineer
Interior Systems
(520) 239-4808
Liz_ravenwood@beaerospace.com<mailto:Liz_ravenwood@beaerospace.com>
rockwellcollins.com<http://www.rockwellcollins.com/>

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com]
Sent: Friday, April 28, 2017 1:57 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] Error 2501; OpenForm command is cancelled

YES. I DID IT TO MYSELF AGAIN!

Based on your comment, I decided to delete the OnOpen event in the called form and start over. Voila, my error hit me up side the head!

I don't remember why, but I had that OnOpen code in the OnCurrent event earlier. I was having a problem with something not working, so I "moved" it to the OnOpen event. However, the way I "moved" it was just to modify the Sub name Form_Current () by changing CURRENT to OPEN using the VBA editor. In doing so, I was left with Form_Open(). I noticed when I deleted the event and started over that Form_Open has a cancel parameter, which I did not have because of the way I just used the text editor to change CURRENT to OPEN.

Form_Open (Cancel as Integer)
versus
Form_Open()

I guess leaving off the cancel parameter was causing the form to immediately cancel.

UGH! Easily o! ver two hours wasted.
If it were not for me, I would be a much better programmer...

---In MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals@yahoogroups.com>, <JohnV@...<mailto:JohnV@...>> wrote :
David-

What code do you have in frmSpecDetails? 2501 says something is cancelling the open - perhaps in the Form Open event.

John Vi! escas, Author
Effective SQL
SQL Queries for Mere Mortals
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications
http://www.viescas.com/
(Paris, France)

On Apr 28, 2017, at 9:23 PM, david.pratt@...<mailto:david.pratt@...> [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals@yahoogroups.com>> wrote:

I have a command button on a form with a simple DoCmd.Open form statement. I keep getting (2 hours worth) error 2501 when I click this cmdButton. the error table says I am manually cancelling a form I am trying to open with VBA. I am using the very same VBA for this button I have used for 20 other buttons. I have looked at the form properties I am trying to open and I cannot find any problems. The code never opens the form anyway; it errors on the DoCmd statement of the calling form.

If lstSpecNames.ItemsSelected.Count = 0 Then
MsgBox "Must select a Specification to add the parameters to!" _
, vbInformation, "No Specification Selected"
Me.lstSpecNames.SetFocus
Else
DoCmd.OpenForm "frmSpecDetails", acNormal, , , acFormAdd, acDialog, Me.lstSpecNames.Value
Me.lstSpecDetails.Requery
End If

Can anyone tell me where I can look to find my error?

This email (and all attachments) is for the sole use of the intended recipient(s) and may contain privileged and/or proprietary information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message.

[Non-text portions of this message have been removed]

__._,_.___

Posted by: Liz Ravenwood <Liz_Ravenwood@beaerospace.com>

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (4)

Have you tried the highest rated email app?

Visit Your Group

New Members 2

• Privacy • Unsubscribe • Terms of Use

__,_._,___

Re: [MS_AccessPros] Error 2501; OpenForm command is cancelled

YES. I DID IT TO MYSELF AGAIN!

Based on your comment, I decided to delete the OnOpen event in the called form and start over. Voila, my error hit me up side the head!

I don't remember why, but I had that OnOpen code in the OnCurrent event earlier. I was having a problem with something not working, so I "moved" it to the OnOpen event. However, the way I "moved" it was just to modify the Sub name Form_Current () by changing CURRENT to OPEN using the VBA editor. In doing so, I was left with Form_Open(). I noticed when I deleted the event and started over that Form_Open has a cancel parameter, which I did not have because of the way I just used the text editor to change CURRENT to OPEN.

Form_Open (Cancel as Integer)

versus

Form_Open()

I guess leaving off the cancel parameter was causing the form to immediately cancel.

UGH! Easily over two hours wasted.

If it were not for me, I would be a much better programmer...

---In MS_Access_Professionals@yahoogroups.com, <JohnV@...> wrote :

David-

What code do you have in frmSpecDetails? 2501 says something is cancelling the open - perhaps in the Form Open event.

John Viescas, Author

Effective SQL

SQL Queries for Mere Mortals

Microsoft Access 2010 Inside Out

Microsoft Access 2007 Inside Out

Microsoft Access 2003 Inside Out

Building Microsoft Access Applications

http://www.viescas.com/

(Paris, France)

On Apr 28, 2017, at 9:23 PM, david.pratt@... [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:

I have a command button on a form with a simple DoCmd.Open form statement. I keep getting (2 hours worth) error 2501 when I click this cmdButton. the error table says I am manually cancelling a form I am trying to open with VBA. I am using the very same VBA for this button I have used for 20 other buttons. I have looked at the form properties I am trying to open and I cannot find any problems. The code never opens the form anyway; it errors on the DoCmd statement of the calling form.

If lstSpecNames.ItemsSelected.Count = 0 Then
        MsgBox "Must select a Specification to add the parameters to!" _
        , vbInformation, "No Specification Selected"
        Me.lstSpecNames.SetFocus
Else
        DoCmd.OpenForm "frmSpecDetails", acNormal, , , acFormAdd, acDialog, Me.lstSpecNames.Value
        Me.lstSpecDetails.Requery
End If

Can anyone tell me where I can look to find my error?

__._,_.___

Posted by: david.pratt@outlook.com

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (3)

Have you tried the highest rated email app?

Visit Your Group

New Members 2

• Privacy • Unsubscribe • Terms of Use

__,_._,___

[MS_AccessPros] Remote data collection

I have been using MS Access to track work orders, jobs and such in my plumbing service company. I have been filling out the work orders buy hand and then entering the data into Access when back at the office. As I am starting farm out some of the work. At the moment I copy the client information, address and phone number and send it to the service tech via text message. He then transcribes the information to the work order, fills in for inspection, work completed, recommendations, warranty, and such. A few days later I get the completed work order enter the information into Access and then bill the client...

I would like to be able to have Access fill out a form that I email to the service tech, which he could complete on his Android phone, and then forward back to me, with the updated fields to be read into Access, thus avoiding transcribing the data from the work order and streamlining the billing process.

Any ideas on how to approach this.

Thanks Mike

Sac City Plumbing

__._,_.___

Posted by: Sac City Plumbing <saccity101@yahoo.com>

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic