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

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

اسف نسیت ذلك تقدر تعمل فراغ في نهاية الكلام اللي بين " " في كلا اتجاهين اي سيكون "تم اعطاء للسيد" الى " تم اعطاء للسيد " او تستخدم اقواس اذا تريد مثل هذا MSGBOX (" تم اعطاء للسيد " & " ( " & ME.NAMEFORMIREBIA & " ) " & "اکتب صلاحیات" )

حسب فھمی لسؤالك اكتب هذا MSGBOX ("تم اعطاء للسيد" & ME.NAMEFORMIREBIA & "اکتب صلاحیات" ) وغير NAMEFORMIREBIA باسم مربع نصي خاص باسم المستخدم واذا ليس مطلبك هذا وضح اكثر مع القاعدة ... واذا تفتح موضوع جديد سيكون احسن لكي لا نغطي القوانين المنتدى تحياتي

نعم سيكون علامة صح امامه لكن اذا ضغطت على لا سيلغي علامة صح امامه

IF MSGBOX( " هل انت متأكد من اعطاء المستخدم هذا صلحيات الادارة" , VBYESNO ,"") = VBYES THEN ME.MIREBIA = TRUE ELSE ME.MIREBIA = FALSE ENDIF غیر MIREBIA باسم مربع جيك بوكس اللي عندك

تفضل أخي وجدت لك هذا SQl To VBA.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اليكم برنامج خبور المحاسبي المعدل الذي قمت فيه باجراء بعض التعديلات التي اثمرها لنا تجاوبكم معي في الاصدارين الاول والثاني وكانت الاراء تنصب اساسا في التالي : اولا- الدليل المحاسبي : عملته بالشكل التالي : جدول للدليل تضبط من خلالها السلسلة الرقمية لكل اختيار من الاسم في الدليل , مثلا لو اخترنا اصول ثابتة نضبط السلسلة الرقمية لها مثلا من الرقم 11 الى الرقم 99 والبرنامج بيتعامل مع هذه السلسلة في اضافة الحسابات لهذا الاسم للعلم ان لك حرية اختيار السلسلة الاسمية والرقمية فقط ان تكون في ترتيب متسلسل داخل جدول الدليل يعني ممكن تعمل اسمان لسلسلة واحدة مثلا اصول متحركة / صناديق من 1201 الى 1500 اصول متحركة / بنوك من 1501 الى 2000 واثناء اضافتك لاي حساب سيظهر لك قائمة الاسماء التي وضعتها في جدول الدليل لاختيار الصنف الذي تريده لترتيب حساباتك في ميزان المراجعة 2- نتيجة لهذه الاضافات حذفت قائمة العملاء والموردين الموجوده في الاصدارات السابقة واضافتهم ستكون في ميزان المراجعة (الذي اصبح مكون من 1000 سجل ) حسب التسلسل الذي ستضبطه في دليلك ممكن تعمل للعملاء سلسلة رقمية وللموردين سلسلة رقمية اخرى صفحة ميزان المراجعة: تعمل التالي : 1- هي المحتوى الكلي للحسابات تظهر من خلالة جميع الحسابات متسلسلة بالضابط الدليلي مجاميع وارصدة بالعملة الرئيسية وارصدة العملات الاخرى مع تعريف للحساب اذاكان مدين اودائن واسماء العملات المستخدمة لكل حساب ويظهر فيه فرق سعر العملات التلقائي قبل المجاميع الكلية 2- تتحول اثناء استخدامك للتصفية من عمود الدليل الى كشوفات تحليلية للحسابات حسب الصنف الدليلي المختار مثلا اذا اخترت اصول ثابتة تظهر لك الحسابات المشتملة على هذا الاسم مع المجاميع والارصدة الخاصة بها ويتحول الاسم من ميزان المراجعة الى كشف تحليلي لحساب الاصول الثابتة وهكذا بالنسبة لجميع الاصناف الدليلية 3- تتحول اثناء استخدامك للتصفية من عمود العملة الى كشف بحسابات العملة المختارة. ثانيا: بالنسبة للتعديلات وهي ملاحظة الاخ تويتي يمكنك تعديل القيد مثلا: اذا كان لديك القيد الاتي 50000 من حـ مصروفات نثرية 50000 الى حـ الصندوق يمكنك التعديل الى 15000 من حساب مصروفات نثرية 35000 من حـ مصروفات صيانه 50000الى حـ الصندوق والعكس وطبعا لديك صفحة القيود تتكون من 200 سجل يمكنك التعديل بدون اي مشاكل لعدد السجلات في اي قيد ممكن تعدل القيد المكون من 2 سجل الى 200 سجل والعكس وهو ياخذ الترتيب التلقائي حسب رقم القيد ويمكنك التأكد من ذلك بنسخ البيانات ( وهو زر جديد) لنسخ البيانات في ملف جديد ستلاحظ الترتيب التسلسلي لبياناتك حسب الترتيب التصاعدي للقيود اضافات جديدة : 1- لا يفتح البرنامج الا باسم المستخدم وكلمة المرور اسم المستخدم " خبور" كلمة المرور"بسم الله" يمكنك بعد ذلك تعديل اسم المستخدم وكلمة المرور من زر اسم المستخدم في صفحة الاعدادات ويمكنك تعديل كلمة المرور للتعديلات من نفس الزر كلمة المرور للتعديلات "بسم الله" 2- صفحة القيود هي الصفحة التي يتم فيها التعديل واصبحت صفحة دفتر الاستاذ صفحة للتنقل السهل من القوائم لجميع الحسابات في ميزان المراجعة واختيار تواريخ اختيارية من القوائم للكشوفات ارجو من الله تعالى ان ينال رضاكم فقط لا تنسونا من الدعاء ولا تنسونا من ملاحظاتكم اخوكم خبور __________________________.rar

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

