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

اعرض الملف 🎁 :: مرسال الواتسأب :: 📨 :: الإصدار الثاني 2.0 :: مطور :: 🧬🏹 السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية المتميزة والرائعة (مرسال الواتسأب) مع المرفقات مرسال الواتسأب مع المرفقات | سلسلة هدايا الأكسس | 03| 🎁 وهو عبارة عن برنامج صغير لإرسال الرسائل للواتسأب مع المرفقات .. :: من مميزات هذا الإصدار :: - إرسال رسائل فردية أو جماعية عن طريق برنامج الواتسأب . - لا يحتاج لبرنامج الإنترنت إكسبلورر لفتح الواتسأب. - لا يغلق مفتاح الـ NumLock بعد الإرسال. -تم اختصار الكود في موديول واحد ودالة واحدة تقوم بعملية الإرسال بعدة خيارات . - لو أردت تطبيق الكود في برنامجك الخاص ستحتاج لنقل الموديول إلى برنامجك + سطر برمجي واحد فقط لعملية الإرسال. :: شرح البرنامج :: :: لتحميل البرنامج :: صاحب الملف Moosak تمت الاضافه 30 مار, 2023 الاقسام قسم الأكسيس

الله يلطف بحال من يتعامل مع عملك هذا لم اتمكن من اظهار العمليات بسبب الاكواد المحشورة في form1 وعلى كل حال جرب الآن التعديل داخل استعلام : تجميعات حسب اسم الحساب انسخ هذا والصقه بدلا من الموجود ووافني بالنتيجة PreviuseBalnce: Round(ClcPrevAllBalances(0;[Accounts].[Accounts_Type_ID];[forms]![form1]![FromDate];1);2)

اخي ابو الحسن ..الظاهر انت عاملها بالعكس ..المفروض هكذا الرصيد السابق= Round([PreviuseBalnce], 2)

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

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

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

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

نورت المكان عمي قاسم واستجاب الله دعواتك 🙂 نعم عمي قاسم بالضبط .. تحفظ الملف PDF بجانب البرنامج بشكل مؤقت .. ثم ترسل الرابط لدالة إرسال الواتسأب .. وبعد الإرسال تحذف الملف صحيح أن الموضوع يأخذ وقت لو كانت قائمة المرسل إليهم كبيرة .. ولكن هذا ما توصلنا إليه إلى الآن .. ولعله تتكرم علينا شركة الواتسأب بدوال API مباشرة للإرسال في النسخة المجانية .. 🙂 وشخصيا استخدمت هذه الطريقة في أحد برامجي .. وهذا بشكل مختصر الكود الذي استخدمه : Dim SaveToPath As String Dim SaveFullName As String SaveToPath = CurrentProject.Path & "\" SaveFullName = SaveToPath & "ReportName.pdf" DoCmd.OutputTo acOutputReport, "ReportName", "*.pdf", SaveFullName, False, , , acExportQualityPrint SendToWhatsApp "PhoneNumber", "الرسالة", SaveFullName, Document Kill SaveFullName ' MsgBox " تم الإرســــــال ", vbMsgBoxRight, "" عمي أبو خليل كلماتك هي وسام فخر واعتزاز لتلميذكم الصغير 🙂 جزاك الله خيرا على الكلمات المحفزة والدعوات الطيبة .. ولا حرمنا الله خيركم 🙂

