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

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

وعليكم السلام جرب هذا ، انت تقرر Round الى اي عدد بعد الفاصلة ، 2 او 3 مثلا ، وعدم وضعك لرقم معناه انك تقرب الرقم بدون كسور بعد الفاصلة: taxt_n1: Round([taxt_t1]/[d2]*[d1],3) taxt_n4: Round(1/[d2]*[d11],2) جعفر

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

::: الخطا في اسم النموذج Patient_Medical_Information

وعليكم السلام ونفس كلام أخي ابوخليل ، ولكن بطريقة اعم : me.filed.height = Me.Section(0).Height وهنا عمل شامل للموضوع جعفر

Private Sub Form_Current() Me.AllowEdits = CurrentRecord = Me.RecordsetClone.RecordCount Me.AllowDeletions = Me.AllowEdits End Sub تحياتي للجميع

جدول أكسس به 6236 آية قرآنية بالتشكيل لمصممي برامج القرآن الكريم لا تتعجب من اسم الجدول واسم الاستعلام فكلاهما نفس الاسم وهو اسم غير موجود هههههههه على العموم هذه خدعة لكن الكود الغريب هو كود الاستعلام : SELECT * FROM ‍‌; فعلا الكمبيوتر آلة غبية جدا ههههههه quran.rar

اصدقائي الاكارم تحية طيبة استكمالا للموضوع احببت ان اضع تطبيق كامل لانشاء نسخة احتياطية عن جداول قاعدة البيانات الجديد هنا ان النسخة مضغوطة ببرنامج Winrar ومحمية بكلمة سر ملاحظة : التطبيق حاليا ياخد نسخة احتياطية عن الجداول المضمنة في قاعدة البيانات و ليس المرتبطة كلمة السر هي 1 وللموضوع تتمة إن شاء الله rartest1.rar

تواصل معي على حساباتي www.facebook.com/assem.mahgoob1 او على ايميلي assem351@gmail.com او على الواتس لو في اي حاجه 00967739362875

ربما يفيدك هذا التعديل في التنسيق والمعادلة تاريخ اخلاء2.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته يرجع هذا الخطأ إلى تسمية الدالة بنفس اسم الموديول حيث أن طريقة استدعاء الدالة عموما هي module_name.function_name فأول اسم للموديول وإذا استدعينا الدالة باسم واحد فقط فيجب أن تكون باسم غير اسم الموديول بحيث يتم البحث أولا في الموديولات فإذا لم يجد هذا الاسم فإنه يبحث في الدالات كل عام وجميع الأحباب في منتدانا الرائع بكل خير

يمكنك استعمال حدث قبل الإغلاق الخاص ب thisworkbook Private Sub Workbook_BeforeClose(Cancel As Boolean) 'your code here End Sub

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

تم ايجاد سبب المشكلة حيث كان يوجد خطأ فى الاستعلام والحمد لله تم إكتشافه والتعديل

نعم استاذي الحبيب وانا عملت المشاركة له لكي يفكر في ذلك تقبل تحياتي

صحيح و لكن هذا طلب العميل. وربما لا يتوافر القرآن لديه آية آية بالنص والصوت

السلام عليكم اى عمود بصفحه البيانات الاساسية يحدد اسم الكشف ؟؟؟؟؟؟؟؟؟

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

اخي الكريم الف الف شكر لحضراتكم

::: أكله الذئب

ليس بالجديد عليكم أخوتي واساتذتنا الكرام أمير2008 , ابا جودى , Shivan Rekany , رمهان وما من أية كلمات تفي لشكري لكم للمساعدة وتقديري لجهودكم واهتمامكم بارك الله بكم وجزاكم عنا كل خير تريدون مع كل الاحترام و التقدير

السلام عليكم جرب المرفق علة المطلوب اعطاء رقم فاتور ة تلقائي.rar

::: لا يمكن جمع الرقم 2000 مع الرقم 1000 الذي قبله وكذلك جمعه مع الرقم -500 الذي بعده في نفس العمود ؟؟!! لكل رقم ID خاص به؟ ::: أوضح سؤالك بشكل افضل رجاءاَ.

اسعد الله صباحك مشكور يا اخي

شكرا اخي تعلمت منكم الكثير وبارك الله فيكم وربي وفقكم في مسعاكم الخير

لماذا لا تستخدم عبارة SQL ؟؟ افضل و اسهل و اسرع

عبد الفتاح كيرة جزاك الله يا أخي كل خير تمت المهمة بنجاح ولا حرمنا الله من علمك

::: ؟؟؟؟؟؟؟؟؟؟؟ كيف 2000 = -500 1500 .... رجاءا وضح مطلبك بشكل افضل !.

يا باشا ده طلب بسيط عاوزين طلبات معقدة يعني مثلا المستخدم ينظر إلى كلمة في المصحف الالكتروني فتتم القراءة تلقائيا http://gulf-up.com/do.php?id=316155

جرب هذا الماكرو Sub Iza7a() Dim my_rg As Range Dim i, r As Integer Set my_rg = ActiveSheet.Range("h3:k21").SpecialCells(2) For i = 1 To my_rg.Areas.Count r = my_rg.Areas(i).Cells(1).Row my_rg.Areas(i).Copy Range("b" & r).PasteSpecial xlPasteValues my_rg.Areas(i).Clear Next End Sub

ممتاز أعجبني [id]<= & [id]

::: مشاركة مع الاخ امير ::: هل تقصد الجمع التراكمي .. Total: DSum("[num]";"t1";"[id]<=" & [id]) ::: حيثt1 اسم الجدول ... بقية الاسئلة يرجى فصل كل سؤال في مشاركة .كما تنص عليه (قواعد المنتدى) .... بالتوفيق

