SEMO.Pa3x

اهلا عزيزي، كلامك غير مترابط هل يمكن للأكسس أن يجلب البيانات من ملف اكسس واحدد له ملف اكسل ويجلب كل البيانات هل تريد الاكسس ان يقرأ الأكسل؟ ام الأكسس يقرأ الأكسس

أو يمكنك استعمال: Private Sub cmdClose_Click() Forms!frmaccount!subform.SubdatasheetExpanded = False End Sub Private Sub cmdOpen_Click() Forms!frmaccount!subform.SubdatasheetExpanded = True End Sub من خلال تغيير الخاصية SubdatasheetExpanded المسؤولة عن فتح وطي السجلات برمجياً

عليكم السلام.. 'طي جميع السجلات RunCommand acCmdSubdatasheetCollapseAll 'فتح جميع السجلات RunCommand acCmdSubdatasheetExpandAll

هل هذا المطلوب؟ Dim Result As Long Result = Val(Text1) * Val(Text2) / 100 MsgBox Result الطريقة بإختصار: عملية ضرب سعر المادة الذي هو 23000 X النسبة المئوية 85 ثم تقسم الناتج على 100 موقع يعطي هذه الخدمة لكي تتأكد من ان الناتج صح https://percentagecalculator.net

شكرا للملاحظات

بانتظارك اخي الكريم، وسعيد بتجربتك لبرنامجي

اهلا عزيزي، بالنسبة لملاحظاتك. 1- من الأفضل جعل جدول التسديد جدول مستقل عن الفواتير، ثم انني قمت بربطه بجدول الحركات لذلك لا مشكلة في ذلك ابداً. 2- بالنسبة لرقم الفاتورة فقط في فاتورة الشراء يكون رقم غير اساسي يعني ان كتبته او لا ليس ذا تأثير كبير ولا اهمية قصوى اما فواتير البيع فأنها لا تحتوي على رقم يُكتب انما رقمها هو Auto_ID 3- في طريقتي هنا فضلت فصل الجدولين عن بعض الموردين والعملاء لان الربط سيكون بجدول واحد وأيضا قد ظهرت لي بعض المشاكل لذلك قمت بفصلهم همسة ( حيالله أهل البصرة ) ❤️

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

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

للأسف لا املك نسخة 2007 اخي العزيز محمد، انت تتعامل مع رأس وذيل فاتورة بحسب معرفتي لا يمكن ملئ بيانات الذيل بدون الرأس وإلا كيف سيتم الرابط بالـ Auto_ID 1- ممكن توضيح أكثر ماذا تقصد بخزينة 2- ممكن توضيح 3- قمت بعملها سأقوم بعملها ( عدة مخازن ، ونقل بين المخازن ) 4- يوجد احصائية بالأرصدة ( اسم الزر تفاصيل المخزن ) وضحلي كيف يعني ميزانية ربع وعامة 5- ممكن توضيح

1- سأقوم بأضافة سعر الشراء، ويتحدث في كل مرة تقوم بشراء هذا الصنف. 2, 3 - وضحلي أكثر. 4- بخصوص الجرد ايضا سأقوم باضافته، ماذا تقترح ان يكون؟ بيع , شراء , تسديد ، .. الخ بين تاريخين 5- اكون لك من الشاكرين، ابلغ سلامي للوالد.

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

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

السلام عليكم.. في البداية شكرا لكل من قام بالرد على موضوعي السابق في وقتنا الحاضر ارى ان اغلب البرامج في السوق هي من هذا النوع وللأسف لم اجد التفاعل الكبير معها، خصوصا في موضوعي في الأعلى عموما، قمت ببرمجة برنامج صغير لإدارة المخزن، وانتضر منكم التجربة للوقوع على الأخطاء ومحاولة تصحيحها علماً، ان النسخة مؤقتة وسوف تُغلق بعد تصحيح الأخطاء. باسورد فتح البرنامج = 313 تحياتي للجميع. store_manager.rar

تم حل الموضوع للأخ عبدالله قدور. الكود لمن يريده: Option Compare Database Private Type CHOOSECOLOR lStructSize As LongPtr hwndOwner As LongPtr hInstance As LongPtr rgbResult As LongPtr lpCustColors As String flags As LongPtr lCustData As LongPtr lpfnHook As LongPtr lpTemplateName As String End Type Private Declare PtrSafe Function ChooseColorAPI Lib "comdlg32.dll" Alias _ "ChooseColorA" (pChoosecolor As CHOOSECOLOR) As LongPtr Dim CustomColors() As Byte Private Sub cmdS_Click() Dim cc As CHOOSECOLOR Dim Custcolor(16) As LongPtr Dim lReturn As LongPtr cc.lStructSize = LenB(cc) cc.hwndOwner = Application.hWndAccessApp cc.hInstance = 0 cc.lpCustColors = StrConv(CustomColors, vbUnicode) cc.flags = 0 lReturn = ChooseColorAPI(cc) If lReturn <> 0 Then CustomColors = StrConv(cc.lpCustColors, vbFromUnicode) MsgBox cc.rgbResult Else MsgBox "User chose the Cancel Button" End If End Sub Private Sub Form_Load() ReDim CustomColors(0 To 16 * 4 - 1) As Byte Dim i As Integer For i = LBound(CustomColors) To UBound(CustomColors) CustomColors(i) = 0 Next i End Sub

