نجوم المشاركات

وهذه مشاركتي مع اخواني Loop.accdb

السلام عليكم استاذ ابو عبد الله طلبك هو تسلسل يعتمد على تغير الرقم والحرف بهذه الحالة هناك طريقتين الاولى : ثبات الحرف وتغير الرقم وصولا الى الرقم 99999 ثم يبدا الترقيم من جديد مع حرف جديد الثانية : ثبات الرقم وتغير الحروف وصولا الى zzzzz ثم يبدا الترقيم من جديد مع رقم جديد فالامر يشبه ورقة الاكسل الاولوية للصف ام للعمود احد الامثلة يشير الى الطريقة الاولى لكن للتاكد اي الطريقتين طلبك وعذرا للاطالة DB.rar

جرب هذا الكود: Function NextCode(PrevCode As String) As String Dim fL As String Dim sL As String Dim No As Byte 'Validation NextCode = PrevCode If Len(PrevCode) <> 4 Then Exit Function If Not IsNumeric(Right(PrevCode, 2)) Then Exit Function fL = Mid(PrevCode, 1, 1) sL = Mid(PrevCode, 2, 1) No = Mid(PrevCode, 3, 2) If Not fL Like "[A-Z]" Then Exit Function If Not sL Like "[A-Z]" Then Exit Function 'Start Coding ---------------------------------- If No < 99 Then No = No + 1 NextCode = fL & sL & Format(No, "00") Exit Function End If If sL < "Z" Then No = 1 sL = Chr(Asc(sL) + 1) NextCode = fL & sL & Format(No, "00") Exit Function End If If fL < "Z" Then No = 1 fL = Chr(Asc(fL) + 1) NextCode = fL & sL & Format(No, "00") 'Exit Function End If End Function Sub test() Dim Seq As Integer Dim NewCode As String NewCode = "AA00" For Seq = 1 To 10000 NewCode = NextCode(NewCode) Debug.Print NewCode If NewCode = "ZZ99" Then Exit For Next Seq End Sub في حالة أن أردت الرقم يبدأ من صفر بدل السطرين من No = 1 إلى No = 0

جرب هذا التعديل Private Sub CommandButton2_Click() Dim i As Long Me.ListBox1.CLEAR 'لعمل رأس الاعمدة For a = 1 To 6 Me.ListBox1.AddItem Sheet3.Cells(1, a) Next a Me.ListBox1.Selected(0) = True End Sub

وعليكم السلام-يمكنك استخدام هذه المعادلة وبما انك لم تقم برفع الملف.. على سبيل ان الرقم موجود بالخلية A2 , فستكون الإجابة أيضاً بدون ملف =CEILING(A2,0.5)

اعتقد المشكلة ايضا عند حدث فتح النموذج Private Sub Form_Open(Cancel As Integer) 'DoCmd.GoToRecord , , acNewRec Me.ass.SetFocus End Sub جربت سجل جديد ولم يحذفه

السلام عليكم - يمكنك استخدام هذه المعادلة =COUNTIF($A$2:$A$57,$H2) test.xls

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

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

النموذج المرتبط هو النموذج الذي يربط أو يتصل بالجدول. جميع البيانات التي يتم عرضها في النموذج مرتبطة بالجدول. إذا قمت بتغيير أي بيانات في النموذج ، فسوف تتغير في الجدول أيضًا. النموذج غير المنضم هو نموذج فارغ غير متصل بأي جدول. عند فتح النموذج ، لن يتم عرض أي بيانات. نموذج تسجيل الدخول هو مثال على نموذج غير منضم.

تفضل التعديل DB-1.rar

رءوس الأعمدة لا يتم إضافتها إلى عناصر القائمة وإنما تكون عبارة عن تسميات labels أعلى القائمة تفضل هذا ملفك بعد التعديل إظهار نتائج البحث في listbox.xlsb

خاÙ_ اخÙ_Ù_Ù_.xlsx

تم تعديل الملف جرب هذا خام اخميم.xlsx

هذا المثال لأخونا @Eng.Qassim انصحك فيه سهل للغاية و تستطيع فهمه و تطبيقه في برنامجك لا تبحث عن حلول معقدة

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