SELECT (IIf(IsNull(((SELECT Sum(t1.num) AS STOCK FROM t1 WHERE t1.id <= BAL.id ))),0,((SELECT Sum(t1.num) AS STOCK FROM t1 WHERE t1.id <= BAL.id )))) AS num2, BAL.num, BAL.id FROM t1 AS BAL; غير اسم الجدول إلى t1 والصق هذا الكود في استعلام جديد وسوف يجمع كل ما سبق من الحقل num في كل سجل هذا على حد فهمي لطلبك الثالث

او اليك هذا باستخدام count بدل dcount Private Sub Form_Current() Me.Text15 = Me.ÑÞã_ÇáÏÑÌÉ Me.Refresh If Me.Text15 <= (Me.Text17 - 1) Then Me.AllowEdits = False Else Me.AllowEdits = True End If End Sub stu.rar

تحديث جديد -زر امر لحذف السجل الاخير فقط stu_ (4).rar

طيب ودى حيله جديده من غير اضافة اى نماذج اخرى اتمنى تعجبك واان شاء الله تجد ضالتك فى انتظار رد حضرتك بعد التجربة stu (3).rar

جرب النموذج المستمر الفكرة أن وقوفك على أي سجل سابق ينقلك تلقائيا إلى السجل الأخير أو ما بعده لا أعلم إن كانت هذه الفكرة تناسب برنامجك أم لا ؟ stu2.rar

الله يسلم لي يدك يابو علي وانت يا خالد الرشيدي بيض الله وجهك ماقصرتم

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

::: لم استطع فهم المثال المرفق ؟! ::: لكني عملت مثال ووضحت في مطالبك ... حيث بمكنك تطبيقها على برنامجك ... Request_1.rar

::: اوك .... ارفاق مثال سمحت لنرى ما يمكننا عمله .

::: لماذا لا تكون الموافقة على الطلب في النموذج الاول ؟ اي بمعنى اخر مالحاجة لفتح نموذج بنفس البيانات فقط للموافقة او الرفض . برايي يمكن اختصار الامر ..

السلام عليكم عمل متميز اخى واستاذي ابو على واسمح لى بالمشاركة لعرض فكرة اخرى ولاثراء الموضوع اخلى الكريم يمكن ذلك ايضاً من خلال باستخدام معادلة للتنسيق الشرطي =IF($B3>TODAY(),IF($B3-TODAY()<=10,1,"")) تواريخ.rar

هلا والله أخوي وائل حل مشكلتك بسيط ، بس بيكلفك عشاء ، لا ومب عشاء واحد ، وانما عشاء عن توفير وقت كل تقرير وإلا خليني اسهل الموضوع ، عشاء واحد بس اجيب معاي كل الحبايب و أولهم أخونا العود @ابو خليل اذا اتفقنا ، شوف الحل التالي: مشكلتك في طريقة طباعتك للتقرير انك تجلب وتفرز وتصفي 34 الف سجل 3 مرات ، بينما الطريقة التالية تخليك تجلب وتفرز وتصفي 34 الف سجل مرة واحدة فقط ، ولكن تطبع التقرير 3 مرات: DoCmd.OpenReport "Rreceipt", acViewPreview, , , acHidden DoCmd.PrintOut acPrintAll, , , , 3 DoCmd.Close acReport, "Rreceipt", acSaveNo جعفر

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

بعد اذن الأستاذ رجب جاويش قمت بالتعديل على الملف لحل مشكلة ترحيل ناجح وراسب بوضع زر فى صفحة الشيت للترحيل اما بالنسبة للأستاذ غريب لم افهم ما المقصود بالنسبة واليكم التعديل فى هذا الملف http://www.mediafire.com/download/4sczzx1xk1fkoyw/كنترول_الإعدادى__رجب_جاويش_الإصدار__15.rar

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

تحية طيبة للاستاذ طلعت محمد حسن اسعدني مرورك الكريم شكري وتقديري لك ولهذا المنتدى العملاق عدم ذكر كلمة المرور سهواً لدخول البرنامج:123 محرر الاكواد:251869 الشيت:1

أخي soft.sample الربط يعتمد على ما الذي تريد ربطه مثلا اذا عندك صور موظفين ، والصور محفوظة في مجلد Employee_Pictures ، والمجلد هذا وبرنامجك موجودين في مجلد واحد ، وانك حفظت الصور بالرقم الوظيفي Employee_ID لكل موظف ، وانت الآن تريد ان تعرض صورة الموظف في النموذج ، في السجل الخاص به ، واسم حقل/كائن الصورة في النموذج Employee_Pic مثلا ، فكود ربط الصورة مع النموذج سيكون في حدث الحالي: me.Employee_Pic.picture= application.currentproject.path & "\Employee_Pictures\" & me.Employee_ID & ".jpg" ونفس الشئ يمكن عمله اذا اردت ان تعرض ملفات pdf ، فبدل استخدام حقل/كائن الصور ، يمكنك استخدام كائن Browser وهو عبارة عن متصفح الانترنت ، ثم تستخدم كود شبيه بالكود اعلاه ، لتتم عملية الربط ميزة هذه الطريقة (اي استخدام الكود في الربط ولا ادراج الرابط في الاكسس) ، بانك تستطيع نقل مجلد برنامجك (والذي يحتوي على البرنامج ومجلد الصور) الى اي كمبيوتر ، وكل شئ يشتغل تمام في الحال ، بينما الرابط سيشير الى مجلد قد تم تغييره وانا متأكد بأن الاخ رمهان عنده تتمه للحديث معاك جعفر