jjafferr

حياك الله

او هذا الرابط http://www.officena.net/ib/index.php?showtopic=61295 جعفر

عفوا يا شباب ، انا الى الآن ما فاهم شو المطلوب؟ ياريت اخي كريمو توضح المطلوب بمثال واضح اللي نقدر نتتبعه ونوصل لنتيجة ان شاء الله جعفر

تفضل الرابط : http://www.officena.net/ib/index.php?showtopic=60235 جعفر

في هذه الحالة ، قد ينفعك "مسقط التقارير" http://www.officena.net/ib/index.php?showtopic=59415 لأنه مصمم لمثل هذه الحالات شوف التقرير ، بس بدل ما تطبعه ، ارسله لأكسل جعفر

يجب ان يكون برنامجك مقسم الى واجهة وفيها النماذج والاستعلامات والتقارير والماكرو والوحدات النمطيه FE ، وجداول BE ، يجب ان تكون نسخة الواجهة FE منصبه على كل كمبيوتر على حدة ، بينما الجداول BE على على كمبيوتر واحد ، وجميع الكمبيوترات الاخرى عندها حق Read/write/modify للمجلد الذي به BE ، مجلد الصور عادة يكون في نفس مجلد BE ، ولكن ليس شرطا ، وجميع الكمبيوترات الاخرى عندها حق Read للمجلد ، في نسخة FE ، يجب ربط الصور (سواء باستخدام الوحدة النمطية ، او مجرد سطر من كود) ، ومثل ما قلنا ، ان هذه النسخة تكون على كل كمبيوتر ، ويكون الربط مثلا: Images_Location = "\\PC_5\Temp\archive" او تربط الكمبيوتر عن طريق IP Images_Location = "\\192.168.1.100\Temp\archive" جعفر

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

ياسلام!! اذا أنا صح فانت المُكافأ ، واذا خطأ فأنا المُعاقب!! بس حلوة طريقة استعلام الـ Crosstab ، يافنان انت جعفر

عفوا ما قصدي لو انك تضع المطلوب كله مكان واحد ، كان بالامكان عمل برنامج واحد بكل الاختيارات المطلوبة ويعود علينا وعليك وعلى شباب المنتدى وشاباته إن شاء الله جعفر

تفضل بس عندي سؤال لوسمحت: شو اللي قاعد يصير؟ كل يوم السؤال شكل ، لنفس الموضوع!! هل هذه الاسئلة لدورة او مادة في مؤسسة؟ جعفر 88.TEST.accdb.zip

هل نظرت الى الاستعلامين التاليين ونتائجهم: 1. الاستعلام qry_Loans_Step1 فيه معيار الشهر والسنه حسب تاريخ النموذج FrmDiscountReport ، 2. بينما الاستعلام qry_Loans_Step_Minus فيه معيار الشهر السابق لتاريخ النموذج FrmDiscountReport. فالنتيجة اللي تريدها هي qry_Loans_Step_Minus جعفر

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

السلام عليكم أخي كريمو 1. الاستعلام qry_Loans_Step1 فيه معيار الشهر والسنه حسب تاريخ النموذج FrmDiscountReport ، 2. بينما الاستعلام qry_Loans_Step_Minus فيه معيار الشهر السابق لتاريخ النموذج FrmDiscountReport. طلبك الاخير لا يمكن عمله!! لآنك عملت المعيار #1 ، ثم تريد ان تعمل عليه المعيار #2 كذلك؟؟ عندك الاستعلامين اعلاه ، فاختر بين المعيارين ، وعليه اختر الاستعلام جعفر

وعليكم السلام اذا اللي فهمته صح ، جدولك فيه حقل التاريخ والقيمة: وانت تريد النتيجة هكذا: والتي عملناها هكذا: جعفر 87.Database1.accdb.zip

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

الله يطول في عمرك أخوي مثال ، وعملت من عندي ، والحمدلله لكن ، صحيح اني عماني ، لكن سحري بعده مو قوي اللي اقدر اجيب برنامجك: واشغله ، واشوف وين النموذج ، واجرب مربع تحرير وسرد ، وعلى اي حدث تيجي الرسالة ، وكيف مانخلي الصورة تتكرر ، وووو عندك حلين: 1. يا انك تصبر الى ان اقوي سحري ، واقدر اوصل اجيب برنامجك من كمبيوترك لعندي ، وبعدين اشتغل عليه ، 2. او ان ترفق برنامجك. وانت صاحب القرار اما علمي فيقول: على الحدث اللي يبحث فيه مربع_تحرير_وسرد ، وانا بسميه iSearch فاعمل التالي: private sub iSearch_After_Update on error goto err_iSearch_After_Update الكود حقك يكون هنا 'show the new image in the Form Call Form_Current Exit Sub err_iSearch_After_Update: If Err.Number = 2101 Then ' Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub واعتقد سبب الخطأ: هل انت كاتب مسار الصورة في الجدول ؟ الظاهر ان عندك مسار خطأ وهو عامل المشكلة !! جعفر

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

او في حجم الخط

أخي الفاضل رجاء ارفاق برنامجك ، وتوضيح ما تريد بمثال من البرنامج لوسمحت جعفر

