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

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

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

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

شكرا جزيلا أستاذ رمهان الحل اللي أعطيته ممتاز خلاص معاد فيه مشكلة. أما بالنسبة للمتغير g كنت وضع سطر به هذا المتغير و لما حذفت هذا السطر نسيت التعريف . عندي 5 أيام أعاني من ضرسي أخي رمهان هل لديك كود يوقف الألم Book1.rar أخي ساندانت لقد تم حل مشكلتك و الفضل يرجع لله عز و جل ثم الأستاذ رمهان. جرب الملف و وافنا بالتفاصيل

السلام عليكم ما شاء الله عليك استاذ صالح كود جميل حياك الله اخ ساندا نت اولا المشكلة : لو تلاحظ ان الاستاذ صالح وضع نموذجين رئيسي وفرعي لنفس مصدر البيانات ! والتشييك يتم على عنصر بالرئيسي وكذلك التنقل بالسجلات يتم على الرئيسي . فلو صادف انك عدلت بالفرعي ولم يحصل رفرش او ريكويري للعنصر بالرئيسي فانه سيظل محتفظ بالقيمة وهنا خالف الجملة الشرطيه بالكود بينما الفرعي خالي لحظيا ! ولترى المشكلة جلية : ضع النموذج الرئيسي في السجل رقم 1 وغير خاصية مرئي لعنصر الرقم الوظيفي بالرئيسي =نعم . ثم امسح اول قيمة وانقر الزر ستجد السجل الاول لا يحدث. الحل حسب الكود الموجود : ضع me.requery في بداية الكود . استاذ صالح : هناك تعريف للمتغير g بدون استخدام واعتقد انه يقصد به d. تحياتي

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله لطالما أردت طرح هذا الموضوع الهام جداً والشيق جداً والمفيد جداً .. ولكن يبدو أن الزهايمر يلعب دوراً هاماً في حياتي .. عموماً ذكرني عنوان موضوع رأيته الآن بهذا الموضوع ، فأحببت أن أشارككم هذا الكود الرائع والمتميز .. الكود يقوم بالمهام التالية .. في بداية تنفيذ الكود يمكنك الكود من اختيار الطابعة المطلوب الطباعة عليها .. من خلال الصور سأقوم بالطباعة على ملف بامتداد XPS .. حتى لا أهدر أوراقي (سامحوني .. دا مش بخل دا حرص مش كدا ولا ايه يا فلاحجي (لأنه أكتر واحد هيفهمني )) حسناً رأيتم الصورة معبرة ..أليست كذلك؟ نقرنا على زر الأمر PRINT ...فظهرت نافذة تتيح لنا إمكانية اختيار الطابعة ثم نضغط أوك لننتقل للنافذة التالية في النافذة التالية يتيح الكود كتابة عدد النسخ المراد طباعتها وبشكل افتراضي يكون عدد النسخ نسخة واحدة فقط ، ويمكن تغيير عدد النسخ المطلوبة هنا تظهر لك أوراق العمل الموجودة في المصنف عدا ورقة العمل النشطة المسماة Data ، يمكنك الكود من اختيار أوراق العمل المراد طباعتها بكل سهولة ثم أخيراً يتم تنفيذ أمر الطباعة ..في المثال الموضح سأقوم بتنفيذ أمر الطباعة لملف بامتداد XPS .. حيث يتم كتابة اسم الملف وتحديد المسار الذي سيحفظ فيه الملف ثم اوك قمت بتحديد مسار حفظ الملف بامتداد XPS على سطح المكتب وها هو الملف وقد طبع ورقتي العمل Sheet1 و Sheet3 فقط ، لأنني حددتهما من خلال النوافذ التي تظهر وأخيراً إليكم الكود الرائع الذي يقوم بكل هذه المهام الرائعة Sub PrintSelectedSheets() Dim I As Integer Dim TopPos As Integer Dim SheetCount As Integer Dim PrintDlg As DialogSheet Dim CurrentSheet As Worksheet Dim Cb As CheckBox Dim Numcop As Long Dim Cnt As Integer Dim X As String Application.Dialogs(xlDialogPrinterSetup).Show Application.ScreenUpdating = False If ActiveWorkbook.ProtectStructure Then MsgBox "المصنف محمي", vbCritical Exit Sub End If Set CurrentSheet = ActiveSheet X = CurrentSheet.Name Set PrintDlg = ActiveWorkbook.DialogSheets.Add SheetCount = 0 TopPos = 40 For I = 1 To ActiveWorkbook.Worksheets.Count Set CurrentSheet = ActiveWorkbook.Worksheets(I) If Application.CountA(CurrentSheet.Cells) <> 0 And CurrentSheet.Visible Then SheetCount = SheetCount + 1 PrintDlg.CheckBoxes.Add 78, TopPos, 150, 16.5 PrintDlg.CheckBoxes(SheetCount).Text = CurrentSheet.Name TopPos = TopPos + 13 End If Next I PrintDlg.Buttons.Left = 240 With PrintDlg.DialogFrame .Height = Application.Max(68, PrintDlg.DialogFrame.Top + TopPos - 34) .Width = 230 .Caption = "اختر أوراق العمل المراد طباعتها" End With PrintDlg.Buttons("Button 2").BringToFront PrintDlg.Buttons("Button 3").BringToFront Numcop = Application.InputBox("أدخل عدد النسخ للطباعة:", "كم عدد النسخ?", 1, Type:=1) If Numcop = 0 Then ElseIf Len(Numcop) > 0 Then End If CurrentSheet.Activate Application.ScreenUpdating = True If SheetCount <> 0 Then If PrintDlg.Show Then For Each Cb In PrintDlg.CheckBoxes If Cb.Value = xlOn Then If Cnt = 0 Then Worksheets(Cb.Caption).Select Else Worksheets(Cb.Caption).Select Replace:=False End If Cnt = Cnt + 1 End If Next Cb ActiveWindow.SelectedSheets.PrintOut copies:=Numcop End If Else MsgBox "كل أوراق العمل فارغة", 64 End If Application.DisplayAlerts = False PrintDlg.Delete Sheets(X).Select End Sub تقبلوا جميعاً وافر تقديري واحترامي حمل الملف من هنا تحميلك للملف يدعم صاحب الموضوع .. فلا تبخل بدقيقة من وقتك .. وللعلم يمكنك عدم تحميل الملف ونسخ الكود في موديول في المصنف الخاص بك ، وستجد الكود جاهز للعمل لديك بدون تحميل الملف .. دمتم على طاعة الله ...

