رمهان

يااخي الكريم !! موجودات ولكن بأسماء تختلف عن التي بالكود !

اخي الكريم اول ملاحظة وقبل المتابعة : أسماء العناصر لديك بالتقرير مختلفة عن التي بالكود ! اين x1,x2,x3 وغيرها !!

اخ رضوان نصحتني ان لا نناقش في شي خارج الموضوع ولكنك مستمر ! اسمح لي ارد عليك بالتالي : اخي الكريم أبواب الخير كثيرة ! ولكن عندما يأتي سائل يسأل فانه يبحث عن الجواب الصحيح بل الاصح والأفضل ! سواء من غرب او غيره ماتفرق معه ! يريد الاصح ! اذا كان تفكيرك ان الواحد بس يجي ويرمي حل ويقول عمل خيري وهو في النهاية ضيع الأخ السائل او اوقعه في متاهه ! فاقول لا والله نام يا اخي ولا تسهر وريح نفسك وريح الأخ السائل ! واما موضوع لماذا البرامج الأجنبية افضل ؟ فهي ليس فقط التمويل يا اخي الكريم ! وهذا موضوع طويل عريض ! يا اخي أحيانا اشتري نظام بالاف الدولارات ؟ ولا اقبل برنامج مجاني ! الموضوع كبير وكاحد مقارناته ROI العائد على الاستثمار ! احنا في منتدى تبادل الخبرات وليس فرض راي او قرارات او تبرير مواقف ! تحياتي

اهلا بالاخ والأستاذ محمد سلامة لدي أولا استفسار حول مالفائدة من انشاء مجلد ؟ هل هو سيصبح مسار للمفات المراد انشاؤها ؟ ام له استخدامات أخرى ؟ كذلك لماذا أنشئ ملفات اكسل وورد وبوربوينت ؟ معليش سؤال تطفلي؟ ثانيا أتوقع ان مسالة فتح مربع الحوار ووضع المسار بالمربعات هي لديك ولا تحتاج مساعدة بها !! فقط تحتاج انشاء المجلد والملفات حسب المسار المدرج بالمربعات ؟؟ بالتوفيق

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) If [الوضعية] = "متعاقد بالتوقيت الجزئي" Then [x1].Visible = True [x2].Visible = True [x3].Visible = True [x4].Visible = True [x5].Visible = True [x6].Visible = True [x7].Visible = True ElseIf [الوضعية] = "متعاقد بالتوقيت الكامل" Then [x1].Visible = False [x2].Visible = False [x3].Visible = False [x4].Visible = False [x5].Visible = False [x6].Visible = False [x7].Visible = False End If End Sub مع ملاحظة انه يوجد لديك اختلاف بالمسيات في الشرطين وتم التعديل . حيث لاحظت متغير في الشرط الأول باسم x5 وفي الشرط الثاني x05 بالتوفيق

فقط اذكرك ان السطر السابق تضعه في الحدث "بعد تأكيد الحذف" وللنموذج " OrdersSubFrm .

اضف الكود التالي وكما هو ظاهر الحدث : Private Sub Form_AfterDelConfirm(Status As Integer) Me.DeltBtn.Enabled = Me.RecordsetClone.RecordCount > 0 End Sub بالتوفيق

اخ رضوان قصدت بالبرامج العربية ولكي تفهم ما اقصد وهو ماوصفته بانه لفظ بعيد عن موضوع النقاش : ان من يقوم بعمل البرامج العربية هم مبرمجين مع محاسب وليسو مجموعة من خبراء وملاك البزنس بروسس ومحلليين ومصممين ومبرمجين وفنيين كالغرب ! فصدقني ضيعنا وقتنا معهم سنوات من عمرنا البرمجي وعالفاضي ! ولكن لما راينا Best Practice في البرامج الأجنبية وجدنا الفرق ! عندما طرحت التحليل بوضع المستودع في التفاصيل لان الموضع اصبح فواتير بيع وفواتير شراء وليس اذونات فقط ! هناك أسباب مهمة أخرى لماذا يكون المستودع في التفصيل ! وعالعموم تفضل يا أستاذ رضون اكمل وفيك البركة ! بالتوفيق

عزيزي لم تظهر لي المشكلة ؟ بل انه عندما احذف جميع سجلات الطلبات تختفي الشاشة كليا ؟ وذلك بسبب ان الخاصية السماح بالإضافة تأخذ القيمة "لا" . بالتوفيق

اعزائي هنا نناقش نفس الفكرة ؟ ارجو المتابعة هناك لحفظ وقت الجميع والاستفادة القصوى http://www.officena.net/ib/index.php?showtopic=59219 بالتوفيق

اخي الكريم هل تحتاج برنامج مجانا ام بمقابل ؟! بالتوفيق

اخي تامر اشرح ما تريد اكثر ؟ واذا كان طلب برنامج ؟ فمثل ما قال الأخ رضوان ويمكنك وضع طلبك في طلبات الأعضاء ! بالتوفيق

اخي رضوان بالنسبة لملاحظتك على ان المستودع في التفاصيل : لانه أحيانا اخرج البضاعة من اكثر من مستودع لنفس الفاتورة او في الشراء ؟ فهل افتح اكثر من فاتورة لعميل واحد وفي نفس اللحظة علشان البضاعة من اكثر من مستودع ؟!! يبدو انك من المتأثرين بالبرامج العربية والمحلية !!! وبالنسبة لمشكلة انه ادخل البضاعة في كل صمف : ابدا هنا دور المصمم : فالحل يكون في وضع مربع قائمة في راس الفاتورة بالمستودعات وكحقل محسوب ويصبح هو القيمة الافتراضية لكل صف في تفاصيل الفاتورة !! اخت ريمي اطلعت على العلاقات والجداول والحقول في الصورة السابقة ولي ملاحظة :1. ربط المتعاملين ( أتوقع تقصدين العملاء والموردين كلهم بجدول واحد وهذا صح ولكن اضيفي النوع عميل او مورد ) ولكن الربط يكون مع الهيدر وبرقم id فطبعا اذا كانت الحركة خارج يتم الفلترة للعملاء والعكس . 2. لانحتاج اسم المادة في التفصيل ولا نحتاج الوحدة ( بالنسبة للوحدة نحتاجها اذا كان هناك صرف بوحدات مختلفة واتوقع انه لايوجد حاجة في طلبك البسيط ) 3. ملاحظة رفعتي صورة ولم ترفعي الملف الأساس !! أتمنى اتباع السابق وإعادة رفع القاعدة بالتوفيق

عزيزي ضع الحدث التالي للنموذج الفرعي OrdersSubFrm وعند الحدث في الحالي كما هو ظاهر Private Sub Form_Current() Me.DeltBtn.Enabled = Not Me.NewRecord End Sub وهنا لا نحتاج الى انه عندما تكون عدد السجلات صفر لانه في الاكسس تكون حالة السجل الافتراضية = جديد . فحتما ستكون حالة السجل جديد عندما لايوجد سجلات تحياتي

