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

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

استأذن من استاذنا جعفر اتفضلي تم عمل العلاقة بين الجدولين و بعدين عملت هذا استعلام SELECT TOP 3 insert.idd, sub.Date, Sum(sub.reading) AS SumOfreading, DSum("[SumOfreading]","q1")/3 AS mitawasit FROM [insert] INNER JOIN sub ON insert.idd = sub.id GROUP BY insert.idd, sub.Date ORDER BY Sum(sub.reading) DESC; والنتيجة بيعطيك هكذا Database1.rar

السلام عليكم ورحمة الله وبركاته أحبابى وأصدقائى : أعضاء منتدانا العريق أقدم لكم أحدث الإصدارات لشيت كنترول المرحلة الإعدادية لعام 2018 حسب تعديلات القرار 377 كنترول الإعدادى رجب جاويش الإصدار رقم 18 للترمين والدور الثانى 2018 يشمل كل الأعمال الخاصة بالترم الأول والترم الثانى والدور الثانى ويمكن اختيار الانجليزى مستوى رفيع للمدارس التجريبية تحية لمنتدانا الغالى ولأعضائه الكرام برجاء تجربة البرنامج فى الأيام المقبلة وكتابة أى ملاحظات لكى يتم تعديلها باذن الله ان كانت بالامكان وعذرا لأى خطأ أوسهو أخوكم رجب جاويش كنترول_الإعدادى__رجب_جاويش_الإصدار__18.rar

وعليكم السلام 1. بالنسبة للنموذج المستمر ، اي تغيير تعمله في حقل ، فسيغير الحقل في جميع السجلات ، لهذا السبب يجب عليك استعمال التنسيق المشروط Conditional Formating ، فيمكنك ان تغير لون الخط الى ابيض مثلا ، فيكون كأنه مخفي 2. في اعدادات النموذج ، اجعل Allow Additions = No جعفر

السلام عليكم قمت بتصميم برنامج لصديق لي لبيع وشراء الاجهزة الخلوية - مع فكرة الباركود حسب ما طلب مني البرنامج جاهز وهو مقدم لكم هدية لعلكم تستفيدون منه جربوه واعطوني رأيكم فيه ** لا يشكر الله من لا يشكر الناس كل الشكر للصديق المهندس هاني مجدي ( من الشقيقة مصر ) حيث هو صاحب الفكرة واستفدت منه الكثير مؤسسة البركة لبيع الخلويات.rar

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

شرح الفاتوره.rarشرح الفاتوره.rarشرح الفاتوره.rarالسلام عليكم ورحمة الله وبركاته اخوانى الافاضل اقدم اليكم اليوم نموذج لفاتوره عملاء تقبلو تحياتى شرح الفاتوره.rar IN-2017.rar

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

ممکن تشرح لنا بالتفصیل ترید ان تنسخ ای حقل ومن ای جدول الى ای جدول وبأی شرط وضح اكثر لكي نقدر نساعدك تحياتي

الى الصباح خير ان شاء الله ، ولكن انزل هذا المرفق ، وفيه كل الكود اللي تريده ان شاء الله http://blog.nkadesign.com/wp-content/uploads/2008/05/DatabaseRestart.zip جعفر

وبعدين اذا ما تعرف ، اخوي شفان ما يسمح لي ان اعمل الاشياء الصغيرة البسيطة الله يسلمك هاي تقدر تعملها بالخطوات التالية: 1. احفظ الكود الطويل اللي في مشاركتي السابقة في وحدو نمطية ، 2. اكتب الكود التالي علشان يشغل الوحدة النمطية ويغلق البرنامج: call CompactDB docmd.quit والسلام جعفر

السلام عليكم الخلل في الملف سببه أن الخلايا في العمودين C و D هي من تنسيق "نص" Text، عليك تغيير هذا التنسيق لتصحيح الخطأ... بن علية حاجي