بسم الله الرحمن الرحيم الحمد لله رب العالمين والصلاة والسلام على اشرف المرسلين سيدنا محمد وعلى اله وأصحابه اجمعين بفضل الله وكرمة انتهيت من تطوير برنامج المصروفات الاصدار الثالث . وقد تم هذا التطوير بناء على رغبة الكثيرون والجديد فيه -زيادة عدد الحسابات الى 100 حسابات وزيادة عدد حركات التسجيل الى الضعف - امكانية عرض تقرير مصروفات لقسم معين ولفتره معينه - امكانية عرض تقرير سنوي - عمل نسخة احتياطيه للبرنامج تم عمل حماية للملف حفاظا على المعادلات والصيغ من التلف والباسورد 12345 ارجو من كل من يستفاد من هذا البرنامج نشره ومشاركته للجميع فزكاة العلم نشره الاصدارت السابقه الاول والثانى على على هذا الرابط http://www.officena.net/ib/index.php?showtopic=54319&hl= برنامج المصروفات الاصدار الثالث.rar

تغير الفلدر الافتراضي ل GetOpenFilename المعروف عند استخدام GetOpenFilename فأن الديالوج بوكس يفتح على الفلدر الافتراضي وهو My Documents ولا يمكن تغيره ولكن يمكن اجبار GetOpenFilename علي تغير الفلدر الافتراضي لها الي أي فلدر نريد بإستخدام دوال API Functions كما في هذا المثال سوف تفتح علي الفلدر الحالي لهذا الملف GetOpenFilename.rar