عزيزي Yms12 لي ملاحظة على ما قمت به وهو : لابد من فصل تاريخ الوارد ورقم مستند الورد بجدول مستقل وهو ما يسمى راس الفاتورة . ووضع رقم المادة والكمية والمبلغ والمستودع في جدول مرتبط يسمى تفاصيل الفاتورة ويرتبط برقم الوارد . ونفس الفكرة للخارج هناك راس وتفاصيل للخارج . هنا كما هو معروف في علم المخازن تسمى أي حركة على المخزن "اذونات" وتكون اذونات إضافة او اذونات صرف . طبعا انتو سميتوها داخل وخارج ولا مانع هنا من تغير التسميات ولكن الذي يجب هو اتباع الفكرة وسياسات المخازن . هنا نستخلص الجداول التالية وبفكرة معروفة في كذا حالات . وهي موجودة بالمنتدى هنا لو بحثنا قليلا . 1. الهيدر: رقم الهيدر- التاريخ - نوع الحركة ( هنا النوع داخل او خارج ) :هنا يوضع قائمة منسدلة من نوع قائمة قيم 2. تفاصيل الهيدر: رقم الهيدر( للربط ) - رقم المادة - الكمية - المبلغ - المستودع ( يربط مع جدول المستودعات )- كود التفصيل (ترقيم تلقائي) 3. جدول المستودعات : رقم المستودع - الوصف 4. جدول المواد : كما ذكر الأخ yms12 طبعا ممكن تغيير المسميات انا وضعتها على عجالة ارجو تنفيذ السابق وإعادة رفعه ( معليش اتعبناك كل شوية واحد عند فكرة وبتعيدي تنفيذها ) . لكن ممكن نتعب في البداية ولكن نرتاح في الأخير فاهم شي بناء القاعدة الأولى سليمة وصحيحة . بالتوفيق

تفضل ! الصق الكود التالي في حدث عند النقر لزر امر x = Me.CurrentRecord DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.RunCommand acCmdRecordsGoToNew DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdPaste DoCmd.GoToRecord , , acGoTo, x Me.PayReqSub.SetFocus DoCmd.RunCommand acCmdSelectAllRecords DoCmd.RunCommand acCmdCopy Me.no.SetFocus DoCmd.RunCommand acCmdRecordsGoToLast Me.PayReqSub.SetFocus DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdPaste Me.no.SetFocus بالتوفيق

بارك الله فيك اخي محمد سلامة وشرفتني بمرورك ! وانا موجود هنا وهناك ! الواحد لما يكون عنده اكثر من بستان مش احسن والا ايه ! تحياتي

اخت ريمي حبذا أولا ارفاق ما قمتي بالبدء في تصميمه ! ثانيا اذا كان الهدف برنامج سيدفع مقابل شراؤه فانصحك بعمله وبجانب محاسب يوجهك محاسبيا ! لانه لا يوجد بزنس أرباحه تتوقف على أرباح المبيع فقط والتي هي عبارة عن قيمة الخارج مطروحا قيمة الداخل . هناك دورات عمل أخرى تتم . فعلى سبيل المثال عند شراؤك لمادة معينة بسعر 10 وبكمية 50 وخلال شهر تم بيع او اخراج كمية 30 وبسعر 12 . وبعد فترة تم شراء نفس المادة وبسعر 12 ( ارتفع سعر الشراء ) وبكمية 8 وتم البيع بسعر 11(نزل سعر البيع ) وبكمية كامل الرصيد وهو 28 . كم الربح هنا ؟؟ اختي هناك معادلات وسياسات تتم في المجال التجاري وهذا هو علم المحاسبة او بالتحديد محاسبة المخزون . اما اذا كان هو للتعلم او مشروع تخرج فهذا شي اخر . ولكن نحتاج المرفق ! بالتوفيق

اعزائي رواد المنتدى الفاضل اقدم لكم فكرة وطريقة في تحويل التاريخ الميلادي الى تاريخ ام القرى وهو الى حد ما التاريخ الهجري . وذلك باستخدام مكتبات الاكسل ! كما انه وعد مني للاخ والأستاذ أبو خليل وفي احد المناقشات وجب على الوفاء به ! وقد كانت هذه الفكرة طرحتها في احد المنتديات الشقيقة ولكن بدون مثال او تنفيذ . اترككم مع المثال املا الاستفادة منه وطرح آراؤكم ومقترحاتكم البناءة ! لكم خالص تحياتي Private Sub أمر4_Click() ''رمهان '' اوفيسنا ''abc_2_me@hotmail.com '' هدية للاخ ابو خليل Set xl = CreateObject("Excel.Sheet") xl.Application.Range("A1").Value = CDate(t2) xl.Application.Range("A1").NumberFormat = "[$-1170000]B2yyyy-mm-dd;@" t1 = xl.Application.Range("A1").Text xl.Application.Quit Set xl = Nothing End Sub رمهان - ام القرى.rar

