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

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

تفضل ....... Data.rar

هذه المغادلة =CHOOSE((COUNTIF($F$1:$F$285,$K$6)<>0)+1,FALSE,TRUE)

السلام عليكم ورحمة الله وبركاته 🙂 عندما يكون برنامج الاكسس يعمل ، وفجأة بدأ بإعطاء رسائل خطأ وبدون اي تعديل في البرنامج ، او عند عمل تعديل على البرنامج يُغلق الاكسس: . طريقة العمل: سيفتح البرنامج ، ويجب عليك غلقه ، الى ان لا يفتح تلقائيا مرة اخرى. ولكن ، يجب دائما اخذ الاحتياط وعمل نسخة من البرنامج قبل عمل هذه الخطوات. اقدم لكم شرح بسيط عن الموضوع: في الكثير من الاوقات ، لما نعمل الكود ، نقوم بتعديل وتغيير وتضبيط الكود عدة مرات ، ولكن الاكسس في بعض الاحيان يبقى محتفظ بالكود القديم في ذاكرته !! لذلك : 1. اثناء البرمجة ، وبشكل يومي اقوم بتشغيل هذا الملف المرفق ، 2. وقبل تسليم البرنامج الى الزبون ، اقوم بتشغيل الملف للمرة الاخيرة ، واجهز البرنامج لتسليمه الى الزبون وهذا هو الكود المعدل عن النسخة السابقة: Private Sub cmd_Decompile_Click() Dim MSAccPath As String Dim RegKey As String Dim WSHShell 'As Object Dim waitOnReturn As Boolean: waitOnReturn = True ' Get MSACCESS.exe directory from the Registry RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\" & _ "CurrentVersion\App Paths\MSACCESS.EXE\Path" Set WSHShell = CreateObject("WScript.Shell") ' Get parent directory MSAccPath = WSHShell.RegRead(RegKey) ' Decompile WSHShell.Run Chr(34) & MSAccPath & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & Me.str_File_Single & Chr(34) & " /decompile", , waitOnReturn ' compact WSHShell.Run Chr(34) & MSAccPath & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & Me.str_File_Single & Chr(34) & " /compact", , waitOnReturn ' cmd compile WSHShell.Run Chr(34) & MSAccPath & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & Me.str_File_Single & Chr(34) & " /cmd compile", , waitOnReturn ' compact WSHShell.Run Chr(34) & MSAccPath & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & Me.str_File_Single & Chr(34) & " /compact", , waitOnReturn ' Clear shell var Set WSHShell = Nothing End Sub جعفر Decompile_2.zip

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

السلام عليكم يمكن ضبط اعدادات الكمبوبكس ليحمل اكثر من قيمة كما بالصورة تحياتي

اضافة حقل ID في الستعلام ثم وضع دالة تالية في معيار ID DMax("[ID]","Table1","[Operation]='شراء'")

السلام عليكم ورحمة الله وبركاته مبدأيا - من الناحية المحاسبية: مقابلة المشتريات بالمبيعات - كما هو بمثالكم - ينتج عنه اجمالي أرباح أو اجمالي خسائر, وهذا الرقم حقيقة لا يعبر عن صافي الربح أو الخسارة بشكل صحيح حيث هناك نوعان من المصروفات يجب تحميلها بشكل مناسب لهذا الرقم ليتم التعبير الصحيح من الناحية المحاسبية عن صافي الربح أو الخسارة. أ- مصروفات بيعية: والتي يتم تحميلها لـ حـ/ المتاجرة ويتم اضافتها الي تكلفة الانتاج أو الشراء, مثل: تكاليف نقل البضائع - تكاليف الدعاية والاعلان ... ب- مصروفات النشاط: وهي كل الأعباء والتكاليف التي يتحملها المتجر في مقابل استمرار النشاط - كفواتير الكهرباء والمياه والمصروفات النثرية ومرتبات الموظفين والضرائب والديون المعدومة والمخصصات السنوية و .... والتي يتم تحميلها لـ حـ/ الأرباح والخسائر -- والذي بدوره سينتج لنا الرقم المنشود وهو صافي الربح أو صافي الخسارة ( والذي سيتم ترحيله الي حـ/ صاحب المنشأة - بالنسبة للمنشآت الصغيرة - لمقابلته بالمسحوبات واعباء صاحب المشأة) والآن : انتهت تلك المحاضرة السريعة بالمحاسبة, لننتقل للأكسس 😁 كما سلف بالتوضيح السابق للأسس العلمية لمعالجة الأرباح والخسائر يجب أن يتم مراعات ذلك عند اعداد الاستعلامات المطلوبة فأنت بحاجة لاعداد استعلام يستدعي لك قيمة بضاعة أول المدة - واستعلام يستدعي لك قيمة بضاعة آخر المدة - استعلام يستدعي لك قيمة المشتريات والمبيعات والمصروفات البيعية ثم دمج تلك الاستعلامات داخل التقرير المناسب لاعداد حـ\ المتاجرة وهكذا بالنسبة لـ حـ\ الأرباح والخسائر أرجو أن أكون قد أفدتك ولو بمعلومة صغيرة.

