ksaed123

😱

😱اضفت  الكود عدة مرات ولم ينج بوركت يداك يا بطل ( ABU FARID ) في ميزان اعمالك 

 تمت تجربت الكود ويعمل بالشكل المطلوب شكرا جزيلا 🧐

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

Dim db As Database
Dim CountNum, I As Long
Dim MsgNumbr, NewName As String

Set db = CurrentDb
NewName = [Forms]![Form1]![Txt1]
Set rst = db.OpenRecordset("main", dbOpenSnapshot)

CountNum = DCount("*", "main", "[Name]=[Forms]![Form1]![Txt1]")
If CountNum = 0 Then Exit Sub

With rst
    Do Until .EOF
    If rst!Name = NewName Then
    MsgNumbr = MsgNumbr & rst!Num & "  "
    End If
    .MoveNext
    Loop
End With

If MsgBox("سبق إدخال هذا الاسم برقم " & MsgNumbr & vbCrLf & vbCrLf _
    & "هل تريد بالتأكيد تسجيله " & vbCrLf, _
    vbInformation + vbYesNo + vbDefaultButton2, _
    "تنبيه") = vbNo Then
      Cancel = -1
End If

Dim rst As Recordsetdb.Close
...................................................
في مشاركة احد المشرفين السابقين تم ارفاع القاعدة التي تحتوي على المثال المطلوب 
وفي الملف الاول المثال المراد تطبيق المثال عليه 
ولكم مني جزيل الشكر 

يقبل المعاملة ويخبرك انه يوجد معاملة برقم.rar تجربة قبول التكرار مع رسالة تحدير.rar

احسنت :احمد الفلاحجي " ابو بسملة " جزاكم الله كل خير 😎😎

موضوع جميل وكنت قد جربته على اكسس 2003 و 2007 قديما وكان يعمل 
الان جربته على اكسس 2016 فلم يعمل معي لا اعلم اين المشكلة بالضبط ارفق لكم المثال للاطلاع وبيان اين الخطاء 
 

تجربة البحث.rar

جزيتم خير نعم هو المطلوب بوركت هذه الايدي ( الاخ / محمد البرناوي ) والشكر موصول ( للاخ / أحمد الفلاحجي ) 
 

حياك الله .. التقارير الموجودة عدد 4 وهي ( استعلام شامل )(  اعمارهم بين 18/59) (عدد سجلات الممكنين )(مستحقين المعاش الشهري ) 
لو ارت ان يقوم بعرض عدد 2 من التقارير وعدم ظهور البقية من التقارير .. والسؤال هل يوجد امكانية لذلك ؟
 

الاخ / الفلاحجي اشكرك على هذه الامثلة الرائعة .. في المثال مشاعدة و طباعة التقرير 
الكود الموجود في المثال يظهر كافة التقارير فهل استطيع التعديل عليه حيث انه يعرض ما اريده منه فقط ؟
وشكرا 
تم ارفاق مثال ملف مضغوط 
 

تجربة تختصر عدد التقارير1.rar

تحياتي للاخ / أحمد الفلاحجى  وشكرا على الرد الجميل والامثلة الجميلة 

قربنا من المطلب 
من مربع تحرير وسرد تختار ما تشاء من التقارير ثم يتم الطبع مرة واحدة 
مثال : اريد طباعة الخطاب الاساسي + ونموذج الفحص الطبي + وتقرير اخر 
يتم اختيارهم ثم اعطاء امر طباعة لهم جميعا 

السلام عليكم ورحة الله 

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

السلام عليكم 

الازرار تعمل بشل صحيح 

شكر خاص للمبدع الاخ / جعفر 
الاخ / سيفين جرب وضع رابط لما تريده في "" عنوان الرابط التشعبي ""
تم ارفاق مثال 

تست.accdb