مساعدة في ترقيم خاص حسب التاريخ

[Tarekfathallah]

السلام عليكم ورمضان كريم 

بحاجة الى مساعة في الفورم  F_takrir1 الحقل id_takrir

لا يعمل ويأخذ نفس للرقم 

وشكرا لكم 

جورج الطويل.accdb

[ابوبسمله]

وعليكم السلام ورحمه الله وبركاته

الله اكرم

اطلع ع هذا الموضوع وجزاه الله خيرا ابوجودى وحاول تعدل لوحدك حتى تستفيد

بالتوفيق

[Moosak]

وهذا تطبيق على برنامجك 🙂 

حبيت أجرب كود الباش مهندس 😄🖐🏼️

جورج الطويل.accdb

[د.كاف يار]

فضل هذه المحاولة

في حدث عند الفتح ضح الكود التالي

[id_n].DefaultValue = Year(Now()) & DCount("*", "T_takrir") + 1
[id_n].Format = "0000 - 0"

مرفق التعديل

جورج الطويل.accdb

[Tarekfathallah]

د. كاف يار شكرا لك ولمساعدتك 

الاسناذ  moosak شكرا لمرورك ومساعدتك ولكنني لم الحظ تغيير بالرقم 

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

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

وشكرا 

متاسف على التاخير بالردود ولكن عندي مشكلة كهرباء وانترنت 

[Moosak]

يعمل بكل كفائة أخي طارق 🙂  ( لاحظ الرقم الأحمر من اليمين )

الترقيم موزع بهذه الطريقة  :

الرقم        السنة      الشهر       اليوم        الرمز

000001     22           04            17        /206

3 ساعات مضت, Tarekfathallah said:

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

بخصوص طلبك هذا يمكنك الاستفادة من موضوع الأستاذ الإمام المهندس العلامّة محمد عصام @ابو جودي : 🙂 

 

 

تم تعديل أبريل 17, 2022 بواسطه Moosak

[Eng.Qassim]

4 ساعات مضت, Tarekfathallah said:

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

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

Private Sub father_AfterUpdate()
Dim stLinkCriteria As String
Dim custNo As Integer

stLinkCriteria = "[namee] = '" & Me.namee & "' and [family]  = '" & Me.family & "' And [father] = '" & Me.father & "'"
If Me.namee = DLookup("[namee]", "T_takrir", stLinkCriteria) Then

   MsgBox "هذا الاسم: " & namee & "   " & family & "   " & father & ", موجود مسبقا في قاعدة البيانات." & _
   vbCr & vbCr & "الرجاء التاكد من الاسم", vbInformation, "معلومات مكررة"
     Me.Undo
     custNo = DLookup("[id_n]", "T_takrir", stLinkCriteria)
     Me.DataEntry = False
     DoCmd.FindRecord custNo, , , , , acCurrent
End If
End Sub

 

تم تعديل أبريل 17, 2022 بواسطه Eng.Qassim

[Tarekfathallah]

استاذ moosak اسعد الله صباحك 

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

وكيفية ربط الصورة مع رقم id_n تلقائيا 

لو سمخت 

جورج الطويل تعديل 1 .accdb

[Moosak]

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

 

جورج الطويل تعديل 1 .accdb

[Moosak]

5 ساعات مضت, Tarekfathallah said:

وكيفية ربط الصورة مع رقم id_n تلقائيا 

بالنسبة لسؤالك هذا ..

وجدت أنك بالفعل قمت بربط الجدولين بعلاقة 🙂 ، فقط قمت بأعادة تسمية حقل الربط (id_n) لكي تفهمه بسهولة وأضفت حقل ترقيم تلقائي لجدول الصور (Pic_ID) ..

فقط ستحتاج الآن لعمل نموذج فرعي داخل النموذج الأصلي وتربط بينهما بالحقل (id_n) ..

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

جورج الطويل تعديل 1 .accdb

تم تعديل أبريل 18, 2022 بواسطه Moosak

[Tarekfathallah]

سيد موزاك تسلم ايديك ورفع الله ميزان حسناتك 

ممكن حضرتك بس تساعدني في عدم تكرار الاسم والشهرة واسم الاب والام 

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

ولكم فائق الشكر 

جورج الطويل تعديل 2 .accdb

[Moosak]

11 ساعات مضت, Tarekfathallah said:

ممكن حضرتك بس تساعدني في عدم تكرار الاسم والشهرة واسم الاب والام 

أهلا بك أخي طارق 🙂 

استخدمت هذا الكود في حدث قبل التحديث للنموذج :

Private Sub Form_BeforeUpdate(Cancel As Integer)

Dim checkDuplicates As Integer

checkDuplicates = DCount("*", "[T_takrir]", "[namee] Like '*" & [Forms]![F_takrir1]![namee] & "*' " & _
                                                " And [family] Like '*" & [Forms]![F_takrir1]![family] & "*' " & _
                                                " And [father] Like '*" & [Forms]![F_takrir1]![father] & "*' " & _
                                                " And [mather] Like '*" & [Forms]![F_takrir1]![mather] & "*' ")
If checkDuplicates > 1 Then
    MsgBox "هذا الشخص مسجل من قبل", vbInformation, "تكرار"
    Cancel = True
Else
End If

End Sub

جربه وأخبرني بالنتيجة 🙂 

 

 

جورج الطويل تعديل 2 .accdb

تم تعديل أبريل 19, 2022 بواسطه Moosak