ترقيم تلقائي خاص في حقل واحد حسب النوع

[عادلصباح]

أخي واستاذي الكريم / ابو خليل

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

[عادلصباح]

أخي واستاذي الكريم / ابو خليل

مش عارف أقولك ايه ولكن انا آسف حيث أنني كنت حاولت أن اتغلب على المشكلة التي واجهتني وظننت أنه تم حلها كما ذكرت لكم في المشاركة السابقة ولكن المشكلة ما زالت قائمة .

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

فهل من حل لهذه المشكلة وجزاكم الله خيرا

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

db1.rar

تم تعديل نوفمبر 27, 2013 بواسطه عادلصباح

[ابوخليل]

اطلعت على المثال  وما قمت به انت جميل 

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

وايضا عند معاينة التقرير يظهر اسم الدورية في الاعلى كعنوان

علما ان البحث يتم عبر الارقام  وهذا طبيعي

لا اعلم ما تقصد في طلبك اعلاه فان كنت تريد تحويل مربع التحرير الى حقل  والبحث عن نص فهذ ا يتطلب اعادة تصميم الحقل في الجدول

[عادلصباح]

استاذي الكريم / ما قصدته هو في نموذج F_Dawria استطيع ملاء بيانات النموذج وبمجرد اختيار عنوان النموذج من مربع سرد يظهر رقم العام للدورية مثلا A1  , A2 , A3  وهكذا وعند اختيار عنوان الدورية الثانية يظهر الرقم العام للدورية B1 , B2 , B3  وهكذا .

والطلب الثاني في نموذج F_Dawria_search عند اختيار عنوان الدورية والذي يكون بالعنوان وليس بالرقم تظهر في التقرير البيانات الخاصة بهذه الدورية

حاول ان تذكر اي دورية وليكن الاهرام وليس الاخبار ليتضح لكم المشكلة وحاول ان تبحث عن دورية ليظهر التقرير الخاص بها لتضح المشكلة بالضبط .

ويعلم الله انا اجتهدت كثير ولكن لم استطع حل هذه المشكلة فلجأت اليكم بعد الله سبحانه وتعالى وأسف على كثرة طلباتي 

وجزاكم الله خيرا 

تم تعديل نوفمبر 27, 2013 بواسطه عادلصباح

[عادلصباح]

اخي واستاذي الكريم / أرجو أن تهتم بطلبي في المشاركة الاخيرة ولا تتجاهلني او تمل مني وان شاء الله سيكون آخر طلب  لاهمية هذا الامر في انتظار ردكم الكريم 

ارجو ان تجرب تسجيل دورية في النموذج F_Dawria  وتسخدم نموذج البحث في البحث عن اي جريدة غير الاخبار .

وجزاكم الله خيرا والمرفق موجود في المشاركة قبل السابقة 

[ابوخليل]

تم تعديل المرفق

وتمت التجربة ، آمل ان يحقق مطلبك 

جرب .. ووافنا بما يستجد

db2.rar

[عادلصباح]

يا اخي الكريم / والله ما ادري اقولك ايه ولا أملك غيرها جزاكم الله خيرا لقد احسنت وابدعت فلك كثير الشكر وأسأل الله العظيم رب العرش الكريم أن يزيدك علما وفهما وينفع بك المسلمين 

[ابوخليل]

الحمد لله ،،،

[عادلصباح]

أخي وأستاذي الكريم / أبو خليل

لي عندكم طلب إن شاء الله يكون الأخير حتى لا أكلف عليكم بأكثر مما سبق

في القاعدة المرفقة تم عمل إحصائية بعدد كل دورية ومجموع أعداد الدوريات جميعا كما هو واضح في الاستعلام

وأيضا إحصائية أخرى بعدد تخصص المدرسين بالمدرسة والمجموع الكلي لهم (لا توجد في القاعدة)

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

وغير ذلك

المطلوب : هل يمكن عمل إحصائية شاملة لجميع هذه الأنواع في تقرير واحد

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

بمعنى آخر : أريد عمل مربعات نص غير منضمة في تقرير يكون مصدر بياناته من الاستعلام (Q_Ahsaia) والاستعلامات الاخرى أو من النموذج (F_Ahsaia) والنماذج الاخرى لاحصائيات وهو المطلوب 

وجزاكم الله خيرا 

احصائيات.rar

تم تعديل نوفمبر 30, 2013 بواسطه عادلصباح

[ابوخليل]

لا بأس ولكنك في سؤالك هذا خرجت عن الترقيم الى  موضوع  آخر .

فأرى ان تخصص لهذا السؤال مشاركة جديدة

[ahmad__0]

السلام عليكم 

لدي عمل مشابه للفكرة السابقة

حيث لدي جدول1 - به 15 اختيار من 1 الى 15

مربوط بعلاقة راس الى طرف مع 15 جدول

كل جدول من ال15 به عمود مكون من 15 صف

 

الان عند اختيار 1 يظهر لي 15 خانة في المربع

 

مرفق المثال السابق مع الاضافة

ترقيم تلقائي منوع 2.zip

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

شكرا لكم جميعا عما تعلمته من هذه المشاركة جزاكم الله كل خير

 

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

run-time error 13

type mismatch

ويعلم أصفر على هذا السطر

   Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)

 

حاولت جاهدا لاعلم السبب ولم اعرف

Fatora - Work.rar

[ابوخليل]

من اسباب عدم ظهور النتيجة :

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

- ومن الاسباب وهو المشكلة الاساسية  " قاعدة البيانات المرفقة"

فعندما قمت انا بجلب  كائناتها الى قاعدة جديدة عملت على أكمل وجه

وبتوفيق الله اكتشفت الخلل  داخل الكود  في هذا السطر :

Dim rs As Recordset

فنحتاج الى اضافة بسيطة ليصبح هكذا :

Dim rs As dao.Recordset

db1.rar

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

والله مهما شكرت فلن أوفي حقك يا معلمي الكريم ... شكرا لك وجزاك الله كل خير

[goldposition]

طيب ولو اكتر بكتير من 3 اسماء ما العمل

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

طيب ولو اكتر بكتير من 3 اسماء ما العمل

 

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

 If ts1 = 4 Then
Me.no1 = "D" & i + 1

Private Sub ts1_AfterUpdate()
    Dim db As Database
    Dim rs As Recordset
    Dim strSQL As String
    Dim i As Long  ' (1)هذا السطر
    Set db = CurrentDb
    strSQL = "SELECT Max(CLng(Right([no1],Len([no1])-1))) AS xc FROM tb WHERE (((tb.chk)=paray()))" '(2) وهذا السطر
    Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
    If rs.RecordCount > 0 Then
    rs.MoveFirst
    On Error Resume Next
    i = rs![xc]
    If ts1 = 1 Then
    Me.no1 = "A" & i + 1
    ElseIf ts1 = 2 Then
    Me.no1 = "B" & i + 1
    ElseIf ts1 = 3 Then
    Me.no1 = "C" & i + 1
    End If
    End If
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    Me.chk = Me.ts1
    End Sub

تم تعديل أغسطس 25, 2014 بواسطه عبدالرحمن هاشم