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

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه ...إخوتي الكرام السلام عليكم ورحمة الله وبركاته أحببت أن أعرض عليكم بعض إمكانيات الإكسيل الرائعة في تنسيق الأشكال في حال عدم توفّر الفوتوشوب أو البرامج الرسومية الأخرى ليظهر الملف بشكل أنيق ... حبث أنه يتمتع بجماليات في الخط والشكل وتناسق الألوان لكنه بعود على الملف بشيءٍ من البطء وزيادة حجم الملف .. الارتباطات التشعبية تظهر على شكل شفاف كقطرات الندى في صباح ربيعي مزهر..عند وضع المؤشر عليها تدلك على الورقة الهدف. راجياً من الله تعالى أن ينال إعجاب حضراتكم. اسم المستخدم :admin كلمة السر 123 ...بعض أوراق العمل محمية دون كلمة مرور ... والسلام عليكم ورحمة الله وبركاته. مكابس بلوك.rar

السلام عليكم ورحمه الله وبركاته أحببت ان اهدي هذا البرنامج لكم والفضل بعد الله لهذا المنتدي واستاذي القدير شفان ريكاني وأباجودي والسموحه لمن لم أتذكر أسمائهم من الاساتذه الذين بذلو جهد معي جزاهم الله خير بارك الله فيهم وبالمنتدي والقائمين عليه والاعضاء البرنامج مفتوح المصدر قابل للتعديل كلمه السر 123 تحياتي لكم جميعا برنامج حسابات.rar

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

وعليكم السلام سهلة المحاولة التالية للتغلب على هذه المعادلة ، والحصول على معادلة صحيحة: If Me.mycount <= 39 Then Me.StuName.Height = Me.StuName.Height * 1.33 ابدأ بالتالي: اجعل حقول قسم التفصيل Detail قصيرة جدا ، شوي اكبر من خط مستقيم ، في التقرير عندك مجموعة اقسام ، وجميع الاقسام ارتفاعاتها ثابته وغير متغيرة ، القسم الوحيد الذي يتغير هو قسم التفصيل Detail ، عندك ارتفاع التقرير النهائي على حجم A4 مثلا ، واحسب ارتفاعات جميع الاقسام ، واطرح هذا من ذاك وبتحصل على المسافة المتبقية للقسم Detail ، تقدر تحسب عدد السجلات اللي بتكون في كل فصل ، وفي حدث فتح التقرير اقسم المسافة المتبقية من التقرير على عدد السجلات ، وتحصل على ارتفاع قسم Detail ، وهو المطلب الاول الاصل (والتغييرات تصير عليه بعدين) ، وبعد عدة تجارب ستصل الى الارتفاع الصحيح ، وعليه تغير ارتفاع الحقول الى نفس ارتفاع قسم Detail قلت لك سهلة جعفر

كانت حتى تركز على ارتفاع القسم فقط ، وبعدها تستطيع انت ترجع للحقول وتعطيها الحجم الصحيح تفضل وانزل المرفق من هنا : http://www.lebans.com/autosizefont.htm بس حسب تجربتي مع الكود ، فتستطيع ان تضيف الى الحجم النهائي (في الكود) نقطة او نقطتين ، بالتجربة سترى قصدي ، ولا داعي لـ len جعفر

بعد اذن اخي زيزو بدون حلقات تكرارية هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False On Error GoTo exit_sub If Target.Column <> 2 And Target.Cells.Count > 1 Then GoTo exit_sub Sheets(Target.Value & "").Activate exit_sub: Err.Number = 0 Application.ScreenUpdating = True End Sub

السلام عليكم ورحمة الله انسخ الكود التالى وضعه فى حدث شيت العملاء Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 2 Then Exit Sub Dim sh As Worksheet Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets If Target.Value = sh.Name Then sh.Activate End If Next Application.ScreenUpdating = True End Sub

هلا والله أخوي وائل حل مشكلتك بسيط ، بس بيكلفك عشاء ، لا ومب عشاء واحد ، وانما عشاء عن توفير وقت كل تقرير وإلا خليني اسهل الموضوع ، عشاء واحد بس اجيب معاي كل الحبايب و أولهم أخونا العود @ابو خليل اذا اتفقنا ، شوف الحل التالي: مشكلتك في طريقة طباعتك للتقرير انك تجلب وتفرز وتصفي 34 الف سجل 3 مرات ، بينما الطريقة التالية تخليك تجلب وتفرز وتصفي 34 الف سجل مرة واحدة فقط ، ولكن تطبع التقرير 3 مرات: DoCmd.OpenReport "Rreceipt", acViewPreview, , , acHidden DoCmd.PrintOut acPrintAll, , , , 3 DoCmd.Close acReport, "Rreceipt", acSaveNo جعفر

