شاكر الزين

حياك الله أخي / أحمد هل جربت آخر ما تم تعديله على المثال ؟؟؟؟ بصراحة بسرعة البرق ،،، بلمح البصر تتم إضافة ( 300 ) سجل ،،،، طريقتك رائعة يا أخي ،،،، شكراً جزيلاً لك ,,, شاكر

الممازجة بين الطريقتين : طريقة الاخ الكريم / أحمد الحربي طريقة / شارك الزين Dim db As Database, rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("SELECT * FROM t1") rs.AddNew Dim i As Integer For i = c To d rs.AddNew rs![رقم الصنف] = Me.sh & "-" & Format(i, "000") rs![اسم الصنف] = Me.a rs![مكان الصنع] = Me.b rs.Update Next Me.Refresh تمت إضافة عدد ( 300 ) سجل في أقل من ثانية ،،، في لمح البصر ،،، مع الشكر الجزيل للأخ / أحمد الحربي شاكر faisal_97.zip

حياك الله أخي فيصل ،،، وعلى الرحب والسعة ,,,, :pp: أخي / أحمد الحربي اقتباس ولو استخدمتما Select Case لكان أسرع وأسرع لأن العبارة IF لا بد من أن تمر على مفرداتها مرة واحدة أما عبارة select case فهي لا تمر إلا على المطلوب .. هلا عملت مثالاً على ذلك ،،،، لكي تعم الفائدة ,,,, :( اقتباس ومن خلال ADO أسرع وأسرع حيث تمت العلمية في خلال أخي لم تعمل معي الشفرة التي وضعتها ،،،، هل تحتاج إلى مكتبة معينة ؟؟؟؟ إذا كان تحتاج إلى مكتبة ،،، الرجاء وضع اسم المكتبة ،،، :d شاكر

أخي العزيز / فيصل الحربي ،،،، السلام عليكم ورحمة الله وبركاته ،،، لقد وجدت لك طريقة أسرع ،،،، تفحص المثال بعد التعديل المعادلة هي : msgbox "ستبدأ الآن عملية انشاء السجلات ..", vbOKOnly, "انشاء السجلات الجديدة" docmd.SetWarnings False Dim i Dim db As Database, rs As Recordset For i = c To d Set db = CurrentDb Set rs = db.OpenRecordset("SELECT * FROM t1") rs.AddNew docmd.Hourglass True If i > 0 And i <= 9 Then rs.Fields(0) = Me![sh] & "-00" & i If i > 9 And i <= 99 Then rs.Fields(0) = Me![sh] & "-0" & i If i > 99 And i <= 999 Then rs.Fields(0) = Me![sh] & "-" & i rs.Fields(1) = a rs.Fields(2) = b rs.Update Next i docmd.Requery "f2" docmd.Hourglass False docmd.SetWarnings True msgbox "تم إنشاء السجلات بنجاح!!!!", vbOKOnly, "انشاء السجلات الجديدة" لقد تم حذف المثال لتحديثه ,,,, شاكر

أخي العزيز / فيصل الحربي /// السلام عليكم ورحمة الله وبركاته لقد تم التعديل على المثال بحيث تكون الارقام على الشكل التالي : 001 ، 002 ،،،،،،،،، 050 ،،، وهكذا ,,,, لقد تم حذف المثال ،،، لتحديثه شاكر

حياك الله أخي العزيز ،،،، لست معاتباً ،،،، ولكن بدلاً من أن أكتب للرفع ،،، كتبت لك ذلك ،،،، عذراً لسوء التعبير ،،،، شاكر

أخي الكريم / فيصل الحربي /// السلام عليكم ورحمة الله وبركاته تفضل هذا مثال على طلبك ،،،، عسى أن يفي بالغرض لقد تم حذف الملف وذلك لتحديثه ,,,, شاكر

حياك الله أخي / awamayah ،،،، وعلى الرحب والسعة إين صاحب السؤال ،،، ألم يتصفح الرد بعد ،،، أم لم تصل له الفكرة ,,,, شاكر

أخي الكريم / السلام عليكم ورحمة الله وبركاته افرض عندك نموذج لعرض بيانات الموظفين المجازين بين تاريخين اسمه ( form1 ) وعندك جدول للموظفين المجازين وحقل تاريخ الاجازة هو ( dd ) ,,,( في الجدول ) , أنشيء حقلين غير منضمين على النموذج ،، اسم الحقل الأول ( d1 ) والحقل الثاني ( d2 ) سوف يكون النموذج يقرأ من استعلام وسوف يكون هناك شرط موجود على ( تاريخ الاجازة ) وهو ( dd ) ،،، الشرط هو : Between [forms]![form1]![d1] And [forms]![form1]![d2] شاكر

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

أخي العزيز / الوارث ،،،، السلام عليكم ورحمة الله وبركاته لا أدري مالذي حصل للملف السابق ،،،، تفضل هذا المثال مرة أخرى ,,,, شاكر slahiat_97.zip

أختي الكريمة / السلام عليكم ورحمة الله وبركاته لعمل نسخة من الحضور اليومي للموظفين للرجوع إليه وقت الحاجة ،،، أنشئي جدول آخر بنفس الحقول التي في جدول الحضور اليومي ،،، ثم إعملي إستعلام إلحاق من جدول الحضور اليومي إلى الجدول الجديد ( جدول جميع حركات الحضور للموظفي ) ,,,, ثم تفريغ جدول ( الحضور اليومي ) ،،، لتسجيل حضور الموظفين ليوم جديد ,,,, عملت لك ما طلبتي ،،،، عسى أن يفي بالغرض شاكر bnfsg_97.zip

يا عزيزي ،،،،، وهذا مثال آخر على ( xp ) ،،، تختلف الأوامر فيه ,,,, تصفحه ،،،، ربما تستفيد منه هو أيضاً ,,,, أسالكم الدعاء ,,,, شاكر dayname_xp.zip

أخي الكريم ،،،، السلام عليكم ورحمة الله وبركاته لإظهار اسم اليوم لتاريخ معين ،،، اعمل مربع نص اجعل مصدر عنصر التحكم له هذا الكود : =Weekday([Date]) سوف يظهر لك في مربع النص هذا رقم اليوم اعمل مربع نص آخر ليظهر لك فيه ( اسم اليوم ) ،،، مثلاً حدد مربع نص اسمه ( combo2 ) وهذا الذي سوف يظهر فيه اسم اليوم ،،،، أنشيء مربع نص لإدخال التاريخ وليكن اسمه ( date ) ،،، ضع هذا الكود في حدث بعد التحديث لهذا الحقل : If day = 1 Then Me![combo2] = "السبت" ElseIf day = 2 Then Me![combo2] = "الأحد" ElseIf day = 3 Then Me![combo2] = "الإثنين" ElseIf day = 4 Then Me![combo2] = "الثلاثاء" ElseIf day = 5 Then Me![combo2] = "الأربعاء" ElseIf day = 6 Then Me![combo2] = "الخميس" ElseIf day = 7 Then Me![combo2] = "الجمعة" End If DoCmd.Requery "combo2" لقد عملت مثالاً لذلك ،،،، عسى أن يفي بالغرض شاكر dayname_97.zip

أخي الكريم / طفشان زهقان المشغولي السلام عليكم ورحمة الله وبركاته اقتباس لا يا أخي ليس لدي أي فكرة عن طلبك ،،، ومن لديه فكرة فليضعها مشكوراً ،،،، أختي الكريمة / بنفسج رعاك الله وحفظك من كل مكروه ،،، وزرقك الله جنة الفردوس مع محمد وأهل بيته الطيبين الطاهرين ,,,, شاكر

الحمد لله رب العالمين ،،، شاكر

أختي الكريمة / بنفسج ،،، السلام عليكم ورحمة الله وبركاته عند نسجيل الحضور لبعض الموظفين ،،، وتغيب موظفين آخرين ،،، وتريدين حصر الموظفين الغائبين ،،، سوف يكون بعمل إستعلام ( معالج استعلام إيجاد غير المتطابقات ) عملت لك تعديلاً على المثال ,,,, شاكر ملاحظة : تم تعديل المثال فى مشاركة لاحقة

الاخ العزيز / الوارث ،،، السلام عليكم ورحمة الله وبركاته اقتباس كلامك صحيح 100% ،،، اقتباس ليس لي علم بآلية أخرى ،،، وإذا كانت توجد طريقة أخرى عند الإخوان المشرفين أو أعضاء الإدارة ،،، كرماً لا أمراً ،،، يتفضلوا علينا بوضعها كي نستفيد ويستفيد باقي الأعضاء اقتباس أتفق معك تماماً ،،،، شاكر

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

أخي الكريم ،،، على الرحب والسعة ،،، شاكر

أخي العزيز / السلام عليكم ورحمة الله وبركاته اقتباس ( a ) في الكود يعني اسم حقل ( الرقم ) الموجود في النموذج ,,, اقتباس الرقم يتبع جدول الدفعات ,,,, اقتباس هذا هو المثال ،،،، تصفحه وأعطني رأيك ,,, شاكر solfh_97.zip

أخي العزيز / الوارث ،، السلام عليكم ورحمة الله وبركاته اقتباس الأكواد سوف يكون موضعها في النموذج في خاصية ( عند عداد الوقت ) اقتباس عزيزي سوف يكون المنع عن الإضافة والتعديل والحذف في النماذج ،،، :d ماذا تقصد بـ ( كيف بحال البرنامج كاملاً ) ؟؟؟؟ :) لقد عملت مثال على السريع ،،،، تصفحه أعطني رأيك !!!!! شاكر ALWARITH__97.zip