كذلك توجد لديك نفس المشكلة في النموذج الفرعي تجنب وضع الأحداث عند التركيز تفضل هذا التعديل 2MyStore1.zip

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

شغلك صحيح بس فيه خطأ بسيط حقل السنة رقمي If Nz(DCount("[iPage]", "tbl_Items", "[YEAR] = " & [YEAR] & "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then

بارك الله فيك اخي الحبيب

طريقة اخرى بإستخدام الحلقة التكرارية داخل النموذج الفرعي Dim db As DAO.Database Dim rs As DAO.Recordset Dim LineNumber As Integer LineNumber = 0 Set db = CurrentDb Set rs = [Forms]![date_napsa]![WORKERS_DETAILS Subform].Form.Recordset rs.MoveFirst Do Until rs.EOF [Forms]![date_napsa]![WORKERS_DETAILS Subform]![discount_napsa] = [discount_napsa_main] rs.MoveNext Loop napsa.mdb napsa.zip

جرب هذا الحل التحديث مع عداد الوقت لكل ثانية لحقل محدد لكي لا يشعر المستخدم بوجود تحديث 😅 Nouveau Microsoft Access Database.accdb

تفضل If MsgBox("هل تريد حفظ التغيرات ؟", vbCritical + vbYesNo, "تنبيه") = vbNO Then Cancel = True SendKeys "{ESC}" Else DoCmd.RunCommand acCmdSaveRecord Exit Sub End If

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

أعتقد أن هذا المطلوب تمت الإجابة عليه مرتين (بالمعادلات وبالكود) قبل ذلك

عليكم السلام تفضل التعديل ارجو ان يكون طلبك napsa-1.rar

عشان لا تكون الأرقام صحيحة و لا تجبر الكسور يجب تحويل المتغيير الى Double مرفق الملف بعد التعديل دالة.accdb

جرب الآن دالة_جمع.accdb

السلام عليكم مشاركة مع استاذ ناقل ملاحظة : التعديل في حدث بعد التحديث للتاريخ تم التعديل في جدول المواد حيث تم تغيير حقل Year الى Year1 وعليه تم التغيير في النموذج اعلاه ارجو ان لا يسبب لك مشكلة DATA14-1.rar

لقد عملت نسخة من النموذج وعدلت عليه وتركت الأصل كما هو للمقارنة. أبجد_هوز.mdb

الامر سهل انظر الى مواقع الاسهم في الصورة واضغط على النقاط الثلاث في الصورة مكان السهم يظهر لك استعلام لبيانات مربع القائمة ... طبق على مثالك ..

طبق هذا المثال لديك .... ناقل.accdb

حاول اختيار هذه القيمة لهذه الخاصية كما هو في الصورة ، فستتخلص من التداخل في تحرير نفس السجل لأكثر من مستخدم.

الشكر لله اخي ابو اشرف طيب بالنسبة للعميل هل ستطلب منه اجراء التعديل الافضل ان نعمل احد الامرين اذا كان لديك خبرة في التعامل مع ملفات الرجيستري ممكن نعمل ملف reg يتم تشغيله على جهاز العميل يقوم باجراء كافة التعديلات الخاصة باللغة والمنطقة والارقام وصيغة التاريخ جميعها او اي منها ** وللوصول للنتيجة الصحيحة عندما نرغب بعمل ملف ريجستري لتعديل تنسيق الارقام نحتاج الى تغيير قيمتين ضمن تبويب International في الرجيستري NumShape = 1 sNativeDigits = 0123456789 وهذة هي طريقتي اعمل ملف دفعي bat يعمل عن طريق نقطة الاوامر بنظام التشغيل dos يقوم بالاتي تغيير الاعداد المشار اليها اعلاه يقوم بعمل اختصار للبرنامج على سطح المكتب تخفيض امان الماكرو الطريقة الثانية عن طريق كود قام الاستاذ الفاضل @SEMO.Pa3x " د.حسنين " بتعديله ليشمل تعديل تنسيق الارقام اضافة الى امور اخرى 👇 في جميع الاحوال طريقة الدكتور حسنين اكثر امان وبالذات لمن ليس لديه خبرة كافية بالتعامل بالباتشات ومشاكل تعديلات الريجستري ـــــــــــــــــــــــــــــــــــــــــــــــــ * لا انصح باجراء التعديلات لمن ليس لديه الخبرة واخلي مسئوليتي عن اي خطأ ** احتفظ بنسخة من الريجستري قبل اي تعديل يجنبك عناء اعادة تنصيب نظام التشغيل

أشك في ضبط إعدادات اللغة العربية في الويندوز حاول تنفيذ هذه الخطوات Control panel --> clock and region --> change date, time, number formats --> administrative - current languge for non-Unicode programs تأكد أنها اللغة العربية وإذا قمت بتغييرها سيتم عمل إعادة تشغيل للجهاز بالتوفيق

حسب فهمي للمطلوب أنك تريد التصفية على حرف الغياب غ ولكن بطريقة أفقية إن شاء الله يكون هذا هو مطلوبك بالتوفيق تصفية أفقية بالمعادلات.xlsx

العبارة مع الاستعلام يعملان بالتعدل الظاهر في الصورة لدي بدون مشاكل ... تفضل الملف بعد التعديل .... New (5).rar

شوف الصورة

لن تحصل على شيء لأن العمود Q فارغ للعلم الدالة cells تستعمل في التعامل مع النطاقات مثلها مثل range ولكن الفرق أن range نقدم لها اسم النطاق مثلا range("c5").value = "Mas" هذا الكود يقوم بكتابة Mas في الخلية C5 ويمكن استعمال cells لنفس الغرض cells(5, 3).value = "Mas" حيث أن 5 هو رقم الصف و3 هو رقم العمود فعند كتابتك رقم 17 في خانة العمود فأنت تقصد العمود Q بالتوفيق

حسب فهمي انك تريد عد ايام الغياب التي تم التاشير عليها واضافة لما اشار اليه الاستاذ @محمد أبوعبدالله استخدام معيار حقل نصي يختلف عن الحقل الرقمي حقل s في اكثر من جدول في نفس الاستعلام فاما تستخدم اسم الجدول في المعيار كما فعل استاذنا محمد او نستخدم اسم مستعار كما عملت انا ايضا وحسب فهمي فنحن نحتاج الى اضافة معيار اخر يتضمن حقل غائب يساوي نعم DCount("*";"22";"[s]='" & [a].[s] & "'" & "and[geab]=true") الملف مرفق ASD1231.accdb بصفة عامة توجد طرق تعطي نتيجة اسرع من استخدام الدالة مباشرة في الاستعلام ولكن لا اجد الوقت للتعديل

السلام عليكم انت تريد عدد حقل prop وهذا الحقل غير موجود في جدول2 والصحيح ان يكون geab والمعادلة كالتالي abs: DCount("[geab]";"22";"[s]='" & [1]![S] & "'") ASD123.accdb تحياتي

هذا الموضوع يفيدك

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

تفضل هذا مطلوبك الثاني Sub tar7eel() For n = 2 To Cells(Rows.Count, 9).End(xlUp).Row If Range("i" & n).Value = Range("d2").Value Then Range("j" & n).Value = Range("e2").Value Next n End Sub بالتوفيق

حسب فهمي للمطلوب يمكنك استعمال الإجراء التالي وربطه بزر أو شكل أو صورة Sub tar7eel() Range("j2").Value = Range("e2").Value End Sub ومتى تريد تحديث قيمة J2 يتم الضغط على الزر وتنفيذ الإجراء

اذا كان لديك حقل حسابي استخدم الدالة NZ لتجعل الحقل الفارغ صفر حتى لايسبب لك مشاكل اما اذا تقصد نفس الحقل فأستخدم IIf(IsNull([Feild1];0;[Field1]))

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

جرب هذا ..كل الطابعات ستكون في مربع التحرير وعند اختيار الطابعة ستكون هي الفعالة printerA.accdb

جرب هذا الكود.. لكنه يعطي خطأ اذا كانت الطابعة غير موجودة

وعليكم السلام في الجدول ... تختار نوع الحقل ... ترقيم تلقائي مع وافر الاحترام