If Me.mstagra = False Then IF MSGBOX("هل تريد ان تعمل عملية ترحيل لهذا السند" , VBYesNo , "تنبیه" ) = vbYes then Me.TERHEL = "منتھية" Else Me.TERHEL = "مستمرة" End If End If Me.Requery

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

لا النتيجة الصحيحة هو 3.30 وليس 3.25 والعملية كالتالي 468.20 * 0.07 = 32.774 32774 ÷ 10 = 3.2774 27.74 اقرب من 30 وليس اقرب من 25 على الرغم كل شي اذا تريد ان يكون النتيجة 3.25 راح نعمللك المطلوب باذن الله

الان شوف ھذا ترحيل 55 (1).rar

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

شكرا على المعلومة والشكر أيضا للاهتمام

اتفضل اليك هذا بطريقة اخرى ترحيل 55 (1).rar

Dim pass As Integer Dim massage As Integer pass = InputBox("ادخل رقم سري خاص لانشاء مستخدم جديد", "ادخل رقم سري") If pass = 1212 Then DoCmd.OpenForm "اسم النموذج" Else massage = MsgBox("کتبت رقم سري خطأ") End If

انا فقط غيرت في اسماء المربعات النصية مثلا بدل حرف Ė غیرت بحرف E القي نظرتا الى المسميات لكلا المرفق راح تعرف كل شيء تحياتي

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

إذا كنت لا تريد المسح قم بإزالة هذا السطر فقط sh.Range("A8:" & str & lr + 7).Clear أما إذا كان المطلوب غير ذلك فيرجى إرفاق ملف موضحاً فيه شكل النتائج المتوقعة

عملت لك جدول اخر للسندات منتهية المدة وعملت استعلامين الاول ترحيل والثاني حذف واستخدمت هذه الاكواد في نموذج فرعي Private Sub Form_Current() Me.Text62 = Me.رقم_السند End Sub Private Sub mstagra_Click() If Me.mstagra = False Then If MsgBox("ھل تريد ترحيل ھذا السند الى جدول سند عقد منتهية ؟", vbYesNo, "ترحيل") = vbYes Then DoCmd.SetWarnings False DoCmd.OpenQuery "terhil" DoCmd.OpenQuery "deletesened" DoCmd.SetWarnings True MsgBox "تم ترحيل" Else Me.mstagra = True End If End If Me.Requery End Sub واليك ملف بعد تعديل واذا هذا ليس يكون طلبك وضح لي بالتفصيل ترحيل 55 (1).rar

السلام عليكم نعم للإستفادة من جميع مميزات البرنامج يجب التوفر على إتصال جيد بالانترنت؛ لكن يوجد خيار للمستخدمين الذين لا يتوفرون على نت جيد هو Aliphia Box حيث يمكنك من الولوج إلى ألف ياء من دون انترنت https://aliphia.com/aliphia-box/

وعليكم السلام تفضل . وهذا هو الكود Private Sub cmd_Next_Page_Click() On Error Resume Next Me.TabCtl0.Value = Me.TabCtl0.Value + 1 End Sub Private Sub cmd_Previous_Page_Click() On Error Resume Next Me.TabCtl0.Value = Me.TabCtl0.Value - 1 End Sub Private Sub cmd_lock_bbb_Click() Me.TabCtl0.Pages("bbb").Enabled = False End Sub Private Sub cmd_unlock_bbb_Click() Me.TabCtl0.Pages("bbb").Enabled = True End Sub جعفر 716.Tapages.accdb.zip

