ابوخليل

الاخت الكريمة بغداد : يفضل ان تفتحي موضوعا جديدا بسؤالك استاذنا العزيز رمهان : لانه ادخل السجل الحالي ضمن العد وحسب الحقول الثلاثة التي ليس بها اي تعديل ! نعم بالفعل هذا السجل معدود ضمن سجلات الجدول المسألة حدثت كالتالي : حين يبدأ المستخدم بادخال البيانات يكون عدد السجل الحالي (count) = صفر لانه لم يتم تحديث النموذج بعد ولكن حين يعود المستخدم مرة اخرى يكون عدد السجل داخل مجموعته =1 والشرط في الكود يمنع التحديث اذا كان اكبر من صفر وهنا لن يقبل اكسس اي تغيير على الحقول الاخرى ولكن : لاحظ انه يمكننا تغيير الحقول التي طبقنا عليها شرط التكرار ( بشرط الا يكون لها شبيه داخل الجدول ) وحينها اي بعد التعديل على احد الحقول المشروطة سيمنحنا اكسس حق التعديل على باقي الحقول اليست هذه ميزة فريدة وتؤخذ بالاعتبار ؟ اخي العزيز رمهان اخواني الكرام : نقاشنا هنا يخص فيما لو استخدمنا نموذج عرض البيانات واستخدمناه لادخال البيانات اما حين نستخدم نموذج ادخال البيانات سينقطع هذا النقاش لانه بعد تحديث النموذج لن نجد امامنا بيانات نعدل عليها

نعم وصلت فكرتك ورأيتها في الرابط الذي وضعته سالفا نعم هي طريقة اخرى لمنع التكرار وكل يأخذ الطريقة التي تناسبه في اجابتي : والمطلوب هو منع التكرار فتم ذلك وزيادة هي منع التعديل بعد تحديث الحقل يعني زيادة ميزة وليست فخا حسب تعبيرك والاهم من ذلك ان الكود الذي تفضلت به انت لن يعمل الا مع وجود المعرف الفريد اما الحل الذي طرحته انا فهو عام يتعامل مع الحقل الهدف ولا يشترط وجود المعرف بارك الله فيك وبعد هذا الايضاح : ان اول مداخلة لك تحتاج منك الى مراجعة وقد وجدت اغلب الاخوان وفي اكثر من مكان يقعون في هذا الفخ ! اي فخ ؟ هديت وعوفيت " هذه الكلمة تعطي ايحاء خاصا .. فليست في قاموس منتدياتنا " الزبدة اخوي محمد : كان بامكانك عرض الكود مباشرة باعتبارة طريقة اخرى مع الاشارة الى الفوارق يعني يا حبيبنا واستاذنا ارمي المعلومة ومالنا ومال التلميح والناس والاخوان الآخرين تقبل ودي واحترامي ،،،

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

شكرا استاذ رمهان والله يكفينا شر الافخاخ هل تقصد ان الافضل ان يكون الحدث بعد التحديث ؟ Private Sub Form_AfterUpdate() ؟؟؟؟؟؟؟؟؟؟؟؟؟؟ End Sub واذا الخلل موجود ايضا كما تفضلت ففضلا منك ان ترفق مثالا تجريبي يظهر لحظة الخلل ولا تنسى استاذنا يكون على 2003 وفقك الله لكل خير

الحمد لله .. وإياكم

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

ليس في جدول السلك بل حقل السلك في جدول EmpTB

وعليكم السلام المشكلة عندك في حجم الحقل السلك داخل الجدول جرب وحاول ان تكبر حجمه ، اجعل حجمه 100 مثلا بدلا من 50

عمل جميل مشوق ولا احلى نحن بانتظارك ... اعانك الله ووفقك لكل خير

