محمد أبوعبدالله قام بنشر نوفمبر 18, 2017 قام بنشر نوفمبر 18, 2017 السلام عليكم ورحمة الله وبركاته ضع الكود التالي في وحدة نمطية جديدة Option Compare Database Public Declare 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 وفي نموذج البداية ضع الكود التالي في حدث عند الفتح Private Sub Form_Open(Cancel As Integer) Call HideAccess End Sub تحياتي 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.