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

السلام عليكم ورحمة الله وبركاته مسقط التصفح : هو برنامج لقراءة صفحة الانترنت ، واستخراج اسماء الحقول ، لإرسال البيانات اليها من برنامج الاكسس ، او استيراد البيانات منها الى الاكسس وبما ان برمجة صفحات الانترنت تختلف من مبرمج الى آخر ، فبرنامجنا لن يشتغل على جميع الصفحات / المواقع ، وبالتجربة فقط نستطيع معرفة الصفحات التي يشتغل عليها البرنامج طريقة العمل: النموذج frm_browse يحتوي على (1) كائن Microsoft Web Browser (والذي لا يحتوي على جميع مكونات البرنامج الاصل Internet Explorer ، ولكنه يفي بالغرض) ، ندخل اسم الموقع في (2) حقل التحرير والسرد url_Address ، ثم نضغط على (3) الزر Go ، والذي سيفتح الموقع في النموذج ، وسيتم حفظ عنوان الصفحة ، واعطائة رقم مسلسل في الجدول tbl_url_address ، الزر (4) "احفظ csv" سيقرأ كائنات الموقع ، ويحفظها في ملف بصيغة csv (اللي ينفتح بالاكسل) ، ثم يفتح الملف ، وفيه 3 طرق لإرسال معلومات الى اي حقل تريد (يعني يعطيك الكود جاهز لكل حقل) ، والافضل استعمال الكود الذي في العمود "Usage2" ، حيث ليست جميع الحقول لها اسماء (للأسف في بعض المواقع) ، الزر (5) "احفظ في الجدول" ، حيث سيحفظ كائنات الموقع في جدول tbl_Send_Get في البرنامج ، والاصعب كان استخراج بيانات حقول التحرير والسرد من الصفحة ، والتي يتم حفظها في الجدول tbl_Options ، ولما يستخلص البرنامج جميع حقول الصفحة ، سيفتح النموذج frm_Send_Get ، الزر (6) "تجربة ارسال ، استيراد بيانات لهذا الموقع" يفتح نفس النموذج frm_Send_Get وبه كائنات الموقع واسماء الحقول (حسب اسمها في البرنامج وليس حسب ظهورها على الموقع ، فالموضوعين غير مرتبطين للأسف في برمجة الموقع) ، هنا نرى الحقول التي استطاع البرنامج التعامل معها ، (8) رقمها المتسلسل في الصفحة (والتي سنتعامل معها برمجيا لاحقا) ، (9) نوع الحقل والذي قد يختلف من صفحة الى اخرى ، (10) اسم الحقل في الصفحة (والتي سنتعامل معها برمجيا لاحقا) ، (يجب ادخال اي اسم في الحقول الفارغة) واذا كان الحقل عبارة عن مربع تحرير وسرد ، وللحصول على قيمه ، انقر على الاسم مرتين ، فينبثق النموذج frm_Options بالاختيارات (تابع الشرح لاحقا) ، هنا نستطيع تجربة اذا كان بإمكاننا ارسال/استرجاع بيانات الى/من الموقع ، فتختار اي حقل تريد التجربة عليه ، وتكتب المعلومة التي تريد ارسالها في الحقل (11) Send_Data وبالنقر المزدوج على المعلومة ، وسترى انه تم ادخالها في الحقل في صفحة الموقع الموقع ، ويمكن التأكد كذلك من امكانية قراءة معلومة الحقل بالنقر المزدوج على الحقل (14) Get_Data ، والمهم في هذه التجارب هو معرفة صيغة قبول الحقل للمعلومة ، بالنسبة لحقول التحرير والسرد وكما اشرت سابقا ، فالموضع يختلف قليلا ، لأنه مثل الاكسس ، فالمعلومة التي تراها في الصفحة في اختيار المعلومة من هذا الحقل ، ليس معناه انها نفس القيمة التي تُحفظ في الجدول ، لذلك يجب عليك النقر المزدوج على الحقل ref_Name ، فيعطيك قائمة الاختيار من النموذج frm_Options ، وبالنقر المزدوج على الحقل Opt_Value ستنتقل المعلومة الى الحقل في Send_Data النموذج frm_Send_Get ، والتي يمكن بالنقر المزدوج عليها ان ترسل المعلومة الى الحقل في الموقع (وهنا قد لا ترى التغير على الحقل في الموقع ، ولكن عندما تنقر عليه لتختار ، ستجد ان الاختيار قد تم حسب رغبتك) ، (12) يجب اختيار اي من الحقول التي تريد ان تستعملها من الموقع ، (13) وهنا تختار تسلسل الحقول التي تريد ارسال البيانات الى صفحة الموقع ، يعني تختار زر الارسال بعد اختيارك لبقية الحقول ، والحقول التي لا يهمك ترتيبها ، فدعها فارغة ، (12) و (13) هما اساس الخطوة التالية ، الى هنا وينتهي العمل مع صفحة الموقع ، والتي نختصرها: ادخل عنوان الصفحة (2) ، اضغط على (5) "احفظ في الجدول" ، جرب اذا الحقول تعمل ، ثم (12) تختار الحقول التي تريد التعامل معها ، و (13) ترتيبها ، الزر (7) "عمل نموذج ارسال ، استراد بيانات لهذا الموقع" ، وسيفتح النموذج frm_Make_Form للصفحة التي انت عليها الآن ، من هنا سيقوم البرنامج بعمل: عمل قاعدة بيانات جديدة (برنامج اكسس) خارجية متكاملة بالاسم والمسار الذي اخترته في (15) ، بالجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، واذا هذا البرنامج تم عمله سابقا (يعني عندك برنامجك الخاص واسمه ومساره في (15)) ، فسيقوم البرنامج بإضافة الجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، نختار اين نريد ان نعمل الجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، الزر (16) يقوم بكل هذا العمل ، قاعدة البيانات / البرنامج الخارجي: افتح النموذج frm_web_Sites ، فيعطيك اسماء الصفحات التي قمت بعملها في (16) ، وهذا نموذج التعامل مع صفحة الموقع ، وجميع الحقول التي اخترتها في (12) موجودة هنا ، وطريقة استخدامه: قم بتعبئة البيانات التي تريد ارسالها للموقع ، واذا كان عندك زر ارسال فيجب عمل صح عليه لإستعماله ، قم بفتح المتصفح بالضغط على الزر "Open Browser" ، والذي سيفتح المتصفح Internet Explorer خارجي ، ولا علاقة لك به ، فالكود سيتعامل معه اضغط على الزر "Send Data" ، وستكون البيانات قد تم تصديرها من نموذجك ودخلت في صفحة الموقع ، او اضغط على الزر "Get Data" ، وستكون البيانات قد تم استيرادها من صفحة الموقع الى نموذجك ، وهذا جزء من الكود الموجود في النموذج ، وسترى ان تسلسل ترتيب ارسال البيانات هو حسب الاختيار في (13) ، وغالبا (99% من الوقت) لن تحتاج الى عمل تغيير في الكود: . الزر (16) فيه تُحف فنية ، فلا تتردد من الدخول في الكود والغوص فيه والخروج بلآلئ فريدة جعفر Muscat_Browsing.zip