السلام عليكم ورحمة الله وبركات الطريقة_الاولي ان تكون الصور محفوظة داخل الملف ويتم عرض الصور من خلال اي مدي الطريقة_الثانية ان تكون الصور محفوظة داخل الملف ويتم عرض الصور بإستخدام اداة الصورة من مربع ادوات التحكم الطريقة_الثالثة ان تكون الصور محفوظة داخل فولدر ويتم عرض الصور بإستخدام اداة الصورة في الفورم ================================================== ================================================== شرح الطريقة_الاولي ان تكون الصور محفوظة داخل الملف ويتم عرض الصور من خلال اي مدي في ورقة All_Pic يتم استيراد الصور بالوقوف في خلية مثلا مثل C2 ثم استخدام زر ( ادراج صـــورة / صـــور بـــدء مـــن الخليـــة الحـــاليـــة ) لأستيراد صورة واخدة او عدة صور دفعه واحدة فيتم ادراج اسم الصور في العمود B والصور في العمود C ويتم تحديد حجم الصور في الكود Width_Of_Pic_Col = 2 Height_Of_Pic_Row = 7 بعرض 2 عمود وارتفاع 7 صفوف وانواع الصور التي يمكن استخدامها هي jpg gif png bmp tif Emf jpeg الطريقة_الاولي.rar ================================================== شرح الطريقة_الثانية ان تكون الصور محفوظة داخل الملف ويتم عرض الصور بإستخدام اداة الصورة من مربع ادوات التحكم يتم استيراد الصور بنفس طريقة الطريقة_الاولي ويتم تحديد حجم الصور بنفس طريقة الطريقة_الاولي وانواع الصور التي يمكن استخدامها هي jpg gif bmp Emf jpeg الطريقة_الثانية.rar ================================================== شرح الطريقة_الثالثة ان تكون الصور محفوظة داخل فولدر ويتم عرض الصور بإستخدام اداة الصورة في الفورم الطريقة_الثالثة.rar ================================================== ملحوظة هامة بالنسبة الي الطريقة_الاولي والطريقة_الثانية في الورقة التي يدرج بها الصور ترتيب الصور والاسماء لا علاقة له بإستدعاء الصور حتي الاسماء التي في العمود B يمكن حذفها الصور يمكن ان تكون في اي مكان في الورقة حتي لوكانت بصورة عشوائيه ==================================================

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

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

السلام عليكم جرب أخي المعادلة التالية =ROUND(SUM(F6,E6)/2,0) وممكن تستبدل Round بـ Roundup ليتم جبر الرقم دائما للأعلى أو Rounddown ليتم جبر الرقم للأقل

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

=ROUND(SUM(F6;E6)/2;0) يمكنك ايضا استخدام هذه المعادلة

تفضل الملف جاهز جمع عددين بدون وضع الفارزة العشرية salim.rar

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

الله يبارك فيك أخ صالح

اكنب هذه المعادلة في الخلية G6 واسحب نزولاً =IF(OR(E6="",F6=""),"",CEILING(SUM(F6,E6)/2,1))

الله يحفظك يا أستاذ أنت دائما في الخدمة

تفضل اخي ما تريد يمكنك تشغيل الماكرو بواسطة Ctlr+Shif+D وليس Crl+D لان هذا الاختصار يفقدك اختصار اخر (نسخ المعادلات) يمكنك ايضاً تشغيل الماكرو بواسطة الزر انتقال بيانات من الى Macro1.rar

الأخ الكريمفايز فراج هذا شرح لفك الأرتباطات بالملف abo_abary_تحرير الأرتباطات.rar

الاخ حسين22 لا ادري اذا لم يعمل ارسل نموذج وسوف نجد حل بإذن الله تعالي

الاخ حسين22 شاهد المرفق Omar_1.rar Omar_1.rar

يمكن استبدال الكود بهذا الذي يجعلك تختار في جال موجود اسم او تاريخ مشترك بين نعم او لا Sub Tarhil_salim() Dim lrb, lrg, My_Max, Name_count, Date_count As Integer Dim S_Sh As Worksheet Dim T_Sh As Worksheet Set S_Sh = Sheets("الفاتورة"): Set T_Sh = Sheets("الارشيف") Name_count = Application.CountIf(T_Sh.Range("c:c"), S_Sh.Range("c7")) Date_count = Application.CountIf(T_Sh.Range("b:b"), S_Sh.Range("c6")) If Name_count + Date_count >= 2 Then Message = MsgBox("هذه الفاتورة يمكن ان تكون مكررة! تأكد من ذلك" & Chr(10) & "اذا أردت الاستمرار إضغط نعم", 68) If Message <> 6 Then Exit Sub End If My_Max = Application.Max(S_Sh.Range("b:b")) lrg = T_Sh.Cells(Rows.Count, "G").End(3).Row If lrg = 1 Then lrg = 2 If lrg = 2 Then S_Sh.Range("c9" & ":f" & 9 + My_Max - 1).Copy Destination:=T_Sh.Range("g" & lrg) Else S_Sh.Range("c9" & ":f" & 9 + My_Max - 1).Copy Destination:=T_Sh.Range("g" & lrg + 2) End If T_Sh.Range("H:j").Value = T_Sh.Range("H:j").Value lrg = T_Sh.Cells(Rows.Count, "G").End(3).Row lrb = lrg - My_Max + 1 With T_Sh .Cells(lrb, 2) = S_Sh.Range("c6").Value .Cells(lrb, 3) = S_Sh.Range("c7").Value .Cells(lrb, 4) = S_Sh.Range("c38").Value .Cells(lrb, 5) = S_Sh.Range("c39").Value .Cells(lrb, 6) = S_Sh.Range("c36").Value End With End Sub

