أبو آدم

اسم المستخدم 1 كلمة المرور 1

يمكنك الاستعانة بالموضوع http://www.officena.net/ib/index.php?showtopic=26915 ....

اجعل الأسطر المتكررة في وظيفة إذا رأيت أن هناك أسطرا مكررة في الأكواد التي تكتبها فقم بتحويلها إلى وظيفة وذلك لأن الكود الذي يتكرر مرة واحدة أسهل في صيانته واختباره واستخدامه والتعديل عليه ، بخلاف الكود الذي يتكرر مرات عديدة. ولتوضيح هذا نفرض أن لديك أسطر خمسة من كود تكررت في برنامجك عشرين مرة ، ثم رغبت في التعديل عليها أو اكتشفت أن فيها خطأ ، حينئذ يلزمك أن تقوم بالتعديل عليها في 20 موضعا ، وربما تنسى بعض المواضع أو تخطئ فيها فينتج عن هذا عدد من الأخطاء الأخرى. أما إذا كنت استخدمت وظيفة كتبت فيها هذه الأسطر الخمسة وقمت باستدعائها في العشرين موضعا ، فسيكون كل ما عليك هو التعديل في هذه الوظيفة

أخي عادل طبق هذا لإغلاق كافة النماذج http://www.officena.net/ib/index.php?showtopic=38385&p=208964 ثم أتبعه بكود فتح النموذج الرئيسي جرب ووافني بالنتيجة .......

أحسنت أخي أحمد أحسن الله اليك تمت الاجابة ........

نصحية : ميز إسم الجدول ببادئة tbl ميز إسم النموذج ببادئة frm ميز إسم الاستعلام ببادئة qry ميز إسم التقرير ببادئة rep مرفق تطبيق معدل NA_Safe Report to PDF.rar

أخي العزيز الأمر منوط بمصدر السجل للتقرير مثلاً : أجعل مصدر السجل للتقرير SELECT TabCompanies.TabCompanyID, TabCompanies.TabCompName, TabCompanies.TabCompType, TabCompanies.TabCompTelephoneNo, TabCompanies.TabCompAdressFROM TabCompanies WHERE (((TabCompanies.TabCompanyID)=[forms]![TabCompanies]![TabCompanyID]));

جرب محاولتنا على الرابط ..... PDF المشاركة 58 ......

أخي أبو ندى الحمدلله الذي بفضله تقضى الحاجات طرحك الأخير موضوع جديد و إن كان مرتبطاً ... كما أنني لم أصل للفكرة فشرحك غير واضح يرجى فتح موضوع جديد ، وإن شئت يتم الإشارة لهذا الموضع لتوثيق ربط الفكرة ........

الفكرة: نجعل كلمة السر في حقل (في المكان المناسب حسب تحليلك) في الجدول مع رقم الكلية ورقم القسم نجعل مصدر مربع التحرير و السرد ثلاثة أعمدة رقم الكلية (ظاهر) ، رقم القسم (ظاهر) ، كلمة السر (مخفي) عند التركيز في خصائص مربع التحرير و السرد ، Inputbox يقوم بالمهمة لقبول كلمة السر أو رفضها ولكل خيار ما يلزم تطبيقك من إجراءات ... Private Sub Text00_AfterUpdate() Dim x As String Dim y As String x = Me.Text0.Column(2) y = InputBox("Enter Password ... default password 123 ") If x = y Then Me.Text2.SetFocus Else MsgBox "That is not the correct password. " _ & "Please enter the correct password." End If End Sub والتطبيق منوط بما تراه والأفكار كثيرة ... ولكنني أرى أساسها (كلمة السر في حقل (في المكان المناسب حسب تحليلك) في الجدول مع رقم الكلية ورقم القسم) والله من وراء القصد وهو حسبي .........

قيد التنفيذ ..... ............