السلام عليكم اخي علي عدم وجود الاجابة لأن الموضوع مو بالسهولة ، وشيء لا يتم تداوله يوميا الجواب بإختصار وحسب قرآتي ، لا يمكن عمل الضغط والاصلاح على البرنامج الذي تعمل عليه. تحذير ، انا لم اجرب اي من هذه الطرق ، فرجاء التجربة على نسخة من برنامجك. هناك طريقتين لعمل الضغط والاصلاح على البرنامج الذي تعمل عليه: 1. كود يجعل البرنامج يضغط ويصلح عند اغلاق البرنامج: Application.SetOption "Auto compact", True او للإصدارات السابقة Dim control As Office.CommandBarControl Set control = CommandBars.FindControl( Id:=2071 ) control.accDoDefaultAction 2. كود : أ. يقوم بعمل برنامج صغير خارج برنامجك ، ب. هذا البرنامج الصغير فيه امر ان يقوم بعمل الضغط والاصلاح لبرنامجك ، ج. هذا البرنامج ينتظر 5-10 ثواني (حسب برمجتك) ، او يراقب الملف ldb. او laccdb. حتى اختفائه (هذا المرفق يغلق تلقائيا لما تغلق قاعدة بيانات الاكسس) ، وبعدها يصدر الامر اعلاه (ب) ، د. ثم الكود يغلق برنامجك مباشرة بعد عمل البرنامج الصغير ، هـ. وعندها يقوم البرنامج الصغير بالامر ، و. وتستطيع ان تطلب من البرنامج الصغير ان يفتح قاعدة البيانات عند انتهاء عمله: Public Function CompactDB() Dim strWindowTitle As String On Error GoTo err_Handler strWindowTitle = Application.Name & " - " & Left(Application.CurrentProject.Name, Len(Application.CurrentProject.Name) - 4) strTempDir = Environ("Temp") strScriptPath = strTempDir & "\compact.vbs" strCmd = "wscript " & """" & strScriptPath & """" Open strScriptPath For Output As #1 Print #1, "Set WshShell = WScript.CreateObject(""WScript.Shell"")" Print #1, "WScript.Sleep 1000" Print #1, "WshShell.AppActivate " & """" & strWindowTitle & """" Print #1, "WScript.Sleep 500" Print #1, "WshShell.SendKeys ""%yc""" Close #1 Shell strCmd, vbHide Exit Function err_Handler: MsgBox "Error " & Err.Number & ": " & Err.Description Close #1 End Function جعفر

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

السلام عليكم كنت محتاج غفوة شكرا اخي شفان ، ولكن اذا كان عندك اكثر من شخص ، فاستعلامك يعطيك اكبر 3 قيم لشخص واحد فقط هذه بيانات الجدولين: . استعملت الاستعلام التالي لنحصل على اكبر 3 نتائج لكل شخص: SELECT insert.idd, sub.reading FROM [insert] INNER JOIN sub ON insert.idd = sub.id WHERE (((sub.reading) In (SELECT TOP 3 sub.reading FROM sub WHERE sub.id=[insert].[idd] ORDER BY sub.reading DESC))); . وهذا شكله في التصميم . والنتيجة . ثم عملت استعلام تجميعي لنحصل على المتوسط . والنتيجة . جعفر 768.Database1.accdb.zip

اتفضل تم عمل هذا استعلام SELECT TOP 3 [الحصول على نتيجة اللاعبين].finaldgree, [الحصول على نتيجة اللاعبين].dev_name, [الحصول على نتيجة اللاعبين].playerClubs, [الحصول على نتيجة اللاعبين].ch_name FROM [الحصول على نتيجة اللاعبين] WHERE ((([الحصول على نتيجة اللاعبين].dev_name)=[Reports]![الحصول على نتيجة اللاعبين]![dev_name]) AND (([الحصول على نتيجة اللاعبين].playerClubs)=[Reports]![الحصول على نتيجة اللاعبين]![playerClubs]) AND (([الحصول على نتيجة اللاعبين].ch_name)=[Reports]![الحصول على نتيجة اللاعبين]![ch_name])) ORDER BY [الحصول على نتيجة اللاعبين].finaldgree DESC; وتم استخدام هذا كود عند فورمات جزء التفصيل ( FORMAT ) للتقرير Private Sub التفصیل_Format(Cancel As Integer, FormatCount As Integer) Me.Text25.Value = Nz(DSum("finaldgree", "q1"), 0) End Sub والنتیجة بيطلع هكذا عند فتح التقرير قبل طباعة النتائج هم سالب لذلك تم الحصول على اكبر نتائج اي تم الجمع الارقام الصغيرة بالسالب واذا تريد ان تحصل لارقام كبيرة للسالب افتح الاستعلام باسم Q1 في وضع تصميم وفي حقل النتيجة النهائية غير من Descending الى Ascending

السلام عليكم ورحمة الله وبركاته برجاء الاطلاع على الاستعلام الجديد = QTotal اجمالي المبيعات بالشهر.rar تحياتي

يجب عمل استعلام وتربط فيه الجدولين ، ثم تجعل الاسم الحقل الاول والفرز تصاعدي Asc ، ثم تجلب الحقل المطلوب وتجعل الفرز تنازلي Desc جعفر

وعليكم السلام اعمل الفرز للحقل المطلوب من الاكبر الى الاصغر Desc. جعفر

وعليكم السلام اخي كريمو ان شاء الله تكون في صحة وعافية ، صار لي زمان ما شفت لك مشاركة رجاء تخبرني الطريقة اللي اوصل للمكان المطلوب (لأن الظاهر ان المسميات العربية والانجليزية في سؤالك تداخلت ، وجعلت السؤال غير مفهوم) ، جعفر

وعليكم السلام أخوي كاسر واسعد الله ايامكم بهذا اليوم المبارك انا نظرت الى الكود وليس على طريقة عمله ، وشفت ان المشكلة انك ما رابط Else مع IF اللي خلفها ، فالمفروض ان الجمله تكون ElseIf مثل بقية الكود اللي فوق واللي بدون مشاكل ، وهذا مثال: فانت هنا ضيعت الكود ، وما اعطيته الطريقة الصحيحة لفحص الشرط If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Kinship]) Then Forms![Forme_Fatora]![Forme_Visitors2]![Kinship].SetFocus Else If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![service]) Then Forms![Forme_Fatora]![Forme_Visitors2]![service].SetFocus Else If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Travel]) Then Forms![Forme_Fatora]![Forme_Visitors2]![Travel].SetFocus Else If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary]) Then Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary].SetFocus End If وهذا تعديل الكود من طرفي ، مع تعديل التنسيق ، حتى كل شيء يكون واضح ومرتب: Private Sub sav_GotFocus() If (IsNull(Me![Num_brnamge])) Then MsgBox "أدخل رقم الرحلة ", 48, "تـنـبـيـه !" Me.Num_brnamge.SetFocus ElseIf (IsNull(Me![PcDigtf])) Then MsgBox "أدخل رقم الزائر ", 48, "تـنـبـيـه !" Me.PcDigtf.SetFocus ElseIf (IsNull(Me![Fdate])) Then MsgBox "أدخل تاريخ الفاتورة ", 48, "تـنـبـيـه !" Me.Fdate.SetFocus ElseIf (IsNull(Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities])) _ Or (Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities] = "") Then MsgBox "أدخل الوضع !!!", 48, "تـنـبـيـه !" Forms![Forme_Fatora]![Forme_Visitors].SetFocus Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities].SetFocus ElseIf (IsNull(Forms![Forme_Fatora]![Forme_Visitors]![service])) _ Or (Forms![Forme_Fatora]![Forme_Visitors]![service] = "") Then MsgBox "أدخل الخدمة المطلوبة !!!", 48, "تـنـبـيـه !" Forms![Forme_Fatora]![Forme_Visitors].SetFocus Forms![Forme_Fatora]![Forme_Visitors]![service].SetFocus ElseIf (Forms![Forme_Fatora]![Forme_Visitors]![service] <= 5 _ And (IsNull(Forms![Forme_Fatora]![Forme_Visitors]![Travel])) _ Or (Forms![Forme_Fatora]![Forme_Visitors]![Travel] = "")) Then MsgBox "أدخل طريقة السفر !!!", 48, "تـنـبـيـه !" Forms![Forme_Fatora]![Forme_Visitors].SetFocus Forms![Forme_Fatora]![Forme_Visitors]![Travel].SetFocus ElseIf (Forms![Forme_Fatora]![Forme_Visitors]![service] <= 5 _ And (IsNull(Forms![Forme_Fatora]![Forme_Visitors]![Itinerary])) _ Or (Forms![Forme_Fatora]![Forme_Visitors]![Itinerary] = "")) Then MsgBox "أدخل خط سير الرحلة !!!", 48, "تـنـبـيـه !" Forms![Forme_Fatora]![Forme_Visitors].SetFocus Forms![Forme_Fatora]![Forme_Visitors]![Itinerary].SetFocus End If 'IsNull(Me![Num_brnamge] '"===== If DCount("[id_visitors2]", "Tabil_Visitors2", "[Id_fatora]=id") < 1 And _ ((Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities])) = 2 Then MsgBox "أدخل المرافقين !!!", 48, "تـنـبـيـه !" Forms![Forme_Fatora]![Forme_Visitors2].SetFocus Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2].SetFocus '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 'ملاحظة 'من هنا تبدأ مشكلة تداخل الكود '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ElseIf Not (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2]) _ Or (Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2] = "")) Then On Error Resume Next Me.Forme_Visitors2.SetFocus On Error GoTo 0 DoCmd.GoToRecord , , acFirst For i = 0 To Me.Forme_Visitors2.Form.Recordset.RecordCount - 1 If Not (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2])) _ And (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Kinship])) _ Or (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![service])) _ Or (Forms![Forme_Fatora]![Forme_Visitors2]![service] <= 5) _ And (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Travel])) _ Or (Forms![Forme_Fatora]![Forme_Visitors2]![service] <= 5) _ And (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary])) Then MsgBox "أدخل هذا الحقل !!!", 48, "تـنـبـيـه !" If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Kinship]) Then Forms![Forme_Fatora]![Forme_Visitors2]![Kinship].SetFocus ElseIf IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![service]) Then Forms![Forme_Fatora]![Forme_Visitors2]![service].SetFocus ElseIf IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Travel]) Then Forms![Forme_Fatora]![Forme_Visitors2]![Travel].SetFocus ElseIf IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary]) Then Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary].SetFocus End If 'IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Kinship]) Exit Sub End If 'Not DoCmd.GoToRecord , , acNext Next i End If 'DCount جعفر

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

بسم الله الرحمن الرحيم الحمد للـه الذي بنعمته تتم الصالحات، والصلاة والسلام على سيدنا محمد المبعوث بالرحمات، وعلى آله وصحابته أولـي النهى والمكرمات، وعلى التابعين ومن تبعهم بإحسان مابقيت الأرض والسموات. وبعد ,,,, السلام عليكم ورحمة الله وبركاته أخواني وأخوتي الكرام في صرحنا المبارك اوفيسنا التعليمي كان هناك موضوع للاخ الكريم // اسماعيل طه (( طلب نموذج إيداع نقدي وسحب نقدي )) علي الرابط http://www.officena.net/ib/index.php?showtopic=51017 والاخ الكريم مشكور راسلني عدة مرات علي الخاص وعرض مقابل مادي واضحت له كما اوضح عدد من اخواني (جزاهم الله كل خير ) علي ذات الرابط السابق , أن الهدف من جمعنا انه تطوعي علي حسب وقت كل منا بهدف تبادل الخبرات المختلفة ونشر العلم والاحترام قبل كل شيء بينا وجمع الله بيننا بنعمته في التاخي والمحبة يمكن لا ابالغ ان قلت علي مستوي جميع المنتديات العربية والأجنبية بكل حب وأحترام وتأخي وعد الاخ الكريم اني سوف انجز العمل علي ما يسمح وقتي لوجه الله واقل ما نقدمه مقابل الكثير والكثير الذي تعلمناه من فرسان هذا الصرح , وبعد يوم واحد أرسل رسائل اخري انه سوف يدفع مقابل مادي (فلوس) كما ورد بالنص برسالته الكريمة فيا اخي الكريم العمل تبرع واجتهاد لوجه الله ولا نبغي جزاءا ولا معروفا الا دعوة بظهر الغيب بصلاح الحال ولي سؤال سألته لك لك ما جاوبتني ماهو المقابل امام رجاء الثواب من عند الله عز وجل ؟؟؟ وهل لو هناك مقابل سوف ينجز العمل خلال ساعات ؟؟؟ هدانا الله واياكم الي الصالحات واعتذر للاطالة أحببت عرض الموضوع بشكل عام حتي يكون هناك توضيح عام اننا لا نهدف الي الربح والترزق واوضح هدفنا الأسمي والأعلي من تجمعنا المبارك لتبادل الخبرات وأعتذر من ادارة الصرح اني قمت بفتح الموضوع بشكل مستقل بذاته لسهولة البحث وتعميم الفائدة البرنامج مع شرح موجز لشاشته المختلفة للتعرف علي الجانب الأخر من الاكسيل اننا يمكن ان نستخدمه بشتي الطرق وابراز جوانب فنية بجانب دور الاكسيل الاساسي شاشة الدخول وكلمة المرور (111) البرنامج يحتوي علي خيارين الخيار الاول (العمليات ) وتنقسم كالتالي 1- قسيمة ايداع نقدي ( لتسجيل الايدعات اليومية ) مع مسلسل ورقم سند تلقائي (جاري - توفير - مقاصة ) 2- قسيمة سحب نقدي (لتسجيل المسحوبات اليومية ) مع تسلسل ورقم سند تلقائي. ي (جاري - توفير - مقاصة ) 3- بحث ( يستخدم للبحث عن عملية معينة ) سواء اكانت العملية سحب او ايداع . 4- كشف حساب قسائم الايداع (كشف حـ/ شهري لاظهار معاملات الايداع علي الحسابات المختلفة خلال شهر معين ) 5- كشف حساب قسائم السحب ( كشف حـ/ شهري لاظهار معاملات السحب علي الحسابات المختلفة خلال شهر معين) 6- معلومات الحساب ( لتسجيل عميل جديد او الاستعلام عن بيانت عميل ) الخيار الثاني العمليات المصرفية الهدف منه اظهار المعلومات المتعلقة بالعمليات المصرفية المختلفة ويستخدم في الجانب التسويقي اكثر للخدمات البنكية وينقسم الي عدة خيارات كالتالي 1- أسعار العملات 2-حسابات التوفير (معلومات عن حسابات التوفير وكيفية فتح الحساب) 3-بطاقات الأئتمان. 4- تسهيلات الشركات . 5-بطاقة الماستر كارد. 6- مواقع الصراف الألي. واترككم لتجربة البرنامج بانفسكم والتعرف علي الوظائف المختلفة وادعوا الله سبحانه وتعالي ان يكون فيه الفائدة لكم ان كانت هناك اي ملاحظات او اخطاء واردة في البرنامج يسعدني ان استقبلها لتعديله ولتعميم الفائدة علي ذات الموضوع مع تحياتي واحترامي لكم اخيكم ضاحي الغريب ولا تنسونا بدعوة بظهر الغيب بصلاح الحال برنامج ادارة الخدمات المصرفية - ضاحي الغريب.rar

تفضل عملت نموذج تدخل فيه التاريخ من فترة الى فترة ويقوم بفتح استعلام 1 حسب الفترة 110.rar

بصراحة برنامج احترافي بكل معنى الكلمة انا اليوم اشتريت فنيلة من السوق وكنت ابحث عن برنامج مبيعات ومشتريات واخيراً وجدت مبتغاي مشكور على المجهود الرائع

http://www.thezcorp.com/VBACodeSamples.aspx https://msdn.microsoft.com/en-us/library/office/ff604039(v=office.14).aspx https://word.tips.net/C0012_VBA_Examples.html

اعتذر بدل instrev اكتب instrrev . اما الطريقة الثانية فتعمل تمام وبدون تعديل وتفضل ، كل الطرق الاربعة في استعلام: SELECT Mid([PicFile],InStrRev([PicFile],"\")+1) AS City, Replace(Replace(Mid([PicFile],InStrRev([PicFile],"\")+1),".png",""),".jpg","") AS City2, Replace([PicFile],"C:\Teed\","") AS city3, Replace(Replace(Replace([PicFile],"C:\Teed\",""),".png",""),".jpg","") AS city4 FROM tbl_pic; . جعفر

ابشر انا عندي 2010 ونظام 32 2007 نفس الشيء لازم تفتح عندك

لقد قمت بحل المشكلة وكانت مشكلة في معادلة do ----- loop وساتعلم منكم كل ما هو جديد ان شاء الله لكن الساعة لم تظهر! مبيعات المحطات 2.rar

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

السلام عليكم الاخ الكريم / الصّارم اعتقد ان التالي به طلبك تماماً ولكن عذرا للاطالة فالموضوع ليس موضوعي ولكنه للقدير العبقري الاستاذ القدير / جعفر طرباق .... جزاه الله خيرا بعنوان ((( كيف نجعل الملف ينتحر و يحدف نفسه من الجهاز تلقائيا ! )))) ولكني احببت ان انقله كما هو ليستفيد منه الجميع بكل طرقه واشكاله ============================================= الكود ادناه يفعل ذلك من داحل الملف نفسه و يمكن ربطه مثلا بالحدث Workbook_BeforeClose و مسح الملف تلقائيا و نهائيا و من دون اشعار المستخدم. SuicidalWorkbook.rar Option Explicit Private Const MSG_TITLE As String = "Deleting Current Workbook ..." Private Const MSG_TEXT As String = _ "You are about to permanently delete the current workbook located in :" Sub Kill_Myself() Dim lUserDecision As Long Dim sMsg As String On Error Resume Next sMsg = "Attention !" & vbNewLine & vbNewLine sMsg = sMsg & MSG_TEXT & vbNewLine sMsg = sMsg & "'" & ThisWorkbook.FullName & "'" & vbNewLine sMsg = sMsg & "from Disk!!" & vbNewLine & vbNewLine sMsg = sMsg & "Go ahead ?" & vbNewLine & vbNewLine Beep lUserDecision = _ MsgBox(sMsg, vbExclamation + vbYesNo, MSG_TITLE) With ThisWorkbook If lUserDecision = vbYes Then .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End If End With End Sub ====================================================== الكود التالي يحدف الملف بعد شهر واحد من اول استعماله تلقائيا و بدون اشعار المستخدم ! ضع الكود في ThisWorkbook Module Option Explicit Private Sub Workbook_Open() Dim lInitialDate As Long On Error Resume Next lInitialDate = Evaluate("InitialDate") If Err.Number = 13 Then Me.Names.Add "InitialDate", Date, False Me.Save End If If Date > Evaluate("InitialDate") + 30 Then Kill_Myself End Sub Private Sub Kill_Myself() .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End Sub ينصح اقفال الكود بباسوورد لمنع المستخدم من رؤية او حدف الكود. ================================================================ الكود التالي يحدف الملف بعد 3 الستعمالات تلقائيا و بدون اشعار المستخدم ! ضع الكود في ThisWorkbook Module Option Explicit Private Const MAX_USES As Long = 3 Private Sub Workbook_Open() Dim lNumberOfUses As Long On Error Resume Next lNumberOfUses = Evaluate("NumberOfUses") If Err.Number = 13 Then Me.Names.Add "NumberOfUses", 1, False Me.Save Exit Sub End If Me.Names.Add "NumberOfUses", Evaluate("NumberOfUses") + 1, False Me.Save If Evaluate("NumberOfUses") > MAX_USES Then Kill_Myself End Sub Private Sub Kill_Myself() With Me .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With End Sub ينصح اقفال الكود بباسوورد لمنع المستخدم من رؤية او حدف الكود ========================================================= الكود التالي يحذف الملف بعد دقيقة واحدة من فتحه : (ضع الكود في ThisWorkbook Module) Option Explicit Private Const TIMEOUT As Long = 1 Private Sub Workbook_Open() Application.OnTime _ Now + TimeSerial(0, TIMEOUT, 0), Me.CodeName & ".Kill_Myself" End Sub Private Sub Kill_Myself() With Me .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With End Sub ===================================================== حذف الملف ولكن باشعار المستخدم بذلك !!!! للتمكن من اشعار المستخدم و في نفس الوقت منعه تماما من اجهاض عملية حذف الملف , اقترح الكود التالي حيث يتم اشعار المستخدم بعد حذف الملف و ليس قبل : (الملف يحذف نفسه تلقائيا بعد 3 استعمالات و يشعر المستخدم بعد الحذف) Option Explicit Private Const MAX_USES As Long = 3 Private Sub Workbook_Open() Dim lNumberOfUses As Long On Error Resume Next lNumberOfUses = Evaluate("NumberOfUses") If Err.Number = 13 Then Me.Names.Add "NumberOfUses", 1, False Me.Save Exit Sub End If Me.Names.Add "NumberOfUses", Evaluate("NumberOfUses") + 1, False Me.Save If Evaluate("NumberOfUses") > MAX_USES Then Call NotifyUser Call Kill_Myself End If End Sub Private Sub NotifyUser() Dim sVbsFile As String sVbsFile = Environ("Temp") & "\VBS_MSG.vbs" Open sVbsFile For Output As #1 Print #1, "Dim Wb" Print #1, "On Error Resume Next" Print #1, _ "set wb=Getobject(" & Chr(34) & Me.FullName & Chr(34) & ")" Print #1, _ "MSG= ""You have exceeded the Maximum Number of uses of this file."" & vbnewline & vbnewline" Print #1, _ "MSG= msg & ""The file has been permanently deleted from your Drive !""" Print #1, "Do" Print #1, "Loop until wb.name=""""" Print #1, "WScript.Echo MSG" Close #1 Call Shell("WScript.exe " & sVbsFile) End Sub Private Sub Kill_Myself() With Me .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With End Sub وارجو من الله ان يجعل فيها افادة ... وادعو للاستاذ القدير العملاق / جعفر ... جزاه الله خيرا جزاكم الله خيرا