جرب هذا الملف اصنافform salim.rar

السلام عليكم ورحمة الله وبركاته الموضوع هذا بدأ بسؤال الرابط التالي: http://www.officena.net/ib/topic/65783-البحث-عن-اي-جزء-من-الكلمة-عنوان-معدل/ ولكن لأني غيرت الكود وجعلته يبحث في اي عدد من الحقول في السجل ، لذا رأيت ان اجعل له موضوعا مستقلا يمكنك البحث عن اي جزء من الكلمة ، واذا اردت البحث عن كلمة اخرى في السجل او جزء منها ، فما عليك الا ان تضع (مسافة او / او *) بين الكلمات ، فسيعتبرها البرنامج على انها كلمة اخرى يجب البحث عنها. الشئ المهم في الكود هو طريقة إضافة حقول جديدة للبحث فيها: هذا اول حقل يتم البحث فيه fld = "[كلمات ارشادية]" لما نريد ان نضيف حقول إضافية للبحث فيها ، يجب ان يكون الكود كالتالي fld = fld & " & ' ' & " & "[موضوع الخطاب]" fld = fld & " & ' ' & " & "[my other field]" وكل ما عليك الآن هو ان تطبع وترى نتيجة بحثك: . ملاحظة مهمة: اذا كان برنامجك على الشبكة ، فلا تضع الكود على "حدث التغيير" (معناه ، كلما اضفت/حذفت حرف ، فارجع الى الجدول وخذ البيانات منه) ، لأنه سيجعل البرنامج جدا بطئ ، وانما استخدم زر البحث. جعفر 309.Search_as_you_Type_Multiple_Fields_jj.mdb.zip

السلام عليكم ورحمة الله وبركاتة في النموذج الفرعي وضعة =Nz(Sum([Expr1])) وفي النموذج الرئيسي جعلت الحقل يساوي حقل النموذج الفرعي لكن عندما لاتكون هناك قيم مدخلة =Nz([Frm_Month].[Form]![sh])

السلام عليكم اخواني واساتذتي الكرام تحية طيبة وبعد .. سؤالي هو كيف يمكنني استعمال هذا الامر في مربع النص text2.AutoCompleteMode = AutoCompleteMode.SuggestAppend كما تجدوه عندما تبحثون في مربع نص google وجدت فيديو يوضح الطريقة لكنه بلغة ال Csharp وهذا هو رابط الفيديو .. بصراحة شرح جميل وتطبيق ممتاز لكني لم استطع تطبيقه https://www.youtube.com/watch?v=Jnye77emTbo وشكراً

السلام عليكم سيدي الفاضل ، عاشت ايدك ، اكواد بسيطة ونتائج رائعة التغييرات اللي انا عملتها: 1. اذا كتبت شيء ، وغيرت رأيك ، فتستطيع ان تضغط على الزر Esc (Escape) ، وسوف يختفي النموذج الفرعي ، Private Sub text76_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyEscape Then SubFrm.Visible = False Else SubFrm.Visible = True End If End Sub 2. اذا كتبت شيء ، فارتفاع النموذج الفرعي يطول ويقصر مع عدد السجلات الموجودة ، اكثر عدد هو 3 ، Private Sub text76_Change() On Error Resume Next Dim x As String SubFrm.Visible = True x = Me.text76.Text Me.Text11.Value = x Me.SubFrm.Requery 'تغيير ارتفاع النموذج الفرعي حسب عدد سجلاته Dim rst As DAO.Recordset Set rst = Me.SubFrm.Form.RecordsetClone rst.MoveLast RC = rst.RecordCount If RC > 3 Then Me.SubFrm.Height = Me.SubFrm!FldText.Height * 3 Else Me.SubFrm.Height = Me.SubFrm!FldText.Height * RC End If rst.Close: Set rst = Nothing End Sub 3. اذا كتبت شيء ، ونقرت على الاسم في النموذج الفرعي ، فسيتغير سجل النموذج الرئيسي حسب الاسم المختار ، وهنا فانت لست بحاجة الى زر البحث Private Sub FldText_Click() 'Forms!formS1.ITEM_NEM = Me.FldText Me.Parent.text76 = Forms!formS1!SubFrm.Form.FldText.Text 'اظهر نتيجة البحث Me.Parent.Form.Requery 'Me.Parent.text76.SetFocus Forms!formS1!SubFrm.Form.Visible = False End Sub جعفر 624.test.mdb.zip