السلام عليكم ورحمة الله وبركاته بعد اذن استاذي / أبو عبد الباري تم الغاء رسالة الارتباط والمعادلات تعمل وشوف بالمرفق شيت كنترول الصف الثاني والثالث الإبتدائي.rar

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

جزاك الله خيرا كثيرا تعلمت منك الكثير

جرب هذا لملف للترحيل فقط فاتور مع ترحيل واستدعاء salim.rar

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

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

حياك الله استاذ صالح من وين نبدأ اخوي ... الموضوع متشعب ولكن : من المعروف الكائنات يكون لها خصائص او طرق (اوامر تنفذ شيئا ما ) فمثلا الكائن me وهو يعبر عن النموذج الحالي وبعد اسم الكائن نكتب نقطة لكي نستخدم خاصية له وحسب نوع الخاصية هل هي للقراءة فقط ام ممكن ان تتغير ياسناد قيم لها . او نكتب طريقة method تقم بامر ما لهذا الكائن فمثلا me.backcolor هي خاصية الخلفية لوضع خلقية للكائن . me.move هي طريقة لتحريك الكائن . نرجع للسطر السابق وبمشاركتك : الامر createobject هي دالة معرفة لدى الاكسس تقم بانشاء كائن في الذاكرة . يمكن انشاء الكائنات بمدلول المكتبة library . هذا الكائن من نوع wshshell ويمكن البحث للاطلاع اكثر . الان نضع النقطة لكي نقرا او نعين خاصية لهذا الكائن وهنا انت استخدمت الخاصية او الطريقة SpecialFolders والتي تطلب اسم المجلد وتعود بالمسار ومن نوع نص . واسم المجلد هنا يكون ضمن اسماء مجلدات الويندوز الخاصة مثل desctop او fonts وغيره فالامر هو عباره عن : انشات كائن لاحتاج وظيفة لديه مهمتها ارجاع مسار احد مجلدات الويندوز الخاصة ! تحياتي

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

تفضل هذا ملفك بعد التعديل Book1.rar

لو ترفق المرفق افضل ! واعتقد يوجد امثلة بالمنتدى لو بحثت قليلا هذا احدها وقريب لما تريد بالتوفيق

حياك الله يمكن يكون اسهل لك بأن تعمل استعلام ، وفي وضع تصميم SQL ، استعمل هذه الجملة والتي ستعطيك سجل واحد فقط ، واجعل هذا الاستعلام مصدر معلومات النموذج: Select TOP 1 * From task Order by Auto_ID Desc جعفر

الله يوفقك لما يحبه و يرضاه و يعينك على طاعته و فعل الخير

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

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

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

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع عندكم و تبدأ من جديد و تنتهى عندكم" بارك الله لكم مدونة اعمال ايقونات الماس لمنتدى اوفيسنا _ شارك بتعديلاتك فكرة المدونة هى سهولة الوصول و البحث فى المنتدى 1 _ مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_برامج جاهزه ( حسابات_ميزان مراجعه_سندات قبض_يوميه) 2 _ مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_بحث_اضافة_تعديل_ترحيل_ادخال 3 _ مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_اكواد و معادلات و فورم 4 _ مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_شاشة دخول_صلاحيات_PASS WORD 5 _ مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_الاتصالات_الادارية_الموظفين 6 _ مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_كنترول_امتحانات_لجان 7 _ مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_الاكسيل الترفيهي 8 _ مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_الاكسيل الاسلامى و لا تنسونا من صالح الدعاء و لامى بالمغفره و الرحمه

