Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Mousehook unterbindet Standardwerte unter Office XP
zurück: Berichte funktionieren nicht -.- weiter: Probleme mit Code! Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
schiepmaps
Neuling


Verfasst am:
11. Dez 2009, 13:04
Rufname:


Mousehook unterbindet Standardwerte unter Office XP - Mousehook unterbindet Standardwerte unter Office XP

Nach oben
       Version: Office XP (2002)

Hallo zusammen!

Ich habe ein kleines Formular in Access gebastelt, das in einigen Feldern Standardwerte enthalten soll. Zusätzlich soll es den Usern nicht möglich sein mittels Mausrad in den Datensätzen zu scrollen. Dies habe ich bereits erfolgreich mit dem Modul basMouseHook unterbunden. So weit so gut, unter Office2003 funktioniert alles wunderbar. Das scrollen wird unterbunden und die Standardwerte werden angezeigt und auch in die zugrundeliegende Tabelle übergeben. Sobald ich die Anwendung aber unter Office XP starte, funktioniert zwar MouseHook einwandfrei, die Standardwerte werden aber nicht mehr angezeigt und auch nicht mehr übergeben.

Ich habe jetzt alle im Internet verfügbaren MouseHook Tools ausprobiert. Es ist bei allen das selbe Ergebnis. Selbst mit den Modulen die extra für Office XP angepasst wurden. Sobald ich die Mousehook funktionen raus lösche, funktioniert das Formular sowohl in 2003 als auch in office xp einwandfrei.

Kennt hier jemand das Problem oder hätte jemand noch einen Vorschlag?
Ein Update auf dem Arbeitsplatz von office xp auf 2003 ist nicht möglich. Und das Rädchen möchte ich der Maus auch nicht rausoperieren müssen.

Schon mal vielen Dank für eure Hilfe im vorraus!

Das hier ist einer der etlichen Mousehook Quellcodes:
Code:
Option Compare Database
Option Explicit
 
' == IM MODUL ================
Public lpPrevWndProc As Long
Public Const GWL_WNDPROC = (-4)
 
' Window-Messages
Public Const WM_MOUSEWHEEL = &H20A
 
' == API's =============================
Public Declare Function SetWindowLong Lib "user32" _
               Alias "SetWindowLongA" _
              (ByVal hWnd&, _
               ByVal nIndex&, _
               ByVal dwNewLong&) As Long
 
Public Declare Function CallWindowProc Lib "user32" _
               Alias "CallWindowProcA" _
              (ByVal lpPrevWndFunc&, _
               ByVal hWnd&, _
               ByVal Msg&, _
               ByVal wParam&, _
               ByVal lParam&) As Long
 
' == FUNCTIONS ========================
Public Function SubWindowProc(ByVal hWnd&, ByVal uMsg&, _
                              ByVal wP&, ByVal lP&) As Long
' Fensterfunktion des Formulars / Controls
    On Error Resume Next
    ' Messages hier bearbeiten
    If uMsg = WM_MOUSEWHEEL Then
        ' nichts zu tun hier
        SubWindowProc = 1
        Exit Function
    End If
    'return to the message original proc
    SubWindowProc = CallWindowProc(lpPrevWndProc, hWnd, uMsg, wP, lP)
End Function
 
Public Sub HookMe(hw&)
' Subclass by the given handle
' Aufruf zb aus Form_Load() mit
' Call HookMe(Me.hwnd)
    ' in Access 97: mangels AddressOf Operator
    ' das work-around AddrOf verwenden!
    lpPrevWndProc = SetWindowLong(hw&, GWL_WNDPROC, _
                                  AddrOf("SubWindowProc"))
    ' in Access 2K
    ' lpPrevWndProc = SetWindowLong(hw&, GWL_WNDPROC, _
                                    AddressOf SubWindowProc)
End Sub
 
Public Sub UnHookMe(hw&)
' Unhook the given handle
' Aufruf zb aus Form_UnLoad() mit
' Call UnHookMe(Me.hwnd)
    If lpPrevWndProc& <> 0 Then: Call SetWindowLong(hw&, _
                                      GWL_WNDPROC, lpPrevWndProc&)
    lpPrevWndProc = 0
End Sub
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Programmierung / VBA: Standardwerte bei neuem Datensatz 1 crebros 60 02. Sep 2013, 14:30
termin-klick Standardwerte bei neuem Datensatz
Keine neuen Beiträge Access Formulare: Standardwerte setzen 1 AlexR110789 72 05. Dez 2012, 19:26
derArb Standardwerte setzen
Keine neuen Beiträge Access Programmierung / VBA: Endlosformular - Standardwerte b. neuem DS heller darstellen 12 Wolfgang 1958 203 10. Sep 2012, 21:35
Wolfgang 1958 Endlosformular - Standardwerte b. neuem DS heller darstellen
Keine neuen Beiträge Access Programmierung / VBA: Tabelle mit Standardwerte aktuallisieren 10 Jump 357 10. Aug 2011, 16:36
MiLie Tabelle mit Standardwerte aktuallisieren
Keine neuen Beiträge Access Formulare: Standardwerte für Ufo 1 ituxxl 116 07. Jul 2011, 03:44
ituxxl Standardwerte für Ufo
Keine neuen Beiträge Access Tabellen & Abfragen: 1 Tabelle, 2 Abfragen, wie erstelle ich 2 Standardwerte? 2 stefankittel 337 12. Aug 2010, 00:22
stefankittel 1 Tabelle, 2 Abfragen, wie erstelle ich 2 Standardwerte?
Keine neuen Beiträge Access Tabellen & Abfragen: NZ-Funktion unterbindet Kommastellen 6 manuela.z 1565 16. Jun 2010, 13:46
manuela.z NZ-Funktion unterbindet Kommastellen
Keine neuen Beiträge Access Tabellen & Abfragen: Standardwerte aus anderer Tabelle 0 Hannnes 305 04. März 2009, 14:09
Hannnes Standardwerte aus anderer Tabelle
Keine neuen Beiträge Access Formulare: Standardwerte aus vorherigem Datensatz übernehmen 10 fathue 1046 02. Okt 2007, 10:50
fathue Standardwerte aus vorherigem Datensatz übernehmen
Keine neuen Beiträge Access Tabellen & Abfragen: Leere Trefferliste zeigt Standardwerte 5 tbones 516 05. März 2007, 10:28
jens05 Leere Trefferliste zeigt Standardwerte
Keine neuen Beiträge Access Programmierung / VBA: Bei INSERT Standardwerte der Tabelle erhalten 2 jabath 479 12. Jan 2007, 17:50
jabath Bei INSERT Standardwerte der Tabelle erhalten
Keine neuen Beiträge Access Programmierung / VBA: kombifeld standardwerte pro DS 3 Basti_22 634 26. Apr 2006, 10:44
Willi Wipp kombifeld standardwerte pro DS
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum