Tømme udklipsholder

Denne virker i excel.

//akj

Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long
  Private Declare Function CloseClipboard Lib "user32" () As Long
  Private Declare Function EmptyClipboard Lib "user32" () As Long

  Public Function Clear() As Boolean
      If OpenClipboard(0&) Then
        Clear = CBool(EmptyClipboard)
        Call CloseClipboard
      End If
  End Function

Desværre akj..., virker ikke!

Det forstår jeg ikke, prøver lige i access
//akj

Ja prøv. Jeg vil tømme udklipsholder når jeg lukker en formular!

Jeg testede lige.

På et modul skrev jeg flg:

Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long
  Private Declare Function CloseClipboard Lib "user32" () As Long
  Private Declare Function EmptyClipboard Lib "user32" () As Long

  Public Function Clear() As Boolean
      If OpenClipboard(0&) Then
        Clear = CBool(EmptyClipboard)
        Call CloseClipboard
      End If
  End Function


På en knap på en form:
Private Sub Command4_Click()
  Clear
End Sub

Det virkede fint.

//akj

Tillykke akj. Det virker... Du får hermed 100 points.
(Havde ikke oprettet et modul)......Tak!

Tak skal du have.

God weekend

//akj