هشام علام

السلام عليكم ورحمة الله وبركاته المشكلة قد تكون تكمن في اختلاف اصدارات الاوفس الموجوده على الجهاز ، اعد تحميل الاوفيس بعد إزالة الاوفس القديم http://www.officena.net/ib/index.php?showt...;hl=Unrecognize http://www.officena.net/ib/index.php?act=S...ite=Unrecognize http://www.officena.net/ib/index.php?showt...;hl=Unrecognize وبالنسبة لـ tools في حالة عدم حل المشكلة فهي في الروابط السابقة

جزاكم الله خيراً وأعاننا على تلاوة كتابة الكريم ويسّر الله لنا ولكم كل امرٍ عسير ....

السلام عليكم مرحباً بك مهندس محمد ، الموقع ما شاء الله ، كنز لما يحمل من مراجع لنا ، التأكيد على النسخ الإحتياطي مهم جداً ، وخاصة في حالة الإختراق نعتذر يا ريس عن التقصير فى المشاركات .. نتمنى الإطمئنان عليك ،،

السلام عليكم يتم ذلك عن طريق Link كما تفعله فى قاعدة بيانات منفصلة أو للتوضيح أكثر استخدم ODBC الموجودة فى لوحة التحكم لقاعدة الـ SQL ثم تختار من برنامج الاكسس العادى Linked Table ليكون الوسيط بينك وبين الـ SQL هو ODBC ولكن فى رأئي ان يكون مشروع اكسس Project و هو فتح قاعدة بيانات جديدة في أكسس من نوع Database Project وهذا يتطلب ان تعمل على SQL Server إجبارى وبالتوفيق اخ ايمن مع تحياتى ،،،

ما شاء الله حفظكم الله جميعاً مع الإصرار والعزيمه تبلغ اى شئ جزاكم الله خيراً

لا يشترط وجود تحميل الفيجوال ولكن تأكد من إنها مدرجة فى المراجع وفى مكانها الصحيح اما فى ملف النظام للوندر او نفس المجلد الذى توجد به القاعدة اضغط ALT+F11 فى الاكسس ثم من قائمة Tools ثم Reference ثم حدد موقعها وقم بإضافتها .. تحياتى ،،

وملايين كمان إن شاء الله ميكروسفت تقول ان مقدار السعة للجداول 2 جيجا بايت يعنى موضوع اكبر بكثير مما ذكرت حضرتك إلا انه يزيد عن ذلك ، وهذا غير الحلول المذكورة بالمنتدى ... يحياتى ،،،

جْزيت الخير كله اخ مسقط