السلام عليكم 🙂 اذا عندنا تقرير بهذه الطريقة: . اليس الافضل دمج بيانات الحقل المتكررة عموديا في حقل واحد ، مثل الوورد مثلا الى : . طريقة العمل : 1. اعمل تقريرك بالطريقة اللي تراها مناسبة ، بالفرز والتصفية : . او بالمجاميع : . 2. ولكن قم بوضع جميع الحقول في قسم "التفصيل" Detail : . 3. ثم اجعل برواز جميع حقول هذا القسم شفافة . 4. ثم الحقول التي تريد دمجها ، اخفاء المتكرر = نعم ، Hide Duplicates = Yes . 5. ثم ضع هذه الاحداث للتقرير Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 'Border color not set, use field ForeColor Call Detail_Print_Run_All(5, "'اليوم', 'التاريخ','الزمن'") End Sub Private Sub Report_Open(Cancel As Integer) Call Report_Open_Run(Me.Name) End Sub Private Sub Report_Close() On Error Resume Next Set ctl_ReSize = Nothing End Sub Private Sub Report_Page() Call Report_Page_Run End Sub . 6. لا تحتاج الى عمل اي تغيير في الاحداث اعلاه ، فقط انسخها من هنا والصقها في تقريرك ، ما عدا اول جزء : عرض البرواز ، حيث نخبره باسماء الحقل/الحقول التي نريد دمجها عموديا ، لون البرواز يكون حسب اللون الذي نكتبه ، او اذا لم نكتب لون البرواز ، فلون البرواز سيكون لون نص الكلمات في الحقل . 7. نسخ الوحدة النمطية mod_Report_Field_Hieght_ReSize الى تقريرك ن وكذلك بدون عمل اي تغيير فيها : Option Compare Database Option Explicit Dim rpt_Name_ReSize As String Dim rgb_Border_ReSize As Long, ini_rgb_Border_ReSize As Long Dim Detail_Calc_Height_ReSize As Long Dim Exclude_fld_Name_ReSize As String Dim Add_H_Each_Record_ReSize As Boolean Dim fildMaxHeight_ReSize As Long Dim myDrawWidth As Integer Public ctl_ReSize As Control Dim i_ReSize As Integer, j_ReSize As Integer Dim x_ReSize() As String, tmp_ReSize As String Dim Count_Pages_ReSize As Integer Dim sfld_Name_ReSize() As String, sfld_Value_ReSize() As String, _ sfld_Count_ReSize() As Integer Dim L_ReSize As Single, T_ReSize As Single, W_ReSize As Single, H_ReSize As Single ' Function Detail_Print_Run_All(LineWidth As Integer, myFields As String, Optional border_Color As Long = 1) 'we can this Function in the following ways, indicating Border Color 'Call Detail_Print_Run_All(5, "'c1', 'save', 'b1'", RGB(0, 0, 0)) 'Border color is RGB Value 'Call Detail_Print_Run_All(5, "'c1', 'save', 'b1'", vbBlack) 'Border color is Black 'Call Detail_Print_Run_All(5,"'c1', 'save', 'b1'", vbMagenta) 'Border color is Magenta 'Call Detail_Print_Run_All(5,"'c1', 'save', 'b1'") 'Border color not set, use field ForeColor 'Call Detail_Print_Run_All(5,"'b1'", RGB(0, 0, 0)) '5 is Line Width 'we get most the Lines drawn in Detail Section, 'except for the Last Record in each page, where we use Report Page event (the last page is easy) ini_rgb_Border_ReSize = border_Color rgb_Border_ReSize = ini_rgb_Border_ReSize Exclude_fld_Name_ReSize = myFields Add_H_Each_Record_ReSize = False myDrawWidth = LineWidth 'make an array of the fields x_ReSize = Split(Exclude_fld_Name_ReSize, ",") ReDim Preserve sfld_Name_ReSize(UBound(x_ReSize)) ReDim Preserve sfld_Value_ReSize(UBound(x_ReSize)) ReDim Preserve sfld_Count_ReSize(UBound(x_ReSize)) '1 'do the Detail Lines for the remaining fields Call Detail_Sec_Max_Height '2 'now work on the special fields Lines For i_ReSize = 0 To UBound(x_ReSize) 'remove the ' , and the extra spaces from the Left and Right tmp_ReSize = RTrim(LTrim(Replace(x_ReSize(i_ReSize), "'", ""))) sfld_Name_ReSize(i_ReSize) = tmp_ReSize Call Scale_Box_Lines(tmp_ReSize) Next i_ReSize End Function Function Report_Open_Run(rpt_Name_ReSize_1) rpt_Name_ReSize = rpt_Name_ReSize_1 'Reset the variables from here Count_Pages_ReSize = 0 Erase sfld_Name_ReSize Erase sfld_Value_ReSize Erase sfld_Count_ReSize Detail_Calc_Height_ReSize = 0 End Function Function Report_Page_Run() 'make an array of the fields x_ReSize = Split(Exclude_fld_Name_ReSize, ",") 'now work on the special fields Lines For j_ReSize = 0 To UBound(x_ReSize) 'remove the ' , and the extra spaces from the Left and Right tmp_ReSize = RTrim(LTrim(Replace(x_ReSize(j_ReSize), "'", ""))) sfld_Name_ReSize(j_ReSize) = tmp_ReSize Set ctl_ReSize = Reports(rpt_Name_ReSize)(tmp_ReSize) If ini_rgb_Border_ReSize = 1 Then rgb_Border_ReSize = ctl_ReSize.ForeColor End If 'make it simple to understand L_ReSize = ctl_ReSize.Left W_ReSize = ctl_ReSize.Width T_ReSize = ctl_ReSize.Top 'H_ReSize = ctl_ReSize.Height 'we have to add the Sections/Fields ABOVE the Detail Section If Reports(rpt_Name_ReSize).Page = 1 Then H_ReSize = Detail_Calc_Height_ReSize + _ Reports(rpt_Name_ReSize).PageHeaderSection.Height + _ Reports(rpt_Name_ReSize).ReportHeader.Height Else H_ReSize = Detail_Calc_Height_ReSize + _ Reports(rpt_Name_ReSize).PageHeaderSection.Height End If Reports(rpt_Name_ReSize).DrawWidth = myDrawWidth Reports(rpt_Name_ReSize).Line (L_ReSize, T_ReSize + H_ReSize)-(L_ReSize + W_ReSize, T_ReSize + H_ReSize), rgb_Border_ReSize 'Bottom Line Next j_ReSize Detail_Calc_Height_ReSize = 0 End Function Public Function Scale_Box_Lines(fld_Name As String) Set ctl_ReSize = Reports(rpt_Name_ReSize)(fld_Name) 'make it simple to understand L_ReSize = ctl_ReSize.Left W_ReSize = ctl_ReSize.Width T_ReSize = ctl_ReSize.Top H_ReSize = ctl_ReSize.Height If ini_rgb_Border_ReSize = 1 Then rgb_Border_ReSize = ctl_ReSize.ForeColor End If 'take the highst Height If fildMaxHeight_ReSize > H_ReSize Then H_ReSize = fildMaxHeight_ReSize End If If ctl_ReSize.Text <> sfld_Value_ReSize(i_ReSize) Then sfld_Value_ReSize(i_ReSize) = ctl_ReSize.Text sfld_Count_ReSize(i_ReSize) = 1 End If 'Box the cells 'Left and Right ctl_ReSize.BorderColor = vbWhite Reports(rpt_Name_ReSize).DrawWidth = myDrawWidth Reports(rpt_Name_ReSize).Line (L_ReSize, T_ReSize)-(L_ReSize, H_ReSize), rgb_Border_ReSize 'Left Line Reports(rpt_Name_ReSize).Line (L_ReSize + W_ReSize, T_ReSize)-(L_ReSize + W_ReSize, H_ReSize), rgb_Border_ReSize 'Right Line 'Top and Bottom If Reports(rpt_Name_ReSize).Page <> Count_Pages_ReSize Then 'first Count_Pages_ReSize = Count_Pages_ReSize + 1 Reports(rpt_Name_ReSize).Line (L_ReSize, T_ReSize)-(L_ReSize + W_ReSize, T_ReSize), rgb_Border_ReSize 'Top Line ElseIf sfld_Count_ReSize(i_ReSize) = 1 Then 'First Record Reports(rpt_Name_ReSize).Line (L_ReSize, T_ReSize)-(L_ReSize + W_ReSize, T_ReSize), rgb_Border_ReSize 'Top Line End If sfld_Count_ReSize(i_ReSize) = sfld_Count_ReSize(i_ReSize) + 1 End Function Public Function Detail_Sec_Max_Height() fildMaxHeight_ReSize = 0 'get the max Height For Each ctl_ReSize In Reports(rpt_Name_ReSize).Section(0).Controls If ctl_ReSize.Height > fildMaxHeight_ReSize Then fildMaxHeight_ReSize = ctl_ReSize.Height End If Next 'Draw lines around the fields For Each ctl_ReSize In Reports(rpt_Name_ReSize).Section(0).Controls If InStr(Exclude_fld_Name_ReSize, "'" & ctl_ReSize.Name & "'") = 0 Then Reports(rpt_Name_ReSize).DrawWidth = myDrawWidth Reports(rpt_Name_ReSize).Line (ctl_ReSize.Left, ctl_ReSize.Top)-Step(ctl_ReSize.Width, fildMaxHeight_ReSize), ctl_ReSize.ForeColor, B 'just add the Heighs of ONE Record If Add_H_Each_Record_ReSize = False Then Detail_Calc_Height_ReSize = Detail_Calc_Height_ReSize + fildMaxHeight_ReSize Add_H_Each_Record_ReSize = True End If End If Next End Function . 8. ما عدا هذا الجزء ، والذي يجب ان نضع فيه اسماء جميع الاقسام التي فوق "قسم التفصيل" ، والتي بها ارتفاع : . من هنا نعرف اسم هذه الاقسام : . وهذه نتائج بعض التقارير التي تم النجربة عليها : . . . . ولم اتوصل لطريقة لجعل الكلمات في منتصف الحقل عموديا ، هكذا: جعفر Report_BoxLine_07.accdb.zip

