محمد التميمي

عليكم السلام

تفضل اخي الكريم هذه التقارير جاهزة من تصميم الاستاذ جعفر 

اشكال للتقارير.mdb

بارك الله بجهودك اخي الكريم وكل عام وانتم بالف خير 

عليكم السلام اليك ابسط دخول للمستخدم حسب طلبك بالتوفيق..

الاسم : محمد

رمز المرور : 1234

دخول المستخدم بدون جدول.accdb

43 دقائق مضت, ابوخليل said:

تفضل

Dim vSearch As String
vSearch = Me.Search.Text
Me.Search1.Value = vSearch
Me.Requery

 

New.rar 25.07 kB · 0 downloads

شكرا جزيلا استاذي الكريم ابو خليل

السلام عليكم

طيب الله اوقاتكم

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

المطلوب اخواني الكرام:-

توحيد قوائم البحث المنسدلة الثلاثة بقائمة واحدة بحيث تكون القائمة المنسدلة الوحيدة في البحث ( برقم السجل والاسم ورقم الهوية)

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

New.accdb

18 ساعات مضت, Moosak said:

هذه فكرتي 🙂 ..

Database.rar 31.05 kB · 9 downloads

شكرا جزيلا استاذي العزيز الان يعمل النموذج بشكل جيد

17 ساعات مضت, أبو إبراهيم الغامدي said:

وعليكم السلام، وأهلا بك @محمد التميمي

أود لفت انتباهك إلى أمرين يتعلقان بطلبك

!. لا يمكن استخدام الحلول التي تقدم بها الزملاء مع صندوق التحرير والسرد

!. لا يمكن استخدام الحلول التي تقدم بها الزملاء مع مكون البحث عن القيم الفريدة (...,FindFirst) ، لأن هذا الأسلوب يعيد أول قيمة مطابقة، وقد تكون ليس هي المطلوبة! 

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

السلام عليكم :

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

مع خاص شكري وتقديري اليكم...

السلام عليكم

احترامي وتقديري لاساتذي (kkhalifa1960) الكريم البحث لا يعمل !

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

مع فائق الشكر والاحترام...

الان, Moosak said:

وعليكم السلام 🙂 

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

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

الكود:

Function ReplaceArabicLetters(strText As String) As String
' استبدال الحروف العربية المتشابهة إلى حرف واحد وذلك لاستخدامها في عملية البحث وتلافي أخطاء الكتابة
' أ،إ،ا =(تحول إلى)=> ا
' ي،ى =(تحول إلى)=> ي
' ـه،ـة =(تحول إلى)=> ـه
' Moosak

    strText = Replace(strText, "أ", "ا")
    strText = Replace(strText, "إ", "ا")
    strText = Replace(strText, "ى", "ي")
    strText = Replace(strText, "ة", "ه")
    
    ReplaceArabicLetters = strText
End Function

طريقة الاستدعاء (الاستخدام):

ReplaceArabicLetters("أجمل إنسان إللي معه ربطة فلوس وأعطى زملائه كلهم")
النتيجة : ==> اجمل انسان اللي معه ربطه فلوس واعطي زملائه كلهم

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

السلام عليكم

طيب الله اوقاتكم

في الملف المرفق لدي بحث بالاسم 

المطلوب : انشاء كود لتجاوز (ا أ إ آ ة ه ي ى) في البحث علما اني استعرضت امثلة مختلفة من خلال المنتدى ولم تضبط معي وذلك لاختلاف نوع البحث.

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

Database.accdb

السلام عليكم

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

المطلوب:

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

لان الكتاب المطبوع الملون (القالب) موجود سلفا في الطابعة

يعني اذا ادرج صورة فورمة كتاب في الخلفية اريد عند الطباعة لاتضهر هذه الفورمة

مع جزيل الشكر والامتنان

555.docx

14 ساعات مضت, jjafferr said:

وعليكم السلام 🙂

 

تذكر لما تروح تأخذ سيارتك لتصليح الماكينة ، ولما ترجع يقولون لك تم تصليح السيارة ، ويعطوك علبة مليانه براغي ، يقول لك هذه البراغي كانت زيادة ، فما كان في داعي نرجعها مكانها 🙂

الله يسلمك ، هذا اللي عملته مع النموذج ، كان مليان كود زيادة ، فجعلته كله اسفل النموذج ، واوقفت عمله ، وحذفت صفحة كود التقرير الفاضية 😁

 

