نجوم المشاركات

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

تسلم شفان حليت لي مشكلة كبيرة جدا وكنت ابحث عن حلها تقريبا لمدة اسبوع لأن قواعد بياناتي تعتمد على هذه المواد اعتماد كبير فشكررررررررررا جزيلا لك اخ شفااااان

نسيت اذكرك بهذا اتفضل اتمنى ان ينال اعجابك Update (2) (1).rar

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

اذا تقصد الكود التابع للاستاذ ياسر خليل ادخل على NAME MANAGER وغير النطاق هذا الى اسم الشيت الذي تعمل علية =الموجود!$A$1:$M$574

وعليكم السلام

محاولة متواضعة مني اي كود مكرر بيكون لونة احمر فسوف يسهل عليك قليلا جرد المستودع 1-12-2016.rar

رابط المصدر وإليك الملف .. اضغط Alt + F8 وانقر على زر Run .. جرد المستودع 1-12-2016.rar

اخي الاستاذ صالح كثر الكلام حول الامان في اكسس وكل ينظر له بحسب خبرته وخلفيته العلمية وانا اولهم فحسب خبرتي مهما عملت حماية او التفاف لعدم الدخول على الجداول او فتح الاكسس تلقائيا فانه غير مجدي ولكن حسب طلبك هناك مشاركة للاستاذ جعفر بتشغيل ملف الاكسس عن طريق سكريبت مخزن وبه اوامر لفتح الملف وتغيير اعدادات الامان سابحث عنه ولي عوده

تمام اعملي اول شي الجداول في الاكسس 1. جدول الشرطي : الكود ونوعه ترقيم تلقائ ومفتاح اساسي - الاسم الاول ونوعه نص - الاسم الاخير ونوعه نص- الرتبه ونوعه نص- الراتب ونوعه رقم 2. جدول المجرم : الكود ونوعه ترقيم تلقائي ومفتاح اساسي - الاسم ونوعه نص- رقم الهوية ونوعه نص- العمر ونوعه نص 3. جدول الجريمة : الكود ونوعه ترقيم تلقائي - تاريخ الجريمة ونوعه تاريخ - كود الشرطي ونوعه رقم - كود المجرم ونوعه رقم - وصف الجريمة ونوعه نص ثم يتم الربط بين جدول الشرطي وجدول الجريمة بواسطة الكود مع كود الشرطي والعلاقة هنا نوعها واحد لمتعدد ثم يتم الربط بين جدول المجرم وجدول الجريمة بواسطة الكود مع كود المجرم والعلاقة هنا نوعها واحد لمتعدد وهنا عملنا التصميم وال erd بقي عمل نماذج للجداول وادخال البيانات وعمل الازرار الان يمكنك تنفيذ انشاء اجداول والعلاقة ثم رفع الملف لمواصلة عمل النماذج والازرار بالتوفيق

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

::: welcome to The System

ماهي الفكرة او الغرض ؟ مثال بسيط ومثل ما ذكر الاستاذ ابو خليل لا يمكن والنموذج مغلق ولكن يمكن التحايل بان يكون مفتوح ولكن مخفي بالتوفيق

وعليكم السلام ورحمة الله بعض التغييرات على معادلات الملف التي أرجو أن تفي بالغرض (إن كنت قد فهمت المطلوب)... تم إضافة معادلات أخرى باستعمال الدالة OFFSET تقوم بالعملية نفسها... بن علية INQUIRY sheet.rar

المشكلة اعتقد : الخط لم يتم النعرف عليه بالاجهزة يمكن ان هناك خط times new roman arabic ولكنه بالاجهزة بشك ثاني والله اعلم

السلام عليكم ورحمة الله بعد اذن اخى ابو عبد النور الملف بدون تغيير الاسماء من اللغة العربية ahmad.rar

جرب هذا الملف فقط اضغط على الزر ملء الكشوف توزيع اللجان بالمعادلات salim.rar

إذا كانو في نفس العمود ظلل العمود وروح على جزء Data وتحت خيارات Data Tools اختار Remove Duplicates وهو راح يزيل لك جميع البيانات المتكررة وهذا رابط شرحت فيه الطريقة وهذا رابط ثاني إذا حاب انك تعرف وين البيانات المتكررة قبل ما تحذفها