سلامتك الف سلامه ان شاء الله الكود وانت لا اضحك الله سنكم دائما

جميل وحدة القياس هي Twips وتساوي 576 سنتيمتر ، ومثل ما قلت لك ، في البدايه خلينا نشتغل على ارتفاع القسم ، ثم نرجع للحقول ، فالمعادلة لقسم Detail هي: Me.Section(0).Height= 23.9 * 576 / Number_of_Records جعفر

شو يا ابوعبدالله ، كيف تتوقع اني اعرف هذا النموذج هو طلبك؟؟ انا يا اشتغل مبرمج ويا ساحر ، بس ما يصير الاثنين مع بعض المبرمج يقول: استعمل هذه المعادلة: =Sum(Nz([حد الرسوب]+[حد النجاح],0)) جعفر

والله بتحرق الدم فى مره كود قاعدت اصحح فيه كتير جدا وكنت عامل زر خروج بدون مطالبه حفظ وبجرب وبفتح تاني كانت الصدمه قمت ضارب المكتب قام الازاز مكسور وايدي اتفتحت بسبب الكود اللعين .

سهله واسهل من السهوله

بسم الله ما شاء الله أخي الغالي أبو يوسف ملف رائع وله رونق خاص ومميز تقبل وافر تقديري واحترامي

ما شاء الله رائع أستاذ محمد كل عام وانت بخير وسعاده ورضا

هلا والله أخوي ابوعبدالله 1. هذا الكلام الزين ، تجربتك للبرنامج وجوابك كان على طول عملنا تغيير ، ووصلنا الى: النموذج الرئيسي: - عملت وحدة مستقله للجمع ، اسميته sTotal ، ولاحظ انه مب Private ، وإنما Public ، مما يعني اقدر اناديه من اي كائن (نموذج/تقرير/وحدة نمطية) في البرنامج ، - الحدث "في الحالي" يرسل طلب للوحدة sTotal بأن تقوم بالعمل ، والسبب اني اخرجت كود الحساب الى وحدة مستقلة هو ، لاحقا في البرنامج قد تضيف مجموعة اوامر اخرى في حدث الحالي ، وعندما تريد ان تقوم بعملية الجمع ، فلن تستطيع القيام بعملية الجمع بدون القيام بالاوامر الاخرى (ما عليه ، الموضوع بيتضح لك بعديييين ان شاء الله ، هذه خطوة استباقية) : Private Sub Form_Current() Call sTotal End Sub Public Sub sTotal() Me.Sum_Total = DSum("[الدرجة]+[حد الرسوب]", "qry_sfrm", "[رقم الطالب]=" & Me.[رقم الطالب]) End Sub والآن لما تضيف او تعدل الدرجة في النموذج الفرعي ، نريد ان نقوم بالعملية الحسابية ، فنقوم بحفظ السجل ، ثم مناداة الوحدة sTotal : Private Sub الدرجة_AfterUpdate() DoCmd.RunCommand acCmdSaveRecord Call Form_نموذج_الطالب.sTotal End Sub جعفر 623.stu new.accdb.zip

وعليكم السلام امر NZ لا يُكتب هكذا: =Nz(Sum([sum0])) وانما هكذا =Sum(NZ([sum0],0)) ولكنه لا فائدة له في كون النموذج الفرعي جدولي. طريقة العمل: 1. نأخذ مصدر بيانات النموذج الفرعي ، والذي هو عبارة عن استعلام لجدولين ، ونحفظ هذا الاستعلام كإستعلام خارجي مستقل ، انا اسميته qry_sfrm ، 2. في حدث "الحالي" للنموذج الرئيسي ، عملت هذا الكود لحساب المجموع: Me.Sum_Total = DSum("[الدرجة]+[حد الرسوب]", "qry_sfrm", "[رقم الطالب]=" & Me.[رقم الطالب]) لا يمكن عمل الجمع من جدول واحد ، وذلك لأن الحقلين [الدرجة] و [حد الرسوب] موجودين في جدولين مستقلين ، لذا عملنا الجمع من الاستعلام الذي ربط الجدولين، والسبب الذي عملنا Dsum للحقلين [الدرجة]+[حد الرسوب] ، وذلك لأنك لا يوجد لديك حقل في الاستعلام يجمع [الدرجة]+[حد الرسوب] جعفر 623.stu new.accdb.zip

يجب ان تقوم بحساب القيمة الى داخل حقل في الجدول حتى يستطيع الجمع بالتوفيق

