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

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

السلام عليكم اليك المثال ان شاء الله يكن قريب الى ما طلبته تقرير.zip

شوف التعديل اذا تمام .. ساعتمد المرفق واستبدل الرئيسي به ehlakAlosol_2.rar

السلام عليكم تفضل الملف 1.xls

Do While Forms.Count > 0 DoCmd.Close acForm, Forms(0).Name Loop

قم بتحويل القاعدة الى صيغة Accde او Mde والسلام

السلام عليكم ارجوكم اخوتي بالله احتاج مساعدة في الملف المرفق والمطلوب في اليوزر فورم المطلوب : 1- زر ايقاف الوقت 2- طرح الوقت المستقطع من وقت الساعة الذي توقف 3- الناتج يكون في ال ( وقت الوصول ) كي يضاف الى الجدول بعد الضغط على زر اضافة Excel.xlsm

انا اضفت عمود لعدد الاشهر من اجل الاستئناس

شكراً لرفع المنشور رفع الله قدرك في الدنيا و الآخرة .

أهلا محمد.. إليك المرفق بعد التعديل: كهرباء.mdb تأكد عند النقل إلى برنامجك أن تكون المكتبات المشار إليها في الصورة مؤشر عليها بعد النقل لأن هذا لا يتم تلقائيا..

بارك الله فيكم

اساتذتي الافاضل السلام عليكم ورحمة الله وبركاته هذا البرنامج في المرفقات بعد وضع التسميات عليه البرنامج من برمجة الاستاذ القدير ابوخليل جزاه الله خيرا وامانه على كل من يستفاد من هذا البرنامج دعوه صالحة بظهر الغيب للاستاذ الفاضل ابوخليل ربي يحميه من كل سوء يارب يارب مع وافر التحايا اسف هذا البرنامج في المرفقات مع وافر التحايا ehlakAlosol1.rar

مشكور ابو ياسين .. انا غفلت عن التسميات لو طبقت الكود على المثال ووضعت التسميات ايضا .. وارفقته ,, كنت احسنت الينا والى اخوانك جرب احذف رقم 1 من هذا السطر For i = 1 To (j + 1) بحيث يصبح : For i = 1 To j ووافني بالنتيجة

اتفضل ضع هذا الكود في النوذج في حدث الحالي If Me.تدقيق23 = -0 Then [نوع وموديل السيارة].Locked = True [استخدام سيارة].Locked = True [الدرجة].Locked = True [المرتبة].Locked = True [القسم].Locked = True [الوظيفة].Locked = True [رقم الهوية].Locked = True [الاسم].Locked = True Else [نوع وموديل السيارة].Locked = False [استخدام سيارة].Locked = False [الدرجة].Locked = False [المرتبة].Locked = False [القسم].Locked = False [الوظيفة].Locked = False [رقم الهوية].Locked = False [الاسم].Locked = False End If وهذا ملفك برنامج بحث مختصر 22-1-1440--30-15.rar