تجربة اخرى Function IsInDesignView(ByVal strFormName As String) As Boolean ارجاع القيمة إلى True إذا خصص النموذج للفتح فى وضع التصميم Dim oAccessObject As AccessObject Set oAccessObject = CurrentProject.AllForms(strFormName) If oAccessObject.IsLoaded Then If oAccessObject.CurrentView = acCurViewDesign Then IsInDesignView = True End If End If End Function الله المستعان :(

يمكنك ان تفعل ذلك يدوياً فتح قاعدة البيانات اكسس من خلال Notepad ثم تغيير اى شئ وتأكد من معرفته جيداً ، وحاول فتح قاعدة البيانات .. وإذا اردت الرجوع الى قاعدة البيانات اعد التغيير ما كان ولاحظ المسافات جيداً .. وهناك برنامج عادى يقوم بهذة العملية يمكنك البحث علية فى جوجل " برنامج تشفير " اما عن الكود فلا اقابله ... تحياتى

السلام عليكم اعتقد على نفس نمط دالة التفقيط اخ امجد هل تقصد النتيجة تكون صوتياً

جزاكم الله خيرا اخ رضا جعل الله ذلك فى ميزان حسناتك

السلام عليكم هل التحوبل يتم كامل بكل الإمكانيات الموجودة ، ام هناك بعض القصور فى الأدوات ، لقد جربت هذا الموضوع من فترة ولكن لا اعلم هل الاصدارات الجديدة جيدة ام لا ارجوا الافادة ممن جرب هذه البرامج

Dear brother please me to write to you firstly,I witness that I love all of you in allah my brother islammmilet me ask you question. Are you arab man or not and if you are arab man why don't you write in arabic so that all members of the forum can make good use of your dialogue i want to pay attention of yours that your question is understood easily if you wrote it in arabic but many members felt difficulty to understand your question in English recieve my message with large chest my greets and saluts Hisham Allam الترجمة : أخي العزيز اسمح لي بالرد عليك بداية ، أشهدكم أنني أحبكم في الله أخي اسلامي .. دعني أطرح عليك هذا السؤال : هل أنت عربي أم لا ؟ فإن كنت عربياً فلم لم تكتب سؤالك باللغة العربية ؟ والتي يفهمها كل أعضاء المنتدى . علماً بأن سؤالك سهل ومفهوم إذا كُتب باللغة العربية .. لكن الأعضاء سيشعرون بصعوبة هذا السؤال لأنه مكتوب باللغة الانجليزية . أرجو أن يتسع صدرك لهذا الرد مع تحياتي هشام علام

اعتقد أن الإخفاء أو الإظهار سواء بالكود أو بغيرة ليس له تأثير على الضغط او الحجم ،، ربما تكون القاعدة به خطأ فى التصميم .. أو ما هى الطريقة التتى تبعها لإخفاء أقصد الكود .. هذا رأى ربما يكون باقى الاخوة لهم رأى أخر تحياتى ،،،

لم ينجح معى مع انى اعددت الخيارات كما هى موضحة فى ال Help ربما يكون من عندى الخط ضعيف الان ، ساحول مرة ثانية فى وقت لاحق إن شاء الله ،،،

سأجرب الان وأخبرك ان شاء الله ،،

نعم اخى مهند الإسلوب الذى اتبعته هو اضافة المرجع مع الكود التالى .. Dim dbs As Database, tdf As TableDef Set dbs = CurrentDb For Each tdf In dbs.TableDefs If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 _ And tdf.Attributes = 1 Then tdf.Attributes = tdf.Attributes - dbHiddenObject End If Next tdf Set dbs = Nothing على فكرة هذه الحماية قوية فى حالة لو كانت بصيغة MDE اعتقد انك نسيت ان تحولها اخ مهند الى MDE :( تحياتى ،،،

السلام عليكم الأخ الحبيب مهند ،، اسلوب جميل فى الإخفاء ويمكن الإعتماد عليه إلا إننى بفضل الله تمكنت من إظهار الجداول الملف مرفق Hide تم إظهار الجداول - هشام علام.rar

والله لا اعلم انها موجودة ام لا ، ولكن فكرتها الإلكترونية ان شاء الله يسيرة عموماً صمم البرنامج اخى واترك موضوع الربط بالدائرة إلى حين الانتهاء من صلب البرنامج والله المستعان ، لا تقلق أخ جمال

لسلام عليكم ==================================== اخى الكريم = ([أبو هادى],[مهند],[رضا]) Asfrinds ===================================== الفكرة ممتازة جدا موضوع التعديل والتاريخ ولقد جربتها ونجحت تمام ، ولكن لا تزال المشكلة قائمة بالدخول إلى التصميم وإزالة الحدث عند الفتح والفكرة الآن ان يكون اختبار النموذج فى وضع التصميم ام لا اى بمجرد دخولك الى التصميم يتم إغلاق البرنامج من المعروف يمكن اختبار النموذج فى وضع الفتح دالة IsLoaded والمشكلة فى تجميع الكود الــ Design view مثل دالة اختبار الفتح ، هى نفس الفكرة التى تناقشنا فيها سابقاً يا اخ مهند ولتبسيط الفكرة اكثر مثلا هذا الكود السبيط DoCmd.OpenForm "form1", acDesign يقوم بفتح النموذج فى وضع التصميم ، ولكن عند التصميم اريد أن أختبر النموذج للـ acDesign فما رائيكم فى الفكرة هل ستنجح إن شاء الله ام ؟ :) Function HacDesing(ByVal strFormName As String) As Integer Const conObjStateClosed = 0 Const conDesignView = 0 If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conDesignView Then 'On Error Resume Next If Forms(strFormName).CurrentView <> conDesignView Then ' DoCmd.Quit HacDesing = True End If End If End Function مرفق ملف Design.rar

أخى الكريم محمد بالنسبة لجبر الكسر تم من خلال استعلام واسم الحقل H1 الرقم الاصلى هو Hisham HI: Fix([Hisham]) بالنسبة للكسر نفسه تم من خلال النموذج =[Hisham]-Fix(Abs([Hisham])) مع ملاحظة فى التنسيق = # والمنازل العشرية 2 وغيرها حسب طلب برنامجك راجع الملف المرفق أعلى تحياتى ،،

لقد قمت بتصميم المطلوب ارجوا ان يكون هو الملف مرفق تحياتى ،، لفصل الكسر.rar

فى التنسيق للحقل حدد العلامة العشريه كيفما تشاء جرب وإن لم تنجح سارفق لك ملف ان شاء الله

اضافة بسيطه اخوانى =H1-fix(abs(H1)) حيث H1 هى الخليه التى بها الرقم المراد وهذا يتم فى مربع نص ، تحياتى ،،