السلام عليكم طريقة العرض اللي انا اتبعها في برامجي بوجه عام: وفي حالات: فالطريقة اللي اتبعها علشان المستخدم يشوف كل البيانات ، او حتى اذا اراد ادخال بيانات واراد ان يرى المعلومة كامله ، فأعمل على حدث النقر المزدوج لذلك الحقل الكود التالي: DoCmd.RunCommand acCmdZoomBox والذي يفتح نافذة ZoomBox (كما يمكنك فتحها يدويا ، فلما تكون على اي حقل ، استخدم الزرين Shift + F2) ، وسيرى كامل البيانات جعفر

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

كل الشكر والتقدير لك

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

انا عندي قاعدة بيانات خذت من موقع اجنبي تقدر تختار صور من سكانر او من الكومبيوتر او من القمر راح يحولك الى ملف pdf\ لكن هناك سؤال هل تريد كل الصور يحولك الى ملف واحد من بي دي ئيف او كل صور ملفه خاص تقبل تحياتي

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

كم انت طيب القلب شكرا لك

وعليكم السلام @عبد الله قدور نعم بالإمكان.. والقاعدة التي أرقتها بالمثال تتضمن جداول إذا كانت الحماية على مستوى قاعدة البيانات فإن أكسس يحثك على إدخالها.. أما إذا كانت على مستوى محرر الشفرة فإن أكسس يتجاهلها! الشفرة التاليه هي أخصر شفرة للإضافة والحذف.. الأولى للإضافة والثانية للحذف Public Sub addRef() On Error Resume Next Application.VBE.ActiveVBProject.References.AddFromFile "C:\Program Files\Microsoft Office\Office11\MSO11.DLL" End Sub Public Sub removeRef() Dim ref As Object On Error Resume Next Set ref = Application.VBE.ActiveVBProject.References("Office") Application.VBE.ActiveVBProject.References.Remove ref End Sub

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

نعم تقدر (لدرجة ما) ، ولكن بتعب 1. نعمل طريقة للبحث ، في حقل النص ، مثل الربط التالي: 2. نأخذ أول نتيجة من النموذج الفرعي ونضعه في حقل نص البحث ، 3. نغير شكل النموذج الفرعي الى ListBox ، يطول ويقصر على اساس عدد الكلمات اللي تأتي من البحث ، وفي النهاية بيصير عندنا كما هو الحال في ComboBox ، فليش التعب جعفر

جربت .. ذهبت للسجل 4 ثم حذفت ثم مباشره نقرت على زر الاضافة اعطاني رقم 4 هنا تعديل بسيط فقط في الذهاب للسجل الاول Private Sub ÃãÑ7_Click() DoCmd.GoToRecord , , acNewRec Set rs = Me.RecordsetClone If rs.RecordCount = 0 Then Me.dashnum = 1: Exit Sub rs.MoveFirst For i = 1 To rs.RecordCount If i <> rs!dashnum Then Me.dashnum = i: Exit Sub rs.MoveNext Next i Me.dashnum = DMax("dashnum", "tbltest") + 1 End Sub تحياتي يمكن نحتاج Me.Requery في بداية الكود Private Sub ÃãÑ7_Click() Me.Requery DoCmd.GoToRecord , , acNewRec Set rs = Me.RecordsetClone If rs.RecordCount = 0 Then Me.dashnum = 1: Exit Sub rs.MoveFirst For i = 1 To rs.RecordCount If i <> rs!dashnum Then Me.dashnum = i: Exit Sub rs.MoveNext Next i Me.dashnum = DMax("dashnum", "tbltest") + 1 End Sub تحياتي

هذا كود لنفس فكرة الكود باول مشاركة ولكن باختصار وتخفيف على الذاكره Private Sub ÃãÑ7_Click() DoCmd.GoToRecord , , acNewRec Set rs = Me.RecordsetClone: rs.MoveFirst If rs.RecordCount = 0 Then Me.dashnum = 1: Exit Sub For i = 1 To rs.RecordCount If i <> rs!dashnum Then Me.dashnum = i: Exit Sub rs.MoveNext Next i Me.dashnum = DMax("dashnum", "tbltest") + 1 End Sub وطبعايمكن الاختصار اكثر بفكره اخرى ولكن السؤال : هل ممكن بدون كود ؟ بالتوفيق

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

شكرا لك اخوي @SAROOK الله يبارك فيك عزيزي