** السلام عليكم ورحمة الله وبركاته ** سنضع هنا كل ماصمم من برامج على الأكسيل على أن يضاف كل جديد في حينه * متابعة رصيد البنوك * تصميم أبو أحمد * * برنامج الصندوق التعاوني * تصميم أبوإسراء* * تقويـــــم على الأكسيل * تصميم أبن مسقط * * متابعة أرصدة البنوك * تصميم حسام * * نظم مصروفاتك المنزل مع هذا البرنامج * تصميم حسام * * برنامج المشتريات والمبيعات والمستودع* الإصدار الأول * تصميم حسام * * برنامج متابعة أرصدة البنوك ( الإصدار الثاني ) تصميم حسام نور * برنامج القروض الأصدار الأول تصميم حسام نور **بـرنـــــامج الأبــــــراج تصميم حسام نور** * برنامج المخازن تصميم m.hindawi* ** برنامج متابعة المراجعين ويدعم خاصية البحث تصميم حسام نور** برنامج متابعة المصروفات الجديد " الإصدار الثاني " تصميم حسام نور برنامج القروض الإصدار الثاني تصميم حسام نور برنامج إدارة العقارات * تأجير * تسديد * مصروفات * تقارير تصميم حسام نور Calculate_Your_Age تصميم علي السحيب جدول مساعدة لحفظ القرأن الكريم (برنامج جاهز) تصميم الرواحي برنامج لكسر الحماية بواسطه الرواحي Management task manager تصميم الرواحي برنامج برنامج المصطلحات الطبية ومعانيها على السحيب برنامج لحساب العمر مع تشغيل صوت خالد نور غرائب وعجائب الاكسل عمر الحسينى برنامج جاهز لمؤجرين السيارات احمدزمان برنامج المعلم برنامج جاهز برنامج الزكاة برنامج جاهز * تصميم حسام * شهادة الطالب برنامج جاهز كنترول مدرسة برنامج جاهز التقويم بعد التعديل برنامج جاهز برنامج الدورى السعودى برنامج جاهز برنامج دراسة القوى المؤثرة على السلاسل الزمنية برنامج جاهز طباعة تقرير الاجازة المرضية برنامج جاهز برنامج حساب كلفة الاتصال بالانترنيت برنامج جاهز قالب Loan Amortization برنامج جاهز كشف حساب مبسط برنامج جاهز برنامج استهلاك الاصول الثابتة برنامج جاهز برنامج لمتابعة الصيانة والنظافة لمدرسة برنامج جاهز دليل هاتف مبسط برنامج جاهز برنامج الشهادات وكشوف الدرجات برنامج جاهز برنامج مستخرجات مدرسية برنامج جاهز لحساب تلكفة الساعة فى نت كافية برنامج جاهز برنامج ميزان المراجعة للحسابات برنامج جاهز برنامج حساب اقساط القروض بالفوائد المتناقصة برنامج جاهز مثال تقسيم الطلاب فى مجموعات متجانسة برنامج جاهز جلب اسعار اخر يوم تداول فى سوق الاسهم السعودية برنامج جاهز تقويم المناسبات برنامج جاهز برنامج جديد لحساب العمر برنامج جاهز برنامج حساب العمر بالاكسل برنامج جاهز برنامج كنترول المدرسة برنامج جاهز برنامج ضبط المخزون والمبيعات برنامج جاهز برنامج مدرسى برنامج جاهز حساب العمر بالهجرى والميلادى برنامج جاهز ملف تدقيق حسابات برنامج جاهز هدية برنامج كنترول التعليم الاعدادى بمصر برنامج جاهز كسر الحماية برنامج جاهز برنامج مخازن فقط برنامج جاهز طلب تقويم ثنائى هجرى ميلادى برنامج جاهز الحوافز المصرية برنامج جاهز برنامج تنظيم الحمل والدورة الشهرية برنامج جاهز المرتبات المصرية برنامج جاهز تاريخ اليوم بالميلادى و الهجرى برنامج جاهز برنامج طباعة الشهادات المدرسية الاعدادية برنامج جاهز امساكية شهر رمضان برنامج جاهز برنامج طباعة الشهادات المدرسية للمرحلة الابتدائية برنامج جاهز اليومية الامريكية برنامج جاهز تعامل بسلاسة مع الاسهم السعودية برنامج جاهز تخطيط الميزانية برنامج جاهز تقويم جديد برنامج جاهز برنامج عن حساب العمر بالميلادى والهجرى برنامج جاهز برنامج الدورى الانجليزى برنامج جاهز برنامج دوريات برنامج جاهز برنامج قروض جديد برنامج جاهز القران الكريم مشكلا على الاكسيل برنامج جاهز برنامج حساب العمر بالتقويمين الميلادى والهجرى برنامج جاهز برنامج رائع للتحويل بين التاريخين الهجرى والميلادى برنامج جاهز برنامج حسابات برنامج جاهز برنامج محول التواريخ وبرنامج الاعمار والابراج والصفات برنامج جاهز برنامج حسابات مبسط برنامج جاهز مقياس الحمى برنامج جاهز برنامج حساب لثلاث عملات برنامج جاهز اول مشاركة واقبلوا هديتى المتواضعة برنامج جاهز برنامج الشيكات برنامج جاهز اخيرا برنامج الحضور والانصراف برنامج جاهز نتيجة لــ 178 عام قادم بداية 2007 عليك تجربتها برنامج جاهز احدى الطرق لحساب نسبة معدلات الخصم او الاضافة برنامج جاهز برنامج محاسبى برنامج جاهز برنامج خبور المحاسبى الاصدار الاول برنامج جاهز ادخل الرقم و اعرف اللون برنامج جاهز فـــسر حلمك على الاكسيل برنامج جاهز برنامج خبور المحاسبى الاصدار الثانى برنامج جاهز ساعة ستوب واتش برنامج جاهز هديتى نظام لحساب وصرف الرواتب والبدلات الشهرية برنامج جاهز بورصتى القاهرة والاسكندرية خلال فترة زمنية برنامج جاهز النموذج الخاص بالدمغة النسبية برنامج جاهز هذة لعبة ذكاء مصممة على الاكسل برنامج جاهز ملف مهم للمغتربين المشاركين بالسكن برنامج جاهز كنترول للصف الاول والثانى لمدرسة صناعية مجربة 100% برنامج جاهز برنامج خبور المحاسبى الاصدار الثالث برنامج جاهز برنامج المستودع ومراقبة المخزون برنامج جاهز ميزانية لمحاسبة شركات المقاولات برنامج جاهز برنامج محاسبة شركات المقاولات برنامج جاهز برنامج خبور المحاسبى برنامج جاهز الى جميع المحاسبين والمهتمين بالتحليل المالى برنامج جاهز البرنامج المحاسبى الشهيرQUICKBOOKS برنامج جاهز الميزانية العمومية برنامج جاهز الجرد فى المنشات التجارية برنامج جاهز المرتبات والاجور برنامج جاهز فكرة برنامج للقروض برنامج جاهز برنامج حسابات برنامج جاهز برنامج كامل للقروض برنامج جاهز ملف للمرتبات يحسب ضريبة المرتبات والتامينات الاجتماعية برنامج جاهز نموذج فاتورة متكامل بفورم بامكانية الطباعة برنامج جاهز برنامج مرتبات برنامج جاهز يومية الصندوق الالكترونية برنامج جاهز برنامج رواتب بشكل جديد برنامج جاهز برنامج محاسبى على الاكسل برنامج جاهز نموذج تحليل مدفوعات مصروفات وخلافة برنامج جاهز برنامج كشـف صـرف النقـديـة بالفئات المتاحـة برنامج جاهز برنامج حسابات البنوك * الجديد كلياً برنامج جاهز برنامج توافق الابراج فى اكسل برنامج جاهز توزيع كشوف ملاحظة الامتحانات برنامج جاهز برنامج محاسبة جاهز برنامج جاهز برنامج كاس العالم 2010 بالمعادلات برنامج جاهز برنامج الشهادات المدرسية للمرحلة الاساسية العليا فى فلسطينبرنامج جاهز برنامج جاهز ترحيل سند صرف قبض فاتورة قيود طلب عاجل برنامج جاهز يخص عمليات الاستثمار برنامج جاهز_يومية عملاء و موردين و كشف حساب بين تاريخين برنامج جاهز_يومية مبيعات مع التقرير برنامج جاهز لادارة مكتبه_ترتيب و فهرسة الكتب برنامج جاهز_سركى الصادر و الوارد للمكاتبات و الارشيف برنامج جاهز2_سركى الصادر و الوارد للمكاتبات و الارشيف مع الطباعة و الشرح برنامج جاهز3_سركى متكامل للصادر و الوارد للمكاتبات و الارشيف برنامج جاهز_تحويل صورة و نسخها الى خلايا اكسيل برنامج جاهز_طباعة الشيكات بعملات مختلفه برنامج جاهز_ تذكير بمواعيد انتهاء اوراقك الرسمية برنامج جاهز_ طباعة ايصالات PAYROLL_تلقائيا برنامج جاهز_سند قبض و صرف برنامج جاهز_يومية و كشف حساب بين تاريخين مع اختيار عملة الحساب برنامج جاهز_برنامج احتساب القيمة الحالية للمبالغ و خصم قطع الشيكات بطريقتين برنامج جاهز_برنامج قيود يومية بالترحيل الى يوميات الاستاذ مع عمل كشف حساب برنامج جاهز_بالكود نتائج الطلاب مع الفرز _الناجح و الراسب برنامج جاهز_برنامج حسابات مع صفحات الاستاذ و ارصدة البنوك برنامج جاهز_ لجدولة انشاء و سداد اقساط مجدولة و القروض و العهد برنامج جاهز لادارة مصروفاتك الشخصيه برنامج جاهز لتحويل التاريخ من ميلادى الى هجرى ,والعكس برنامج جاهز_طباعة شيكات بنك_التجارى الدولى_cib_اصدار دفاتر 2018_مع امكانية اضافة بنوك اخرى برنامج جاهز لادارة المصاريف الشخصية برنامج جاهز للمخازن والعملاء والموردين هديتى برنامج جاهز_طباعة شيكات بنك_التجارى الدولى_CIB_مع امكانية اضافة بنوك اخرى * متابعة رصيد البنوك * تصميم أبو أحمد * * برنامج الصندوق التعاوني * تصميم أبوإسراء* * تقويـــــم على الأكسيل * تصميم أبن مسقط * * متابعة أرصدة البنوك * تصميم حسام * * نظم مصروفاتك المنزل مع هذا البرنامج * تصميم حسام * * برنامج المشتريات والمبيعات والمستودع* الإصدار الأول * تصميم حسام * * برنامج متابعة أرصدة البنوك ( الإصدار الثاني ) تصميم حسام نور * برنامج القروض الأصدار الأول تصميم حسام نور **بـرنـــــامج الأبــــــراج تصميم حسام نور** * برنامج المخازن تصميم m.hindawi* ** برنامج متابعة المراجعين ويدعم خاصية البحث تصميم حسام نور** برنامج متابعة المصروفات الجديد " الإصدار الثاني " تصميم حسام نور برنامج القروض الإصدار الثاني تصميم حسام نور برنامج إدارة العقارات * تأجير * تسديد * مصروفات * تقارير تصميم حسام نور Calculate_Your_Age تصميم علي السحيب جدول مساعدة لحفظ القرأن الكريم (برنامج جاهز) تصميم الرواحي برنامج لكسر الحماية بواسطه الرواحي Management task manager تصميم الرواحي برنامج برنامج المصطلحات الطبية ومعانيها على السحيب برنامج لحساب العمر مع تشغيل صوت خالد نور غرائب وعجائب الاكسل عمر الحسينى برنامج جاهز لمؤجرين السيارات احمدزمان برنامج المعلم برنامج جاهز برنامج الزكاة برنامج جاهز * تصميم حسام * شهادة الطالب برنامج جاهز كنترول مدرسة برنامج جاهز التقويم بعد التعديل برنامج جاهز برنامج الدورى السعودى برنامج جاهز برنامج دراسة القوى المؤثرة على السلاسل الزمنية برنامج جاهز طباعة تقرير الاجازة المرضية برنامج جاهز برنامج حساب كلفة الاتصال بالانترنيت برنامج جاهز قالب Loan Amortization برنامج جاهز كشف حساب مبسط برنامج جاهز برنامج استهلاك الاصول الثابتة برنامج جاهز برنامج لمتابعة الصيانة والنظافة لمدرسة برنامج جاهز دليل هاتف مبسط برنامج جاهز برنامج الشهادات وكشوف الدرجات برنامج جاهز برنامج مستخرجات مدرسية برنامج جاهز لحساب تلكفة الساعة فى نت كافية برنامج جاهز برنامج ميزان المراجعة للحسابات برنامج جاهز برنامج حساب اقساط القروض بالفوائد المتناقصة برنامج جاهز مثال تقسيم الطلاب فى مجموعات متجانسة برنامج جاهز جلب اسعار اخر يوم تداول فى سوق الاسهم السعودية برنامج جاهز تقويم المناسبات برنامج جاهز برنامج جديد لحساب العمر برنامج جاهز برنامج حساب العمر بالاكسل برنامج جاهز برنامج كنترول المدرسة برنامج جاهز برنامج ضبط المخزون والمبيعات برنامج جاهز برنامج مدرسى برنامج جاهز حساب العمر بالهجرى والميلادى برنامج جاهز ملف تدقيق حسابات برنامج جاهز هدية برنامج كنترول التعليم الاعدادى بمصر برنامج جاهز كسر الحماية برنامج جاهز برنامج مخازن فقط برنامج جاهز طلب تقويم ثنائى هجرى ميلادى برنامج جاهز الحوافز المصرية برنامج جاهز برنامج تنظيم الحمل والدورة الشهرية برنامج جاهز المرتبات المصرية برنامج جاهز تاريخ اليوم بالميلادى و الهجرى برنامج جاهز برنامج طباعة الشهادات المدرسية الاعدادية برنامج جاهز امساكية شهر رمضان برنامج جاهز برنامج طباعة الشهادات المدرسية للمرحلة الابتدائية برنامج جاهز اليومية الامريكية برنامج جاهز تعامل بسلاسة مع الاسهم السعودية برنامج جاهز تخطيط الميزانية برنامج جاهز تقويم جديد برنامج جاهز برنامج عن حساب العمر بالميلادى والهجرى برنامج جاهز برنامج الدورى الانجليزى برنامج جاهز برنامج دوريات برنامج جاهز برنامج قروض جديد برنامج جاهز القران الكريم مشكلا على الاكسيل برنامج جاهز برنامج حساب العمر بالتقويمين الميلادى والهجرى برنامج جاهز برنامج رائع للتحويل بين التاريخين الهجرى والميلادى برنامج جاهز برنامج حسابات برنامج جاهز برنامج محول التواريخ وبرنامج الاعمار والابراج والصفات برنامج جاهز برنامج حسابات مبسط برنامج جاهز مقياس الحمى برنامج جاهز برنامج حساب لثلاث عملات برنامج جاهز اول مشاركة واقبلوا هديتى المتواضعة برنامج جاهز برنامج الشيكات برنامج جاهز اخيرا برنامج الحضور والانصراف برنامج جاهز نتيجة لــ 178 عام قادم بداية 2007 عليك تجربتها برنامج جاهز احدى الطرق لحساب نسبة معدلات الخصم او الاضافة برنامج جاهز برنامج محاسبى برنامج جاهز برنامج خبور المحاسبى الاصدار الاول برنامج جاهز ادخل الرقم و اعرف اللون برنامج جاهز فـــسر حلمك على الاكسيل برنامج جاهز برنامج خبور المحاسبى الاصدار الثانى برنامج جاهز ساعة ستوب واتش برنامج جاهز هديتى نظام لحساب وصرف الرواتب والبدلات الشهرية برنامج جاهز بورصتى القاهرة والاسكندرية خلال فترة زمنية برنامج جاهز النموذج الخاص بالدمغة النسبية برنامج جاهز هذة لعبة ذكاء مصممة على الاكسل برنامج جاهز ملف مهم للمغتربين المشاركين بالسكن برنامج جاهز كنترول للصف الاول والثانى لمدرسة صناعية مجربة 100% برنامج جاهز برنامج خبور المحاسبى الاصدار الثالث برنامج جاهز برنامج المستودع ومراقبة المخزون برنامج جاهز ميزانية لمحاسبة شركات المقاولات برنامج جاهز برنامج محاسبة شركات المقاولات برنامج جاهز برنامج خبور المحاسبى برنامج جاهز الى جميع المحاسبين والمهتمين بالتحليل المالى برنامج جاهز البرنامج المحاسبى الشهيرQUICKBOOKS برنامج جاهز الميزانية العمومية برنامج جاهز الجرد فى المنشات التجارية برنامج جاهز المرتبات والاجور برنامج جاهز فكرة برنامج للقروض برنامج جاهز برنامج حسابات برنامج جاهز برنامج كامل للقروض برنامج جاهز ملف للمرتبات يحسب ضريبة المرتبات والتامينات الاجتماعية برنامج جاهز نموذج فاتورة متكامل بفورم بامكانية الطباعة برنامج جاهز برنامج مرتبات برنامج جاهز يومية الصندوق الالكترونية برنامج جاهز برنامج رواتب بشكل جديد برنامج جاهز برنامج محاسبى على الاكسل برنامج جاهز نموذج تحليل مدفوعات مصروفات وخلافة برنامج جاهز برنامج كشـف صـرف النقـديـة بالفئات المتاحـة برنامج جاهز برنامج حسابات البنوك * الجديد كلياً برنامج جاهز برنامج توافق الابراج فى اكسل برنامج جاهز توزيع كشوف ملاحظة الامتحانات برنامج جاهز برنامج محاسبة جاهز برنامج جاهز برنامج كاس العالم 2010 بالمعادلات برنامج جاهز برنامج الشهادات المدرسية للمرحلة الاساسية العليا فى فلسطينبرنامج جاهز برنامج جاهز ترحيل سند صرف قبض فاتورة قيود طلب عاجل برنامج جاهز يخص عمليات الاستثمار برنامج جاهز_يومية عملاء و موردين و كشف حساب بين تاريخين برنامج جاهز_يومية مبيعات مع التقرير برنامج جاهز لادارة مكتبه_ترتيب و فهرسة الكتب برنامج جاهز_سركى الصادر و الوارد للمكاتبات و الارشيف برنامج جاهز2_سركى الصادر و الوارد للمكاتبات و الارشيف مع الطباعة و الشرح برنامج جاهز3_سركى متكامل للصادر و الوارد للمكاتبات و الارشيف برنامج جاهز_تحويل صورة و نسخها الى خلايا اكسيل برنامج جاهز_طباعة الشيكات بعملات مختلفه برنامج جاهز_ تذكير بمواعيد انتهاء اوراقك الرسمية برنامج جاهز_ طباعة ايصالات PAYROLL_تلقائيا برنامج جاهز_سند قبض و صرف برنامج جاهز_يومية و كشف حساب بين تاريخين مع اختيار عملة الحساب برنامج جاهز_برنامج احتساب القيمة الحالية للمبالغ و خصم قطع الشيكات بطريقتين برنامج جاهز_برنامج قيود يومية بالترحيل الى يوميات الاستاذ مع عمل كشف حساب برنامج جاهز_بالكود نتائج الطلاب مع الفرز _الناجح و الراسب برنامج جاهز_برنامج حسابات مع صفحات الاستاذ و ارصدة البنوك برنامج جاهز_ لجدولة انشاء و سداد اقساط مجدولة و القروض و العهد برنامج جاهز لادارة مصروفاتك الشخصيه برنامج جاهز لتحويل التاريخ من ميلادى الى هجرى ,والعكس برنامج جاهز_طباعة شيكات بنك_التجارى الدولى_cib_اصدار دفاتر 2018_مع امكانية اضافة بنوك اخرى برنامج جاهز لادارة المصاريف الشخصية برنامج جاهز للمخازن والعملاء والموردين هديتى برنامج جاهز_طباعة شيكات بنك_التجارى الدولى_CIB_مع امكانية اضافة بنوك اخرى

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

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