بارك الله فيه استاذي الجليل وجعله الله في ميزان حسناتك ياليت لو كان في تسميات توضيحيه للحقول كي يستفيد منها الكل ولدي ملاحظه في الرقم التسلسلي كلها برقم صفر وبعد اذنك استاذي ابوخليل اضفت للكود هذا rs2!ID = Nz(DMax("[ID]", "TBL2") + 1, 1) فصار بهذا الشكل Dim db As DAO.Database Dim rs1 As DAO.Recordset Dim rs2 As DAO.Recordset Dim jk, ct, thr Dim i, ii, j As Integer Set db = CurrentDb Set rs1 = db.OpenRecordset("TBL1") Set rs2 = db.OpenRecordset("TBL2") rs1.MoveLast rs1.MoveFirst DoCmd.SetWarnings False DoCmd.RunSQL "DELETE TBL2.* FROM TBL2" DoCmd.SetWarnings True For ii = 1 To rs1.RecordCount j = DateDiff("yyyy", rs1!FirstDate, "31/12/" & Year(Date)) ct = rs1!Cost For i = 1 To (j + 1) If i = 1 Then vdate = rs1!FirstDate If Month(rs1!FirstDate) <> 12 Then jk = Month(rs1!FirstDate) / 12 thr = (rs1!Cost * rs1!IndtharRute) * jk Else jk = 1 thr = (rs1!Cost * rs1!IndtharRute) * jk End If End If rs2.AddNew rs2!ID = Nz(DMax("[ID]", "TBL2") + 1, 1) rs2!PrvtCode = rs1!PriavetCode rs2!ShopDate = vdate rs2!t_year = Year(vdate) rs2!t_month = Month(vdate) rs2!Cost2 = rs1!Cost rs2!EndtharYear = (rs1!Cost * rs1!IndtharRute) * jk rs2!End = thr rs2!Rasid = ct - thr rs2!BookValue = thr rs2.Update thr = thr + rs1!Cost * rs1!IndtharRute vdate = "31/12/" & (Year(vdate) + 1) jk = 1 Next i rs1.MoveNext Next ii MsgBox "تم" Set db = Nothing Set rs1 = Nothing Set rs2 = Nothing

ولك ايضا هذا https://ar.soringpcrepair.com/how-print-on-single-sheet-excel/

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

وهناك ايضا موضوع اخر فى المنتدى لطباعة عمود طويل فى صفحة واحدة وذلك عن كريق تقسيمه الى اعمدة صغيرة تفضل https://www.officena.net/ib/topic/85873-كيفية-طباعة-ورقتين-فى-ورقة-واحدة/?tab=comments#comment-544405 ويمكنك ايضا متابعة هذا ,اصبح لديك عدة اختيارات كما تشاء https://academy.hsoub.com/apps/productivity/office/microsoft-excel/تخصيص-خيارات-طباعة-أوراق-العمل-في-microsoft-excel-r71/

تفضل طالما انك لم تقم برفع ملف طباعة صفوف متعددة مختارة على صفحة واحدة في إكسيل.xlsm

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

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

بارك الله فيك استاذ طارق وجزاك الله كل خير على تقديم يد العون والمساعدة دائما جعله الله فى ميزان حسناتك

بارك الله فيك استاذنا الغالي ابو خليل عملتها هكذا Function CloseRecord() Do While Forms.Count > 0 DoCmd.Close acForm, Forms(0).Name Loop End Function واستدعيتها Call CloseRecord هل صحيح هيك تحياتي يالغالي

السلام عليكم ورحمة الله اخى الكريم اليك ملف الصف الثانى كما وعدتك يؤسفنى انه يضم شعبتين فقط هما ( شعبة الادارة و شعبة القانون ) لانه مصمم حسب نظام المدرسة عندنا ان شاء الله تتحسن الظروف و استطيع اضافة الشعبتين الاخرتين اليك ملف الصف الثانى ثانية.xlsm

جرب هذا الملف lookup_salim.xlsx

بعد اذن الاخ ابو عارف اتفضل هذا بالتسلسل تقرير.zip

السلام عليكم جرب هذا تعديل تقرير.zip

العفو اخي الله يجعلها دعوه مستجابه ولك بالمثل

هذا لا يكرر السجل DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.class " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0])) AND (((Students.ID) Not In (SELECT [Team].[ID] " & vbCrLf & _ "FROM [Team]; " & vbCrLf & _ ")));" DoCmd.SetWarnings True Me.Text0 = "" اما بالنسبه للصف سوف احاول فيه

تفضل واذا ماهو الطلب ، فلازم عليك توضح الطلب بالصور والشرح بالتفصيل الممل 959.1.stu.mdb.zip