السلام عليكم وحياالله الشباب بالاضافة الى ما تفضل به أخي أوس رجاء تلاحظ تسلسل الارقام ، فهي 2 ثم 1 ، الاستعلام 1 مافيه مشكلة ، ولكنك لما تفتح الاستعلام 2 والذي مصدره الاستعلام 1 ، والظاهر ان فيه معيار فرز او تصفية في حقل معين ، اي حقل فيه معيار في الاستعلام او الكود ، يجب ان تجعل الحقل مفهرس في الجدول ، وإلا ستحصل على تأخير وعند تغيير الحقل في الجدول الى حقل مفهرس ، يجب ان تعمل Compact and Repair للقاعدة التي بها البيانات ، حتى يستفيد الاكسس من هذا التغيير. جعفر

السلام عليكم الموضوع لا يتم حله إلا بالكود .. أو إذا أردت الدخول على الصفحة الرئيسية في كل مرة .. قم بالوقوف عليها في كل مرة قبل الإغلاق واحفظ المصنف

وعليكم السلام البطء في الاستعلام . 1. انت تستخدم امر VBA في SQL ، مما يبطئ العملية ، 2. من المعروف ان Dlookup (كذلك امر VBA) بطيئ ، وانت محظوظ ان بياناتك قليلة ، وإلا فالبطء سيكون اكثر ، 3. انت تنتظر الحقل SumOfin و SumOfOut ليحصلوا على نتائج الجمع ، ثم تأخذ النتائج منهم وتطرحهم من بعض. والتعديل: . إضافة الجدول Item Names الى الاستعلام ، 1. تم تغيير الامر الى احد اوامر SQL وهو is Null (وليس IsNull امر VBA) ، 2. لسنا بحاجة الى اي معادلة ، لأننا جلبنا الجدول الى الاستعلام ، ثم وضعنا الحقل Products في الاستعلام مباشرة ، 3. نقوم بعملية الجمع مباشرة في الحقل جعفر

اي نص تقصد ؟ عنوان العمود في ورقة البيانات ؟ ام القائمة المنسدلة في مربع التحرير ؟

هل من الممكن توسيط النص او المحاذاه يمين او يسار برمجيا هالشي صعب خصوصا في مربع سرد

بسم الله الرحمن الرحيم تكملة لما سبق انجازه من برنامج المرتبات العام السابق 2014 م لقد قام بتحديث البرنامج اخى وصديقى / الاستاذ عبدالجابر اسماعيل غنام برنامج المرتبات 2015 م وقد ابلى فيه بلاءا حسن جعله الله فى ميزان حستانه .... امين ******* مميزات البرنامج ( يحسب السنة المالية 2015م /2016 م آلى ) 1- البرنامج يحتوى على 12 شهرا من يناير الى ديسمبر ،كل ما عليك هو كتابة البيانات فى شهر يناير فقط والبرنامج يقوم بتوزيع البيانات على باقى الشهور الى ديسمبر واذا وجد تعديل بيانات فى شهر ما تدخل على الشهر الذى تريد التعديل به وهكذا 2- تحديد البنوك من صفحة الرئيسية كما تريد 3- حساب الاجور السنوية وحساب التكملة ثم تصفيرها عند بلوغ الحد الاقصى للاجور وبالتالى لا يكون لك متبقى تحصل عليه من قسم الاجور بديوان الادارة التعليمية 4- حساب المكافأة السنوية 5- حساب انتقالات الامتحانات 6- صفحة للدفع الالكترونى للعاملين الذين يستخدموا الفيزا كارت *******أنواع الطباعة : (يوجد ازرار للطباعة آلى ) 1- طباعة المرتبات على صفحات A3 وتسليمها لديوان الادارة وخلف اخر ورقة طباعة المرايا 2- طباعة كشوف الترحيل يسمى " طباعة الميزان" 3- طباعة اوراق التأمين والنعاشات 4- طباعة المقترضين للبنوك 5- طباعة الاقساط والاستقطعات 6 - طباعة الاجور الشهرية 7- استمارة مفردة 8- مفردات مرتب للموظف البرنامج يحسب مرتبات المنتدب و نصف المدة او نصف الاجر واوائل الخريجين اختار مدرس كى يتعامل مثل الادارى والسلام عليكم ورحمة الله وبركاته لاتنسوا دعواتكم لنا بحسن الخاتمة تحميل البرنامج

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

تميز وابداع بارك الله فيك

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

الأستاذ / الحسامي أعمالك رائعة ومتميزة دعاؤنا لك بالتوفيق والنجاح في جميع ميادين الحياة نسأل الله أن يمد في عمرك وأنت في صحة وعافية أخوك أبو سارة

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

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

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