هل القيمة تظهر في الحقل PreviuseBalnce ؟ اقصد في حقل : الرصيد السابق

تفضل أخي . تقويم-1.accdb

هنا يجب استخدام مشرط الجراح ارفق مثالا صغيرا

وعليكم السلام ورحمة الله.. تأكد من رفع الملف ثانية اخي ابراهيم

لا فرق .. نموذج او تقرير شرحي اعلاه ينطبق على الكل

ههههه الله يسعدك استاذ قاسم 🌹

بارك الله فيك

استخدم الدالة Round i هكذا : =Round([mytextNumber];2)

اللهم آمين يارب العالمين🌹 أخي طاهر هنا شرحت طريقة إرسال تقرير من الأكسس مباشرة : بارك الله فيك أخي أبو أمين 🙂 طريقة الإرسال التي ذكرتها هي نفس طريقة الإرسال الجماعي التي في البرنامج .. الأرقام مخزنة في الجدول ويرسل لها جميعها مرة واحدة .. والدالة التي أعطيتكم إياها هي الأداة التي يمكنك أن تبدع بها في كيفية إرسال الرسائل بآلاف الطرق والكيفيات المختلفة حسب كيفية عمل برنامجك الخاص.. 😉

السلام عليكم اختر التنسيق قياسي والمنازل العشرية 2

