-
Posts
3,292 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
29
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو أبو آدم
-
قاعدة بيانات مبيعات ومخازن ونقطة بيع (عنوان معدل)
أبو آدم replied to عصام2008's topic in قسم الأكسيس Access
للرفع مع رجاء التعاون من أهل الخبرة في مجال المحاسبة ... مع الاخ عصام شاكرين ومقدرين تعاون الجميع ......... -
منذ مساء الأمس يتم في قرية نصيب في درعا السورية التطويق بالقوة البشرية والعتاد الثقيل تجهيزاً لجريمة مثل جريمة الحولا بحمص فإستغيثوا بالله إستغيثوا بالله إستغيثوا بالله وعليكم بالدعاء ... الدعاء .............
-
(تمت الاجابة) نافذة إنتقال بين أوراق العمل
أبو آدم replied to كعبلاوى's topic in منتدى الاكسيل Excel
اخي رجب جزيت خيراَ ... وهذا "فصل المقال" افكار جميلة ... وتطبيق محكم شكرا ...... -
استاذ طارق شكرا للافكار الجميلة والتطبيق السلس شكرا .......
-
قاعدة بيانات مبيعات ومخازن ونقطة بيع (عنوان معدل)
أبو آدم replied to عصام2008's topic in قسم الأكسيس Access
أعد دراسة علاقة كود الصنف و السعر والكمية بجدول الفاتورة ؟؟ وقد كررتها في تفاصيل الفاتورة !!! -
قاعدة بيانات مبيعات ومخازن ونقطة بيع (عنوان معدل)
أبو آدم replied to عصام2008's topic in قسم الأكسيس Access
أخي العزيز الجداول والعلاقات جيدة ولكنها بحاجة لبعض التوضيح و التعديل ولكن سؤالك استباقي في مسألة الفاتورة ، بدون تزويدنا بتفاصيل نقطة البيع حيث يعتمد تأسيس الفاتورة على طبيعة نقطة البيع في متجر كبير (مول) مثلاً لا يهمنى اسم العميل في البداية كثيرا ، الا اذا كانت هناك بطاقة تسوق - يلزمني لاحقا في عملية بيع عادية لعملاء معتادين وقيود عادية يتم اصدار الفاتورة بالضرورة باسم العميل مقترنه برقم الفاتورة عمليات بيع عامة يهمني رقم الفاتورة ولا يهمني العميل هل هناك أهمية لترصيد المواد المباعة مباشرة من ذمم المستودع ام لا؟؟ وهكذا .... حيث قرنت في عنوانك ( المبيعات و المخازن ونقاط البيع ) أما ان كان السؤال عاماً فيمكننا الاجابة بشكل عام ........... -
برنامج طلبات الصيانة ، مساعدة في استخدام القويم
أبو آدم replied to باحث عن العلم's topic in قسم الأكسيس Access
اخي العزيز طبقت لك اضافة التقويم عليك اولا استيراد الوحدة النمطية ajbCalendar و النموذج frmCalendar في نموذجك F2 وهو cod سابقا : افتح النموذج على عرض التصميم انتقل للحقل txtdate وفي صفحة خيارات الحقل في حدث عند التركيز أو حدث عند الضغط ، اكتب الكود التالي =CalendarFor([txtDate];"Set the Notification date") وهي مفصلة بالصورة حيث CalendarFor استدعاء للوحدة النمطية التي تشغل نموذج التقويم و txtDate اسم الحقل الذي تم استدعاء نموذج التقويم منه وحيث سيتم اسناد التاريخ الذي سيتم اختياره و Set the Notification date هو عنوان يضهر في اعلى نموذج التقويم عند استدعائه من هذا الحقل ، لنبين للمستخدم ما نريد وفي التطبيق المرفق "فصل المقال" وللحديث بقية ... والله من وراء القصد ... وهو حسبي ........... NA_Calendar2012.rar -
(تمت الاجابة) عند اختيار الإسماء تظهر جميها في مربع النص
أبو آدم replied to أيمن عبادي's topic in قسم الأكسيس Access
جميل وبسيط ، جزيت خيراً أخي أحمد ........... -
(تطبيق) إختيار تقرير للطباعة وتحديد طابعة معينة لتنقيذ الإجراء
أبو آدم replied to أبو آدم's topic in قسم الأكسيس Access
أحسن الله اليك وبارك لك وبك استاذي أبو خليل جزيت خيراً على طيب قولك ودعائك ......... -
برنامج طلبات الصيانة ، مساعدة في استخدام القويم
أبو آدم replied to باحث عن العلم's topic in قسم الأكسيس Access
يمكنك الاستعانة بالموضوع على الرابط ... http://www.officena.net/ib/index.php?showtopic=36090 ........... -
إختيار تقرير للطباعة وتحديد طابعة معينة لتنقيذ الإجراء شرح وتفصيل وتطبيق ... تطبيق العبد الفقير لرحمة ربه ... نارت لبزو http://www.officena....showtopic=41998
-
(تطبيق) إختيار تقرير للطباعة وتحديد طابعة معينة لتنقيذ الإجراء
أبو آدم replied to أبو آدم's topic in قسم الأكسيس Access
نتابع .... أثناء عملي بالتطبيق ، ورغم محاولاتي الحثيثة من التخلص من هاجس " ماذا لو" الذي يستفزني دائماً لتطوير وتعقيد التطبيقات والاضافة عليها ، لم أتمكن من التخلص منه ، ودفعني نحو : ماذا لو أردنا التحكم بخيارات الطباعة بعد تحديد الطابعة لتقريرنا ؟؟ وهنا ننتقل لمنظومة أخرى " مرتبطة " بفكرتنا ، تمكننا من السيطرة على خيارات الطباعة من خلال الطابعة التي إخترناها لتقريرنا. وهذه نرى فيها رأينا ، فإما أن نستمر بها في موضوعنا هذا أو ننتقل بها لموضوع جديد. هذا التطبيق يمكن الإستفادة منه في أي تطبيق ، كل ما عليك هو إستيراد النموذج frmSetPrinter والله من وراء القصد ... وهو حسبي ........... NA_ReportPrenter.rar -
(تطبيق) إختيار تقرير للطباعة وتحديد طابعة معينة لتنقيذ الإجراء
أبو آدم replied to أبو آدم's topic in قسم الأكسيس Access
نتابع ... ومنعاً للخطأ و اللبس يصبح الكود خلف زر الأمر cmdOk ، كما يلي : Private Sub cmdOk_Click() If IsNull(Me.cboReport) Then MsgBox "You Must Enter A Report Name", vbCritical, "Note That ..." Me.cboReport.SetFocus Exit Sub ElseIf IsNull(Me.cboPrinter) Then MsgBox "You Must Enter The Prenter Name", vbCritical, "Note That ..." Me.cboPrinter.SetFocus Exit Sub End If DoCmd.OpenReport Me.cboReport, acViewDesign, Null, Null, acHidden Dim oRpt As Report Set oRpt = Reports(0) oRpt.UseDefaultPrinter = False oRpt.Printer = Application.Printers((Me.cboPrinter)) DoCmd.OpenReport Me.cboReport, acViewNormal DoCmd.Close acReport, Me.cboReport, acSaveYes Set oRpt = Nothing End Sub ........... -
(تطبيق) إختيار تقرير للطباعة وتحديد طابعة معينة لتنقيذ الإجراء
أبو آدم replied to أبو آدم's topic in قسم الأكسيس Access
نتابع .... بالتطبيق ستجد بأنه في عند الضغط على زر الأمر cmdOk حال خلوها من المعلومات ستظهر لك رسالة خطأ ، لذا سنقوم بحلَ الموضوع ببساطة ، حيث نضيف كود يقوم بتفحص الحقلين وحال خلوها من المعلومات سيزودنا برسالة خطأ ممنهجة ويعيد التركيز للحقل الفارغ ، ويكون الكود كما يلي : If IsNull(Me.cboReport) Then MsgBox "You Must Enter A Report Name", vbCritical, "Note That ..." Me.cboReport.SetFocus Exit Sub ElseIf IsNull(Me.cboPrinter) Then MsgBox "You Must Enter The Prenter Name", vbCritical, "Note That ..." Me.cboPrinter.SetFocus Exit Sub End If -
(تطبيق) إختيار تقرير للطباعة وتحديد طابعة معينة لتنقيذ الإجراء
أبو آدم replied to أبو آدم's topic in قسم الأكسيس Access
بارك الله لك وبك أخي عبدالله ونحن سعداء جداً بوجودك بيننا ونتمنى أن تستفيد من خبرتنا المتواضعة ، وأن نتمكن من الاستفادة من خبراتك الطيبة ........... -
(تطبيق) إختيار تقرير للطباعة وتحديد طابعة معينة لتنقيذ الإجراء
أبو آدم replied to أبو آدم's topic in قسم الأكسيس Access
نتابع .... وبذلك يصبح الكود خلف زر الأمر cmdOk ، كما يلي : Private Sub cmdOk_Click() DoCmd.OpenReport Me.cboReport, acViewDesign, Null, Null, acHidden Dim oRpt As Report Set oRpt = Reports(0) oRpt.UseDefaultPrinter = False oRpt.Printer = Application.Printers((Me.cboPrinter)) DoCmd.OpenReport Me.cboReport, acViewNormal DoCmd.Close acReport, Me.cboReport, acSaveYes Set oRpt = Nothing End Sub · ننشيئ زر أمر لإغلاق النموذج وبذلك يكون تطبيقناً جاهزاً للاستخدام . ......... -
(تطبيق) إختيار تقرير للطباعة وتحديد طابعة معينة لتنقيذ الإجراء
أبو آدم replied to أبو آدم's topic in قسم الأكسيس Access
نتابع ... في عرض التصميم للنموذج frmSetPrinter · ننشيئ زر أمر نسميه cmdOk ستكون وظيفة هذا الزر تشغيل منظومة إجراءات لتحقيق الإجراء النهائي ، واكتابة وتحديد هذه الاجراءات ، نقوم بالضغط على Alt+f11 ، لنصل لمحرر الفيجوال بيسك للنموذج ، و نبدأ بكتابة الكودات التي تحقق غاياتنا باستخدام ما قمنا بتحقيقه وتوفيره ضمن النموذج . هناك مسأله مهمة لا بد من معرفتها و إحسان التعامل معها ، وهي أن الاجراء الرئيسي الذي نسعى اليه وهو تحديد الطابعة لطباعة هذا التقرير ، لا تتحقق الا في حالة فتح التقرير بعرض التصميم !! لحل هذه المشكلة نقوم بافتتاح الكود بالجملة التالية : DoCmd.OpenReport Me.cboReport, acViewDesign, Null, Null, acHidden حيث نقوم ضمن هذا الأمر بفتح التقرير (الذي تم اختياره في مربع التحرير و السرد cboReport ) بوضع التصميم ، و إحفاؤه acHidden ن وهذا ضروري حتى لا يظهر لنا التقرير فعلا بوضع التصميم أثناء التنفيذ. ثم نقوم بتعريف oRpt كتقرير Dim oRpt As Report ثم ضبط هذا التقرير ليكون تقريراً محدداً (قابل للتحديد) Set oRpt = Reports(0) حتى نتمكن من الوصول لإختيار تقريرنا ثم نقوم بتعطيل الطابعة الإفتراضية عند التعامل مع تقريرنا ، كون واحد من أهدافنا عدم التعامل مع الطابعة الإفتراضية oRpt.UseDefaultPrinter = False ثم نجعل طابعة تقريرنا هي الطابعة التي تم إختيارها في مربع التحرير و السرد cboPrinter oRpt.Printer = Application.Printers((Me.cboPrinter)) ثم نقوم بفتح (طباعة) تقريرنا ، حسب كل ما مرّ بأعلاه DoCmd.OpenReport Me.cboReport, acViewNormal ثم نغلق التقرير (كنا فتحناه بعرض التصميم مخفياً) ، مع الحفظ DoCmd.Close acReport, Me.cboReport, acSaveYes وأخيراً نلغي ضبط تقريرنا السابق في oRpt Set oRpt = Nothing ............. -
(تطبيق) إختيار تقرير للطباعة وتحديد طابعة معينة لتنقيذ الإجراء
أبو آدم replied to أبو آدم's topic in قسم الأكسيس Access
نتابع .... نقوم الآن بحفظ الاجراءات التي قمنا بها ونسمي النموذج frmSetPrinter ، ثم نقوم بتشغيل النموذج. عند الضغط على السهم المضمن في مربع التحرير و السرد cboReport تظهر لنا أسماء كافة التقارير في تطبيقنا ، كما هي ، وبالضغط على السهم المضمن في مربع التحرير و السرد cboPrinter تظهر لنا أسماء كافة الطابعات المعرفة على الجهاز والتي سنتمكن من استخدامها في تطبيقنا ، لطباعة تقاريرنا. وهنا نصل للمرحلة التالية التي هي الغاية الأساسية من هذا التطبيق ، حيث يبرز السؤال الأهم ، وهو ، كيف نجعل التطبيق يقوم بطباعة التقرير الذي تم إختيارة بمربع التحرير و السرد cboReport باستخدام الطابعة التي سنختارها من مربع التحرير و السرد cboPrinter ؟ ....... -
(تطبيق) إختيار تقرير للطباعة وتحديد طابعة معينة لتنقيذ الإجراء
أبو آدم replied to أبو آدم's topic in قسم الأكسيس Access
نتابع ... · لغايات استحضار أسماء الطابعات في مربع التحرير والسرد ، نقوم باستدعاء الوظيفة الخاصة GetPrinters ، نقوم بكتابة الكود التالي في حدث عند الفتح لنموذجنا : Private Sub Form_Open(Cancel As Integer) Dim strMsg As String Dim strTemp As String 'Load the combo with names of the installed printers. strTemp = GetPrinters() If Len(strTemp) = 0 Then Cancel = True strMsg = "No installed printers found." Else Me.cboPrinter.RowSource = strTemp End If End Sub حيث قمنا هنا بتعريف القيم strMsg و strTemp ثم جعلنا strTemp تساوي أسم الطابعة / الطابعات الناتجة من تطبيق الوظيفة GetPrinters وهناك شرط ضروري لا بد من تطبيقه وهو عدم وجود طابعات معرفة على الجهاز ، فنقوم بالتأكد من طول سلسلة القيم في strTemp (اسم الطابعة / الطابعات) فإذا كانت تساوي صفر ، فهذا يعني عدم وجود طابعات معرفة على الجهاز ، وبالتالي لا بد من أغلاق السلسلة الاجراءات باستخدام Cancel = True ، وإظهار رسالة تفيد بعدم وجود طابعات معرفة على الجهاز. وعكس الشرط هو وجود قيمة أعلى من صفر فتكون هذه القيمة (اسم الطابعة / الطابعات ) مصدر الصف لمربع التحرير و السرد cboPrinter بذلك نكون قد زودنا النموذج بالمتغيرات التي تحقق لنا الغاية التي نسعى لها ، وهي توفير متغير اسم التقرير ومتغير اسم الطابعة . ............. -
(تطبيق) إختيار تقرير للطباعة وتحديد طابعة معينة لتنقيذ الإجراء
أبو آدم replied to أبو آدم's topic in قسم الأكسيس Access
نتابع .... · ننشيئ مربع تحرير وسرد جديد : نستخدمه لعرض الطابعات المعرفة و الموجودة على الجهاز ، باستخدام كائنات النظام . يكون اسم المربع cboPrinter ويكون نوع مصدر الصف Row Scurce Type هنا Value List ويكون مصدر الصف Row Scurce هنا نتيجة وظيفة خاصة (روتين) نضعه في محرر الفيجوال بيسك للنموذج باسم GetPrinters · لإنشاء الوظيفة لا بد أن نصل لمحرر الفيجوال بيسك للنموذج ، نقوم بالضغط على Alt+f11 ، وننسخ الكود التالي : Private Function GetPrinters() As String Dim prn As Printer Dim strPrinter As String If Application.Printers.Count > 0 Then For Each prn In Application.Printers strPrinter = strPrinter & """" & prn.DeviceName & """;" Next GetPrinters = Left$(strPrinter, Len(strPrinter) - 1) End If End Function ونكون هنا قد جلبنا أسماء الطابعات المعرفة على الجهاز على شكل سلسلة قيم ، وأصبحت جاهزة لدينا للإستخدام ومتاحة في أي لحظة نحتاج فيها للتعامل معها. ............. -
إخوتي الفضلاء التطبيق الذي سنعمل عليه اليوم ، تطبيق يلزم بعض الإخوة الذين يعملون على الشبكات المحلية الذين يحتاجون تخصيص طابعة معينة لطباعة كل تقرير ، لغايات مختلفة وأسباب مختلفة حسب ظروف المستخدمين وغايات التطبيق أو التقرير. الغاية المشودة الوصول لتحديد طابعة معينة لطباعة تقرير معين بعيداً عن الطابعة الافتراضية للجهاز. وسنقوم هنا بتفصيل الإجراءات ومراحل التطبيق لغايات التوضيح بشكل دقيق قدر الامكان سعياً لعموم الفائدة ، وسعياً لما يكثر تداوله في المنتدى من الحاجة لتوضيح وشرح التطبيقات المقدمة. نبدأ تطبيقنا كما يلي : · انشاء نموذج وفتحه بعرض التصميم · ننشيئ مربع تحرير وسرد جديد : نستخدمه لعرض التقارير الموجودة في التطبيق ، باستخدام كائنات النظام . يكون اسم المربع cboReport ويكون نوع مصدر الصف Row Scurce Type هنا Table/Query ويكون مصدر الصف Row Scurce هنا : SELECT MsysObjects.Name FROM MsysObjects WHERE (((MsysObjects.Name) Not Like "~*") AND ((MsysObjects.Type)=-32764)) ORDER BY MsysObjects.Name; حيث نقوم بذلك باختيار جميع التقارير ، والتي تعرف بالنظام بانها من نوع 32764 ، ونقوم بترتيبها حسب الاسم .........
-
قاعدة بيانات مبيعات ومخازن ونقطة بيع (عنوان معدل)
أبو آدم replied to عصام2008's topic in قسم الأكسيس Access
الاوفيس اصدار 2003 ام 2007 ........ -
قاعدة بيانات مبيعات ومخازن ونقطة بيع (عنوان معدل)
أبو آدم replied to عصام2008's topic in قسم الأكسيس Access
حدد حاجاتك واسئلتك بوضوح ضمن مواضيع مستقلة بدايتك جيدة ............... -
بانتظار ردك اخي ابو حفص