اخي االجزيرة -----------حفظك ربي سررت بمرورك جزاك الله خيرا وبارك فيك تقبل تحياتي وشكري

برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) office 2010 اليوم وبعد مرور ستة شهور من طرح برنامجى السابق على الرابط التالى http://www.officena....opic=41247&st=0 اقدم لكم برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) برنامج يحتوى على الاتى 1- شاشه ادخال الفواتير بكافه انواعها وفى هذه الصفحه ايضا يكمنك البحث عن اى فاتورة وتعديلها او الغائها او طباعتها كما يوجد اختصار لاخرالفواتير المدخله التى يمكن استدعائها بضغطة زر واحده و العديد من التفاصيل اكتشفها بنفسك 2- شاشه لادخال العملاء و التعديل عليها بها جميع تقاصيل العميل 3- شاشه ادخال الموردين و التعديل عليها بها جميع تقاصيل المورد 4-شاشه ادخال الاصناف و التعديل عليها بها جميع تقاصيل الصنف 5-شاشه ادخال المناديب و التعديل عليها 6- شاشه ادخال مستخدمين بصلاحيات مختلفه 7- شاشات التقرير وتشمل الكثير و الكثير من التقارير كتقارير المبيعات و المشتريات وتقرير على حسب المناديب او المستخدمين و الكثير من التقارير التى يمكن اكتشافها بنفسك 8- شاشه تقرير حسب العميل يوضح مشتراياته ومدفوعاته بالتواريخ وايضا يبين المديونيه المستحقه 9- كما توجد العديد والعديد من الشاشات كادخال السندات و الخصومات و المصاريف وطباعتها 10- الكثير من المزايا الاخرى كحركه صنف وتقرير المخزون وتقرير الموازنه والربح و الخساره... اكتشف المزيد ملاحظات هامه 1- تم عمل البرنامج على اوفيس 2010 و البرنامج لن يعمل بشكل جيد الا على هذا الاصدار لذلك ارجون من يقوم بتجربته ان يكون على هذا الاصدار 2- تم وضع الكثير من الاختصارات التى توصلك لبعض التقارير وتم الشرح داخل البرنامج 3- لاى استفسار خاص بالبرنامج يكون عن طريق هذا الصرح العظيم او عن طريق مراسلتى بالايميل التالى amroomo@gmail.com 4- اتمنى ان يكون هذا البرنامج اضافه لهذا المنتدى العظيم 5- شكر واجب لكل مشرفى و اعضاء منتدى اوفيسنا الذى اصبح مناره الاوفيس فى الوطن العربى 6- الرقم السرى للدخول 123 7- الرقم السرى لمحرر الاكواد هو 85211 8- للبدء باستخدام البرنامج وتجربته قم بادخال الاصناف او حتى صنف واحد وكذلك مع العملاء و الموردين قم بادخال بيان واحد لكل منهما وبعد ذلك قم بعمل الفواتير و السندات بعد ذلك يمكنك استدعاء التقارير المختلفه الخاصه بالبرنامج كما انه لابد من ادخال المناديب او حتى مندوب واحد لكى تستطيع حفظ الفاتوره صورة البرنامج اخيرا ارجو من الجميع عدم التردد فى اى استفسار او ملاحظات تم رفع البرنامج على موقع الميديا فاير حيث ان مساحه البرنامج 1.9 ميجابايت ============================= تم إضافة الملف الى المشاركة بدل الرابط الخارجي الإشراف ============================= البرنامج هو تحديث للبرنامج السابق على الرابط التالى http://www.officena....opic=41247&st=0 برنامج المخزون و الفواتير 2013.rar