Mantab Bang..sucsess :D Makasih ya bang. semoga menjadi amal buat bang rijal..
Salam, Newbie rully ________________________________ Dari: Afrizal <[email protected]> Kepada: [email protected] Terkirim: Sel, 23 Maret, 2010 07:37:09 Judul: RE: [belajar-access] scroll mouse Semoga ini membantu mas Rully ini saya dapat dari www.databasedev. co.uk Pertama anda copy modul ini Di save dengan nama “modMouseHook” Option Compare Database Option Explicit Private Declare Function LoadLibrary Lib "kernel32" _ Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long Private Declare Function FreeLibrary Lib "kernel32" _ (ByVal hLibModule As Long) As Long Private Declare Function StopMouseWheel Lib "MouseHook" _ (ByVal hWnd As Long, ByVal AccessThreadID As Long, Optional ByVal blIsGlobal As Boolean = False) As Boolean Private Declare Function StartMouseWheel Lib "MouseHook" _ (ByVal hWnd As Long) As Boolean Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long ' Instance returned from LoadLibrary call Private hLib As Long Public Function MouseWheelON( ) As Boolean MouseWheelON = StartMouseWheel( Application. hWndAccessApp) If hLib <> 0 Then hLib = FreeLibrary( hLib) End If End Function Public Function MouseWheelOFF( Optional GlobalHook As Boolean = False) As Boolean Dim s As String Dim blRet As Boolean Dim AccessThreadID As Long On Error Resume Next ' Our error string s = "Sorry...cannot find the MouseHook.dll file" & vbCrLf s = s & "Please copy the MouseHook.dll file to your Windows System folder or into the same folder as this Access MDB." ' OK Try to load the DLL assuming it is in the Window System folder hLib = LoadLibrary("MouseHook.dll") If hLib = 0 Then ' See if the DLL is in the same folder as this MDB ' CurrentDB works with both A97 and A2K or higher hLib = LoadLibrary( CurrentDBDir( ) & "MouseHook.dll") If hLib = 0 Then MsgBox s, vbOKOnly, "MISSING MOUSEHOOK.dll FILE" MouseWheelOFF = False Exit Function End If End If ' Get the ID for this thread AccessThreadID = GetCurrentThreadId( ) ' Call our MouseHook function in the MouseHook dll. ' Please not the Optional GlobalHook BOOLEAN parameter ' Several developers asked for the MouseHook to be able to work with ' multiple instances of Access. In order to accomodate this request I ' have modified the function to allow the caller to ' specify a thread specific(this current instance of Access only) or ' a global(all applications) MouseWheel Hook. ' Only use the GlobalHook if you will be running multiple instances of Access! MouseWheelOFF = StopMouseWheel( Application. hWndAccessApp, AccessThreadID, GlobalHook) End Function '*********** ********* Code Begin ************ **** 'Code courtesy of 'Terry Kreft & Ken Getz ' Function CurrentDBDir( ) As String Dim strDBPath As String Dim strDBFile As String strDBPath = CurrentDb.Name strDBFile = Dir(strDBPath) CurrentDBDir = Left$(strDBPath, Len(strDBPath) - Len(strDBFile) ) End Function '*********** ********* Code End ************ **** Kedua ada copy vba ini ke form yg akan anda gunakan : Option Explicit Private Sub Form_Load() ' Turn the MouseWheel Off Dim blRet As Boolean blRet = MouseWheelOFF( False) End Sub Private Sub Form_Unload( Cancel As Integer) ' Turn the MouseWheel On Dim blRet As Boolean blRet = MouseWheelON End Sub Setelah itu anda simpan file mousehook.dll dalam folder yg sama dengan mdb anda ini saya lampirkan filenya semoga membantu thank Afrizal ________________________________ From:belajar-access@ yahoogroups. com [mailto:belajar- acc...@yahoogrou ps.com] On Behalf Of Rully Arfan Sent: 22 Maret 2010 16:50 To: belajar-access@ yahoogroups. com Subject: [belajar-access] scroll mouse Dear All + Suhu + Master Mau tanya bang , mungkin dah pernah di bahas, bagimana ya trik agar record tidak pindah , saat scroll Mouse di gerakan keatas atau ke bawah..?? TQ b4 rully newbie ________________________________ Menambah banyak teman sangatlah mudah dan cepat. Undang teman dari Hotmail, Gmail ke Yahoo! Messenger sekarang! Terhubung langsung dengan banyak teman di blog dan situs pribadi Anda? Buat Pingbox terbaru Anda sekarang! http://id.messenger.yahoo.com/pingbox/
