عبدالرحمن هاشم

جزاك الله كل خير استاذي الفاضل.. جاري التجربة وسأوافيك بالنتيجة إن شاء الله

السلام عليكم ورحمة الله أساتذتي وإخواني الكرام أثناء عملي على برنامج الوورد وباستخدام برنامج مصحف المدينة النبوية وأيضًا إدراج رمز (صلى الله عليه وسلم) فوجئت بتحول الآيات القرآنية وكافة الرموز إلى علامات استفهام وعبارات غير مفهومة جربت فتح الملف على جهاز آخر وعليه برنامج مصحف المدينة وللأسف نفس المشكلة.. هل من حل أم عليَّ أن أقوم بإعادة الترميز وإدراج الآيات من أول جديد مع العلم بأن الملف كبير يتعدى الـ600 صفحة وجزاكم الله كل خير مثال للمشكلة.zip

مبروك الترقية أستاذي الفاضل

مبروك الترقية أخي الفاضل أبو مصطفى

وعليكم السلام ورحمة الله فتح معي أخي كل النماذج على الأكواد جرب نسخ الكائنات على حدا في قاعدة جديدة

وإياكم أخي الكريم.. الشكر لله

وعليكم السلام ورحمة الله تفضل أخي جرب هذه المحاولة TESTQryYear.rar

السلام عليكم جرب أخي هذا التعديل Dim y As Integer y = DCount("ss", "test", "ss=-1") MsgBox y

وعليكم السلام تفضلي أختنا الفاضلة.. قمي بإدراج عدد الأقساط ثم التاريخ وأنقري (نقرة مزدوجة) على حقل رقم القسط ليتم السرد حسب عدد الأقساط وتتالي التاريخ المدرج عد من الي.rar

السلام عليكم ممكن أخي توضح مرادك بالضبط.. لأنه يبدو أن هناك خطأ في تمثيل طلبك عبر المثال المرفق

جزاك الله خيرا أستاذنا وأخونا الكريم جعفر وبارك الله فيك أخونا co2002co جزاك الله خيرا أستاذنا وأخونا الكريم جعفر وبارك الله فيك أخونا co2002co

الامثلة كثيرة في المنتدى.. انظر مثلا هذه المشاركة

وعليكم السلام ورحمة الله لو تقصد أخي إدراج صورة بالمنتدى المبارك يحوي الكثير من الأمثلة.. استخدم البحث وستجد ما تريد بإذن الله تحياتي

أخي الفاضل اجعل في لكل سؤال مشاركة.. هذا مخالف لقوانين المنتدى وأيضاً ليتسنى لأساتذتنا الكرام الرد على سؤالك

وعليكم السلام ورحمة الله تفضلي أختنا الفاضلة هذه الطريقة ويفضل مستقبلا الابتعاد عن المسميات العربية =DCount("[تم]";"sdad";"[تم]=-1 and [رقم]=forms![a]![sdad نموذج فرعي]![رقم]") تجميع علامه صح.rar

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

معذرة أخي تفضل حيث قمنا بتغيير مسمى itemid في النموذج الفرعي إلى itemidx وأصبح الكود هكذا Dim x x = DLookup("[itemid]", "tab_item", "[itemid]=[itemidx]") If Not IsNull(x) = True Then MsgBox "كود الصنف المدخل" & " ( " & [itemid] & " ) " & "مسجلاً من قبل.. من فضلك أدخل رقم آخر", vbCritical, "تنبيه" Undo Else: Exit Sub: End If برنامج الصيدلية - Copy.rar

وجرب أيضا أن تضع هذا الكود في حدث بعد التحديث للحقل Itemid في النموذج الفرعي fsub Dim x x = DLookup("[itemid]", "tab_item", "[itemid]=[itemid]") If Not IsNull(x) = True Then MsgBox "كود الصنف المدخل" & " ( " & [itemid] & " ) " & "مسجلاً من قبل.. من فضلك أدخل رقم آخر", vbCritical, "تنبيه" Undo Else: Exit Sub: End If

جزاك الله خيراً أخونا الحبيب

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

الكود عبارة عن استعلام تحديث بعد جمع الحسابات الفرعية حسب حساب الأب

وعليكم السلام ورحمة الله تفضلي أختنا الفاضلة فتح استعلام الاسم.rar

السلام عليكم جرب المثال المرفق لأحد الإخوة الكرام وللاستزادة اطلع على هذه المشاركة لشجرة الحسابات db1up.rar

أظن أن الأوفيس يعتبر الأرقام العربية هي الأرقام الإنجليزية أما المعروف لدينا أنه عربية فهو في الأصل أرقام هندية

If chLang = 2 Then Me.[NoCust].NumeralShapes = 3 Me.[IDCust].NumeralShapes = 3 Me.[Tel].NumeralShapes = 3 Me.[Mob].NumeralShapes = 3 Else Me.[NoCust].NumeralShapes = 1 Me.[IDCust].NumeralShapes = 1 Me.[Tel].NumeralShapes = 1 Me.[Mob].NumeralShapes = 1 End If أظن أنه لا علاقة له بالإصدار وأيضا لأن الإصدار لدي نفس إصدارك 2010 ويبدو أن السبب هو أن الإصدار لديك إنجليزي وليس عربي على العموم حاول أن تبدل الرقم إلى 3