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

...............................................

وعند الضغط على عملية معاينة التقارير يعلق النظام كاملا 

ارجو ان تساعدوني بحل المشكلة

ولكم جزيل الشكر والتفدير

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