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 12.09.2024 (Do)
  • StefanWirrer09.09.24 10:45
  • Durchlauf von Formularinstanzen
  • sks30.08.24 10:11
       └ RE: Durchlauf von Formularinstanzen Nick Oetjen30.08.24 12:23
          └ RE: Durchlauf von Formularinstanzen sks30.08.24 18:01
             └ RE: Durchlauf von Formularinstanzen Nick Oetjen04.09.24 10:36
                └ RE: Durchlauf von Formularinstanzen sks04.09.24 13:11
                   └ RE: Durchlauf von Formularinstanzen Nick Oetjen06.09.24 16:48
                      └ RE: Durchlauf von Formularinstanzen sks06.09.24 17:03
       └ RE: Durchlauf von Formularinstanzen sks09.09.24 10:38
  • Einladung zum 15. virtuellen Access-Stammtisch Han...
  • KlausWerther19.08.24 22:43
       └ Special Guest Karl Donaubauer beim 15. virtuelle... KlausWerther20.08.24 13:14
  • Datensatz enthält plötzlich asiatische Symbole sta...
  • Florian_S14.08.24 11:46
       └ RE: Datensatz enthält plötzlich asiatische Symbo... Karl Donaubauer14.08.24 12:01
          └ RE: Datensatz enthält plötzlich asiatische Sym... Florian_S14.08.24 12:29
  • Ursache für Aufblähen der Datenbank
  • Florian_S18.07.24 09:26
       └ RE: Ursache für Aufblähen der Datenbank Nick Oetjen26.07.24 16:55
          └ RE: Ursache für Aufblähen der Datenbank Florian_S14.08.24 11:57
  • Dataverse Validator - Bug oder Feature?
  • Nick Oetjen01.08.24 15:39
       └ RE: Dataverse Validator - Bug oder Feature? Karl Donaubauer03.08.24 01:47
          └ RE: Dataverse Validator - Bug oder Feature? Nick Oetjen08.08.24 13:08
  • 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
    Paula
    Gesendet: 26.07.24 20:48
    Betreff: GlobalAlloc verursacht einen Programmstop (Fehler)


    Regular

    Beiträge: 54
    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.)