mohammed alrabeai

اخ محمد احمد لطفى هل من الممكن اتواصل معك بطريقة اخرى ....طبقت ماقلت ومافي اي فائدة alhellal hamd الملف حجمة كبير شوية لايتحمل على الموقع

السلام عليكم اخواني اعضاء منتدى اوفيسينا ظهرت لدي مشكلة وهو عند تفعيل كود اخفاء شاشة الاكسس وهو كالتالي Option Compare Database Public Declare PtrSafe Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub Public Function getMyMacAddress(Optional strComputer As Variant) As String Dim oWMIService As Object Dim oMacs As Object Dim oMac As Object Dim strComp As Variant If IsMissing(strComputer) Then strComputer = "." End If Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set oMacs = oWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration") For Each oMac In oMacs If IsNull(oMac.MacAddress) = False Then getMyMacAddress = oMac.MacAddress End If Next End Function ............................................... وعند الضغط على عملية معاينة التقارير يعلق النظام كاملا ارجو ان تساعدوني بحل المشكلة ولكم جزيل الشكر والتفدير

كلما افتح البرنامج تطلع كلما افتح البرنامج تطلع لي ذي الرسالة...................وش الحل