كده الموضوع اختلف

هل يتم دمج الحقلين في الاستعلام الذ قمت حضرتك بانشائهم في حقل واحد stage +step

تفضل هل هذا ما تريد Database22.accdb

ألغ هذا الجزء من الكود أخي محمد : 🙂

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

عمل رائع استاذ @Moosak...الله يبارك بعلمك ورزقك لكن بودي ان تفكر معي قليلا ..لان بصراحة يقل تركيزي في شهر رمضان .. كيف نرسل تقرير اوتقارير لشخص معين ؟هل نقوم بتحويل التقرير الى بي دي اف او صورة عادية ونحفضها في فولدر ومن بعد يتم ارسالها ؟ الموضوع يصبح ممل بالنسبة لليوزر

تفضل أخي . DateCodes.mdb

تفضل أخي . DateCodes.mdb

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

تم الحل =SUM(IFERROR(VALUE(SUBSTITUTE(E8:G8,"إذن","")),""),0)

For Excel 365, use the following formula in cell D11 (Clear the range first from D11 to D25) then put the formula =TEXT(FILTER(SEQUENCE(DAY(EOMONTH(K6,0)),,EOMONTH(K6,-1)+1,1),WEEKDAY(SEQUENCE(DAY(EOMONTH(K6,0)),,EOMONTH(K6,-1)+1,1),1)>=6),"ddd") In cell E11, use the formula =TEXT(FILTER(SEQUENCE(DAY(EOMONTH(K6,0)),,EOMONTH(K6,-1)+1,1),WEEKDAY(SEQUENCE(DAY(EOMONTH(K6,0)),,EOMONTH(K6,-1)+1,1),1)>=6),"dd/mm/yyyy") For older version of excel ------------------------------- In cell D11, use the formula =IF(MONTH($K$6-MOD(WEEKDAY($K$6,1)-6-IF(WEEKDAY(DATE(YEAR($K$6),MONTH($K$6),1),1)=7,1,0),7)+IF(WEEKDAY($K$6,1)<6,7,0)+7*(INT((ROW()-11)/2)))=MONTH($K$6),$K$6-MOD(WEEKDAY($K$6,1)-6-IF(WEEKDAY(DATE(YEAR($K$6),MONTH($K$6),1),1)=7,1,0),7)+IF(WEEKDAY($K$6,1)<6,7,0)+7*(INT((ROW()-11)/2)),"") In cell D12, use the formula =IFERROR(IF(MONTH(IF(WEEKDAY(E11)=6,E11+1,IF(WEEKDAY(E11)=7,E11+6,"")))>MONTH($K$6),"",IF(WEEKDAY(E11)=6,E11+1,IF(WEEKDAY(E11)=7,E11+6,""))),"") Select the cells D11 & D12 and drag them Do the same exactly for E11 & E12