السلام عليكم ورحمة الله تعالى وبركاته اخباركم ايه ... عسى ان تكون على ما يرام ندخل الى الموضوع بسم الله الرحمن الرحيم كنت قد انشأت هذا الموضوع من قبل وهو عن كيفية تثبيت البرامج المصنعة بالاكسس داخل نظام التشغيل ويندوز فى الحقيقة كان الموضوع شيقا الى ان سالنى احد الاخوة كيف يمكن تطبيق ذلك على برامجى فجاوبته بان يقوم بنسخ تلك النماذج باكاوادها واضافة لمساتها الفنيه عليها على حسب ما يحلو لك ثم وضعها داخل برنامجك ومحاولة توفيق الاكواد لتعمل بالشكل المطلوب فى الواقع كان الوضع صعبا واحتمال وجود اخطاء فى ذلك بنسب كبيرة ففكرت كثيرا كيف يمكن انشاء معالج لتركيب نظام التثبيت هذا على اى برنامج اكسس دون الحاجة الى النسخ واللصق فجائت الفكرة الى انشاء ذلك المعالج مع اضافة بعض اللمسات وبعض الخيارات التى قد تفيد اى مبرمج مثلا امكانيه جعل البرنامج ينشئ اكثر من مجلد اثناء التثبيت امكانية حفظ ملفات داخل البرنامج مثلا الايقونات وملفات dll واى شء اخر وحتى قواعد اخرى داخل البرنامج لاستخرجها اثناء التثبيت والاهم من كل هذا هو انه يمكنك تصميم نماذج التثبيت بالشكل الذى تريده ثم استخدامها من قبل المعالج لتركبيها على برنامج والتثبيت من خلالها وعلى هذا الاساس قمت بانشاء صفحة خاصة للبرنامج على فيس بوك تستطيع من خلالها تنزيل قوالب تثبيت خاصة ببرنامج هذا هو الرابط https://www.facebook.com/A2P-1140671855968254/photos/ والان مع شرح البرنامج =================== 1 ) ---------------------- اولا وقبل كل شئ اسمى ههههههه ثانيا والاهم هو البروجرس بار البروجرس بار هذا غير متوفر فى اكسس ثم انى خفت من اخطاء عناصر Activex لو قمت بادراج بروجرس بار فقمت بتصمميم هذا الشريط التفاعلى ليكون لمسة فنية رائعة اتمنى ان تعجبكم من خلال هذا البروجرس اقوم بانشاء جداول التثبيت المؤقت الذى تساعدنى فى التثبيت 2 ) --------------------------- الشروط والاحكام الاهم هنا هو الاسمايلى (الوجه الضاحك ) الذى قمت باستبدال Chekbox به اتمنى ان تستمتعوا 3 ) ------------------- اختيار قاعدة البيانات التى تريد تركيب معالج التثبيت لها 4) ------------------------------ خطوة الفنانين قمت بتفعيل ميزة التصميم لتمكنك من تصميم نماذج التثبيت بنفسك واضافتك لمساتك الفنية عليها او يمكنك تنزيل قوالب التثبيت الخاصة بك من صفحة البرنامج عن طريق رابط التحميل المدرج فى هذا النموذج 5) -------------------------- مرجلة فحص نماذج التثبيت تذكر انه لا يمكنك ادراج اى اكواد داخل نماذج التثبيت التى قمت بتصميمها تذكر انه لا يمكنك تغيير اى من مسمياتها اذا وجد اى خطأ بها سيرفضها البرنامج 6 ) ------------------------ 7 ) -------------------------------------- 8 ) -------------------------- التعريف بالبرنامج الخاص بك وادراج الملفات التى تحتاجه عند التثبيت ليقوم البرنامج باستخراجها اثناء التثبيت فى نفس مجلد التثبيت واخد بالك انت من chekbox دى ههههههههههههه 9 ) ------------------------ تفعيل اكواد التفعيل شفت ال chekbox هههههههههههه سارقها من موبايلات سامسونج هههههههه اسم المجلد الذى سيتم التثبيت فيه اسم البرنامج الذى سيظهر فى قائمة ابدأ واختصار سطح المكتب مسار الحفظ وهو المسار الذى سيتم حفظ البرنامج فيه بعد تركيب المعالج له نماذج التثبيت 10) --------------- الشروط والاحكام الذى سيوافقع عليها المستخدم لاتماام التثبيت قد تحتاج من برنامجك اثناء التثبيت انشاء مجلدات اضافية قم بتفعيل الخاصية وكتابة اسماء المجلدات مع مراعات الرموز الذى لا يجب استخدامها فى اسماء المجلدات 11) ------------------------ مرحلة التثبيت والان مع البرنامج البرنامج حتى الان لنسخ اوفيس فوق 2003 فى انتظار ارائكم

