الدكتور خضر الرجبي

السلام عليكم أخي أبا هادي ، بارك الله فيك إليك الملف المطلوب ، مع الشكر. مع الاحترام والتقدير الملفات المرفقة Praying.rar ( 609.13ك ) عدد مرات التنزيل: 27

السلام عليكم كلامك 100% ، أنا بعثت لك المثال الخطأ ، ألأن تذكرت أين المثال هذا هو (بإذن الله ) ستستفيد منه مع الاحترام

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

السلام عليكم 1. عرف حقلين جديدين في الجدول first ، Last للأسم الأول والعائلة 2. في النموذج الذي فيه الاسم الكامل أضف الحقلين الجديدين في وضع التصميم 3. في حدث في الحال oncurrent للنموذج ضع الكود التالي : Private Sub Form_Current() pos = Nz(InStr(1, LTrim(Me.fName), " "), 0) If pos > 0 Then Me.First = Left(LTrim(Me.fName), pos) Me.Last = Right(LTrim(Me.fName), Len(LTrim(Me.fName)) - pos + 1) Else Me.First = LTrim(Me.fName) End If End Sub 4. النتيجة هي المطلوب وسوف تفصل االأسماء كما تود عندما تنتقل لأي سجل بعد تحديث التعديل لجميع السجلات بإمكانك حذف حقل الاسم الكامل وحذف الكود ولكن لاحظ أن fname في الكود هو الاسم الكامل مع الاحترام

السلام عليكم أقترح أن تجرب من ... تعليمات... كشف وإصلاح. مع الاحترام

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

السلام عليكم يتم ذلك من خلال وضع حقل في الجدول من نوع كائن OLE وتربط الصور به في مرحلة الإدخال. مع الاحترام.

السلام عليكم أعتقد أنك ستجد المطلوب هــنــا في خلاصات الحماية والأمان مع الاحترام

السلام عليكم حل السؤال المطلوب مع مثال لي موجود هــنــا مع الاحترام

السلام عليكم أنا أستخدم نسخة الأكسيس الأخيرة 2003 ، ولا توجد عندي هذه المشكلة مع الاحترام

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

السلام عليكم أعرف كيفية الحل ولكن على أكسيس 2003 ، ربما يساعدك الحل ، إذا لم تستطيع فتح المرفق لأنك تستعمل أكسيس 97. فإليك فكرة الحل. في حدث عند الطباعة لمقطع التفصيل تكتب الكود التالي Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) V = Me.ScaleHeight / 2 R = Me.ScaleHeight / 3 If Me.Grade < 50 Then Me.Circle (5570, V), R End If End Sub وسيقوم بوضع دائرة حول الدرجة (grade) التي أقل من 50 في هذا المثال. مع الاحترام CirclesOnConditionOnReports.rar

السلام عليكم الحل هو بوضع الشرط في المعيار كما يلي : <>0 Or Is Null مع الاحترام

السلام عليكم يكون ذلك عن طريق إنشاء استعلام حذف مبنياً على معيار السنة كما يلي : مع الاحترام

السلام عليكم أخي الفيلسوف111 ، صدقا وبدون مجاملة أفكارك رائعة جدا. أنصح جميع الاعضاء بإنزال برنامج أخانا الفيلسوف111، وتفحصه بعناية. ولأهميته أرفقه هنا مرة أخرى. مع الاحترام والتقدير Order.rar

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

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

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

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

السلام عليكم لا يوجد جن في الحاسوب ، هل قمت بحذف الملف ؟ يمكن استرجاع الملف بعد حذفه بعمل Recovery. مع الاحترام

السلام عليكم المثال المطلوب على الشرح الذي تم في التعقيب الأول. مع الاحترام RepeatedNamesSolution.rar

السلام عليكم الامر بسيط ، لقد نسيت أن تقوم بالانتقال إلى السجل التالي، والكود بعد التعديل يصبح : Sub MM() Dim DB As Database Dim rs As Recordset Dim MYPATH As String MYPATH = Workbooks("Labour.xls").Path & "\MH1.mdb" Set DB = OpenDatabase(MYPATH) Set rs = DB.OpenRecordset("PM3") rs.MoveFirst Do Until rs.EOF If rs.Fields(3).Value = 395 Then rs.Edit rs.Fields(3).Value = 340 rs.Update End If rs.MoveNext Loop End Sub مع الاحترام

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

السلام عليكم أخي أبا هادي وأبا سليمان وأبا الوليد ، بارك الله فيكم جميعا سأجري بحث وافي عن كل ما جئتم به وأوافيكم قريباُ بنتائجه التي أتوقع من الان أن تكون أكثر من رائعة. مع فائق احترامي وتقديري لكم جميعاُ.

السلام عليكم أخي ابن مسقط ، بارك الله فيك الحل في استعلام التعديل كما كنت تفكر ولكن هكذا مع الاحترام