ابوخليل

السبب هو ان عندك نسخة من وورد مفتوحة على كل حال هذا التعديل لتلافي هذه المشكلة ومراعاة الحفظ بعد التعديل ولكن قبل تشغيل المثال يجب اولا تحرير المستند العالق اضغط : كنترول+الت+ديليت للذهاب الى ادارة المهام واغلاق وورد ان وجد test2.rar

انا اعمل على الاصدار 2003 لذا اضررت الى نقل مثالك على جهاز آخر للاطلاع عليه تم عمل الجداول بشكل ممتاز بل احترافي ويمكنك الاستمرار اذا اردت العمل تقليدي فقط جدول tbJunctionClassStudent يجب ان يشتمل على : 1- رقم الشعبة 2- رقم المساق ( على اعتبار 5 مساقات في اليوم ) 3- اليوم والتاريخ 4- رقم الطالب 5- خانة الغياب وذكرت ان العمل تقليدي لانه مستقبلا سيتم من خلال نموذج الغياب : 1- اختيار اسم الطالب 2- اختيار الشعبة 3- اختيار المساق 4- اختيار رقم المساق 5- التأشير على خانة الغياب ما عدا التاريخ واليوم فيمكن ظهوره آليا

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

الحمد لله ،،، ولك بالمثل ...

تفضل تم التعديل New_Db_Up4.rar

اعتقد ان الخطأ في استخراج السنة فالمعادلة تحسب الفرق بين السنين فقط فالدالة year ترجع من التاريخ السنة فقط التي هي اربعة ارقام فنحن هنا نطرح اربعة ارقام من اربعة ارقام امل ان المسألة اتضحت لك وللتصحيح حسب رغبتك يجب ان نستخدم الدالة dateDiff ويكون الحساب بالاشهر فما دون 12 لا يستحق

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

تفضل تم التعديل New_Db3.rar

تفضل فتح ملفات وورد حسب اسم المستند افتح قاعدة البيانات وانقر نقرا مزدوجا على حقل اسم الملف يجب ان تكون المستندات بجانب قاعدة البيانات و يمكنك تغيير موقع المستندات فقط عدل على المسار داخل الكود test.rar

تفضل حسب طلبك news2.rar

السلام عليكم عمل طيب جزاك الله خيرا استفسار في الجداول وبعيدا عن التقارير : من اين جاءت القيم في رصيد بداية المدة ؟ هل يتم ادخال القيمة يدويا ؟ كيف ومتى ؟ سؤالي هذا مبني على الحركات المعروفة على برامج نقاط البيع

انظر هذا الكود يتم من خلاله الترقيم بالزيادة مع تحديد رقم البداية وقد تم ضبط الحقل كمفتاح لا يقبل التكرار ويمكنك وضع اي رقم تريد ان يكون هو البداية Private Sub zer1_Click() On Error Resume Next Dim i As Integer i = DMax("[id]", "tbl1") If i < 12345 Then id = 12345 Else id = i + 1 End If End Sub وهذا تطبيق Test1.rar

نريد صورا من العمل اليومي الورقي عند رصد الغياب وصورا من التقارير المرسلة للادارة والمالية

تفضل اخي الكريم اذا كنت احسنت الفهم عنك هذا التعديل آمل ان يحقق مطلوبك New_Db.rar

بالضبط هو ما جال في خاطري جزاكم الله خيرا

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

الكود يعمل 100% ضع الكود في حدث الحالي للنموذج

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

وعليكم السلام انت صدرت الملف باسم ايضا الارسال يكون بالاسم نفسه بمعنى سيكون مسار الارسال هكذا : .AddAttachment CurrentProject.Path & "\saleh\" & Format(Date, "yyyy-mm-dd") & ".xls"

التعديل في نموذج district_customers انقر الزر يظهر العدد في الحقل text38

شكرا للاستاذ مارد على الفائدة اخونا الكريم يفضل دائما ان يكون هناك معرف فريد لكل عميل لان البحث بالاسم احياناغير دقيق تم التعديل باستخدام الدالة Dcount برنامج تصفية البيانات2.rar

وفي جدول الغرف : مالفرق بين رقم 5 ورقم 7 ؟

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

حسب علمي هذا هو الحل المنطقي

سلمت أناملك استاذ احمد تمت التجربة بنجاح 100% وقد تم تعديل السرعة الى الموضح ادناه وهو 0.2 حسب سرعة القارىء جزاك الله خيرا وجعله في موازين اعمالك Dim dblStart As Double Dim dblEnd As Double Dim dblTime As Double Private Sub txtTest_Change() If Len(txtTest.Text) <= 1 Then dblStart = Timer Else dblEnd = Timer dblTime = Round(dblEnd - dblStart, 2) If dblTime > 0.2 Then txtTest = "" MsgBox " عفوا ... لايمكن الإدخال إلا عن طريق قارئ الباركود" End If End If End Sub