تركت التقرير الاصل report1_ORIGINAL ، وعملت تغييرات اكثر من مرة على التقرير الآخر ، وما كان فيه مشكلة ، جرب واخبرنا النتيجة لوسمحت 🙂

 

جعفر

Badges.zip 1.44 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 7 downloads

السلام عليكم

اخي واستاذي الكريم جعفر

تم الطباعة بنجاح وان شاكر وممنون لشخصكم الكريم بارك الله بجهودكم 

الان, jjafferr said:

وعليكم السلام 🙂

 

تذكر لما تروح تأخذ سيارتك لتصليح الماكينة ، ولما ترجع يقولون لك تم تصليح السيارة ، ويعطوك علبة مليانه براغي ، يقول لك هذه البراغي كانت زيادة ، فما كان في داعي نرجعها مكانها 🙂

الله يسلمك ، هذا اللي عملته مع النموذج ، كان مليان كود زيادة ، فجعلته كله اسفل النموذج ، واوقفت عمله ، وحذفت صفحة كود التقرير الفاضية 😁

 

تركت التقرير الاصل report1_ORIGINAL ، وعملت تغييرات اكثر من مرة على التقرير الآخر ، وما كان فيه مشكلة ، جرب واخبرنا النتيجة لوسمحت 🙂

 

جعفر

Badges.zip 1.44 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

يعني النظام كان مليان براغي زايدة 🤣

على كل حال الف شكر اخوية العزيز غدا انشاء الله في مكان العمل اجرب واوافيك بالنتيجة طبعا انا ما عندي طابعة هويات بالبيت

مشكور ياغالي

السلام عليكم 

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

وع فائق الشكر والامتنان

New folder.rar

13 ساعات مضت, Ahmed_J said:

السلام عليكم

كود لاحد الاساتذه بالموقع قمت بالتعديل عليه 

جربة واعلمنا النتيجة  لان ليس لدي طابعة بالمنزل

تحياتي

Access.accdb 780 kB · 3 downloads

السلام عليكم

بارك الله بك اخي احمد الكود يعمل بامتياز (مشكوووووور)

السلام عليكم

السلام عليكم

طيب الله اوقاتكم وجمعة مباركة.

اخواني الكرام محتاج كود امر لطباعة ملف PDF من المرفقات الخارجية حسب المسار في المرفق ، بحث في المنتدى وجدت بعض الامثلة لكن ليس ما اوريد

وهذا المسار (Pictures\New\66.pdf\الهويات\:D)

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

الهويات.rar

10 دقائق مضت, ابو البشر said:

في تفصيل التقرير وفي حدث عند التنسيق وضعنا نفس الكود الموجود في النموذج الخاص بالصورة

انظر الصور للشرح ..........

 

احسنت ياذهب بارك الله بك

5 دقائق مضت, ابو البشر said:

جرب كده .............

 

Desktop.rar 140.05 kB · 5 downloads

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

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

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

مثال.rar

8 ساعات مضت, Eng.Qassim said:

وعليكم السلام

اكتب الكود بعد التحديث...هكذا

Private Sub xx_AfterUpdate()
If Nz(DCount("[Key]", "dfg", "[xx]=[nmber]"), 0) = 0 Then
Else
MsgBox "هذا الرقم مكرر", vbInformation, "رسالة تنبيه"
DoCmd.CancelEvent
Me.xx = ""
End If
Me.الاسم.SetFocus
End Sub

 

شكرا اخي العزيز قاسم وبارك الله بك.هذا المطلوب

السلام عليكم

طيب الله اوقاتكم 

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

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

مع خالص الشكر والتقدير

555.accdb

شكرا اخي الكريم وصلت الفكرة بارك الله بجهودك 

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

الف شكر

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

في الملف المرفق لدي جدول اكسل لسجل الصادر.

المطلوب اخواني الكرام :

كيف لي ان امنع المواس او الكيبورد من الانتقال الى راس الجدول المجمد والعمود الاول (رقم الصادر) اي بمعنى التحرك والانتقال فقط في الخلايا باللون  الاصفر لا حاجة لي بالانتقال لغير الخلايا الصفراء

مع فائق الشكر والتقدير

السجــــــــــل.rar