بالعكس ، انا دائما اقول: جعفر

يسعدني اكون اول من يعلق على الموضوع ورغم اني لم اطلع على الامثلة .. من الشرح الوافي والصور المصاحبة اقول : الابداع ليس له حدود .. قد ينبع من اللا وجود شكرا ايها السيد , زادك الله علما ورفعة

الاخوة الزملاء السلام عليكم ورحمة الله وبركاتة برنامج مجاني علي الاكسيل لاقرار ضريبة القيمة المضافة برنامج سهل وبسيط خصائص البرنامج غلق جميع الخلايا التي تحتوي علي معادلات حفظ البيانات بمجرد الخروج العودة للقائمة الرئيسية في كل مرة يتم فتح البرنامج فيها استخدام اوامر الطباعه في الشيت الخاص بالاقرار التقارير إقرار ضريبة القيمة المضافة نموذج10 الخاص بكل شهر التحليل الشهري لفواتير المبيعات والمشتريات تفريغ الاقرارات user : How To Excel password: hte إقرار ضريبة القيمة المضاف 2.0.rar

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

السلام عليكم ورحمة الله تعالى وبركاته اعتقد ان هذا عقاب من الله لى لتحفظى الشديد على اخفاء الاكواد ولكن والله ما قمت بتحويل القاعدة الى accde لاخفاء الاكواد عنكم ولكن حولتها حتى استمع الى ملاحظتكم حول البرنامج ثم اقوم بالتعديل عليه بنفسى ولكن استغفر الله على سوء نيتى الغير مقصودة هذا هو المعالج مفتوح المصدر ... ويمكنك استخدام نماذج التثبيت المدرجة فى المشاركة الاولى

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

