jjafferr

تفضل شئ قديم من مكتبتي ، بتعديل للمطلوب جعفر 53-Word_Print.zip

وعليكم السلام جرب "مسقط التقارير" http://www.officena.net/ib/index.php?showtopic=59415 جعفر

ونِعم المُكلف المسؤول بارك الله فيك ، وخطوة جبارة للأمام ان شاء الله جعفر

السلام عليكم أخي وائل اعتذر عن التأخير في الرد انت الآن قسمت الاصناف عندك الى 3 مجموعات: المطعم ، المشروبات ، الشيشة. ولكن مافي عندنا طريقة نعرف نربط الصنف بالمجموعة !! لذلك ، اقترح عليك عمل حقل جديد في جدول Tmenu وتسميه Item_Group ، وفيه نكتب اسم المجموعة لكل صنف ، هكذا: ونضيف الحقل في الاستعلام Qorder والذي يغذي النموذج: ثم نضيفه للنموذج مخفيا: وهذه الاضافة على كود فتح التقارير: ليطلع التقرير هكذا: الى هنا وانتهى سؤالك اما انا ، فاردت من النموذج ان اعرف عدد كل مجموعة (يعني كم مادة للمطعم مثلا) ، فاستخدمت الوحدة النمطية RowCounter ، واللي كاتبها أحد اصدقائي القدامى: Option Compare Database Option Explicit Public Function RowCounter( _ ByVal strKey As String, _ ByVal booReset As Boolean, _ Optional ByVal strGroupKey As String) _ As Long ' Builds consecutive RowIDs in select, append or create query ' with the possibility of automatic reset. ' Optionally a grouping key can be passed to reset the row count ' for every group key. ' ' Usage (typical select query): ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter(CStr([ID]),False) <> RowCounter("",True)); ' ' Usage (with group key): ' SELECT RowCounter(CStr([ID]),False,CStr([GroupID])) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter(CStr([ID]),False) <> RowCounter("",True)); ' ' The Where statement resets the counter when the query is run ' and is needed for browsing a select query. ' ' Usage (typical append query, manual reset): ' 1. Reset counter manually: ' Call RowCounter(vbNullString, False) ' 2. Run query: ' INSERT INTO tblTemp ( RowID ) ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable; ' ' Usage (typical append query, automatic reset): ' INSERT INTO tblTemp ( RowID ) ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter("",True)=0); ' ' 2002-04-13. Cactus Data ApS. CPH ' 2002-09-09. Str() sometimes fails. Replaced with CStr(). ' 2005-10-21. Str(col.Count + 1) reduced to col.Count + 1. ' 2008-02-27. Optional group parameter added. ' 2010-08-04. Corrected that group key missed first row in group. Static col As New Collection Static strGroup As String On Error GoTo Err_RowCounter If booReset = True Then Set col = Nothing ElseIf strGroup <> strGroupKey Then Set col = Nothing strGroup = strGroupKey col.Add 1, strKey Else col.Add col.Count + 1, strKey End If RowCounter = col(strKey) Exit_RowCounter: Exit Function Err_RowCounter: Select Case Err Case 457 ' Key is present. Resume Next Case Else ' Some other error. Resume Exit_RowCounter End Select End Function Public Function Reset_RowCounter() Call RowCounter(vbNullString, False) End Function أضفت حقل RowID ليقرأ هذه الوحدة النمطية ، في الاستعلام Qorder وأضفت الحقل الى النموذج ، وعملت له تنسيق مشروط (علشان لون ارقام التسلسل تتماشى مع الوان ازرار التقرير ) بهذه المعادلة في التنسيق الشرطي: فاصبح التنسيق الشرطي للالوان الثلاث هكذا: والنتيجة اصبحت: 1. يوجد رقم تسلسلي للمطعم ، وتسلسل آخر للمشروبات ، وتسلسل آخر للشيشة ، 2. لون ارقام التسلسل ، هو نفس لو زر طباعة التقارير صافي يالبن جعفر 52.AAA.mdb.zip

