نجوم المشاركات

السلام عليكم ورحمة الله اكتب الكود الاول فى موديول عادى اما الكود الثانى فضعه فى حدث ولرقة العمل Sub SortData() Range("C2:E" & Range("D" & Rows.Count).End(xlUp).Row).Sort key1:=Range("E2"), _ order1:=xlDescending, key2:=Range("D2"), order2:=xlAscending End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 5 Then Call SortData End If End Sub

بالنسبة لاكواد رصيد الصنف فهذه فقط التي كانت في برنامجي : Rsnf: (Nz(DSum("Alkmiah","Qrymaster","Nwaha=11" & " and ID_Sanf=" & [ID_Sanf])) -Nz(DSum("Alkmiah","Qrymaster","Nwaha=12" & " and ID_Sanf=" & [ID_Sanf]))) -(Nz(DSum("Alkmiah","Qrymaster","Nwaha=13" & " and ID_Sanf=" & [ID_Sanf])) +Nz(DSum("Alkmiah","Qrymaster","Nwaha=14" & " and ID_Sanf=" & [ID_Sanf]))) وزيادة الاسطر من عمل ابو زاهر واعتقد السطر الاخير خطأ مني يجب ان تكون العلامة بالموجب وهو كما ذكر ابو زاهر 11 للمشتريات 12 لمرتجع المشتريات 13 للمبيعات 14 لمرتجع المبيعات فالاسطر الثلاثة الاولى العملية طرح لان مرتجع الشراء عبارة عن بيع ولكن السطر الاخير يجب ان تكون العلامة (+) لان مرتجع البيع عبارة عن شراء

وعليكم السلام اخوي ابو خليل نعم كلامك صحيح ، ولازم اسم الموضوع يتغير وهذه محاولة اخيرة مني لأبو زاهر ، واللي اريده يضيف بيانات اضافية للبرنامج ويجربة ، واذا ظلت المشكلة على ماهي عليه ، فيجب ان يفكر في بدائل جعفر 918.استدعاء الرصيد (2).mdb.zip

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

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

السلام عليكم شوفوا هذا الرابط: جعفر

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

لوسمحت ترفق لي هذا الجدول ضمن برنامجك انت عامل 6 Dsum في حقل الرصيد ، هذا معناه انك تعمل 6 استعلامات (Dsum عبارة عن جملة SQL واللي هي عبارة عن استعلام) داخل استعلامك ، فالفكرة ان نعمل استعلام مستقل للحقل ويعمل فيه المجاميع مرة واحدة ، ونربطه بالاستعلام الحالي. جعفر

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

السلام عليكم اخي ابو زاهر لازلت في انتظار الجواب جعفر

شكرا جزيلا استاذ شفان ...بارك الله فيك...

تم عمل كود لمعاينة التقريرين واحد تلو الآخر وبعد معاينة التقرير اليومي وإغلاق المعاينة تأتي رسالة للطباعة إذا كان الاختيار yes فيتم طباعة هذا الطباعة وينتقل لمعاينة غياب التلاميذ ونفس الحال بعد إغلاق المعاينة تأتي رسالة للطباعة أما بالنسبة لزر البحث فهو صحيح لأن دالة vlookup تعتمد على العمود الأول ويكون مسلسلاً وقد أضفت قائمة إذا اردت الاختيار منها التقرير اليومي 2018 مصحح.xls

السلام عليكم اخي ابو زاهر سؤال: حقل الرصيد هو: Rsnf: (Nz(DSum("Alkmiah","Qrymaster","Nwaha=11" & " and ID_Sanf=" & [ID_Sanf])) -Nz(DSum("Alkmiah","Qrymaster","Nwaha=12" & " and ID_Sanf=" & [ID_Sanf]))) -(Nz(DSum("Alkmiah","Qrymaster","Nwaha=13" & " and ID_Sanf=" & [ID_Sanf])) -Nz(DSum("Alkmiah","Qrymaster","Nwaha=14" & " and ID_Sanf=" & [ID_Sanf]))) -Nz(DSum("Alkmiah","Qrymaster","Nwaha=21" & " and ID_Sanf=" & [ID_Sanf])) +Nz(DSum("Alkmiah","Qrymaster","Nwaha=20" & " and ID_Sanf=" & [ID_Sanf])) +Nz([rsdaolalmdh]) . بينما الاستعلام اللي تأخذ بياناتك منه Qrymaster ، لا يحتوي على اي من الحقول اعلاه: Nwaha11 و 12 و 13 و 14 و 21 و 20 . جعفر

السلام عليكم ورحمة الله وبركاته مرفق إلى حضراتكم ملف إكسل لجدول مباريات كاس العالم 2018 الروابط https://up.top4top.net/downloadf-702bt7pr1-rar.html أو https://www.4shared.com/office/ZchKus7Lca/World_Cup_Russia_2018_Chart__B.html كلمة السر للملف لمن يرغب في رؤية المعادلات RCUDLNXBVYOVBLS كلمة سر محرر أكواد VBA هي 92EZD9 نسخة مفتوحة بالكامل https://www.4shared.com/rar/ZAqGFyPica/World_Cup_Russia_2018_Chart__B.html نفعكم الله به آمين