وعليكم السلام المشكلة كانت في اشياء قديمة انت كنت عاملها في البرنامج: . و . وتم حذفها ، وحُلّت المشكلة جعفر 453.Aziz.accdb.zip

جرب هذا الكود ليعمل الكود بشكل جيد يجب ازالة الخلايا المدمجة من صفحة البيانات في الصف الاول Sub Translate_Data() Dim rg_to_copy As Range Dim lr As Integer Dim m As Integer m = 0 Application.ScreenUpdating = False On Error Resume Next Sheets("النتائج").Cells.ClearContents lr = Application.Max(Sheets("البيانات").Range("A:A")) For I = 1 To lr If Sheets("البيانات").Cells(I + 7, "O") = "اوفسينا" Then With Sheets("البيانات") .Select Set rg_to_copy = Union(.Range(Cells(I + 7, 1), Cells(I + 7, 4)), .Range(Cells(I + 7, 15), Cells(I + 7, 17)), _ .Range(Cells(I + 7, 26), Cells(I + 7, 28))) End With rg_to_copy.Copy Sheets("النتائج").Cells(m + 1, 1).PasteSpecial m = m + 1 End If Next Sheets("النتائج").Range("b:b").SortSpecial Application.ScreenUpdating = True Application.CutCopyMode = False End Sub

وعليكم السلام ورحمة الله، والله نصيحة لك ولكل الاخوة الباحثين عن حل لمشكلاتهم. طرح الطلبات بهذا العدد الكبير من النقاط يجعل الكثير من المتطوعين - اللذين لديهم اوقات قليلة للدخول الى المنتدى - لا ينطلقون في التفكير للاجابة على تساؤلاتكم ان تبدأ دائما بمحاولة من جانبك وعند اي عقبة يتم طرح النقطة المبهمة هنا لتلقي الاجابة والمساعدة عليها لان بهذه الطريقة سوف تتعلم من حل مشكلة الى أخرى. سؤال ما هي النتائج المرجوة من معالجة ملفك النصي ؟ ومن اين تقوم باسخلاص الملف النصي هذا ؟ لان ما ارفقته عبارة عن بلوك واحد فقط وليس عبارة اسطر عديدة ؟

On Error Resume Next Me![TIME_NOW] = Format(Time, "hh:nn:ss ampm") Me.TIME_NOW = Time() 'preview report If (Time() >= #9:55:00 AM# And Time() <= #9:55:01 AM#) Then Dim stDocName As String DoCmd.SelectObject acReport, "rep_name", True stDocName = "rep_name" DoCmd.OpenReport stDocName, acPreview End If 'close form If (Time() >= #9:55:00 AM# And Time() <= #11:59:59 AM#) Then DoCmd.Close acForm, "frm_name" End If هذا الحدث على الوقت on timer وجلعت الرقم 1 timer interval لان احتاج من كل رئيس قسم التعامل مع النماذج كل حسب قسمه ابتداء من الساعة 7.30 صباحا وحتى الساعة 9:55 دقيقة صباحا وبعد الساعة 9:55 تغلق النماذج على كل الاجهزة على الشبكة طبقا لهذا الكود ويبقى جهازى لمعالجة البيانات فى تلك الفترة والتى لا يسمح باضافة او تعديل اى بيانات فيها الا من خلالى او القائم على العمل فى غيابى للعلم فى كل قسم نسخة من القاعدة المرتبطة بالجداول على السيرفر اى ان كل جهاز يفتح قاعدة بياناته التى يتعامل منها من جهازه هو وليس من السيرفر السيرفر فقط للجداول ليس الا

thn-----x

ضع هذا السطر في حدث زر امر DoCmd.RunSQL "UPDATE tbl1 SET tbl1.fld1 = [forms]![frm1]![text1]" باعتبار tbl1 اسم الجدول fld1 اسم الحقل في الجدول frm1 اسم النموذج text1 اسم الحقل في النموذج ملحوظة : خذ نسخة احتياطية من عملك قبل التنفيذ

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