هذا تعديل حسب طريقتك استاذ صالح For i = 1 To xm.CurrentProject.AllForms.Count salah.AddItem xm.CurrentProject.AllForms(i - 1).Name تحياتي

جرب هذا الماكرو (تستبدل اسم اخر شيت الى Repport لحسن التعامل مع اللغة الاجنبية) جرب هذا الماكرو Sub Give_Me_Sum() 'Author Salim 18/02/2017 Officena Dim my_rg As Range Dim lr, lrF, lrK, k, i As Integer, s, My_NUm, Oldval As Long With Sheets("Repport") lrF = .Cells(Rows.Count, "f").End(3).Row Set my_rg = .Range("f2:f" & lrF) .Range("G2:I" & lrF + 1).ClearContents .Cells(lrF + 1, "h") = "المجموع" .Cells(lrF + 1, "i") = 0 End With For i = 2 To lrF My_NUm = my_rg.Cells(i - 1) For k = 1 To Sheets.Count - 1 With Sheets(k) lrK = .Cells(Rows.Count, "e").End(3).Row For y = 5 To lrK If .Range("e" & y) = My_NUm Then _ s = s + .Range("e" & y).Offset(0, 1) Next End With Next my_rg.Cells(i - 1).Offset(0, 1) = s Oldval = Sheets("Repport").Cells(lrF + 1, "i") Sheets("Repport").Cells(lrF + 1, "i") = Oldval + s s = 0 Next End Sub

سلمت الايادي استاذ Shivan Rekany

