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

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

فقط نغير الجدول المصدر باسم الاستعلام نفسه ليصبح الكود my_outo_num: DCount("code";"HB_Q";"code <=" & [code]) والمثال اضطررت لنقله الى جهاز آخر للتعديل عليه Lab 2019.rar

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

طلب الي أحد الأصدقاء ان أقوم بإدراج التاريخ 29 شباط في كل السنوات الكبيسة المحددة بين عامين فكان هذا الملف (ربما يكون في ذلك إفادة للبعض) Leap years.xlsx

_________________________.rarامساكية ذكية بالاكسيل تأكد من ان ساعة وتاريخ جهازك مضبوط سبحان الله وبحمده سبحان الله العظيم سبحان الله وبحمده سبحان الله العظيم سبحان الله وبحمده سبحان الله العظيم نسأكم الدعاء Megonil

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

هل يستطيع احد مساعدتى اليوم؟؟؟ SYNC&Alkhadam1.rar

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

السلام عليكم ...........ممكن تضيف السطر ده فى حدث الدبل كليك للتكست بوكس 6 و 11 و 16 و UserFor_cm.Tag = "Tex6" حسب انت باعت استعاء للفورم من اي تكست بوكس Private Sub Tex6_DblClick(ByVal Cancel As MSForms.ReturnBoolean) UserFor_cm.Tag = "Tex6" UserFor_cm.Show End Sub Private Sub Tex11_DblClick(ByVal Cancel As MSForms.ReturnBoolean) UserFor_cm.Tag = "Tex11" UserFor_cm.Show End Sub كدة سجلنا الرسالة جاية منين ونرجع الناتج للتكست بوكس مصدر الرسالة بتعديل السطر ده فى زر اضافة UserForm2.Controls(UserFor_cm.Tag) = UserFor_cm.TextBox1.Value Private Sub Button1_Click() Application.ScreenUpdating = False With CM_ListFind CM_TextFind.Text = .List(.ListIndex, 1) End With UserForm2.Controls(UserFor_cm.Tag) = UserFor_cm.TextBox1.Value Application.ScreenUpdating = True End Sub وبكدة ترجع النتيجة الى المكان اللى انت باعت منه استدعاء الفورم

ممكن شرح الطريقة الت تقوم من خلالها بالبحث داخل النموذج ::بالتوفيق::

اوافقك الرأي تماما استاذي ومعلمي

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

تم تغيير عنوان المشاركة

و فيك بارك الله

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

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

my_outo_num: DCount("ID";"tbl1";"ID <=" & [ID]) باعتبار tbl1 هو الجدول مصدر الاستعلام

التغيير يكون هنا : Public Sub circl(Rpt As Report, TxtCtrl As Control, TxtDegree As Double) الكلمة في آخر الجملة Double اي ان المتغير رقمي مزدوج بدلا من Integer عدد صحيح طويل ايضا تم التعديل في تنسيق حقل الدرجة في التقرير كي يظهر الكسر .. انظر المثال وضع_دائرة_على_رقمUP2.rar

جزاك الله كل خير أستاذى صالح حمادي

فضلا اخي الكريم افتح لكل موضوع سؤالا جديدا يخصه

السلام عليكم ورحمة الله حسب تصويري السابق لحطة العمل أرجو أن يحوز المرفق على رضاك Error In Import.zip

Dim dbs dbs = Shell("EXCEL.EXE", vbMaximizedFocus) End Sub

الحمد لله فلقد توصلت الي الحل وهو اضافة كود في حدث عدم وجود بيانات وهو DoCmd.CancelEvent وفي زر امر الطباعة لا اضيف شي بل سوف احذف Err_Command31_Click: يتم حذف هذا السطر فقط ----> MsgBox Err.Description Resume Exit_Command31_Click فلن تظهر رسالة وبذالك استطيع اضافة طباعة اي كمية تقارير بزر واحد وبالطبع لن يطبع التقارير التي لا يوجد بها بيانات ولن تظهر رسالة خطأ وشكرا

السلام عليكم راجع هذا الموضوع أخي