:: إضـــــافـــة :: هذا هو الموديول الذي يمكنك نقله إلى برنامجك الخاص ومناداته باسم الدالة .. Option Compare Database Option Explicit Enum AttacmentsType Image = 1 Sticker = 2 Document = 3 End Enum #If VBA7 Or Win64 Then Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Declare PtrSafe Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As LongPtr) As LongPtr Public Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer #Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As Long) As Long Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer #End If Private Const VK_NUMLOCK = &H90 Public Sub SendToWhatsApp(txtPhone As String, txtMSG As String, Optional txtAttchmentPath As String = "", Optional AttachmentType As AttacmentsType = Image) '---------------------------------------(التحقق من اكتمال البيانات) If Len(txtMSG & "") = 0 Then MsgBox "يرجى كتابة الرسالة": Exit Sub If txtAttchmentPath <> "" Then If Len(Dir(txtAttchmentPath, vbDirectory)) = 0 Then MsgBox "المرفق غير موجود .. تأكد من الرابط": Exit Sub End If txtMSG = Replace(txtMSG, vbCrLf, " %0a ") txtMSG = Replace(txtMSG, Chr(10), " %0a ") txtMSG = Replace(txtMSG, Chr(13), " %0a ") '---------------------------------------(بداية الإرسال) Dim Path As String Path = "whatsapp://send?phone=" & txtPhone & "&text=" & txtMSG CreateObject("Shell.Application").Namespace(0).ParseName(Path).InvokeVerb "Open" ' إرسال الرسالة Sleep 2000 SendKeys "~" Sleep 500 SendKeys "~" ' إرسال المرفق إن وجد If txtAttchmentPath <> "" Then SendKeys "+{TAB}" SendKeys "~" Sleep 1000 Select Case AttachmentType Case Is = 1 ' صورة SendKeys "{UP}" ' لإرسال الصور ' SendKeys "{UP}" ' لإرسال الملصقات ' SendKeys "{UP}" ' لفتح الكاميرة ' SendKeys "{UP}" ' لإرسال مستند ' SendKeys "{UP}" ' لإرسال جهة إتصال Case Is = 2 ' ملصق SendKeys "{UP}" ' لإرسال الصور SendKeys "{UP}" ' لإرسال الملصقات ' SendKeys "{UP}" ' لفتح الكاميرة ' SendKeys "{UP}" ' لإرسال مستند ' SendKeys "{UP}" ' لإرسال جهة إتصال Case Is = 3 ' مستند SendKeys "{UP}" ' لإرسال الصور SendKeys "{UP}" ' لإرسال الملصقات SendKeys "{UP}" ' لفتح الكاميرة SendKeys "{UP}" ' لإرسال مستند ' SendKeys "{UP}" ' لإرسال جهة إتصال End Select SendKeys "~" Sleep 1000 SendKeys txtAttchmentPath, True SendKeys "~" Sleep 2000 SendKeys "~" Sleep 1000 SendKeys "~" End If 'If NumLock is off, turn it on If GetKeyState(VK_NUMLOCK) = 0 Then 'Send NumLock key press to turn it on SendKeys "{NUMLOCK}" End If '---------------------------------------( إعادة التركيز لبرنامج الأكسس) SetForegroundWindow Application.hWndAccessApp ' MsgBox " تم الإرســــــال ", vbMsgBoxRight, "" End Sub وهكذا تنادي الدالة : SendToWhatsApp "96899445566", "السلام عليكم", "C:\Users\User\Desktop\123.jpg", Image

