kkhalifa1960

تفضل استاذ @أحمد العيسى اليك الشرح والمرفق .. نوعان من الماسج المخصص وقابلين للتمدد . الاول بدون صور واضافة الاسطر بمحرر الاكواد والثاني بالصور والاضافة بنموذج . جرب ووافني بالرد . احمد العيسى-1.rar

كودك صحيح من ناحية التركيب والمنطق، لكن هناك ملاحظات مهمة: 1. الاستخدام العملي هذا الكود يستدعي دالة داخلية غير موثقة (#53) في msaccess.exe لعرض صندوق حوار اختيار الألوان. هل ستنجح؟ على الأرجح لا، لأن الدالة الداخلية #53 قد تكون غير موجودة أو لا تقوم بما تظن. الطريقة الصحيحة والمستقرة هي استخدام Comdlg32.dll (ChooseColor API). 2. النظام الصحيح باستخدام API ويندوز بدلاً من ذلك، استخدم هذا الكود الموثوق: ' في بداية الموديول #If VBA7 Then Private Declare PtrSafe Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As CHOOSECOLOR) As Long #Else Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As CHOOSECOLOR) As Long #End If Private Type CHOOSECOLOR lStructSize As Long hwndOwner As LongPtr hInstance As LongPtr rgbResult As Long lpCustColors As LongPtr Flags As Long lCustData As LongPtr lpfnHook As LongPtr lpTemplateName As String End Type Function DialogColor(Optional ByVal InitialColor As Long = &H0) As Long Dim cc As CHOOSECOLOR Dim CustColors(0 To 15) As Long cc.lStructSize = Len(cc) cc.hwndOwner = Application.hWndAccessApp cc.rgbResult = InitialColor cc.lpCustColors = VarPtr(CustColors(0)) cc.Flags = &H2 ' CC_RGBINIT If ChooseColor(cc) <> 0 Then DialogColor = cc.rgbResult Else DialogColor = InitialColor ' إذا تم الإلغاء End If End Function تفضل مرفقك بعد التعديل .ووافني بالرد . Database1-1.accdb

تفضل استاذ @أحمد العيسى مع انك مايعجبك العجب لكني مصر ارضيك . هل هذا يعجبك . ماسج احترافي . ولو تريد ماسج بمحتويات ملف pdf ارفق استعلامه . الشرح والمرفق .ووافني بالرد احمد العيسى.rar

انا حاضر لك بأي وقت .

لايوجد تاريخ انتهاء اقامة ........ لو تقصد تاريخ انتهاء هوية المستخدم تفضل التعديل . مع ملاحظة انا لم ادخل بيانات السيارة والمستخدمي والمفوضين من عندي كله من ملف الاكسل الذي ارسلته . Ahmed ElShahat_3.rar

وهذل برنامج ممتاز سطبه وجربه انا استخدمه كثيراً لصناعة ابقوناتي . easy-button-creator-1.4.zip طالع أحمد العيسى.mdb

بالنسبة للماسج تفضل Private Sub B8_Click() Dim helpMessage As String helpMessage = "كلمة السر : رمز مرور التطبيق 1 ، و يمكن تغييره من داخل شاشة بيانات أساسية" & vbCrLf & _ "Chang Pass بالنقر على زر إعدادات البرنامج ، ومن ثم النقر بداخلها على زر" & vbCrLf & vbCrLf & _ "شاشة البيانات الأساسية : فيها يتم ضبط كل الحقول الثابتة برؤوس كل الشاشات" & vbCrLf & _ "فى هذه الشـاشـة متاح للمسـتخدم حذف كل بيانات الموظفين ، للبـدء من جديـد" & vbCrLf & _ "وفيها يمكن حفظ وتصدير الجدول كنسـخة احتياطية، واسـترجاعها لاحقاً بسـهولة" & vbCrLf & vbCrLf & _ "شاشة بيانات الموظف : هي شاشة الإدخال الرئيسية لكل حقول بيانات الموظف" & vbCrLf & _ "Tab من الأفضل للتنقل بين الحقول بدلاً من استخدام الماوس ، اسـتخدم مفتاح" & vbCrLf & _ "حفاظاً على الأبجدة يجب كتابة الأسـماء التى تبدأ بحرف الألف بدون همزة للكل" & vbCrLf & _ "الأسماء المركبة مثل : عبدالرحمن ،هبةالله ،يجب أن تكون بدون فراغ بين المقطعين" & vbCrLf & vbCrLf & _ "مطبوعات منسقة: باختيارمربع معاينة يتم عرض تقرير واحد بالنقر المزدوج عليه" & vbCrLf & _ "أو بعد اختيارمربع طباعة يتم طباعة مجموعة تقارير دفعة واحدة بعد اختيارهم" & vbCrLf & _ "سبجان الله" & vbCrLf & _ "الحمد لله" & vbCrLf & _ "لا إله إلا الله" & vbCrLf & _ "الله اكبر" & vbCrLf & _ "" MsgBox helpMessage, vbMsgBoxRight, "أهم تعليمات التطبيق" End Sub اما بخصوص الصور لك برنامجين بالمرفق . imagetuner لاتحدثه خليه كما هو استدعي له صورة او فولدر صور عاوز تكبر الرزليوشن . واعمال اخرى toycon-0.7 اسكب به أي صورة وهو بيحولها لايكن . جرب . ووافني بالرد . Icons.rar

استاذ @ali kazem لا تنسي اذا كان هذا طلبك اضغظ على تمت الاجابة . على مشاركتي .

استاذ @M.Abd Allah انا بمطلع شبابي عملت بشركة ايديال بمدينة نصر قبل بيعها ..... والمهم ..عارف المراحل وما بداخلها (وانت تريد ما بداخلها) لكن ... كان يوضع على ظهر المنتج ختم الجودة من قبل مسؤول الجودة وكان بكل منتج شيت المراحل الذي سويناه وصدرناه لوورد لكن كان يدوي بختم كل مرحلة .. فهنا مسؤول الجودة لايسأل عن خطوات المرحلة بل لو الاختام مكتملة فقط بيخم المنتج بختم الجودة . الخلاصة ( مابداخل الخطوات غير مهم هنا في برمجتنا ). لكن لو تريد ذلك مافي مانع ارسل الخطوات وما بداخلها وانا حاضر لك . وعلشان انت رجل محترم جداً اليك مرفق جديد اضافة زر التصدير PDF . واعتقد هذا اسرع من وورد ولا يحتاج تجهز ملف وورد مسبق الاعدادت . جرب الزران . ووافني بالرد . M.Abd Allah-LAST.rar

تفضل استاذ @ali kazem مرفق حسب مافهمت .ووافني بالرد. ali kazem.rar

تمام لكن ممكن حضرتك تعمل صفحة اكسل وبها العمليات المطلوبة وتحت كل عملية مراحلها كما تتصور انت . وانا حاضر لك .

تفضل استاذ @أحمد الشحات85 الشرح والمرفق بعد التعديل بطلبك . ووافني بالرد . Ahmed ElShahat_2.rar

تفضل استاذ @M.Abd Allah حسب مافهمت اليك الشرح والمرفق . ووافني بالرد . M.Abd Allah.rar

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

ممكن مشاركة مع استاذي @ابو جودي بهذا العمل .... تفضل استاذ @حسام الفولي الشرح والمرفق . ووافني بالرد . CARD.rar