بسم الله و ما شاء الله اهداء لمن قام بكل عمل و لا ينتظر مقابله اقل ما يقال لكم "عندما تنتهى كلمات الابداع عندكم و تبدأ من جديد و تنتهى عندكم" بارك الله لكم مدونة اعمال ايقونات الماس لمنتدى اوفيسنا _ شارك بتعديلاتك فكرة المدونة هى سهولة الوصول و البحث فى المنتدى 1_ برنامج الأيجارات - الأصدار الثاني _ الاستاذ/ ضاحي الغريب 2_ هدية_ضاحى_سند قبض و صرف_ الاستاذ/ ضاحي الغريب 3_ هدية_ميزان kh_sumproduce_معدلG_2014_ الاستاذ/ عبدالله باقشير 4_ سند صرف مع بيان الدفعات_ الاستاذ/ ضاحي الغريب 5_ جديد : نزول برنامج المخزون و الفواتير الشامل الاصدار الثالث .... المشروع الكبير_ الاستاذ/ عمرو 6_ برنامج خبور المحاسبي الاصدار الثالث (برنامج جاهز)_الاستاذ/ عبدالله باقشير 7_ ميزان مراجعة مرتبط بحسابات بعدة اوراق_الاستاذ/ عبدالله باقشير 8_ برنامج إدارة الإيجارات - الاصدار الأول _ الاستاذ/ ضاحي الغريب 9_ برنامج مخزنى اوفيسنا 2020_ اصدار 2_بحث و طباعه_ جلال الجمال_ابو أدهم 10_ هديتى _برنامج مخزنى جاهز _ ارصدة_ كارت صنف بين تاريخين 2013_ جلال الجمال_ابو أدهم 11_ هديتى_برنامج حسابات جاهز _يومية امريكية_بميزان مراجعه_اصدار 2_ جلال الجمال_ابو أدهم 12_ برنامج تحليل المصروفات ( اداريه - بيع وتوزيع - تشغيل ) صدقه جاريه على روح والدتى رحمها الله وهديه للمنتدى_ الاستاذ/ ابو اياد ( الاسيوطى ) 13_ كارت الصنف الذكى لمحاسب / امين المخزن المحترف ( اصدارة معدلة )_ الاستاذ/ ابو اياد ( الاسيوطى ) 14_ هدية العيد كارت الصنف الذكى لمحاسب / امين المخزن المحترف_ الاستاذ/ ابو اياد ( الاسيوطى ) 15_ هدية تمهدية بمناسبة الترقية ( اليومية الامريكية لشركات المقاولات )_ الاستاذ/ ابو اياد ( الاسيوطى ) 16_ مراحل برنامج حسابات عماد الحسامى_ الاستاذ/ عماد الحسامى 17_ مشروعات : 02 - برنامج الحسابات مع مراكز التكلفة_ الاستاذ/ ابو عبدالله 18_ اهتمام الزملاء المحاسبين ( برنامج محاسبة بمعادلات بسيطة وبدون اكواد )_ الاستاذ/ ياسر الحافظ 19_ مجموعة البرامج الجاهزة_ قام بتجميعها الاستاذ/ محمود الشريف 20_ برنامج طلبات الشراء_ الاستاذ/ ابو عبدالله 21_ نموذج تحليل مدفوعات ( مصروفات وخلافه ) ... (برنامج جاهز)_ الاستاذ/ ابو عبدالله 22_ برنامج نظام الوثائق : إضافة - تعديل - حذف - بحث - تقارير_ الاستاذ/ ابو عبدالله 23_ برنامج نظام الوثائق لاخي واستاذنا أبوعبدالله (هجري وميلادي)_ الاستاذ/ ضاحى الغريب 24_ برنامج مرتبات للقطاع الخاص _ الاستاذ/ سعيد بيرم 25_ برنامج متابعة حركة السيارات _ الاستاذ/ ضاحي الغريب

لو الأصناف كثيرة من الممكن عمل صفحة ديناميكية تقوم بعمل الأزرار تلقائيا .. البداية اليدوية لمعرفة الكودات المستخدمة ومن الممكن عمل تصنيفات للأزرار بحيث كل زر يفتح على مجموعة معينة

هذا البرنامج يتطلب سهر الليالي أخي الكريم ..الصبر الصبر الصبر

السلام عليكم خطرت فكرة علي بالي ان يوجد امامي جدول علي شكل متنامي باكود لا اتدخل فيه للجمع مثلا و احترت في الشكل و اشياء اخري كثيره و افكار ايضا يمكن ان تضاف المهم بعد فتره وجدت فكره لذلك قد تكون جيده من وجة نظري و غير ذلك من وجهة نظر اخري عموما الفكره في البدايه و كما ذكرت قد تكون هناك اضافات اخري ان شاء الله ارجو التجربه و اخباري بالنتيجه تحياتي Dinamic_Sum.rar

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