VBA Can't copy contents of text field of last record on a subform to clipboard

[demaionewton]

I have this VBA code that is driving me nuts! It seems right to me, but the clipboard is always empty:


Me.[Case Attachments subform].SetFocus
DoCmd.GoToRecord , , acLast
Me![Case Attachments subform].Form![Doc Description].SetFocus


Me![Case Attachments subform].Form![Doc Description].SelStart = 0 ' Start of the text
Me![Case Attachments subform].Form![Doc Description].SelLength = Len(Me![Case Attachments subform].Form![Doc Description].Value) ' Entire length of the text
DoCmd.RunCommand acCmdCopy


I ran a checkpoint prior to the acCmdCopy and confirmed that the [Case Attachments subform].Form![Doc Description].Value is correct. How do i get the contents it has selected to the clipboard!!!

[demaionewton]

Solved it! The beginning of the thread had this code:
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("clip")
Set oIn = oExec.stdIn

Moving that code to be nested inside the If condition, made it so that the DoCmd.RunCommand acCmdCopy worked in the Else condition!
Why, I don't know, but that was the issue.

[Welshgasman]

Solved it! The beginning of the thread had this code:
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("clip")
Set oIn = oExec.stdIn

Moving that code to be nested inside the If condition, made it so that the DoCmd.RunCommand acCmdCopy worked in the Else condition!
Why, I don't know, but that was the issue.

Which you never showed.

Always best to show all the code because of situations like this.
Copy and paste as well, do not retype, as that just introduces other errors.