[MSAccess] Inhoud tekstvak naar clipboard

[avwolferen]

Wat is de VBA code die ik onder m'n knop moet hangen om de inhoud van tekstvak 'Bedrag' naar m'n clipboard te sturen...

CopyFace wil niet werken, of ik deed het gewoon fout


iemand een tipje ? alvast bedankt !

[Capa]

http://www.google.nl/sear...copy+to+clipboard+vba&lr=

[Phenomenon]

volgens mij gewoon clipboard.settext(strtekst)

[avwolferen]

En toch wil niks werken

[ Voor 10% gewijzigd door avwolferen op 18-12-2002 14:03 ]

[Phenomenon]

AliBenhat schreef op 18 December 2002 @ 14:03:
En toch wil niks werken

Als je dan eens wat meer informatie geeft.

Wat voor een code gebruik je ervoor dan

[avwolferen]

code:

Private Sub ValutaClipBoard_Click()
  ClipBoard.settext (Bedrag2)
End Sub

geeft melding "fout 424: Object vereist"

[OZ-Gump]

code:

Dim cl as ClipBoard
cl.setText("Teststring op clipboard")

Dit werkt. Getest in VB6.

[BtM909]

AliBenhat schreef op 18 december 2002 @ 14:27:

code:

Private Sub ValutaClipBoard_Click()
  ClipBoard.setText ("Bedrag2")
End Sub

geeft melding "fout 424: Object vereist"

Heb je al gekeken of het werkt, als je er gewoon een string in plaatst (zie boven)...

_{btw: setText is met een hoofdletter T.}

[ Voor 12% gewijzigd door BtM909 op 18-12-2002 14:56 ]

[Phenomenon]

Heb ff wat nagelezen, maar het clipboard object is helaas niet beschikbaar in vba.
Wat je wel kunt doen is een verwijzing naar ms forms 2.0 zetten en dan kun je met dataobject iets in het clipboard zetten.

Visual Basic:

Sub PutOnClipboard()
    Dim SomeText As String
    Dim DataObj As New DataObject

    SomeText = "Some text here"
    DataObj.SetText SomeText
    DataObj.PutInClipboard
    Set DataObj = Nothing
End Sub

Sub GetOffClipboard()
    Dim SomeText As String
    Dim DataObj As New DataObject

    DataObj.GetFromClipboard
    SomeText = DataObj.GetText
    MsgBox SomeText
    Set DataObj = Nothing
End Sub

[avwolferen]

Thnx, ga ik morgen testen