Suche | Statistiken | Benutzerliste | Access-FAQ | Datenschutz Foren
donkarl Forum
donkarl Forum ->  Themen -> Access -> Diskussion ansehen

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Access Stammtisch München am 08.08.2024 (Do)
  • StefanWirrer06.08.24 08:34
  • GlobalAlloc verursacht einen Programmstop (Fehl...
  • Paula26.07.24 20:48
       └ RE: GlobalAlloc verursacht einen Programmstop (F... Paula29.07.24 21:14
  • Unteschiedliche Seitenränder
  • vdw5624.07.24 10:37
  • Access Stammtisch München am 11.07.2024 (Do)
  • StefanWirrer09.07.24 09:00
  • A365: Berichtaufruf wird immer langsamer
  • olecundbolec19.06.24 17:18
       └ RE: A365: Berichtaufruf wird immer langsamer Karl Donaubauer19.06.24 17:51
          └ RE: A365: Berichtaufruf wird immer langsamer olecundbolec20.06.24 12:14
             └ RE: A365: Berichtaufruf wird immer langsamer Karl Donaubauer20.06.24 17:56
                └ RE: A365: Berichtaufruf wird immer langsamer olecundbolec21.06.24 12:17
          └ RE: A365: Berichtaufruf wird immer langsamer Karl Donaubauer27.06.24 10:10
             └ RE: A365: Berichtaufruf wird immer langsamer olecundbolec08.07.24 09:10
  • Accessoberfläche und DB-Oberfläche
  • Paula06.06.24 19:47
       └ RE: Accessoberfläche und DB-Oberfläche Karl Donaubauer06.06.24 21:46
          └ RE: Accessoberfläche und DB-Oberfläche Paula07.06.24 13:21
             └ RE: Accessoberfläche und DB-Oberfläche Karl Donaubauer07.06.24 16:51
                └ RE: Accessoberfläche und DB-Oberfläche Paula08.06.24 10:29
                └ RE: Accessoberfläche und DB-Oberfläche Karl Donaubauer16.06.24 17:50
                   └ RE: Accessoberfläche und DB-Oberfläche Paula28.06.24 17:41
  • e-Rechnung importieren
  • r2d2c3po19.06.24 19:17
       └ RE: e-Rechnung importieren PeterDoering26.06.24 11:57
          └ RE: e-Rechnung importieren Karl Donaubauer26.06.24 18:09
  • Access und Verbindung zu vba Projekt
  • Florian_S25.06.24 11:19
       └ RE: Access und Verbindung zu vba Projekt PeterDoering25.06.24 20:25
          └ RE: Access und Verbindung zu vba Projekt Florian_S26.06.24 10:46
  • DoCmd.CopyObject, oder Delete
  • Jupp03.06.24 15:15
       └ RE: DoCmd.CopyObject, oder Delete Karl Donaubauer10.06.24 16:35
  • Access Stammtisch München am 13.06.2024 (Do)
  • StefanWirrer10.06.24 09:03
  • Datenbank-Stammtisch Rhein-Main 24.05.
  • Martin Asal21.05.24 16:33
  • Einladung zum Access-Stammtisch Hannover (Nr. 55) ...
  • KlausWerther15.05.24 03:19
  • Access Stammtisch München am 16.05.2024 (Do)
  • StefanWirrer14.05.24 12:07
  • Unterformular wird nicht gedruckt
  • Rainbow10.05.24 12:04
       └ RE: Unterformular wird nicht gedruckt Karl Donaubauer11.05.24 17:23
  • Office ab Version 2401 - ODBC und ESC Taste
  • mcdpone14.02.24 16:16
       └ RE: Office ab Version 2401 - ODBC und ESC Taste PeterDoering18.02.24 20:45
          └ RE: Office ab Version 2401 - ODBC und ESC Taste mcdpone27.02.24 16:02
             └ RE: Office ab Version 2401 - ODBC und ESC Taste mcdpone15.03.24 09:52
                └ RE: Office ab Version 2401 - ODBC und ESC ... sks15.03.24 16:10
       └ RE: Office ab Version 2401 - ODBC und ESC Taste Hops16.03.24 14:48
          └ RE: Office ab Version 2401 - ODBC und ESC Taste mcdpone18.03.24 08:51
             └ RE: Office ab Version 2401 - ODBC und ESC Taste Hops19.03.24 13:03
       └ RE: Office ab Version 2401 - ODBC und ESC Taste olecundbolec22.04.24 08:54
    Paula
    Gesendet: 26.07.24 20:48
    Betreff: GlobalAlloc verursacht einen Programmstop (Fehler)


    Regular

    Beiträge: 52
    2525

    Hallo!
    Ich finde den Grund nicht warum mein Programm bei Access 2010 (leider finde ich keine Versionsnr.) hier abbricht und bei meinen Rechner (PC und Notebook) mit Access 2019 tadellos läuft.
    Um was gehts:
    Um Text in die Zwischenablage kopieren zu können, habe ich mir eine Routine aus dem Internet "geklaut"

    #If Win64 Then
    Declare PtrSafe Function GlobalUnlock Lib "kernel32" (ByVal hMem As LongPtr) As Long
    Declare PtrSafe Function GlobalLock Lib "kernel32" (ByVal hMem As LongPtr) As LongPtr
    Declare PtrSafe Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As LongPtr
    Declare PtrSafe Function CloseClipboard Lib "user32" () As Long
    Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hWnd As LongPtr) As Long
    Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long
    Declare PtrSafe Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As LongPtr
    Declare PtrSafe Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As LongPtr) As LongPtr
    #End If

    Public Const GHND = &H42
    Public Const CF_TEXT = 1
    Public Const MAXSIZE = 4096

    Function Inzwischenablage(MyString As String)
    Dim hGlobalMemory As LongPtr, lpGlobalMemory As LongPtr
    Dim hClipMemory As LongPtr, X As Long
    hGlobalMemory = GlobalAlloc(GHND, Len(MyString) + 1) 'hier stoppt das Programm (????)
    lpGlobalMemory = GlobalLock(hGlobalMemory)
    lpGlobalMemory = lstrcpy(lpGlobalMemory, MyString)

    If GlobalUnlock(hGlobalMemory) <> 0 Then
    MsgBox "Speicherplatz konnte nicht entsperrt werden. Kopie abgebrochen."
    GoTo OutOfHere2
    End If
    If OpenClipboard(0& = 0 Then
    MsgBox "Die Zwischenablage konnte nicht geöffnet werden. Kopieren abgebrochen."
    Exit Function
    End If

    X = EmptyClipboard()
    hClipMemory = SetClipboardData(CF_TEXT, hGlobalMemory)

    OutOfHere2:
    If CloseClipboard() = 0 Then
    MsgBox "Zwischenablage konnte nicht geschlossen werden."
    End If
    End Function


    Wenn ich das Programm auf meinen Computer laufen lasse klappt es vorzuüglich, nicht aber auf einem PC mit A 2010

    Die Fehlermeldung lautet das die Variable unbekannt sei!

    Bei mir läuft Win 10 Pro und Win11, am fremden PC Win 10 Enterprise

    Kann mir wer einen Tipp geben, wie ich das hinbekomme?

    PS: Sorry, wenn ich zuviel Listing gesendet habe!!

     

    Paula



    Edited by Paula 26.07.24 18:52
    Top of the page Bottom of the page


    Seite: < 1 2 3 4 5 6 7 8 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)