جزاك الله خيرا أخي Shivan لكن عملية هامة كهذه أعتقد أن عملية كهذه يلزمها رسالة تأكيد ورسالة أخري تفيد بأن العملية تمت بنجاح فما رأيك في كودك بعد التعديل ؟؟ If MsgBox("هل تريد حذف البيانات ؟", vbYesNo, "تنبيه") = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL " delete * from TABLE1" MsgBox "لقد تم حذف البيانات بنجاح!!!!", vbOKOnly, "تنبيه" Else DoCmd.CancelEvent End If End Sub

نعم يا استاذ تكدر تحذف هذا السطر من الكود DoCmd.RunCommand acCmdCopy لكن ما هي اهمية ذاك السطر بيعمل كوبي من النص المحدود واحتمال بيكون تحتاج ان تلصق في مكان اخر النص المحدود تحياتي

السلام عليكم و رحمة الله تعالى و بركاته. أخوتي الكرام حياكم الله أخي محمد بإمكانك إستعمال هذا الكود: Dim i As String i = Me.stuname.SelText Me.fathername = i بعد ما تقوم بتحديد اسم الأب بمجرد رفع زر الماوس يقوم بلصق الجزء المحدد مباشرة في حقل الأب. getfathername.rar

أستاذ Shivan Rekany طول عمرك ميسترو مشاء الله تحياتى

اليك هذا DoCmd.RunSQL " delete * from TABLE1" غير TABLE1 ب اسم جدولك

اتفضل يا سيدي الطريقة هو للاستاذنا جعفر getfathername.rar

الأخ الكريمOmarich السلام عليكم ضغ المعادلة التالية فى الخلية B3 واسحبها نزولاً =INDEX('رقم الجلوس'!$B$3:$C$7;MATCH(C3;'رقم الجلوس'!$C$3:$C$7;0);1)

تمام ولما تعمل التغييرات ، اذا ممكن ترفق البرنامج ليستفيد منه الجميع جعفر

وعليكم السلام شغلك تقريبا كان كامل بما ان بعض البيانات تأخذها من النموذج الرئيسي ، فيجب تعديل الكود ليناسب مع ذلك ، بالاضافة الى تغيير تاريخ الاقساط ليكون شهري: Private Sub Command9_Click() Dim rst As DAO.Recordset Dim i Set rst = Me.RecordsetClone Mobile_Cost = Forms![SaleInvoiceF]![sale_total] Fisrt_Date_of_Payment = Forms![SaleInvoiceF]![qist_date] Number_Of_Installments = Forms![SaleInvoiceF]![qist_number] For i = 1 To Number_Of_Installments rst.AddNew rst![qist_invoice] = Forms![SaleInvoiceF]![sale_invoice] rst![qist_num] = i rst![qist_price] = Mobile_Cost / Number_Of_Installments rst![qist_first_date] = DateAdd("m", i - 1, Fisrt_Date_of_Payment) rst.Update Next i rst.Close: Set rst = Nothing End Sub جعفر 594.Database2.accdb.zip

هااااايل .. سيتم التجربه ثم اعطيك رأيي .. استمر في الإبداع

تعديل بسيط أخي حسين لأني أعتقد أن المجموع الاجمالي لم يحسب أعد تحميل المرفق الجديد وأي إشكال أنا في الخدمة ، تقبل تحياتي. printAllFactures2.rar

استاذنا Elsayed Bn Gemy منذ ان دخلت المنتدى وانت استاذ فاضل بكافة ردودك ومساعداتك وهذا العمل الضخم الذي ليس له مثيل فعلا رائع وفقط الله الى ما تبغي دائماً وجاري التجربة وإطلاعك على النتائج .

استاذى سليم فعلا هذا هو المطلوب تم اضافة مفتاح وتشغيل الكود ويعمل 100% ربنا يرضى عنك اشكرك من قلبى بارك الله فيك اخى واستاذى الحبيب سليم

اتفضل استخدممت هذا الكود Private Sub Form_Load() DoCmd.GoToRecord , , acNewRec End Sub 522.نقل نسخة.rar