تفضل يا سيدي Private Sub Command9_Click() On Error GoTo err_Command9_Click If IsNull(Me.Text15) And IsNull(Me.TotalAmount) Then DoCmd.SetWarnings (False) DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings (True) DoCmd.Close acForm, Me.Name Else DoCmd.Close acForm, Me.Name End If If IsNull(Me.Text15) Then DoCmd.SetWarnings (False) DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings (True) DoCmd.Close acForm, Me.Name Else Dim Msg, style, title, result Msg = "هل تريد حفظ الفاتورة الحالية" style = vbYesNo title = " تنبيه" result = MsgBox(Msg, style, title) If result = vbYes Then [TotalAmount] = [Text17] [Descount] = [Text15] - [Text17] MsgBox "تم الحفظ سيتم الخروج", vbInformation, "تنبيه" DoCmd.Close acForm, Me.Name 'Else ' DoCmd.SetWarnings (False) ' DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 ' DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 ' DoCmd.SetWarnings (True) ' MsgBox "تم حذف الفاتورة الحالية", vbInformation, "مع السلامة" ' DoCmd.Close acForm, Me.Name End If End If Exit_Command9_Click: Exit Sub err_Command9_Click: If Err.Number = 2467 Then Resume Exit_Command9_Click Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر

وعليكم السلام رجاء اخذ نسخة اضافية من بياناتك قبل العمل الطريقة التي عملتها هي: تغيير الارقام الى ارقام كبيرة غير موجوده في القائمة ، ثم تغيير الارقام الى التسلسل المطلوب تفضل . والكود خلف الزر: Private Sub cmd_Do_The_Changes_Click() 'make Reference to Microsoft DAO x.xx Object Library Dim rst As DAO.Recordset Dim biggest_Number As Long Dim i As Integer Dim j As Integer Dim RC As Integer Dim Multiply_by As String biggest_Number = Len(DMax("[ID]", "Data")) 'we have to do this in two steps: '1 based on the Biggest Number, lets multiply it by 10, so that No number id duplicated '2 then Seq based on the required Seq '1 Set rst = CurrentDb.OpenRecordset("Select * From Data") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC 'what number to multiply with Multiply_by = 1 For j = 1 To biggest_Number - Len(rst!ID) Multiply_by = Multiply_by & "0" Next j 'change the existing numbers to BIGGER NUMBERS rst.edit rst!ID = rst!ID * Val(Multiply_by) rst.Update rst.MoveNext Next i '2 rst.MoveFirst For i = 0 To RC - 1 'change the BIGGER NUMBERS to the new Seq rst.edit rst!ID = Me.int_Start + i rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing MsgBox "Done" End Sub . وبسبب وجود علاقة بين الجدولين Data و tell عن طريق الحقل ID ، فلما الكود يغير قيمة الحقل ID في الجدول Data ، فتلقائيا نجد ان القيمة قد تغيرت في الحقل ID في الجدول tell . جعفر 927.Access.accdb.zip

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

وعليكم السلام تفضل Private Sub Command9_Click() On Error GoTo err_Command9_Click If IsNull(Me.Text15) And IsNull(Me.TotalAmount) Then DoCmd.SetWarnings (False) DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings (True) DoCmd.Close acForm, Me.Name Else DoCmd.Close acForm, Me.Name End If If IsNull(Me.Text15) Then DoCmd.SetWarnings (False) DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings (True) DoCmd.Close acForm, Me.Name Else Dim Msg, style, title, result Msg = "هل تريد حفظ الفاتورة الحالية" style = vbYesNo title = " تنبيه" result = MsgBox(Msg, style, title) If result = vbYes Then [TotalAmount] = [Text17] [Descount] = [Text15] - [Text17] MsgBox "تم الحفظ سيتم الخروج", vbInformation, "تنبيه" DoCmd.Close acForm, Me.Name Else If result = vbNo Then DoCmd.SetWarnings (False) DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings (True) MsgBox "تم حذف الفاتورة الحالية", vbInformation, "مع السلامة" DoCmd.Close acForm, Me.Name End If End If End If Exit_Command9_Click: Exit Sub err_Command9_Click: If Err.Number = 2467 Then Resume Exit_Command9_Click Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر

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

تسلم ايدك يا برنس الف شكر لحضرتك

بعد إذن أخي الفاضل الأستاذ / طلعت تفضل المطلوب سند 1صرف وقيض تحويل.rar

بارك الله فيك وجعله فى ميزان حسناتك وهذا هو الملف بدون حماية لتعم الفائدة World_Cup_Russia_2018_Chart_(Basic_Excel_2003)_Ver_1.00-unprotected.rar

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

السلام عليكم ورحمة الله وبركاته ،، كل الشكر للاستاذ/ عبد الله باقشير وأتمنى أن يكون بكامل الصحة فقد تعلمنا منه الكثير من اصول البرمجة وكأنما صيغت له التعليمات البرمجية فقد كان يطوعها كيفما شاء وهذا البرنامج كان قد أسماه كاس العالم 2010 وودت أن أبدل فيد الدول وأسميه كاس العالم 2018 وبنفس توقيعه ، كل الشكر والامتنان له وليسمح لنا في تعديل بعض أعماله ، و الصفحات محمية بدون كلمة سر عد ما كان يحفظه هو بكلمة سر . تحياتي لكم واتمنى أن يعود بالنفع لكم ولتدعوا للاستاذ / خبور خير . http://www.mediafire.com/file/mnnh0p26akx191w/World_Cup_2018.rar

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