Suppose the cells are B1 & B2 for the year and the month, try the following code in worksheet change event Private Sub Worksheet_Change(ByVal Target As Range) Const FirstRow As Long = 4, FirstColumn As Long = 3, numColumns As Long = 366, sColTarget As String = "C:ND" Dim results(1 To 2, 1 To numColumns), yearValue As Long, currentDate As Date, lastDate As Date, i As Long, selectedMonth As Long, col As Long If Target.Address = "$B$1" Then If Target.Value = Empty Then Columns(sColTarget).Rows(FirstRow & ":" & FirstRow + 1).ClearContents: GoTo Skipper On Error Resume Next yearValue = CInt(Target.Value) On Error GoTo 0 If IsDate("01/01/" & yearValue) Then currentDate = DateSerial(yearValue, 1, 1) lastDate = DateSerial(yearValue + 1, 1, 1) - 1 i = 0 While currentDate <= lastDate i = i + 1 results(1, i) = Format(currentDate, "ddd") results(2, i) = Format(currentDate, "yyyy-mm-dd") currentDate = currentDate + 1 Wend Application.EnableEvents = False Application.ScreenUpdating = False Range(Cells(FirstRow, FirstColumn), Cells(FirstRow + 1, FirstColumn + i - 1)).Value = results Application.ScreenUpdating = True Application.EnableEvents = True Else MsgBox "Please Enter Valid Year", vbExclamation End If ElseIf Target.Address = "$B$2" Then If Target.Value = Empty Then GoTo Skipper On Error Resume Next selectedMonth = Left(Target.Value, InStr(Target.Value, ".") - 1) On Error GoTo 0 If selectedMonth <> 0 Then Application.EnableEvents = False Application.ScreenUpdating = False Columns(sColTarget).Hidden = True For col = FirstColumn To numColumns + (FirstColumn - 1) If IsDate(Cells(FirstRow + 1, col).Value) Then If Month(Cells(FirstRow + 1, col).Value) = selectedMonth Then Cells(FirstRow + 1, col).EntireColumn.Hidden = False End If Next col Application.ScreenUpdating = True Application.EnableEvents = True End If End If Exit Sub Skipper: Application.EnableEvents = False Columns(sColTarget).Hidden = False Application.EnableEvents = True End Sub

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

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

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

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