فتى الوادي

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

جزاك الله خيراً وزوجك الله بكراً ....

السلام عليكم ... أما إذا امتداد الملف MDE فالتغير فيه صعب ...

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

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

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

السلام عليكم ... لم تذكر امتداد الملف هل هو MDB أو MDE ؟؟؟؟ وهل هو مغلق مفاتيح الشفت ؟!

السلام عليكم ... النقطة الثالثة أستخدم هذا الكود في حدث بعد التحديث لحقل اسم الطالب : If (Eval("DLookUp(""[اسم الطالب]"",""[جدول1]"",""[اسم الطالب] =form![اسم الطالب] and [رقم الشعبة] =form![aa]"") Is Not Null")) Then Beep MsgBox " سبق تسجيل الطالب في نفس الشعبة" _ , vbExclamation, "مدقق الطلاب" DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70 Me.Undo DoCmd.GoToControl "aa" End If نسيت أن أذكر شيء مهم بالنسبة إلى - ايقاف زر السكرول للفارة لو قمنا بإيقافها فإن زري بيج أب و بيج داوون يقومان مقاهما ... يعني نحتاج كذلك لإيقاف الزررين . أو نستعين عوضاً عن ذلك بأن يكون النموذج في حالة إدخال بينان سجلات جديدة . أو نجع النموذج لا يسند إلى جدول ويعمل لحفظ السجل بعبارة اس كيو إل ( DoCmd.RunSQL "insert into )

السلام عليكم .... أطلعت على القاعدة هل هذا هو المطلوب ؟ أو هو السؤال والمشكلة ؟

السلام عليكم ... 1- أخي الكريم ياليت كان عنوان موضوعك يدل على سؤالك ( حسب تعليمات المنتدى ) 2- حاولت تحميل المرفق ووجدت أن الصفحة ممنوعة . ياليلت تحاول إرفاقه في المنتدى .

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

السلام عليكم ... هذا الكود أفادني به الأخ الأستاذ مصلح الحريصي .... والطريقة : 1- انشيء نموذج جديد يعتمد على الجدول لديك ... وفيه حقل ( txtnum ) مصدره حقل ( الرقم ) من الجدول 2- انشيء مربع نص غير منضم واسميناه ( txt1 ) 3- أنشيء زر أمر وضع فيه هذا الكود : On Error GoTo Err Dim I As Integer Dim R As Integer R = DCount("[الرقم]", "الارقام") DoCmd.GoToRecord , , acLast Me.txt1 = R For I = 1 To R DoCmd.GoToRecord , , acPrevious Me.txt1 = Me.txtnum & " ، " & Me.txt1 Next I Err: If Err.Number = 2499 Then Exit Sub الطريقة ناجحة لكن بالنسبة لقناع الأدخال لم يظهر مع الأرقام .. يعني تطلع الأرقام بدون القناع 966 والسلام عليكم .

السلام عليكم ... يمكن ذلك .... لكن سؤالي : مالفائدة من جمع الأسماء الأولى للأشخاص في حقل واحد ؟ وهل بينهما فواصل مثل علامة ( + ) أو لا ؟ وهل تريد جمع الأسماء الأولى التي في الجدول في أي حقل ؟ في الجدول أو في نتيجة خارج الجدول كنموذج أو استعلام ؟

السلام عليكم ... اللي فهمته أن لديك جدول فيه حقول ( الاسم الأول ) ( اسم الأب ) ( أسم الجد ) ( أسم العائلة ) ولديك عدد كبير من السجلات في الجدول ... وتريد ضم اسماء الشخص في حقل واحد ( الاسم الكامل ) إذا كان هذا المراد فإليك الطريقة : 1- ضع حقل جديد لديك في الجدول وليكن اسمه مثلاً ( fullname ) 2- انشيء نموذج جديد وضع عليه زر أمر وضع هذا الكود في حدث الزر عند النقر Dim db As Database Dim MyTABLE As Recordset Set db = DBEngine.Workspaces(0).Databases(0) Set MyTABLE = db.OpenRecordset("الاسم", dbOpenTable) Do While Not MyTABLE.EOF MyTABLE.Edit MyTABLE![FullName] = MyTABLE![الاسم الاول] & " " & MyTABLE![اسم الاب] _ & " " & MyTABLE![اسم الجد] _ & " " & MyTABLE![اسم العائلة] MyTABLE.Update MyTABLE.MoveNext Loop MyTABLE.Close على افتراض أن الجدول لديك اسمه ( الاسم ) آمل أن أكون قد ساعدت في مرادك . نسيت أرد لك المثال بعد التعديل ... لاحظ الزر وضعته في النموذج اسم الزر ( جمع الأسماء في الجدول ) Test.rar

السلام عليكم .. الحقيقة أني ما فهمت عليك ... ! ممكن توضح أكثر ؟

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

استخدم هذه الصيغة : txtfc = DCount("[txtid]", "t_data", "[txtfile]=[Forms]![t_data]![txtfile]") هنا أستخدمنا يحصي لنا txtid من جدول t_data بشرط أن يكون اسم الملف txtfile تساوي حقل txtfile الموجود في النموذج t_data ولو نريد إضافة شرطة آخر نضع and

الحمد لله .... وصلت إلى حل .... ,وإذا كان لديك حل آخر فما نستغني عنه .. __________________________.rar

أخي رأستاذي رضوان .... أتعبتك معاي ... لالا ليس هذا ما اقصده ... قصدت أن لدي نموذج لأدخال بيانات الأسماء وأريد أن أبدا فيه إدخال اسماء وليكن عددهم 5 واريد أن يبدأ صرف أرقام لهم مثلاً من 100 إلى 105 ..... وعند إضافة كل سجل يبدأ البرنامج بصرف الرقم للأول 1 ثم عند إدخال الثاني يبدأ صرف رقم 2 وهكذا .... ثم إذا اتنهيت من الخمسة ... أريد أن أضيف خمسة آخرون يبدأون مثلاً من 200 إلى 205 بنفس الطريقة ...

السلام عليكم ... مجرد فكرة .. لماذا لا نجعل البرنامج يحسب عدد مرات التأخر وينفص منها ما نريد ... يعني لو طلبنا كشف للموظف فلان وطلع عليه عدد مرات التأخر 5 ونحن نريد أن يخصم عليه 10 بعد المرة الثالثة .. نضع مربع نص ونضع فيه قيمة 3 ويكون لدينا مربع نص يظهر فيه عدد مرات التأخر - 3 لعلك فهمتني ..!

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

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

المقصد هو رقم تسلسلي تلقائيا ... أحدد بدايته ونهايته في مربعين نص ... ثم يبدأ بالترقيم التلقائي لكل سجل على أن يبدأ من الرقم وينتهي عند نهاية الرقم ... مثلاً اريد يبدأ من 100 وينتهي عند 110 السجل الأول يبدأ الترقيم بصرف رقم 101 تلقائياً السجل الثاني 111 وهكذا حتى يصل إلى نهاية المحدد ( 110 ) لعله أتضح المطلوب ..

السلام عليكم .. كيف يمكن لي أن أحدد بداية الرقم التسلسلي بداية من قيمة حقل ونهاية عند قيمة حقل ... والمثال المرفق يوضح المطلوب . db4.rar

الأخ أحمد عيسى ... السلام عليكم ... هل البرنامج يقوم بتوزيع أرقام الجلوس على الطلاب كل مستوى لحاله ... يعني لو حددنا للبرنامج أن أرقام الجلوس للصف الأول تبدأ من رقم 100 وتنهي برقم 150 فهل يقوم البرنامج تلقائياً بتوزيع الأرقا على الطلاب مع مقارنة العدد مع عدد الطلاب ؟؟!! وهل يقوم بإظهار النتائج تلقائيا ( ممتاز ، جيد جداً ، .. ضعيف ، راسب )