وعليكم السلام-وما الضرر من هذا فلابد دائما من نشر العلم ولو كتم احد الأساتذة العلم عنك ما وصل اليك ولكن تفضل هذا الرابط من داخل المنتدى ,فكان عليك لزاما استخدام خاصية البحث بالمنتدى هذا كود لإظهار نافذة تفعيل الماكرو مع تشغيل الملف

ميلاد طارق تمام اخي هجربها ولو في خطئ هرجعلك شكرا جزيلا علي ردك والمتابعه

لازم تقوم بتمكين وحده المايكرو ابحث باليوتيوب

ربي يسعدك ويرزقك دنيا واخره

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

اخى الفاضل واستاذى الجليل Abu Farid خالص الشكر لحضرتك تم حل المشكلة بفضل اللة وبمساعدتك شكراااااااااااااااااااااااااااااااااااااااااااا

وعليكم السلام-اهلا بك بالمنتدى- تفضل 1.xlsm

عند تشغيل الماكرو علي كمبيوتر تاني بيظهرلي في خطأ cannot run the macro Thae macromay دي الرساله الي بتظهر imgtopdf_generated_١٦٠١٢٠١٣٣٤٠٣٩.pdf

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة =SUMIFS($C:$C,$A:$A,$E2,$B:$B,$F2) المصنف2.xlsx

بارك الله فيك اخي الكريم اشكرك على مجهودك وتعبك

تفضل لقد قمت بتصميم صفحة html و أرفقتها مع المثال ضعهما في نفس المجلد و جرب مع العلم أنني ما زلت لم أضع درس الأحداث بعد Desktop.rar

اخ ابو العلاء لك مني ملف تشك بوكس هدية ضع به كود اخونا سليم حاصبيا هدية.rar

عمر الحسيني *** أبو تامر شكرا جدي اخي تسلك الله يباركلك ويجعله في ميزان حسناتك ميلاد طارق جزيل الشكر ليك ميلاد طارق

اسف جدا كثرة الملفات علي .... انظر المرفق الجديد ..... تم تعديل المرفق .....اسف مرة أخرى QR_code_-name.mdb

انت فك التقرير بتاعك وشوف ......

جرب المرفق في مشاركتي السابقة فقط غير في الاكواد رقم 2020 ب

لعمل حفظ مرتبط بمايكرو يجب حفظ الملف باسم وبعد ذلك اختر امتداد .xlsm لكي يعمل الملف ويتنفذ الكود

نعم ممكن ولكن في حالة كثرة السجلات مثل مثالك يحتاج وقت وايضا كفاءة جهاز الكمبيوتر ..... انظر المرفق هذا ما تريد تم تعديل المرفق .... Desktop1.rar

وعليكم السلام-فقط عليك استخدام هذه المعادلة =SUMIF($A:$A,$D2,$B:$B) اجمالي كمية بنفس التاريخ1.xlsx

جرب المرفق HCT Permit To Work System V.02 - Update _Normal + Red Zon - Copy.rar

حرب هذا الماكرو Option Explicit Sub get_my_studiants() Application.ScreenUpdating = False Dim A As Worksheet Dim B As Worksheet Set A = Sheets("ALL_STD") Set B = Sheets("B") Dim col%, r, x, LB LB = B.Cells(Rows.Count, "B").End(3).Row If LB < 5 Then LB = 5 B.Range("a5").Resize(LB - 4, 6).Clear Dim my_clas$: my_clas = B.Range("e2") Dim my_mad$: my_mad = B.Range("K2").Value If my_clas = "" Or my_mad = "" Then GoTo Exit_Sub col = A.Rows(1).Find(my_clas, lookat:=1).Column r = A.Columns(1).Find(my_mad, lookat:=1).Row x = Application.CountIf(A.Columns(1), my_mad) B.Range("b5").Resize(x).Value = _ A.Cells(r, 2).Resize(x).Value B.Range("c5").Resize(x, 3).Value = _ A.Cells(r, col).Resize(x, 3).Value With B.Range("A5").Resize(LB - 4, 6) .Columns(1).Formula = "=if(B5="""","""",max($A$4:a4)+1)" .Columns(1).Interior.ColorIndex = 6 .Borders.LineStyle = 1 .Columns(6).Formula = "=RANK(E5,$E$5:$E$29,0)+COUNTIF($E5:E$5,E5)" .Value = .Value .Font.Size = 26 .Font.Bold = True .InsertIndent 1 End With Exit_Sub: Application.ScreenUpdating = True End Sub الملف مرفق My_students.xlsm

تفضل تم تعديل الأكواد بناءا على تعليمات وتوجيهات الأستاذ ابراهيم برنامج الصادر والوارد تصميم 2020.xls

بارك الله فيك وزادك الله من فضله

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

الطريقة سهلة جداً إضافة مربع تسمية فوق التقرير الفرعي ومن ثم توجه إلى تبويب | ترتيب | حجم وترتيب | إحضار إلى المقدمة وبالتوفيق Database1.accdb

وعليكم السلام-تفضل لك ما طلبت Classeur4.xlsx