تفضل برنامجي واضفت سطر في الكود لكي يتأكد من عدم وجود رقم تسلسلي في حقل النموذج جعفر 679.ترقيم جديد كل سنة جديدة وبجداول جديدة.accdb.zip

السلام عليك استاذ ياسر خليل اعذرني على الخربطة في الشرح. عند تجريبي الكود هذه النتيجة عندي. شكرا لك Classeur3+1.rar

برنامج حسابات ، اتمنى انه يفيد ولو شخص واحد برنامج محاسبى.rar

الاخ الحبيب جزاكم الله خيرا بس نصيحه من اخ اعمل على تطوير البرنامج اجعله نقطه انطلاقه وليس نقطه النهاية تقبل تحياتى

السلام عليكم تم عمل المجاميع لكل الحسابات وتعديل كود اسماء الشيتات في ورقة قائمة الاسماء وتم عمل المجاميع بين تاريخين للفواتير والسندات (لورقة واحدة حسب الاختيار) في ورقة حسابات - تقديرات شاهد المرفق 2003 برنامج الحسابات.rar

السلام عليكم تم عمل فورم لانشاء ورقة باسم الحساب يتضمن الاسم مع رقم الفرع علشان تكون التسمية والورقة على نسق واحد وتم عمل كود للترحيل شاهد المرفق 2010 الحسابات 1.rar

اخى الفاضل : جرب الملف فى المرفقات , اتمنى ان تجد به ضالتك وهو من اعمال الاستاذ خبور خير موردين ولا احلى.rar

أعتقد انني قمت بالترحيل كما ورد في الطلب ترحيل بيانات.rar

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

الملف جميل لكن لو تحاول تعمله بالاكواد يكون اخف لان المعادالات حتخلى المف يكون ثقيل مع حجم البيانات الكبيرة وربنا يوفقك لما فيه الخير

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اهديكم ما وعدتكم به الاصدار الثاني من برنامج خبور المحاسبي عملة رئيسية وعشر عملات فرعية مع حساب فروقات سعر عملة تلقائي ======================= في المرفق مثال عملي على مصداقية عمل البرنامج ولهذا اقدم اليكم الآن البرنامج من جديد مع بعض الاضافات الجديدة مع مثال عملي يتكون من اكثر من 10000 سجل لقاعدة البيانات حسابات كشف العملاء اكثر من 200 عميل ومورد حسابات الميزانية 24 حساب يمكنكم التجربة عمليا في الآتي: 1-استخراج اي قيد وقم بالتعديل عليه لاحظ سرعة القيام بالتعديل مع وجود اكثر من 10000 سجل استخرج القيد لترى ان تمت فيه التعديلات ام لا 2- قم بتغيير اسعار العملات في صفحة الاعدادات وانتقل الى كشف العملاء والموردين ثم ميزان المراجعة سترى ان الفروقات قد تمت تلقائيا 3-افتح قاعدة البيانات واعمل خلل في صحة الميزان ( لانه لايمكنك عمل ذلك من خلال التعديلات لان القيد لايترحل الا ان كان متوازنا) سترى ظهور الخلل في ميزان المراجعة ولن يدخل هذا الخلل في فروقات اسعار العملات وهناك الكثير من الملاحظات التي لن تروها الا بالتجربة العملية ولهذا قمت بعمل هذا المثال ( هي قيود غير حقيقه لانها مكرره ولكن من اجل من اراد ان يعمل بالبرنامج وهذا الذي اريده ان يثق في مصداقية هذا العمل ) هذا الذي كان في قلبي واردت ان اوصله اليكم وقد بذلت في هذا البرنامج كل ما استطيعه حسب ما اعطانا الله من علم وقدرة ولله الحمد ولا اريدكم ان تمروا عليه مرورا عابرا اريد ان اطور هذا البرنامج و لكن لله المراد فيما اراد جزاكم الله الف خير تحياتي للاخ محمد عسكر الذي يشرح صدري بردوده وليس لي انا فقط ولكن لكل من قدم مساهمه في هذا المنتدى جزاك الله الف يااخ محمد قد التمست هذه المره بعض الذي اخبرتنا عنه سابقا ارسل لي ايميل على khboor@gmail.com تحياتي للجميع اخوكم / خبور اخوكم/ خبور _____________________2_3.rar