ابوخليل

وعليكم السلام Private Sub chk_AfterUpdate() If chk = -1 Then comb1.SetFocus comb1.Dropdown Else comb1.Requery End If End Sub

بعد الاطلاع على المرفق تبين لي المشكلة التي واجهتها فرقم الايبان يوجد في بدايته حرفين انجلش كبيتال لهذا سيكون قناع الادخال هكذا LL0000000000000000000000 حرفين L كبيتال و 22 صفر جرب ووافنا بالنتيجة

كيف لا يمكن الكتابة عليه ؟ هذا الكلام غير مفهوم ! اشرح المشكلة وبينها بشكل دقيق

حيث لا يمكنني فتح مرفقاتك الا من جهاز آخر فقد تم حفظه باسم على تنسيق 2003 تفضل التعديل آمل ان يكون هو مطلوبك mhm2.rar

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

وعليكم السلام مربع التحرير والسرد في اكسس يشتمل على هذه الخاصية

شكرا على هذه الماسة الجميلة الرائعة جعله الله في ميزان حسناتك

لم اطلع على المرفق ولكن حسب طلبك اذا كان الرقم ضمن حقل واحد استخدم : قناع الادخال افتح على خصائص الحقل / لسان التبويب بيانات / قناع الادخال اذا كانت كلها ارقام اكتب 24 صفرا هكذا : 000000000000000000000000

الاخت الكريمة بغداد : يفضل ان تفتحي موضوعا جديدا بسؤالك استاذنا العزيز رمهان : لانه ادخل السجل الحالي ضمن العد وحسب الحقول الثلاثة التي ليس بها اي تعديل ! نعم بالفعل هذا السجل معدود ضمن سجلات الجدول المسألة حدثت كالتالي : حين يبدأ المستخدم بادخال البيانات يكون عدد السجل الحالي (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