شاكر الزين

حياك الله أخي / أحمد

هل جربت آخر ما تم تعديله على المثال ؟؟؟؟ بصراحة بسرعة البرق ،،، بلمح البصر تتم إضافة ( 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

( a ) في الكود يعني اسم حقل ( الرقم ) الموجود في النموذج ,,,

اقتباس

الرقم تابع لأاي جدول

الرقم يتبع جدول الدفعات ,,,,

اقتباس

ويا ريت المثال قد يكون افضل لك

هذا هو المثال ،،،، تصفحه وأعطني رأيك ,,,

شاكر

solfh_97.zip

أخي العزيز / الوارث ،، السلام عليكم ورحمة الله وبركاته

اقتباس

بخصوص الأكواد أين يكون موضعها هل عند الفتح أم عند التحميل ، ما أقصده هو دالة ( DLookup ).

الأكواد سوف يكون موضعها في النموذج في خاصية ( عند عداد الوقت )

اقتباس

هذا بالنسبة لنماذج معينة ، كيف بحال البرنامج كاملا.

عزيزي سوف يكون المنع عن الإضافة والتعديل والحذف في النماذج ،،، :d

ماذا تقصد بـ ( كيف بحال البرنامج كاملاً ) ؟؟؟؟ :)

لقد عملت مثال على السريع ،،،، تصفحه أعطني رأيك !!!!!

شاكر

ALWARITH__97.zip

أخي العزيز / ابن مسقط ،، السلام عليكم ورحمة الله وبركاته

اقتباس

ان شاء الله سوف أحاول الممازجه بين طريقتك وطريقة الأخوين الكريمين/ أبو عقيل ورضا عقيل.

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

شاكر

أخي الكريم / السلام عليكم ورحمة الله وبركاته

الشيء الذي استغرب منه اخي الحبيب

كيف يوضع عدة جداول في نفس النموذج

ممكن ان تصل الى اكثر من خمس اوست نماذج

كيف يتم هذا لا ادري 

هذا موضوع آخر ليس له إرتباط بموضوع المشاركة ،،، ولكن سوف أرد عليك :

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

هل وصلت الفكرة ؟؟؟؟

شاكر

أخي الكريم / السلام عليكم ورحمة الله وبركاته

طريقة أخرى :

إذهب إلى خصائص الحقل ( fld2 ) وهو نتيجة القسمة

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

شاكر