• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

كاروان

اعضاء
  • عدد المشاركات

    229
  • تاريخ الانضمام

  • تاريخ اخر زياره

مشاركه بواسطة كاروان


  1. لم ينجح الامر معي

    وقد قمت بحذف الاوفيس و نصبه من جديد و لكن المشكلة هي نفسها

    البارحة قد استعلمت الكود ادنا لتخفيض حماية الاكسيس

    يمكن ان يكون منه لانه هنالك العديد من تغير الريجستريى و لا اعرف كلها

    Option Compare DatabaseOption ExplicitEnum RegHive    HKEY_CLASSES_ROOT = &H80000000    HK_CR = &H80000000    HKEY_CURRENT_USER = &H80000001    HK_CU = &H80000001    HKEY_LOCAL_MACHINE = &H80000002    HK_LM = &H80000002    HKEY_USERS = &H80000003    HK_US = &H80000003    HKEY_CURRENT_CONFIG = &H80000005    HK_CC = &H80000005    HKEY_DYN_DATA = &H80000006    HK_DD = &H80000006End EnumEnum RegType    REG_SZ = 1    REG_BINARY = 3    REG_DWORD = 4End EnumPublic Const ERROR_SUCCESS = 0&Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongPublic Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPublic Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As LongPublic Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As LongPublic Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPublic Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As LongPublic Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As LongPublic Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As LongPublic Function CreateRegKey(hKey As RegHive, strPath As String)Dim hCurKey As LongDim lRegResult As Long    lRegResult = RegCreateKey(hKey, strPath, hCurKey)        If lRegResult <> ERROR_SUCCESS Then            'there is a problem        End If    lRegResult = RegCloseKey(hCurKey)End FunctionPublic Function SaveRegLong(ByVal hKey As RegHive, ByVal strPath As String, ByVal strValue As String, ByVal lData As Long)Dim hCurKey As LongDim lRegResult As Long    lRegResult = RegCreateKey(hKey, strPath, hCurKey)    lRegResult = RegSetValueEx(hCurKey, strValue, 0&, REG_DWORD, lData, 4)    If lRegResult <> ERROR_SUCCESS Then    End If    lRegResult = RegCloseKey(hCurKey)End Function
    If Version = "8.0" ThenstrValueM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\8.0\Access\Security", "Level", 1)strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\8.0\Access\Security", "Level", 1)ElseIf Version = "9.0" ThenstrValueM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\9.0\Access\Security", "Level", 1)strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\9.0\Access\Security", "Level", 1)ElseIf Version = "10.0" ThenstrValueM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\10.0\Access\Security", "Level", 1)strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\10.0\Access\Security", "Level", 1)ElseIf Version = "11.0" ThenstrValueM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1)strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1)ElseIf Version = "12.0" ThenstrValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\12.0\Access\Security", "VBAWarnings", 1)End If

    وللعلم عندي ويندوس 8

    0

  2. شكرا على الرد

    لايوجد لدي اكسيس الا 2003 و قد كونت قاعدة جديدة و عملت عليها وظهر عندي نفس المشكلة

    و لا ادري ماذا عملت غير ذلك

    الا بعض المرات احمل امثلة من الانترنيت و افتحها على حاسبتي

     

    فقط اريد اعرف المشلكة اين هي اذا لم يكن لها حل سوف انصب الاكسيس من جديد

    0

  3. السلام عليكم

    لقد وجدت حل اسهل في موقع مايكروسوفت

    وهو يكون كالتالي

    To set a data column to contain auto-generated numbers
    1. Open your dataset in the Dataset Designer.

    2. Select the column you want to populate with auto-generated numbers.

    3. In the Properties window, set the following properties:

      Property

      Setting

      AutoIncrement

      true

      AutoIncrementSeed

      If you want to begin at a number different from the default value of 0, set this value to the starting number for this column.

      AutoIncrementStep

      In each new row, the column value is incremented by this value.

    1

  4. في المرفقات المثال

    عند فتح البرنامج  و كليك على جديد يفتح فورم جديد

    وحينها عند الضغط مرة اخرة على زر جديد من القائكة يفتح فورم اخر

    وهذه ما لا اريده اريد اذا كان فورم 2 مفتوح ان لايتم فتح فورم اخر

     

    تحياتي

    New folder (3).zip

    0

  5. السلام عليكم

    كما قلت لك انا جديد في الفيجول بيسك و لا اعرف ماهي الملفات التي ارفقها لكم

    ولكن لتعرفوا اني لدي فورم رئيسي mdi  و اريد فتح فورم اخرى داخله و لا اريدها اذا كانت مفتوحة ان تنفتح مرة اخرى

     

    الفيجول بيسك الذي اعمل عليه 2010 

    0

  6. السلام عليكم

    انا جديد في فيجول بيسك 2010 و قد عملت برنامج و فيها قائمة و من القائمة استدعي الفورم

    ولكن اذا فتحت الفورم و عملت كليك مرة اخرة يفتح فورم اخر و هكذا تقدر تفتح عدد لا نهائي من نفس الشاشة

    سؤلي كيف امنع من فتح نفس الفورم اكثر من مرة

     

    تحياتي

    0

  7. السلام عليكم

    عندي الكود ادناه

    DoCmd.SelectObject acReport, "rptCustomers", True
    'This prints out two copies of the report
    DoCmd.PrintOut , , , , 2

     

    وهو لطبع تقرير حسب عدد النسخ التي اريدها ولكن المشكلة بالسطر الاول و هو

    يقوم بتحيد التقرير و بذلك يتفح شاشة مكونات الاكسس و يكشفها للمستخدم و هذا ما اريده

     

    ارجوا المساعدة اذا امكن

    0

  8. السلام عليكم

    هل يمكن عمل طباعة  المستندات على كامل حجم التقرير و قد عملت كثيرا ولكن بتقى هنالك حواف فارغة على التقرير

    لان الاداة ليست صور لذلك لا يمكن وضعها كاملا على التقرير

    او هل يمكن طباعة الصور مباشرة من مجلد الحفظ دون وضعها في تقرير

     

    تحياتي

    0