Run-time error 2046 "The comand or action 'Paste' isn't available now.

[setis]

Hi all,

I've been using the following code to copy a [MemberID] and paste it in another form on a [MemberID] field when pressing a button.

I'm suddenly getting the error in the title and I have no idea why. It had been working with no problems so far.

Private Sub btnNewCase_Click()
If Nz(Me.MemberID, "") <> "" Then
    With Me.MemberID
        .SetFocus
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
    DoCmd.RunCommand acCmdCopy
Else
    MsgBox "There is no text for copying"
End If
    DoCmd.OpenForm "frmCases"
    DoCmd.GoToRecord , , acNewRec
    'Paste clipboard
    Me.MemberID.SetFocus
    DoCmd.RunCommand acCmdPaste
End Sub

Any idea what's causing the error?

 

[moke123]

why copy and paste?

Private Sub btnNewCase_Click()
DoCmd.OpenForm "frmCases", , , , acFormAdd
Forms("frmCases").MemberID.DefaultValue = Me.MemberID
End Sub

 

[setis]

why copy and paste?

Private Sub btnNewCase_Click()
DoCmd.OpenForm "frmCases", , , , acFormAdd
Forms("frmCases").MemberID.DefaultValue = Me.MemberID
End Sub

Because I'm a newby. Thank you so much. This makes my life so much easier.

 

[arnelgp]

why don't you just directly
apply the value of MemberID to
the field in "frmCases" form:

Private Sub btnNewCase_Click()
	DoCmd.OpenForm "frmCases"
	DoCmd.GoToRecod, , acNewRec
	
	Forms!frmCases!MemberID = Me.MemberID
End Sub

 

[moke123]

Your welcome. Arnel and I are happy to help.

Just to point out the difference between what I posted and arnel's.
What I posted will set the default value of memberID without dirtying the form and wont create a new record if you change your mind and close the form without adding any other info. In order to create a record you must dirty the form or save the record.

Arnels version will dirty the form and create the record and if you change your mind you would have to undo the record.

hope this makes sense.