مشکل در مخفی سازی اکسس

[angela]

با سلام و عرض ادب و تشکرررررررررررررر فراوان
فایلی دارم که هنگام ورود روی سیستم خودم وقتی اجرا میشه صرفا فرم باز میشه و محیط اکسس مخفی هست
اما وقتی از filesharing روی شبکه قرار میدم و توی یه سیستم دیگه باز میکنم تمامی اطلاعات اکسس نمایش داده میشه (برای enable شدن فایل) چطور میتونم این مشکل رو رفع کنم؟

[rostamani]

سلام باید دیتا بیس برنامه رو از برنامه جدا منی و فایل جداول رو شر کنی .خود برنامه رو شر نمیکنن
از منوی database tools گذذینه access database رو بزن تا دیتای برنامت جدا بشه
اگر متوجه نشدی تو تلگرام پی ام بده راهنماییت کنم : 093589999671

[ZAMEN58]

سلام من اینطوری مخفی می کنم ببینید بدرد می خوره

Option Compare Database
Option Explicit
#If Win64 Then
#Else
Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal wRevert As Long) As Long
Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
#End If
#If VBA7 Then
Public Declare PtrSafe Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare PtrSafe Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal wRevert As Long) As Long
Private Declare PtrSafe Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
#Else
Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal wRevert As Long) As Long
Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
#End If


Public Sub AccessCloseButtonEnabled(pfEnabled As Boolean)
On Error Resume Next
Const clngMF_ByCommand As Long = &H0&
Const clngMF_Grayed As Long = &H1&
Const clngSC_Close As Long = &HF060&
Dim lngWindow As Long
Dim lngMenu As Long
Dim lngFlags As Long
lngWindow = Application.hWndAccessApp
lngMenu = GetSystemMenu(lngWindow, 0)
If pfEnabled Then
lngFlags = clngMF_ByCommand And Not clngMF_Grayed
Else
lngFlags = clngMF_ByCommand Or clngMF_Grayed
End If
Call EnableMenuItem(lngMenu, clngSC_Close, lngFlags)
End Sub


Public Function HideAccess()
Call ShowWindow(Access.hWndAccessApp, 0)
End Function


Public Function ShowAccess()
Call ShowWindow(Access.hWndAccessApp, 5)
End Function


Public Function StartUp() As Boolean
'DoCmd.ShowToolbar "Ribbon", acToolbarNo
'Call AccessCloseButtonEnabled(False)
DoCmd.OpenForm "frmMain"
End Function