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

. . جعفر

. . يا طويل العمر : لما النموذج يكون مفتوح ، فتقدر ترسل قيمة الحقول me.GE و me.SX الى الكود لفتح التقرير بمعيار ، ولكن ، لما تغلق النموذج ، فلا توجد قيم للحقول me.GE و me.SX ، وعليه ، لا تستطيع استعمالهم في المعيار لفتح التقرير. جعفر

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

هذا الروابط بتفيدك . . . جعفر

السلام عليكم 🙂 عمل جميل اخوي موسى 🙂 والكاسبريكاي ما اعترض على شيء 🙂 جعفر

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

لا.. يمكنك تغيير اسم النموذج إلا إذا كان مغلقاً.. استخدم عوضاً عن ذلك Screen.ActiveForm

تفضل ... اكتب الكود المطلوب ثم دبل كلك على مربع النص وانظر ..... test (13).accdb

السلام عليكم ورحمة الله وبركاته حياك الله اخي الكريم في بداية يجب عليك اعتماد قواعد المحاسبة في اعداد برنامج محاسبي لتستطيع الوصول الى ما تريده في التقارير يجب عليك اعداد جدولين لسند القيد بحيث عندما تقوم باي عملية يقوم البرنامج بكتابة القيد المحاسبي المزدوج تلقائيا ، ومن ثم من جدولي سند القيد تستطيع استخراج التقرير الذي طلبته اسمح لي ان اقدم لك بعض النصائح التي سوف تحصل على افضل مساعدة من خلالها في المنتدى 1- لا تقوم باخفاء نوافذ اكسس قبل ارسال المرفق 2- لا تضع كلمة مرور للبرنامج عند الفتح حتى تضع اسم المستخدم وكلمة المرور في المنتدى 3- عندما ارفقت الصورة لم يظهر اسم التقرير الذي تريد التعديل عليه ، وعندما فتحت المرفق وجدت الكثير من التقارير و لم اعرف اي تقرير تريد التعديل عليه (لا تشتت من سيجيبك بين كائنات المرفق) 4- الكائنات الغير مرتبطة في سؤال يفضل عدم رفعها او اخفاؤها

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

كذاك تبغاه الأخ سعيد ؟ 🙂 مدة عمل الموظف.rar

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

تفضل <><><><><> On Error Resume Next DoCmd.OpenReport "R1", acViewReport, , "[المؤهل]=" & Me.HA & " and [النوع]=" & Me.SI DoCmd.Close acForm, Me.Name

أوقات الصلاة

وعليكم السلام 🙂 احفظ البرنامج في مجلد موثوق به ، وافتحه من هناك 🙂 وهذه طرق اخرى لحل المشكلة: https://www.devhut.net/bypassing-microsofts-new-blocking-of-macros-vba-code/ جعفر

السلام عليكم ورحمه الله وبركاته اتفضل اخى الفاضل @مدحت توفيق بالتوفيق 29_1.accdb

ما رأيك اعمل لك نموذج واحد واستعلام واحد لجميع ازرار الرصيد السابق ؟ لانك الآن تستخدم ثلاث نماذج وثلاث استعلامات

المشكلة في المعايير في الاستعلام الخطأ في استعلامك : 1- لم تضع معيار لتصفية (اصغر من) من تاريخ 2- وجود معيار تصفية من تاريخ الى تاريخ وهذا لا معنى له لاننا نريد جميع التواريخ السابقة علما انه يمكنك التصفية حسب السنة المالية او اتركها خالية ليظهر الجميع T3Q -5.rar

شكرا لك من أعماق قلبي @المشرفيوممكن تشرح الطريقة😍

اخى الفاضل @المشرفي لابد من اختيار نوع التحويل المطلوب ان كان من هجرى الى ميلادى او العكس لكي يظهر الايام والشهر والسنه عندما لا يتم اختيار نوع التحويل تظهر فارغه

وعليكم السلام أخي athal1 🙂 عدل سطر الفلتر إلى هذا : Me.Form.Filter = " [ItemName] LIKE '*" & filter_data & "*' And [InvoiceDate] BETWEEN #" & Me.Text1 & "# AND #" & Me.Text2 & "#" هنا :

أشكرك كثير استاذ وأشكر كذلك كل الاساتذة الذين ساهموا بمشاركاتتهم في هذا الموضوع صحيح هو المطلوب

wor1.xlsm