أخي العزيز / ابن مسقط ،، السلام عليكم ورحمة الله وبركاته اقتباس عندما تنجح في الممازجة بين الطريقتين إن شاء الله تعالى ،، كرماً لا أمراً ضع الطريقة هنا لتعم الفائدة للجميع ,,, شاكر

أخي الكريم / السلام عليكم ورحمة الله وبركاته هذا موضوع آخر ليس له إرتباط بموضوع المشاركة ،،، ولكن سوف أرد عليك : لكي تعمل عدة نماذج ( نماذج فرعية ) داخل ( نموذج رئيسي ) لابد أن تكون مقترنة هذه النماذج بجداول ولابد أن تكون الجداول مرتبطة بحقل يكون موجوداً في جميع الجداول فعند كتابة معلومة في هذا الحقل سوف تستحضر جميع البيانات الموجودة في جميع الجداول ،،، مثلاً عند كتابة ( رقم الطالب ) ،،، سوف تستحضر جميع بيانات الطالب من جميع الجداول ,,,, هل وصلت الفكرة ؟؟؟؟ شاكر

أخي الكريم / السلام عليكم ورحمة الله وبركاته طريقة أخرى : إذهب إلى خصائص الحقل ( fld2 ) وهو نتيجة القسمة سوف تجد خاصية بإسم ( المنازل العشرية ) سوف تجد مكتوب فيها ( تلقائي ) غير هذه إلى الرقم ( 2 ) أو إلى أي عدد تريد ظهوره في المنازل العشرية ,,,,, شاكر