تفضل المثال وعن طريق المتصفحين ميكروسوفت وجوجل يتم فتح متصفح ميكروسوفت بواسطة ارتباط تشعبي اما بالنسبة لجوجل انظر الكود المسؤول عن ذلك chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe""" returnValue = Shell(chromePath & " http://www.officena.net/ib/index.php?showforum=89", vbNormalFocus) SendKeys ("{F5}"), True ويجب التنبه لصحة امتداد عنوان برنامج جوجل داخل حاسوبك فتح موقع.rar

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

استخدم الدالة NZ لتحيل الفراغ الى صفر وتتم العملية بهذا الشكل : txt1= nz([txt2])+nz([txt3])

وعليكم السلام نعم ممكن هل تريد فتح الموقع عبر متصفح ميكروسوفت ام عبر متصفح قوقل ؟

تفضل : t1 = DLookup("insno", "BILL_DATA", "[TYPE]=4" & " and crn='" & Me.crn & "'") t2 = DLookup("insno", "BILL_DATA", "[TYPE]=5" & " and crn='" & Me.crn & "'") New2.rar

والمسمى هل هو دائما 4 و 5 ؟

رقم الايصال وقيمته : دائما لا تزيد عن حقلين ؟ ام يمكن تكون اكثر ؟

تفضل العميل في الرأس وهو الذي اشار اليه الاستاذ مارد NewApplication2.rar

Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("[field1]", "table1", "[field1]='" & Me!txt1 & "' AND [field2]='" & Me!txt2 & "'AND [field3]='" & Me!txt3 & "'") > 0 Then MsgBox "duplicated fields", vbExclamation Me.Undo Cancel = True End If End Sub

اجعل الاجراء بين هذين السطرين DoCmd.SetWarnings False >>>> الاجراء DoCmd.SetWarnings True

ربنا كريم خطر على بالي طريقة للتوزيع مختلفة ورغم انها تعتبر طويلة نوعا قياسا الى الطرق السالفة ولكن ينتج عنها افكار فريدة لم تخطر على البال من النتائج : 1- الاستعلام عن امام محدد والجوامع التي عين فيها خلال الشهر ( موجودة في البرنامج السابق ) 2- الاستعلام عن جامع محدد والائمة المعينين فيه خلال الشهر ( غير متاحة في البرنامج السابق ) 3- الاستعلام عن الائمة التي لم يشملهم التوزيع كليا او جزئيا ( اعتقد غير متاح سابقا ) 4- الطريقة المستخدمة في التوزيع ستكون عشوائية 100% ( غير متاحة في البرنامج السابق ) ولكن قبل هذا احب ان انوه الى ان التكرار الافقي عند التوزيع في احد البرامج المرفقة شيء طبيعي السنا نثبت امام في مسجد طيلة الشهر ؟ والمهم : هو عدم وجود تعارض خلال اسبوع يعني في التوزيع الجديد يحتمل ( وأقول : يحتمل ) ان يتكرر جامع خلال شهر لإمام واحد لانها ارقام عشوائية توزع على خمسة اعمدة وكل عمود منفصل بنفسه عن الآخر لهذا احببت التنويه من البداية وقبل الشروع في العمل لتكون على بينة

اخي لا تحزن .. واصبر .. فالله معك

اخونا حسام تحية طيبة وبعد لاتنسحب .. المشاركة الى النهاية ليست اجبارية فقد قدمت فكرة جديدة من خلال الجداول

وعليكم السلام الصق هذه الكلمة PtrSafe بين الكلمتين Declare و Function ليصبح الجزء الظاهر من الكود هكذا Private Declare PtrSafe Function apiShowWindow Lib

كل عام وانتم بخير اعاده الله علينا و عليكم بالخير و اليمن و البركات وعلى منتدياتنا هذه بمزيد من التقدم و التطور و الإزدهار

اخوتي الكرام اليكم رؤيتي وتصوري الاخير للتنفيذ ارى ان يكون التثبيت والحجب خارج عملية التوزيع فنريد توزيع عشوائي بشرط العدل ودعوني اضع امامكم تصور لتطبيق عملية التوزيع : ستتم العملية من خلال جدولين 1- جدول الائمة / وتجرى عليه التصفية اختياريا حسب الرغبة ( محافظات ، مناطق ، فئات ، حجب ) 2- جدول الجوامع / وتجري عليه التصفية ايضا اختياريا حسب الرغبة ( محافظات ، مناطق ، فئات ، حجب ) ولا بد ان نأخذ في الاعتبار الاكواد الخاصة بضبط العملية وتحقيق العشوائية + عدم التكرار سيتم رصد عدد الفرص لكل امام لمراعاة التوزيع القادم فائدة حقل الحجب في الجدولين وذلك لاخراج الائمة والمساجد المستثناة من التوزيع هكذا نكون انتهينا من مسألة التوزيع الآلي نأتي للتثبيت والحجب : هذه تحتاج لعمليات خاصة لوحدها خارج التوزيع الآلي لا شك ان الامام المراد تثبيته لا بد ان يحجب عن التوزيع الآلي فالتثبيت يحتاج واجهة خاصة بالمثبتين وواجهة خاصة بالجوامع المحجوبة ( فلا يتم حجب اي جامع عن التوزيع الا لغرض التخصيص ) ثم يتم ربط الجوامع الخاصة به يدويا سواء كان جامع واحدا او اكثر اما الائمة المحجوبون : فيوجد حجب دائم كما هو موجود في البرنامج اعلاه ( والحجب الدائم يقصد به شهر معين ) ايضا يكون هناك واجهة للمحجوبين وعند فتحها يظهر داخلها الجوامع التي تم حجبها عنه ويكون هناك زر مقارنة بين ما تم توزيعه عليه آليا وبين الجوامع المحضورة ، ويتم التعديل والتبديل يدويا عند وجود التعارض اما التقارير النهائية فأمرها يسير وكذلك ارفاق عناوين الخطب هذا ما لدي آمل من اخوتي ممن يملك الوقت ويجد نشاطا في نفسه ان يبدي رأيه وتصوره لعملية التنفيذ