بين النموذج و التقرير : إظهار التقرير وتصديره لمسار معين بصيغة PDF لدينا تقرير لعميل ، نود الإطلاع على التقرير Preview وبعد تدقيق التقرير والتأكد من المعلومات ، نختار بين الرفض أو تصديره لمسار معين (حيث يتم حفظ تقارير هذا العميل ) على الخادم (السيرفر) أو غيره ... !! في النموذج وخلف زر أمر ننسخ الكود التالي : Private Sub Command56_Click() On Error GoTo Err_Command56_Click Dim stDocName As String stDocName = "Rep_ACC_Tracker" DoCmd.OpenReport stDocName, acPreview Exit_Command56_Click: Exit Sub Err_Command56_Click: MsgBox Err.Description Resume Exit_Command56_Click End Sub وفي محرر الفيجوال للتقرير ، ننسخ الكود التالي : Private Sub Report_Deactivate() Dim LResponse As Integer Dim MyFiLeName As String If Not NoData Then ' checks for no data event to prevent a mis fire DoEvents MyFiLeName = "D:\Customer reports\ACC\" & "Rep_ACC_Tracker" & Format(Now, "dd-mm-yyyy hhnnss") & ".pdf" DoEvents LResponse = MsgBox("Do you wish to Save Your Adobe File to a ACC file location", vbYesNo, "Save Now or loose it") DoEvents If LResponse = vbYes Then DoCmd.OutputTo acOutputReport, "Rep_ACC_Tracker", acFormatPDF, MyFiLeName, True DoEvents Else End If End If End Sub

أخوتي الفضلاء الألوان الدارجة هي : 255;Red;0;Black يتم إنشاء مربع تحرير وسرد للألوان كسابقاته تكون هذه الألوان في مصدر الصف ، ونوع مصدر الصف Value List ، عدد الصفوف 2 ، سعة الصفوف الأول صفر لإخفاء رقم اللون و الثاني وصف اللون 0cm;2.544cm في حدث عند التغيير لمربع التحرير ، ننسخ الكود Private Sub Combo26_Change() Forms("Form1").Controls("Text0").ForeColor = Me.Combo26 End Sub ويتم إضافة جملة اللون الافتراضي في روتين الوضع الافتراضي fDefault والله من وراء القصد وهو حسبي .............

طباعة عدد سجلات محدد في صفحات التقرير كطلب الأخ أبو ندى ، وتطبيق العبد الفقر لرحمة ربه نارت لبزو / أبو آدم http://www.officena.net/ib/index.php?showtopic=45998 ........

أخي العزيز أبو ندى المرفق يفي بالحاجة بإذن الله أعتذر عن الشرح و التفصيل لأسباب عملية وصحية ربما في وقت آخر والله من وراء القصد وهو حسبي .......... NA_R_FixedRowsPerPage.rar

قيد التنفيذ .... ............

سيتم تعديل عنوان الموضوع لتوضيح الدلالة طباعة عدد سجلات محدد في صفحات التقرير بدلاً عن توزيع الاسماء بعدد معين على الكشوف و أتمنى على الأخ أبو ندى فتح موضوع جديد بالطلب الثاني تقارير : إجمالي الصفحة و إجمالي التقرير في حال لم يجد مبتغاه بعد البحث في ابداعات الأخ منتصر الآنسي في التقارير

أحسن الله اليك أبا عمر ... وجزيت عني خير الجزاء .......

شكراً لتفاعلك الطيب تمت الفائدة

تأكد من وجود الملفات المرجعية على الجهاز الثاني VBA references

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

أحسن الله اليك عبيدالله كنت قد مررت بهذا التطبيق الجميل ، وفيه فيما فهمت تجميع مجموعة من النصوص في مربع النص مع ضبط خصائص الخط لكل جزء والتساؤل الأخير لأخينا أبا عمر يدور حول إختيار جزء من النص في مربع النص و التحكم في ضبط خصائص النص لهذا الجزء (إن كنت قد أحسنت الفهم عنه) فهل لكم في الأمر تجربة تشاركنا بها . وجزيت عنا خير الجزاء ..........

يمكنك الاستفادة من الموضوع على الرابط ..... (تم حذف الرابط كونه لا يتعلق بالموضوع) ................ عذراً ... كانت الاحالة للرابط غير دقيقة ، كوني قرأت المشاركة دون الاطلاع على المرفق يقصد الأخ أبو ندى بالكشوف (التقارير)

أعد ارفاق التطبيق كما تريده بصورته النهائية ، وسنطبق عليه مع الشرح ............

تنسيق النصوص داخل مربع النص مراحل وتطبيق ... كطلب الأخ أبا عمر وبشرح وتطبيق للعبد الفقير لله نارت لبزو / أبو آدم http://www.officena.net/ib/index.php?showtopic=45952 .................