تفضل واعتذر عن التأخير الكود الجديد: Private Sub Civil_Status_AfterUpdate() Call calc_Benefits End Sub Private Sub Period_AfterUpdate() Call calc_Benefits End Sub Private Sub s_AfterUpdate() Call calc_Benefits End Sub Private Sub Working_Retired_AfterUpdate() Call calc_Benefits End Sub Function calc_Benefits() 's = الراتب 'M = المكافأة '"موظف";"متقاعد" 'check if salary is inserted If Len(Me.s & "") = 0 Then MsgBox "Please insert the Salary" Me.s.SetFocus Exit Function End If 'check if period is inserted If Len(Me.Period & "") = 0 Then MsgBox "Please insert the Period" Me.Period.SetFocus Exit Function End If Me.M = 0 'do the calculations Select Case Me.Civil_Status Case 1 'مدني If Me.Working_Retired = "موظف" Then If Me.Period >= 6 Then Me.M = Me.s * 1 Else Me.M = Me.s * 0.5 End If ElseIf Me.Working_Retired = "متقاعد" Then If Me.Period >= 6 Then Me.M = Me.s * 0.75 Else Me.M = Me.s * 0.7 End If End If Case 2 'عسكري If Me.Working_Retired = "موظف" Then If Me.Period >= 6 Then Me.M = Me.s * 2 Else Me.M = Me.s * 1.5 End If ElseIf Me.Working_Retired = "متقاعد" Then If Me.Period >= 6 Then Me.M = Me.s * 0.8 Else Me.M = Me.s * 0.6 End If End If End Select End Function جعفر 51.1.Database3.accdb.zip

من قدّك يا رمهان ومثل ما نحن العمانيين نقول: صرت فوق النخل جعفر

السلام عليكم أفضل طريقة: ان يضع الاخ ssm الكود هنا ، مع إخبارنا ببقية التغييرات التي قام بها على برنامجه ، ويقوم الاخ soft.sample بنسخ جميع هذه الاشياء الى برنامجه هذا اللي انا عملته في احد مشاركاتي السابقة ، وتمت بنجاح جعفر

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

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

حياك الله أخوي السالم بعض الكود يكتب كما هو وبدون النظر الى تفاصيله ، ومن ضمنها هذا الكود وخصوصا الكود الذي له علاقة بـ Windows API فلا تدوخ راسك فيها ، سوي مثلي وانسخ والصق جعفر

السلام عليكم انا كذلك جربت مرفق الاخ السيد الجوهري وكله تمام انا عملت كود ثاني اللي ممكن نجربه وهو: Set rst = Forms!Form1![Table1 subform].Form.Recordset rst.FindFirst "[id]=" & Me.Text0 DoCmd.Close acForm, "Form2" جعفر

احذف مسار الملف من الجدول (يعني لا تحفظ مسار الصورة في الجدول) ، واربط الصورة برقم الموظف باسم المجلد انا اتعامل مع جميع برامجي بهذه الطريقة جعفر

أختي ، استعملي برنامجي ، ولكل نموذج ، على حدث التحميل ، استعملي هذا الامر (رجاء القراءة عنه في للفائدة وطريقة الاستعمال): docmd.MoveSize (right,down,width,height) مثلا DoCmd.MoveSize 1440, 2400, , 2000 وهذه معلومة من الاكسس عن الامر: جعفر

الشكر لك انتي أختي ، نفسك كان طويل ، وكنتي حابه تتعلمين ، وكل اللي كان ينقصك ، المعلومة وطرف الخيط , ومنها انطلقتي بتجربتك وبنجاحك جعفر

حيا الله اولاد عمي الشباب هاي النتائج: وهاي الكود: Private Sub Civil_Status_AfterUpdate() Call calc_Benefits End Sub Private Sub Working_Retired_AfterUpdate() Call calc_Benefits End Sub Function calc_Benefits() 's = الراتب 'M = المكافأة '"موظف";"متقاعد" 'check if salary is inserted If Len(Me.s & "") = 0 Then MsgBox "Please insert the Salary" Me.s.SetFocus Exit Function End If 'do the calculations Select Case Me.Civil_Status Case 1 'مدني If Me.Working_Retired = "موظف" Then Me.M = Me.s Else Me.M = Me.s * 0.75 End If Case 2 'عسكري If Me.Working_Retired = "موظف" Then Me.M = Me.s * 2 Else Me.M = Me.s * 0.8 End If End Select End Function 51.Database3.accdb.zip

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

لا تطبعين النموذج ، حولي النموذج الى تقرير (لاحظي الخطوات في الاسفل) ، واطبعيه جعفر

وعليكم السلام أخي وائل لوسمحت تعطي توضيح بمثال اول مثالين ، وياريت بالصور او بالاكسل (لأني بصراحة ما فهمت المطلوب حسب شرحك ) جعفر

وعليكم السلام انتي تتحكيمن في عرض التقرير زيدي في عرضه ، فيصبح افقي واذا ما عندك حقول تملئين فيها التقرير بالعرض ، زحفي الحقل الى منتصف التقرير جعفر