أخي العزيز / أسامة أبو عمر من خلال ما فهمته من الشروط أن الطالب يعتبر غائب إذا كانت نسبة الغياب 50% أو أكبر ومن خلال هذا الفهم عملت المعادلة التالية إن شاء الله يكون فهمي صحيح والمعادلة صحيحة =IF(SUMPRODUCT(--($A$2:$A2=A2)*($B$2:B2=B2))>1;"";IF(SUMPRODUCT(--($A$2:$A$100=A2)*($B$2:$B$100=B2)*($D$2:$D$100="غياب"))/SUMPRODUCT(--($A$2:$A$100=A2)*($B$2:$B$100=B2))>=50%;"غائب";"حاضر")) StaffAttendance (4)_2.rar

تفضل اجعل هذا الكود على زر (طبعا بعد ان تغير اسماء الحقول): dim rst as dao.recordset set rst=me.recordsetclone Mobile_Cost = [قيمة الهاتف] Fisrt_Date_of_Payment = [تاريخ او قسط] for i=1 to [عدد الاقساط] rst.addnew rst![رقم القسط] = i rst![قيمة القسط] = Mobile_Cost / [عدد الاقساط] rst![تاريخ الاستحقاق] = dateadd("d" , i-1 , Fisrt_Date_of_Payment) rst.update next i rst.close : set rst = nothing جعفر

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

تفضل اخي العزيز ارجو ان يكون طلبك FullYearDatesH.accdb.rar

على بركة الله نبدأ أول درس و ننتظر ملاحظاتكم حول أي شيء نسيته و هو متعلق بهذا الدرس أو أي معلومة أخطأت بها: الــدرس الأول : المتغيرات تعتبر المتغيرات النواة الأساسية أو حجر الأساس بالنسبة لكل برنامج في أي لغة برمجة كانت. يعني قبل البدأ يجب أن تقوم بتعريف المتغيرات التي تحتاجها و تحدد نوعها قبل كل شيء. 11- أنواع المتغيرت: هناك العديد من أنواع المتغيرات و كل نوع يخصص له حجم معين في الذاكرة. سوف نقوم بإضافة شرح جميع أنواع المتغيرات و الحجم الذي يأخذه كل نوع من الذاكرة: String: نص يتسع المتغير النصي إلى 2 جيجا بايت و كل حرف يشغل 1 بايت Boolean: ياخذ نوعين من القيم True و False (طوله 2 بيت ) Byte: بايت يكون رقم بين 0 من 255 (طوله 1 بايت) Integer : عدد صحيح (طوله 2 بيت ) قيمته من 32768- إلى 32767 Long : عدد صحيح طويل (طوله 4 بيت) قيمته من 2,147,483,648- إلى 2.147.483.647 Signal: عدد عشري (طوله 4 بيت) قيمته من 3.402823x1038- إلى 1.401298x10-45- للقيم السالبة و من 1.401298x10-45 إلى 3.402823x1038 للقيم الموجبة Currency: عملة (طوله 8 بيت) قيمته من 922،337،203،685،477.5808- إلى 922،337،203،685،477.5807 Double : مزدوج عدد عشري (طوله 8 بيت) قيمته من 1.79769313486231x10308- إلى 4.94065645841247x10-324- للقيم السالبة. و من 4.94065645841247x10-324 إلى 1.79769313486232x10308 للقيم الموجبة Date: نوع البيانات تكون على شكل تاريخ (طوله 8 بيت) يبدأ تاريخ vba من 1/1/100 حتى 31/12/9999 Object : لتخزين الكائنات التي تحتوي على خصائص و وظائف و يتم تعيينه بجملة set ويشغل في الذاكرة 4 بايت أو حسب خصائص و وظائف الكائن المحدد. و سوف نخصص درس لعرض أنواع الكائنات. Variant : لتخزين كل الأنواع السابقة ويمكن تخزين المصفوفات بداخله أيضاً 2- طريقة الإعلان عن المتغيرات: الإعلان عن متغير يعني حجز مكان في ذاكرة الكمبيوتر باسم هذا المتغير و يحدد حجمه حسب نوع المتغير. و يتم تعريف المتغير أو الإعلان عنه بواسطة العبارة DIM . مثال: Dim A as Integer للإعلان عن أكثر من متغير: Dim a,b as integer للإعلان عن أكثرمن متغير لأنواع مختلفة في نفس السطر: Dim A As Double, B As Integer 3- ملاحظات: - - يفضل الإعلان عن نوع المتغير لزيادة سرعة التعامل معه . - - المتغيرات التي لم تحدد نوعها يعمل فيجول بيسك علي الإعلان عنها تلقائيا من النوع Variant وهو أبطأ أنواع المتغيرات . - - بالنسبة للإعلان عن أكثر من متغير من نفس النوع بالطريقة التالي: Dim a,b as integer هنا b فقط من النوع integer أما a فهو في هذه الحالة يعتبر من النوع Variant يجب أن يتم التعريف بهذا الشكل: Dim a integer,b as integer أو Dim a as Integer Dim b as Integer 4- شروط تسمية المتغيرات: - - اسم المتغير يجب أن يبتدأ بحرف . - - يمكن استعمال الحروف التي تلي الحرف الأول رقم أو حرف أو الإثنين معا. - - لا يجب أن تكون هناك فراغات بين أسماء المتغير و يمكن استعمال الشكل التالي: id_user - - يجب عدم استعمال نقطة أو رمز خاص مثل ( ؟ ، * ، ) ، ( ، /......... إلخ ) ولكن يمكن استخدام الشرطة السفلية ( _ ) - - أن لا يكون اسم المتغير من الكلمات المحجوزة في الأكسس.

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

