اذهب الي المحتوي

kaser906

03 عضو مميز
  • Content count

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

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

  • Days Won

    16

kaser906 last won the day on June 26

kaser906 had the most liked content!

السمعه بالموقع

245 Excellent

6 متابعين

عن العضو kaser906

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    *..*
  • الإهتمامات
    هاوي ومحب للتعلم

اخر الزوار

1,264 زياره للملف الشخصي
  1. بما أنك لم تذكر شي عن تخفيض الامان فأول خطوة هي قم بتخفيض أمان اكسس 2016
  2. kaser906

    مشكلة عند فتح اكسس

    هذه الرسائل تخبرك انه توجد مراجع مفقودة قم باضافة المراجع من نافذة محرر الفجول
  3. اليك هذا الموضوع للاستاذ جعفر ::بالتوفيق::
  4. kaser906

    مشكلة في فتح نموذج

    بعد إذن استاذنا جعفر والاخ محمد يمكنك فتح التقرير بكامل الشاشة بوضع هذا السطر في حدث عند الفتح DoCmd.Maximize ::بالتوفيق::
  5. مرحبا بك استاذ شفان تفضل هذه قاعدة بصغة accdr ww.rar
  6. مع الأسف استاذنا لم أصل إلى نتيجة Open.rar
  7. وعليكم السلام ورحمة الله وبركاتة بما أنك وصلت الى ما تريد فهذا هو المطلوب ::بالتوفيق::
  8. عذرا استاذنا الفرق بين مشاركتي ومشاركتك ثواني تقبل اعتذراي مرة أخرى
  9. السلام عليكم ورحمة الله وبركاتة بالمرفق احاول فتح قاعدة بيانات بملحق accdr محمية بكلمة مرور لكن يظهر خطأ لايتم التعرف على التنسيق او ان القاعدة مفتوحه من قبل مستخدم اخر عند استخدام نفس الاكواد لفتح قاعدة بيانات بملحق accdb يتم فتح القاعدة بدون مشاكل استخدمت هذا الكود Private Sub أمر0_Click() With New Access.Application .OpenCurrentDatabase "C:\Users\User pc\Desktop\Trb.accdr", , "123" .UserControl = True .RunCommand acCmdAppMaximize End With Application.Quit End Sub واستخدمت هذا الكود Private Sub أمر1_Click() Dim strAccessExe As String, strDB As String Static acc As Access.Application Dim db As DAO.Database Dim strDbName As String strDbName = GetDBDir & "C:\Users\User1 pc\Desktop\Trb.accdr" Set acc = New Access.Application acc.Visible = True Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=123") acc.RunCommand acCmdAppMaximize acc.OpenCurrentDatabase strDbName db.Close Set db = Nothing DoCmd.Quit End Sub ولكن الكود الاول والثاني لم يأتي بنتيجة المطلوب : التعديل على الكود إن أمكن لفتح قاعدة بيانات بصيغة accdr
  10. استخدم دالة me.A.SetFocus A اسم الكائن الذي تريد(التركيز) التوقف علية
  11. حياك الله استاذي المشكلة عندي كود لتأكد من مسار قاعدة البيانات الخلفية المرتبطة والمحمية بكلمة مرور ومهمة الكود التأكد من مسار القاعدة والتأكد من وجود جميع الجداول اذا تم تحديد مسار جديد يرتبط بالقاعدة الجديدة والمحمية بكلمة مرور ويفتحها بناء على كلمة المرور الموجودة بالكود عندما استخدم الكود مع القاعدة الخلفية بصيغة mdb الكود يعمل بسرعه والبرنامج خفيف اثناء فتحه وعندما اقوم باستخدامه مع قاعدة بيانات خلفية بصيغة accdb يصبح البرنامج ثقيل جدا اثناء فتحه وفتح النماذج فجاء في بالي ان السبب ممكن أن يكون هذا الخطأ اثناء تعيين كلمة مرور جديدة لقاعدة البيانات الخلفية بصيغة accdb ومن ناحية أخرى اريد معرفة ما معنى الرسالة ماذا يقصد بتشفير الكتلة وتجاهل مستوى الصفوف تقبل تحياتي
  12. السلام عليكم ورحمة الله وبركاتة عندما اقوم بتعين كلمة مرور لقاعدة بيانات باصدار 2010 accdb تظهر هذه الرسالة اما اذا كان ملحق القاعدة mdb فلا تظهر بحثت عن الموضوع ولم اجد حل ما هو المقصود بتشفير الكتلة مع مستوى الصفوف
  13. حلو واعتقد الجزأ الثاني راح يحل مشكلة عدم حذف بانات جدول بسبب العلاقات المرتبطة اثناء ترتيب حذف الجداول dbs.execute ("delete * from tbl_2") dbs.execute ("delete * from tbl_3") dbs.execute ("delete * from tbl_4") شكراً لك استاذنا
  14. وعليكم السلام ورحمة الله وبركاتة وإذا اردنا اسثناء أكثر من جدول ؟ كيف سيكون شكل هذا السطر if obj.name <>"tbl_2" then
×