السلام عليكم أخي كريمو اليوم فكرت في سؤالك مرة اخرى ، فما ادري هل تفكيري صح!! ادخال المبالغ صحيح ، وانما تريد ان يكون تقرير rptDiscount هو للشهر السابق للشهر الذي يظهر في FrmDiscountReport ، لهذا عملت استعلام جديد اسمه qry_Loans_Step_Minus ، والذي يفعل ما اشرت اليه اعلاه ، وعليه اصلحت التقرير ، والذي يعتمد على هذا الاستعلام الجديد. رجاء ، المراجعة ، واخباري النتيجة ، سواء للعمل هذا او لسؤال البارحة جعفر 83.FrmDiscountReport.mdb.zip

تفضل والكود يعمل المجلدات الغير موجودة تلقائيا الكود اصبح: Private Sub cmd_scan_Click() On Error GoTo err_cmd_scan_Click Dim Image_Path As String Set img = CreateObject("wia.commondialog") '1 Image_Path = Application.CodeProject.Path '2 Image_Path = Image_Path & "\photo\" 'if the photo Dir dose not exist, creat it If Dir(Image_Path, vbDirectory) = "" Then MkDir Image_Path End If '3 Image_Path = Image_Path & "\" & [ID] & "\" 'if the [id] Dir dose not exist, creat it If Dir(Image_Path, vbDirectory) = "" Then MkDir Image_Path End If 'check the Dir for the file existance How_Many_Files_Exist = FileList(Image_Path, [ID] & "_*.jpg") 'Rename the old existing file Old_File_Name = Image_Path & [ID] & ".jpg" New_File_Name = Image_Path & [ID] & "_" & Format(How_Many_Files_Exist + 1, "00") & ".jpg" Name Old_File_Name As New_File_Name '4 Image_Path = Image_Path & [ID] & ".jpg" img.ShowAcquireImage.SaveFile Image_Path Exit Sub err_cmd_scan_Click: If Err.Number = 53 Then 'file not found Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub Function FileList(iPath_In As String, iCondition As Variant, Optional iItemsList As Control) 'to call this sub: 'call FileList(iPath_In, iCondition, iItemsList) 'iPath_In : folder path 'icondition : "*.pdf" or "*.jpg" or "*.*" 'iItemsList : file list separated by ; ' Dim fdr As String Dim File_Count As Integer 'clear the list ' iItemsList.RowSource = "" 'get the jpg files from the Forlder fdr = Dir(iPath_In & "\" & iCondition) Do While fdr <> "" ' iItemsList.AddItem Item:=fdr File_Count = File_Count + 1 fdr = Dir Loop ' Me.List_Count = iItemsList.ListCount FileList = File_Count End Function جعفر Scan.zip

هذا ما كنت اعرفه ، فجزاك الله خيرا على هذه المعلومة ولكن نرجع لأصل الموضوع اللي بسببه انا وضعت الكود ، فنرى مدى ما يمكن ان يصل اليه التعقيد عن طريق الداله Format ، وانا على يقين بأنك لم تصل للطريقة الصحيحة للكود من اول مرة او مرتين لهذا السبب ، اعتقد بأن الدالة DateFormat تسهل الكود كثيرا جعفر

السلام عليكم أخي كريمو نحن الآن نقوم بأخذ البيانات من الجدول tbl_Loans ، والمسألة عبارة عن جمع وطرح ونحصل على النتائج المطلوبة ، بهذه البساطة وطريقة ادخال بيانات القرض للجدول ، هو عن طريق وعلى اساس الحقل "تاريخ بداية الخصم" في النموذج FrmCridi_sub او FrmElec_sub ، فكل قرض يبدأ بالشهر "تاريخ بداية الخصم" ، وينتهي بحسب نوعه. الآن انت تقول لي ، هناك نوعين من الموظفين (ولنفترض "تاريخ بداية الخصم" هو 5/2015 ، ولنفترض ، ولنفترض "قرض مالي 1" والممتد لمدة 10 اشهر): 1. موظف او منتدب ، ويتم بدء السداد من "تاريخ بداية الخصم" اي 5/2015 وينتهي في 2/2016 ، 2. "متعاقد كامل" او "متعاقد جزئي" او "عون نظافة" ، ويتم بدء السداد من الشهر التالي لـ "تاريخ بداية الخصم" اي 6/2015 وينتهي في 3/2016 ، اذا كان ما فهمته صحيح (وهنا اطلب منك ان تعطيني بشكل جدول في اكسل بعض من هذه النماذج حتى افهمها) ، فيجب ان نغير من تاريخ بداية/نهاية القرض ، ليعكس الاشهر الصحيحة لسداد القرض ، حسب صفة كل موظف. جعفر

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

وعليكم السلام احفظ الكود التالي كوحدة نمطية: Public Function Minutes2Duration(minutes As Long) As String Dim dd As Integer, hh As Integer, mm As Integer 'from: http://bytes.com/topic/access/answers/696226-converting-minutes-days-hours-minutes ' dd = minutes \ 1440 minutes = minutes - dd * 1440 hh = minutes \ 60 mm = minutes Mod 60 Minutes2Duration = Format(dd, "000") & ":" & Format(hh, "00") & ":" & Format(mm, "00") End Function وفي الحقل الذي تريد ان يتم فيه التحويل ، اكتب هذا الكود: Minutes2Duration([a1]) جعفر