وعليكم السلام اخي سلمان اولا احب ان اشكرك على جميل عرضك للسؤال ، بالشرح المفصّل والصور ، وبأسم النموذج والزر وووو والآن الى اسألتك 1. ازرار نموذج ورقة البيانات: من المعروف ان طريقة عرض ورقة البيانات لا تستطيع ان تجعل فيها ازرار ، ولكن مثل ما تفضّلت ، فيها ميزة التحكم بالاعمدة (الحقول) وتحريكها ، والتي لا توجد بالنموذج المستمر ، فإذا اردت ان تعمل كود لهذا النموذج ، فتستطيع ان تعمله بطرق اخرى غير الزر ، مثل حدث "النقر المزدوج" في حقل معين ، او كتابة رمز/رقم/حرف/كلمة في حقل وعمل الحدث على "بعد تحديث" الحقل ، الطريقة الاخرى اللي تستطيع ان تشغّل كود نموذج ورقة البيانات (في هذه الحالة سيكون النموذج نموذج فرعي) ، ولكن تعمل الزر في النموذج الرئيسي ، والذي سيستدعي كود نموذج ورقة البيانات الفرعي: في نموذج ورقة البيانات الفرعي ن_عروض_الاراضي_العام بدلا عن Private Sub ss_Click() اكتب Public Sub ss_Click() ومن اي نموذج/تقرير/وحدة نمطية في البرنامج ، نستطيع ان نناديها هكذا Call ن_عروض_الاراضي_العام.ss_Click . 2. تصدير النموذج بعد التصفية الى ملف وورد: انا عملت زر على النموذج الرئيسي "عروض - طباعة" ، ووضعت عليه هذا الكود: Private Sub ss_External_Click() 'Call ن_عروض_الاراضي_العام.ss_Click fltr = Replace(Me.ن_عروض_الاراضي_العام.Form.Filter, "[ن_عروض_الاراضي_العام].", "") fltr = Replace(fltr, "ن_عروض_الاراضي_العام.", "") DoCmd.OpenForm "ن_عروض_الاراضي_العام", acFormDS, , fltr, , acHidden DoCmd.OutputTo acOutputForm, "ن_عروض_الاراضي_العام", acFormatRTF, "c:\Temp\myDoc.rtf", True End Sub . اسمح لي ان اقترح عليك تغيير طريقة وضعك للنماذج الفرعية المتراكمة!! فاما ان تضعها عن طريق صفحات (وهو الاسهل) ولا يختلف كثيرا عن طريقة عملك ، ولكن سيكون لكل نموذج اسمه ، او تعمل كائن فارغ في النموذج الرئيسي (تعمل نموذج فرعي ، ثم تحذف اسم النموذج الفرعي من Source Object ، فيبقى كائن النموذج الفرعي فارغا) : . ثم عندما تريد ان تضع النموذج الفرعي ن_عروض_الاراضي_العام هناك ، تضع هذا الكود على الزر: Me.mySub.SourceObject = "ن_عروض_الاراضي_العام" . والميزة انه عندما تريد ان تنادي هذا النموذج الفرعي (او اي نموذج فرعي آخر) ، فلا تستعمل اسمه ، وانما تستعمل اسم mySub ، ويجعل النموذج الرئيسي يعمل بسرعة (لوجود نموذج فرعي واحد فقط فيه) ، وفي نفس الوقت نقل البيانات يكون اقل ، لأننا نتعامل مع نموذج فرعي واحد جعفر 694.مثال على البرنامج 1.accdb.zip

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

بعد اذن معلمى جعفر Shell "calc" هذا الامر يفتح الالة الحاسبة بغض النظر عن موقعا بالجهاز لانه يختلف من نسخ الويندوز

اتفضل اضفت هذا لمربع البحث Private Sub n1_GotFocus() Form.AllowEdits = True Form.AllowAdditions = True End Sub Private Sub n1_LostFocus() Form.AllowEdits = False Form.AllowAdditions = False End Sub اليك قاعدة تعديل البيانات بكلمة سر.rar

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

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