ابو عارف

ولك بمثله تفضل اخي تم تعديل على الشهر و السنة حتى يرجع سنة 2015 في شهر واحد 2016 و هكذا بالتوفيق حوافز ال 55%.rar

و لك تحية للايجاد سجل ضمن مجموعة سجلات الكود التالي: Dim rst As Recordset Set rst = Form.RecordsetClone rst.FindFirst "ID=" & [Text1] & " And Code=" & [Text2] If Not rst.EOF Then Bookmark = rst.Bookmark ملحوظة: ID و Code اسماء الحقلين و Text1 و Text2 اسماء تكست بوكس او ارفق المثال للتطبيق عليه بالتوفيق

السلام عليكم و رحمة الله و بركاته استاذ ابا جود/ اولاً اشكرك على اهتمام الموضوع ثانياً: ايجاد الحل للموضوع يدل على انه لا مستحيل امام اباجود باذن الله ولكن رغم كثرة مشاكل كـ اختلاف اللغة ،اختلاف اصدار 2003،اختلاف اصدار 2010 سبب ان استغني عن المشروع و اقوم بانشاء قاعدة مرتبطة حتى اتمكن ضغط و اصلاحها من قاعدة الحالية ،لايزال انا في حاجة ماسة للمثل هذالكود و جزاك الله الخير لك اجمل تحياتي

تفضل اخي التعديل حسب 26 سجل او اقل. Both_Database.rar ابو عارف

السلام عليكم و رحمة الله و بركاته اخي هاني! اولا عليك كتابه اسماء كائنات كـ جدول ، تقرير، نموذج.... بالانجليزي و اسماء حقول ايضا ثانيا عملت لك قاعدتين الاولى يتم تحديد عدد سجلات تقرير من خلال استعلام ، افتح استعلام في عرض تصميم لاحظ حقل الاخيرقم بتغير 20 الى عدد ما تريده ولكن اقل من عشرين و في القاعدة الثانية تتجكم بالعدد من خلال النموذج ، اكتب عدد سجلات مراد عرضه في تقرير في مربع ثم اضغط على الزر اما الاقرارفي اسفل النقرير، فلا داعي تدخل منك للكتابة عدد و اسم الاول والاسم الاخير هذا كله تتغير تلقائي مهما كان عدد سجلات و في جميع صفحات حوافز ال 55%.rar حوافز ال 55%.rar

السلام عليكم و رحمة الله و بركاته تفضل اخي حسين التعديل حسب ما طلبت ، ممكن تبديل بين كمية و المبلغ من خلال قائمة المنسدلة اوعند ضغط على مربع "المبلغ المدفوع" او ضغط على احد ازرار وجبات برنامج مطعم (4).rar

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

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

ولكن اين مرفق استاذ جعفر؟

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

وعليكم السلام الشكر موصول باذن الله و الحمد لله

شكر لله تفضل حبيبي ان شاء الله يكون حسب المطلوب برنامج مطعم.rar

السلام عليكم بعد إذن اساتذة اليك احد الحلول برنامج مطعم.rar

وعليكم السلام و رحمة الله و بركاته اليك المرفق بعد التعديل حوافز ال 55%.rar

السلام عليكم و رحمة الله و بركاته اليك التعديل على الكود حسب حقلي اسم المعرف و الجنس Private Sub أمر147_Click() Dim stDocName As String Dim stLinkCriteria As String stDocName = "FORM2" stLinkCriteria = "[اسمالمصرف]='" & Me![اسمالمصرف] & "' And [الجنس]='" & [الجنس] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_أمر147_Click: Exit Sub Err_أمر147_Click: MsgBox Err.Description Resume Exit_أمر147_Click End Sub و هذا على حسب اسم المعرف و الشهر اذا تنسيق حقل الشهر نص Private Sub أمر147_Click() Dim stDocName As String Dim stLinkCriteria As String stDocName = "FORM2" stLinkCriteria = "[اسمالمصرف]='" & Me![اسمالمصرف] & "' And [الشهر]='" & [الشهر] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_أمر147_Click: Exit Sub Err_أمر147_Click: MsgBox Err.Description Resume Exit_أمر147_Click End Sub و هذا اذا نتسيق حقل الشهر رقم Private Sub أمر147_Click() Dim stDocName As String Dim stLinkCriteria As String stDocName = "FORM2" stLinkCriteria = "[اسمالمصرف]='" & Me![اسمالمصرف] & "' And [الشهر]=" & [الشهر] DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_أمر147_Click: Exit Sub Err_أمر147_Click: MsgBox Err.Description Resume Exit_أمر147_Click End Sub بالتوفيق

وعليكم السلام تفضل =DCount("*","[tabel2]","[contact no]=" & [contact no] & " And [Type speech]='خطاب وارد'") او =DCount("*";"[tabel2]";"[contact no]=" & [contact no] & " And [Type speech]='خطاب وارد'")

وعليكم السلام و رحمة الله و بركاته غير مصدر خطابات الواردة الى: =DCount("*","[tabel2]","[contact no]=" & [contact no])

السلام عليكم و رحمة الله و بركاته اخي الكريم ، اعتقد ميزة عرض معاينة قبل الطباعة بالكود غير متوفرة في اكسس 2003 جرب الملف على 2007 و وافيني بالنتيجة

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

تفضل اخي تم تعديل على عدم عرض اسم المركز عند فتح نموذج اما في تقرير يعرض اسم و الرقم المركز حتى قبل التعديل اصدار التراخيص.rar

وعليكم و رحمة الله و بركاته للاغلاق نموذج الاول اولاً ثم فتح النموذج الثاني عليك تعريف المتغير برقم ID في نموذج الاول و ثم وضع اسم المتغير في الشرط بدل ID لاحظ الكود On Error Resume Next Dim IDv As Integer IDv = id DoCmd.Close DoCmd.OpenForm "form2", , , "[ID]=" & IDv

تفضل غير كود الزر الى الكود: Dim Day1 As Integer Dim Month1 As Integer Dim Yer1 As Integer Day1 = 0 + D1 + D2 Month1 = 0 + M1 + M2 year1 = 0 + Y1 + Y2 D3 = Day1 Mod 30 M3 = (Day1 \ 30 + Month1) Mod 12 Y3 = (Day1 \ 30 + Month1) \ 12 + year1

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

السلام عليكم و رحمة الله و بركاته حبيت اشارك طريقة حفظ نسخة احتياطية للقاعدة بيانات حسب نموذج اعدادات وتم اضافة زر اسفل زر حفظ في شاشة إعدادات للحفظ النسخة مع ضغط و إصلاحها بالتوفيق،،،،، Main2.rar

بالضبط كما تفضلت ، الله يرزقك بالولد لنسميه على إسم ابن اخينا الظل الغامض (غازي) و نسميك ابو غازي إن شاء الله تحياتي