اخى فى الله الاستاذ / احمد السلام عليكم الاجمل من الملف هو لقائى بحضرتك فبارك الله فيكم وفى عمرك لاأعتقد أن هناك مشكلة بالخصم ولا بالاضافة فضلا قم بحذف جميع القيم ومن ثم 1000 فى الاضافة ثم 200 فى الخصم إذن الحالى = 800 ثم على نفس الـــ 1000 سنضيف 100 إذن الحالى = 900 ثم فى الخصم 400 إذن الحالى = 500 تشرفت بكم أخى الفاضل ***** تقبل وافر تقديرى واحترامى **** وجزاكم الله خيرا

السلام عليكم جميعا ورحمته الله وبركاته وبعد إذن اخوانى الافاضل الاستاذ / احمد والاستاذ / سليم هذه محاولة حسب مافهمت من الاخ ناصر وهو إضافة طفيفة للمرفق المشارإليه بالرابط المذكوراعلاه لحين تدخل الاساتذه الافاضل نظرا لاهمية تعديل المرفق على نحو يتم إخفاء القيم المدخلة بالعمود C كما بالعمود E وافر تقديرى واحترامى **** وجزاكم الله خيرا خصم وإضافة.xlsb.rar

تحياتي للجميع ارجو منكم المساعدة ... :') :') .................... والحكاية من قاصرها انا عندي ورشة نجارة يهمي ان اديرها بشكل منظم وجربت كل البرامج المحاسبة كلها تتكلم عن المخزون وانا ما عندي مخزون اناعندي مشتريات للتصنيع ومصروفات الورشة والرواتب باختصار احتاج برنامج حسابي للتصنيع يقوم على ادخال معلومات العقد وبعدين ادخل معلومات الفاتورة حسب المردين وارحل كل صنف من المشتريات على تكلفة العقد وايضا سند قبض وتقارير انا اشتغل حاليا على الاكسل على قد حالي يعني اعتمد على الفرز وبارفق لكم نموذج من طريقة عملي حاليا Copy_of_______.rar

شكرا جزيلا وجعلها الله فى ميزان حسناتك ان شاء الله