الاخ العزيز ابوخليل جزاك الله خير الجزاء ان ماتفضلت به هو المطلوب فشكرا لك ولكل من تفضل بالمساهمة

انا عدلته لك في المثال المرفق كان سبب عدم ظهوره هو المعيار الموجود في السنة المالية ، بينما الاستعلامين الآخرين غير موجود T3Q -4.accdb

أحسنت استاذى الكريم وبارك الله فى جهودكم

أخي الكريم تم عمل المطلوب باستخدام تنسيق الخلايا أرجو أن يفيدكم نسألكم الدعاء لنا قائمة.xlsx

السلام عليكم مشاركة مع اساتذتى العظماء هذه افكارى المتواضعة هذه الاكواد داخل موديول Public clnfrmName As New Collection Public frm As Form Public intCounterOpenForm As Integer Dim xPos As Integer Dim yPos As Integer Dim lngCount As Long Dim lngI As Long Function OpenAForm() Set frm = New Form_frmInvoice frm.Visible = True intCounterOpenForm = intCounterOpenForm + 1 frm.Caption = frm.Name & "(" & intCounterOpenForm & ")" clnfrmName.Add Item:=frm, Key:=CStr(frm.Name & "(" & intCounterOpenForm & ")") xPos = xPos + 300 yPos = yPos + 300 frm.Move xPos, yPos Set frm = Nothing End Function Function CloseAllForm() lngCount = clnfrmName.Count For lngI = 1 To lngCount clnfrmName.Remove 1 Next intCounterOpenForm = 0 xPos = 0 yPos = 0 End Function كنت اتمنى تطوير اخراج الفكرة بشكل عملى اكثر حتى لا يرتبط الكود باسم النموذج على ان يكون كود مرن ويتم استدعاءه بالشكل التالى OpenAForm("اسم النموذج المراد فتحه اكثر من مرة") ولكن عجزت بصراحة فى هذا السطر Set frm = New Form_frmInvoice Open Form more than once.accdb

وعليكم السلام 🙂 تفضل : . . جعفر

اعذرني مش قادر افهم طلبك تعديل ايه انت عاوزه ؟

تفضل استاذ منير طبعاً بعد اذن استاذنا الكبير ابراهيم .. فالكود يعمل بكل كفاءة وان حدث اى مشكلة معك فبسببك انت لأنك لم تضع الكود كما يجب ان يكون بالملف وشوف بنفسك حتى يتم اغلاق المشاركة Private Sub CommandButton1_Click() arr = Array("B5", "C5", "F5", "C8", "E9", "G10") tmp = Array(TextBox1.Value, TextBox4.Value, TextBox3.Value, _ TextBox2.Value, TextBox5.Value, TextBox6.Value) For i = LBound(arr) To UBound(arr) Range(arr(i)) = tmp(i) Next For Each Ctrl In Me.Controls If TypeName(Ctrl) = "TextBox" Then Ctrl.Value = "" End If Next Ctrl End Sub ترحيل إلى خانات متفرقة.xlsb

تفضل لك ما طلبت العملاء.xlsm

تفضل وأكثر مما تريد فورم ادخال وتعديل وحذف.xlsm

وعليكم السلام-جرب هذا =IF(INT(C2)<>C2,C2+1.5,C2) 1اضافة عدد للكسر.xlsx

أكرمك الله استاذ مجدى وأحسن الله اليك

بارك الله فيك استاذ مجدى وزادك الله من فضله

احسنت أستاذ مجدى بارك الله فيك

بارك الله فيك استاذ مجدى وزادك الله من فضله

أحسنت استاذ مجدى بارك الله فيك

أحسنت استاذ مجدى كل عام وأنتم بخير

أحسنت استاذ مجدى بارك الله فيك

جزاك الله خير الثواب استاذ مجدى

بارك الله فيك استاذ مجدى وزادك الله من فضله

بارك الله فيك وكل عام وانتم بخير

وعليكم السلام -يمكنك ذلك بجعل التنسيق هكذا [$-,2000000]0.00_);[Red](0.00) TEST1.xlsx

يمكنك ذلك بهذه المعادلة =COUNTIFS($C:$C,J5,B:B,"<>"&"") Book2.xlsx

جزاك الله خير الثواب استاذ مجدى

أحسنت استاذ مجدى بارك الله فيك

أحسنت استاذ موسى عمل ممتاز جعله الله فى ميزان حسناتك