السلام عليكم اخواني اعضاء منتدى اوفيسينا
ظهرت لدي مشكلة وهو عند تفعيل كود اخفاء شاشة الاكسس وهو كالتالي
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
...............................................
وعند الضغط على عملية معاينة التقارير يعلق النظام كاملا
ارجو ان تساعدوني بحل المشكلة
ولكم جزيل الشكر والتفدير