Veld copieren

[tepke]

Hoi

ik heb een vraag, ik ben op dit moment bezig met een database. ik heb een veld artikel waar ik iets in opzoek als ik twee keer op het veldje klik wil ik de veld inhoud copieren naar het klembord. Ergens anders wil ik het weer plaatsen door middel van plakken. het plakken gebeurt in een formulier met een subformulier.

het was al handig als ik het eerste al kan copieren dan kan de volgende knop actie zijn het plakken

al vast bedankt.

marc

 

[OctaFish]

Met een klein trucje is het wel te doen: maak eerst op je formulier een tekstveld aan, met de breedte 0 cm. Ik heb hem hier txtCopyText genoemd.
In het voorbeeld heb ik een veld met de naam txtCurTotaal, waarvan ik de waarde wil kopieren.

Private Sub txtCurTotaal_Click()
    
Me.txtCopyText = Me.txtCurTotaal
Me.txtCopyText.SetFocus
DoCmd.RunCommand acCmdCopy

End Sub

 

[OctaFish]

Nog een trucje, dus een apart verhaal:
Door er een functie bij te zetten, kun je de truc voor meerdere velden toepassen.

Private Sub txtCurTotaal_Click()   
      Kopie (txtCurTotaal)
End Sub

Function Kopie(KopieTekst As String)
    Me.txtCopyText = KopieTekst
    Me.txtCopyText.SetFocus
    DoCmd.RunCommand acCmdCopy
End Function

 

[tepke]

toch problemen bij het gebruiken van de tip

Ik heb de procedure werkend gekregen dank je voor je hulp

ik heb nog een vraagje

nu heb ik het gegeven netjes gekopieerd en staat nu in zijn geheugen. als ik naar de plaats ga waar ik het gegeven in wil hebben dan kan ik met CTRL+V het gegeven plakken het mooiste is dat als ik op dat veld sta en daar op dubbelklik het gegeven geplakt wordt in dat veld waar ik op dubbel klik heeft u hier ook een programma code voor?

 

[WimenBeer]

Marc,

Je kan dan voor het nieuw veld de zelfde truk van Michel gebruiken

Private Sub txtNieuwVeld_Click()   
      Kopie (txtNieuwVeld)
End Sub

Function Kopie(KopieTekst As String)
    Me.txtCopyText = KopieTekst
    Me.txtCopyText.SetFocus
    DoCmd.RunCommand [COLOR="Red"]acCmdPaste[/COLOR]
End Function

Moet volgends mij werken. Niet getest

Succes
Wim