حياك الله وبياك يامُعلم، اشتقت لتواجدك في مواضيعي المتواضعة

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

كـ بداية أولى: tbl_Category: جدول التصنيف، وفيه يذكر صنف المادة مثلا ( أجهزة كهربائية، مفروشات.. الخ ) ويتضمن الاعمدة التالية: * معرف التصنيف * اسم التصنيف tbl_Product: جدول الاصناف، وفيه يذكر تفاصيل المواد مثلا ( ثلاجة، مدفئة.. الخ ) ويتضمن الاعمدة التالية: * معرف الصنف * معرف التصنيف * اسم الصنف * رصيد أولي للصنف tbl_Customer: جدول العملاء، وفيه يذكر تفاصيل العملاء مثلا ( الاسم، العنوان.. الخ ) ويتضمن الاعمدة التالية: * معرف العميل * اسم العميل * الموبايل * العنوان tbl_Supplier: جدول الموردين، وفيه يذكر تفاصيل الموردين مثلا ( الاسم، العنوان.. الخ ) ويتضمن الاعمدة التالية: * معرف المورد * اسم المورد * الموبايل * العنوان tbl_Movement: جدول الحركات، وفيه يذكر اسماء الحركات مثلا ( مشتريات، مبيعات، مرتجع مشتريات، مرتجع مبيعات.. الخ ) ويتضمن الاعمدة التالية: * معرف الحركة * اسم الحركة tbl_Invoice: جدول رأس الفاتورة، وفيه يذكر تفاصيل الفاتورة ويتضمن الاعمدة التالية: * معرف الفاتورة * معرف الحركة ( بيع, شراء .. الخ ) * طريقة الدفع ( نقدي، اجل ) * نوع العملة ( دينار, دولار ) * معرف العميل ( في حال كانت الفاتورة مبيعات أو مرتجع مبيعات ) * معرف المورد ( في حال كانت الفاتورة مشتريات او مرتجع مشتريات ) tbl_Invoice_Sub: جدول ذيل الفاتورة، وفيه يذكر تفاصيل ذيل الفاتورة مثلا ( الكمية , السعر .. الخ) ويتضمن الاعمدة التالية: * معرف رأس الفاتورة * معرف العميل * معرف المورد * معرف الصنف * الكمية ( المباعة او المشتراة أو المسترجعة ) * السعر ( للصنف ) * السعر الاجمالي ( حقل محسوب ضرب الكمية * السعر ) والعلاقات كما واضحة امامكم.. الان انتضر رأيكم هل عملي في السليم، ام خطأ ؟ @jjafferr 🥺

حياك الله اخوي، ابو خليل شاكر لك تواجدك هنا وردك. طيب بغض النضر عن الامور المحاسبية، انا بحاجة لتحليل نظم هذا البرنامج الموجود في الفيديو هل بالامكان ذلك؟ عليكم السلام ورحمة الله وبركاته، حياك الله اخوي شاكر تواجدك ومعلوماتك القيمة. لكن هناك الكثير من علامات الاستفاهم لكثير من المفاهيم التي ذكرتها. هل من الممكن تفصيل اكثر لشرحك! مثلا جدول المواد: اسم المادة كمية المادة وصف المادة ...الخ وهكذا لبقية الجداول

ما المقصود بتقسيم ملف pdf ؟ مالذي تريديه بالضبط ممكن شرح اكثر.

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

احسنت استاذ رمهان، وعذراً لتأخري عليك في الرد، كودك شغال 100% ومبسط جدا.

موضوع فارغ! اخي الكريم الرجاء منك قراءة شروط وقوانين القسم قبل كتابة موضوع. https://www.officena.net/Tips/Questions.htm

مرحبا بك اخي في قائمة الخبراء. بالتوفيق لك. مبادرة جميلة منك مُعلمي @jjafferr

السلام عليكم ورحمة الله وبركاته.. اليوم سأشرح لكم الدالة StrConv ولأي الامور تستخدم. الدالة حصرا تتعامل مع النصوص ( String ) ووضيفتها التحويل بين الاحرف الانجليزية ( كبير , صغير ) الدالة تأخذ 3 براميترات: البراميتر القيمة الوصف vbUpperCase 1 تحويل جميع الحروف الى حروف كبيرة vbLowerCase 2 تحويل جميع الحروف الى حروف صغيرة vbProperCase 3 تحويل الحرف الاول من كل كلمة الى كبير وباقي حروف الكلمة الى حروف صغيرة vbUnicode 64 تحويل النص الى سلسلة الـ UNICODE vbFromUnicode 128 تحويل النص من سلسلة UNICODE الى تنسيقات اخرى مثال: StrConv ("officena semo pa3x", 1) Result: "OFFICENA SEMO PA3X" StrConv ("OFFICENA SEMO PA3X", 2) Result: "officena semo pa3x" StrConv ("OFFICENA SEMO PA3X", 3) Result: "Officena Semo Pa3x" الاستخدام في الاستعلام يكون: الاستخدام في داخل محرر الـ VBA يكون: StrConv([CategoryName],3) تحياتي للجميع.. SEMO.Pa3x