jjafferr

السلام عليكم أخي كريمو اليوم فكرت في سؤالك مرة اخرى ، فما ادري هل تفكيري صح!! ادخال المبالغ صحيح ، وانما تريد ان يكون تقرير 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]) جعفر

انا او الاستاذ رمهان جميعا إن شاء الله جعفر

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

السلام عليكم ادخل في البرنامج eng adel_data.mdb ، اذهب لقائمة الجداول ، للجدول الالوان : وغير اسمه الى الالون (لاحظ الاسم مافيه ألف بين الواو والنون): واغلق البرنامج. ادخل في البرنامج eng adel.mdb ، واعد ربط الجدول الالون بالبرنامج eng adel_data.mdb بالجدول الالون ، الآن شغل البرنامج وجرب الظاهر ان في احدهم غير اسم الجدول وصارت هذه المشكلة كلها جعفر

السلام عليكم بعد قرأت مواصفات الطابعة ، وبالنظر الى طباعتها ، هذه تطيع dot matrix ، يعني طابعة نقطية. جرب بدل ما تخلي التقرير بالعرض ، جربه بالطول ، جعفر

واذا كانت عندك الصورة aa_img.jpg في المجلد ، فماذا تريد ان تفعل؟ اقتراحي ان يكون هناك عدد تسلسلي من رقمين مثل: aa_01.jpg aa_02.jpg بحيث لأقدم دائما يكون عنده الرقم الاكبر !! ايش رايك؟ طلبك اسهل واجد من اقتراحي وبعدين عندي سؤال للعلم: انا سهلت لك العمل في عدة اسطر ، ليش رجعتها سطر واحد؟؟ جعفر

والآن ، تستطيع ان تنقص السنوات بطريقة الحساب العادية ، وتطرح السنوات من بعض. هل هذا الذي تريده ، او في شئ آخر ما شرحته لي؟ جعفر

السلام عليكم أخوي رمهان انا قلت في اول الموضوع: يعني كنت اتوصل للمطلوب ، ولكن وللأسف بعد مجموعة محاولات !! وانا فاهم قصدك ، وطريقتك بتعطي الاجابة الصحيحة ، ولكن ، مو دائما انت محتاج تستعمل Format ، فمرة تحتاج ومرة لا ، ومرة M/D/YY ومرة dd/mm/yyyy ، وهكذا ، وصدقني لما عندك برنامج مستعجل وتشتغل عليه ليل نهار والزبون على راسك ، فما دائما تنتبه لـ Format ، إسألني وانا اخبرك كم مرة صارت معي ، الى ان انتبه لها بعد ما احك راسي واطيّح الشعرتين الباقيات على راسي الدالة هذه ، ومن اول مرة وتعطينا النتيجة الصحيحة ، ولأني استفدت منها ، حبيت الكل يستفيد منها جعفر

حياك الله اما السؤال الآخر ، فالرجاء عمل موضوع منفصل له ، ولكن رجاء اشرح بالضبط وبالتفصيل ما تريد ، فجملة "طريقة اظهار قيمة (الباقي) فى النموذج" لا توضح ابدا المطلوب جعفر

لا ، ماكان هذا السؤال !! السؤال كان: وانا قلت لك: فانت ما عندك تاريخ ميلاد (تاريخ الميلاد فيه اليوم والشهر والسنة) ، وانما عندك سنة الميلاد فقط. والآن ، تستطيع ان تنقص السنوات بطريقة الحساب العادية ، وتطرح السنوات من بعض. هل هذا الذي تريده ، او في شئ آخر ما شرحته لي؟ جعفر

انا كنت بأتفق معاك أخوي أبوخليل ، لو انه كان يستعمل الاكسس 2003 من مدة ، بس لأنه الآن بدأ وقال "حالياً أنا أتعلم برمجة الأكسس" ، لهذا السبب اقترحت عليه ان يبدأ بـ 2010 مباشرة ، فهي بتسهل عليه مجموعة اشياء وجزء من دفاعي عن 2010 هو http://www.officena.net/ib/index.php?showtopic=59697&p=382621 جعفر

وعليكم السلام كود الاخ رمهان هو عبارة عن مجموعة اسطر مدمجة في سطر واحد: Set img = CreateObject("wia.commondialog") Image_Path = (Application.CodeProject.Path & "\photo\" & "\\" & [id] & ".jpg") img.ShowAcquireImage.SaveFile Image_Path والان المسألة اصبحت اسهل للتعامل معها ، فالسطر الاول والاخير لا يوجد تغيير عليهم , ولكن التغيير يكون في السطر الثاني ، وهو مسار الصورة، والذي يجب ان نشتغل عليه ونتوسع فيه طلبك هو: (4) ليحفظ الصورة في (3) المجلد الفرعي داخل (2) مجلد صور الموظفين الموجود في (1) مجلد البرنامج الرئيس Set img = CreateObject("wia.commondialog") '1 Image_Path = Application.CurrentProject.Path '2 Image_Path = Image_Path & "\photo\" '3 Image_Path = Image_Path & "\" & [id] & "\" '4 Image_Path = Image_Path & [id] & ".jpg" img.ShowAcquireImage.SaveFile Image_Path وللعلم ، فالصورة التي يحفظها الكود ليست jpg وانما bmp (كما اوضحتها انا هنا http://www.officena.net/ib/index.php?showtopic=61540&p=399567 ) جعفر

وعليكم السلام انا اصوت لـ 2010 ، مع ان 2013 موجود. جعفر

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

وعليكم السلام 1. لازم تعمل جدول يكون فيه حقل نوع الجهاز (Device) ، وحقل موديل الجهاز (Model) ، كما هو في الجدول tbl_Devices ، ويجب عليك تعبئة اسماء جميع الاجهزة وموديلاتها: 2. في النموذج ، تأخذ معلومات الحقل/كمبوبوكس نوع الجهاز ، من الحقل Devices ، في الجدول tbl_Devices ، وعلى حدث "بعد التحديث" تكتب هذا الكود ، حتى يكون محتوى الحقل موديل الجهاز حسب نوع الجهاز: Me.[موديل الجهاز].Requery Me.[موديل الجهاز] = "" 3. في النموذج ، تأخذ معلومات الحقل/كمبوبوكس موديل الجهاز ، من الحقل Model ، في الجدول tbl_Devices ، واستعلامه يكون: جعفر 85.computer.mdb.zip

وعليكم السلام أخوي أبوخليل انا قرأت الشروط ، وما فيها شئ يقول ان الملف مؤقت تسلم ايدك جعفر

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

اذا كان المطلوب اجراء عمليات حسابية على حقل النص ، فالكود دائما يكون: a=val([myYear]) بينما اذا لم يكن عندك سبب في جعله حقل نص ، فاصحك بتحويلة الى حقل رقم من الان ، او لاحقا ، مادمت ما ادخلت اي شئ في الحقل غير ارقام فقط. جعفر

السلام عليكم ملاحظة: انا انزلت برنامج الاخ رمهان والاخ ابوياسر ، واتضح لي بان الصورة التي يحفظها البرنامج هو بصيغة bmp وليس jpg ، للعلم جعفر