اخي أبو خليل أي الطريقتين تقصد ؟ هل تقصد طريقتيني انا ! والتي بالرد 16 والرد 42 ؟ ام تقصد الطريقة التي بمرفقك في الرد 41 ؟ تحياتي

اخي لم افهم ماذا تقصد ؟ ممكن تشرح اكثر؟!

اخي أبو خليل وجهت نظري هنا ان مربط الفرس هو اتجاه المؤشر اثناء الكتابة ! الان احتاج رأيك في إضافة الكود التالي مع حذف جميع الاحداث الاخريات : Private Sub date2_AfterUpdate() ''Call UmDate_AfterUpdate date2 = Format(date2, "yyyy/mm/dd") End Sub اليس يعطي نفس ماذكرت ! لم احتاج الى اكواد معقدة ! او قد أكون انا لم افهم المغزى تماما ! تحياتي

اخي أبو خليل هذا ملف لفكرة الاستفادة من الاكسل في مسالة تحويل التاريخ لام القرى ! وتتلخص في التالي : - انشاء ملف اكسل ووضع تنسيق الخلية الى تاريخ ام القرى ! - مناداة القيمة من خلال الاكسس ضع الملفين في نفس المكان بعد فك الضغط مع ملاحظة استخدام مكتبات الاكسل كمرجع ! طبعا انا ممكن استغني عن ملف الاكسل وذلك بعمل كل شي من خلال الكود وما يسمى on fly ولكن حبيت أوضح الفكرة ! ونسجلها لانه مافيك حيلة يابوخليل ! ولعله يكون لي موضوع جديد مستقل حول ذلك وقريبا ان شاء الله ! اخي هاروت قريبا لي عودة تحياتي ramhan.rar

اخي أبو خليل انا معك في كل ما ذكرت ! ولكن في المثال السابق اتجاه المؤشر ليس كما طلب السائل ! اعرف انك ارفقته لي وحسب طلبي واشكرك هنا ! هنا في الرابط التالي لي مشاركة حول موضوع تاريخ ام القرى http://www.accesswordkingdome.com/forum/forum/برنامج-مايكروسوفت-آكسس/آكسس-العام/13438-قاعدة-بيانات-مصغره-لتسجيل-غياب-الموظفين-شرح-فيديو-للاستدام ولا حظ الرد رقم 14 و 15 ! ذكرت احد الطرق باستخدام مكتبات الاكسل ! وهي فكرة جديدة لم استمدها من أي مرجع ! وساحاول رفعها هنا وستكون made in officena حيث لم انفذها في المنتدى الشقيق ! اخي هاروت اليوم مشغول نوعا ما . وساوافيك بالحل باذن الله في اقرب فرصة حيث ان المشكلة الان فقط عند استخدام العلامة / التي مع الاحرف اما التي مع الأرقام فتمام ولا مشكلة ! تحياتي

اخي أبو خليل صدقني انا ذكرت لي عودة صحيح ! ولكن والله لم ارجع له الى الان ! ولم اعرف ان مصدر ذلك الملف هو ابي هادي ! ولكن ارجع انت الى المنتدى الشقيق واقرأ مشاركاتي في التاريخ الهجري وام القرى ! واللي محيرني الى الان هو شيئين : - اقحامك مسالة تحويل التواريخ في الموضوع - عدم وضعك للرابط في المنتدى ! صدقني احتاجه ! اريد القي نظرة ! رجائي خلينا في صلب الموضوع ! واذا عندك سؤال او غيره في موضوع إضافة الصفر : ضعه في موضوع جديد وستحد الحل باذن الله .! بالتوفيق