هنا مثال كذلك ، بس بطريقة اخرى http://www.officena.net/ib/index.php?showtopic=60630 جعفر

طيب ممكن ننسى المرفق السابق الرابط التالي فيه نفس المثال ، ولكن بإضافات اخرى (ليس على طلب البرنامج ، ولكن .. ) http://www.officena.net/ib/index.php?showtopic=60630&p=390062 جعفر

تفضل هذه مجموعة مستقطعة من برامجي السابقة ، ومن برامجي الرئيسية والنتيجة والبرنامج عبارة عن متصفح كذلك ، راجع الرابط: http://www.officena.net/ib/index.php?showtopic=60659 جعفر تعديل 1: عفوا ، عملت إضافة اخرى ، ليكتمل البرنامج ، فالواجهة اصبحت: تعديل2: امسك زر الشفت اثناء تشغيل البرنامج علشان تقدر تغير اللي تريده . 49.View_Internet.mdb.zip

وعليكم السلام ورحمة الله تعالى وبركاته انا استقطعت هذا النموذج (وطبعا عدلت عليه) من احد برامجي القديمة البرنامج عبارة عن متصفح انترنت IE Explorer مضمن في النموذج (ويكون حسب الاصدار المنصوب على الكمبيوتر) ، وكل اللي تعمله هو انك تدخل عنوان الصفحة في خانة العنوان ، ثم تضغط على زر افتح الصفحة: تصفح الصور: تصفح الانترنت: الكود الذي يقوم بالعمل هو: Option Compare Database Private web As WebBrowser 'set Reference to: 'Browse Windows\system32\ieFrame.dll 'Microsoft Internet Controls ' Private Sub cmdSiteName_Click() 'specify that the browser is an object in the Form Set web = Me.objIE.Object 'give the initial web page name ' Me.cboSite = "http://www.officena.net/ib/uploads/profile/photo-142414.jpg?_r=1425109766" ' Me.cboSite = "http://www.officena.net/ib/index.php?showuser=111758" 'update the status bar Call SysCmd(acSysCmdSetStatus, "Opening Page " & Me.cboSite) 'Open/Navigate the page web.Navigate Me.cboSite While web.Busy 'wait until the site fully loads DoEvents Wend While web.ReadyState <> 4 'wait until the site fully loads DoEvents Wend 'update the status bar Call SysCmd(acSysCmdSetStatus, "Ready") 'waituntilpageonefinishesloading While web.Busy DoEvents Wend Do While web.Document.all.length = 0 DoEvents Loop End Sub Public Sub Form_Load() On Error GoTo Err_Form_Load 'specify that the browser is an object in the Form Set web = Me.objIE.Object 'give the initial web page name Me.cboSite = "about:blank" 'Open/Navigate the page web.Navigate Me.cboSite Exit Sub Err_Form_Load: If Err.Number = 2447 Then MsgBox "Please Enter a Site Name for starting this Page" Exit Sub End If Resume Next End Sub Private Sub cmd_close_Click() On Error GoTo Err_cmd_close_Click DoCmd.Close Exit_cmd_close_Click: Exit Sub Err_cmd_close_Click: MsgBox Err.Description Resume Exit_cmd_close_Click End Sub جعفر 49.View_Internet.mdb.zip

؟

أنت الان ارجعتنا الى مشاركتي رقم 25 ، والتي طلبت منك فك جزيئيات الاستعلام ، فلا فائدة لي من هذا الاستعلام سؤالي هو ، قيمة الحقل Remaining ماهو (اترك الاستعلام جانب ، واخبرني عن الحقول اللي يجمهعا ومن اي جداول) ، وسؤال آخر ، هل هناك جدول تسجل فيه الدفوعات؟ لأن هذا المفروض ان يسهل العملية كلها ، يعني: على اساس اختيارك من النموذج Cridi_sub ، تعمل (في جدول خاص بدفوعات القروض) سجلات بعدد الاشهر المراد سدادها ، والشهر وقيمة السداد الشهري ، وعلى اساس هذا الجدول ، يكون عندك التقرير. والتلاعب بالجدول بتأخير الدفوعات ، او حتى دفع جزء من الدفوعات سيكون اسهل بكثير ، وذلك ، لأن الجدول به ارقام واشهر يمكننا قرأتها ، بينما وضعك الان هو التلاعب بالكود في جمع Remainings . مجرد فكرة جعفر