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

screentogif اتفضل هذا هو رابط موقع البرنامج ورابط تحميل البرنامج https://screentogif.codeplex.com/ https://screentogif.codeplex.com/downloads/get/1554964 واسألك الدعاء للاستاذ الجليل jjafferr فهو من دلنى عليه

السلام عليكم ورحمة الله لست أدري إن كنت تأخرت في الرد، وهذه معادلة يمكن وضعها في الخلية B1 (أو غيرها) ثم سحبها إلى الأسفل... =IF(ROW($A1)<=COUNTA($A$1:$A$6);OFFSET($A$1;COUNTA($A$1:$A$6)-ROW($A1);;1);"") بن علية

معادلة رائعة أخي الحبيب محمد الريفي وتفي بالغرض تماماً لا فض فوك أخينا محمد الريفي أخي الغالي سليم بارك الله فيك على هداياك الرائعة والجميلة أخي الحبيب أحمد الفلاحجي مشكور على متابعتك الجيدة للموضوعات المختلفة تقبلوا وافر تقديري واحترامي

اتفضل اخى واستاذى ياسر اليك حلا اخر {=INDEX($A$1:$A$6,LARGE(ROW($A$1:$A$6),ROW($A1)))}

الطريقة مجربة وسليمة 100% ويمكن اخفاء النموذج المسؤول ليعمل بصمت في الخلفية تصور انه يمكن ايضا ان يرسل لك رسائل sms يذكرك بمواعيدك

الموضوع : كود ترحيل البيانات بشكل مميز سأتناول أولا : شرح الكود حتى يسهل على الجميع أستخدامة داعيا الله ان يوفقنى الى ما يحبة ويرضة أ - سأقوم بدرب مثال يفضل ان تنفذة معى لكى تصل لكيفية عمل الكود وتطويعه لما تريد عملة أبدأ بفنح ملف أكسيل جديد : قم بتسمية ورقة العمل الاولى بأسم ادخال بيانات والورقة الثانية فواتير ثم فى صفحة العمل الاولى والتى تسمى بـ ادخال البيانات قوم بتصميم جدول كما هو موضح فى الصورة ثم تصميم زر فى نفس الصفحة حتى يصبح بنفس الشكل هذا لم لا يعرف كيفية تصميم زر يمكنة ذلك من خلال : ----------------------------------------------------- اصدار 2003 من مربع أدوات التحكم > ادارج زر ------------------------------------------------------ اصدار 2007 من المطور > ادراج زر ------------------------------------------------------- وفى الصفحة الثانية التى تم تسميتها باسم فواتير نصممها على هذا الشكل بعد تصميم تسمية الصفحتين والزر فى الصفحة الاولى يمكنك اضافة الكود من خلال اختيار وضع التصميم والضغط على الزر الذى سبق تصميمة دبل كليك ايسر على الماوس ثم نضع الكود التالى وسأقوم بشرحة تفصيليا كما بالصورة (الكود مرفق ) الجزء الاولى من الكود الجزء الثانى من الكود الجزء الثالث من الكود الجزء الرابع من الكود الجزء الخامس من الكود الجزء السادس والأخير ملاحظة : الكود يرحل بترتيب الادخال . لتحميل الشرح مصور + ملف المثال + الكود من هنا فى النهاية أسالكم الدعاء اذا افادكم ذلك

السلام عليكم ورحمة الله وبركاته وجدت هذه الدالة اثناء تجولي وحبيت ان اضع عليها مثال هنا لمن قد يبحث عنها الدالة هي FILELEN وهذا ببساطة شكل الدالة FileLen( file_path ) الدالة تحضر حجم الملف بالبايت .. وبإمكاننا التحويل الى ما نريد بعد ذلك هنا طرق التحويل المعروفة للجيمع . 1 Byte = 8 Bit 1 Kilobyte = 1,024 Bytes 1 Megabyte = 1,048,576 Bytes 1 Gigabyte = 1,073,741,824 Bytes 1 Terabyte = 1,099,511,627,776 Bytes في المرفق انا حولت الى كيلوبايت .. اترككم مع المثال .. فك الضغط على الدرايف D للتجربة وبعدها بإمكانك النقل الى اي مكان كل ما عليك هو معرفة المسار والإمتداد بالتوفيق للجميع fileSizeDemo.rar

السلام عليكم ورحمة الله وبركاته لدي نموذج يفتح مع بداية البرنامج وهو يحتوي على مواعيد محددة بالوقت لهذا اليوم سؤالي بالتحديد ... هل طريقتي بإستخدام هذا الكود صحيحه ولن تبسبب مشاكل للنظام لو فرضنا ان البرنامج يعمل طوال اليوم هذا هو الكود وفي المرفق توضيح اكثر Private Function sSA() On Error Resume Next Dim i, r As Integer Dim rs As Recordset Set rs = Me.RecordsetClone r = rs.RecordCount rs.MoveLast rs.MoveFirst For i = 1 To r If rs!mish_time = Time() Then DoCmd.OpenForm "alarm" End If rs.MoveNext Next rs.Close Set rs = Nothing End Function يتم استدعاء هذه الدالة عند حدث عداد الوقت كما هو موضح في النموذج frm_missions شكرا لكم AlartSysteM2003.rar

اشكرك كثيرا ً اخي العزيز لقد حلت المشكلة مع الشكرالجزيل وفقك الله وبارك الله فيك مع الشكرالجزيل

اخي ابو البراء اليك ما كنت أطلبه (أظن انه يوجد حلول اخرى) و ما زلت اطمع بالمزيد بدون تكرار مثلاً) Reverse_Without_Empty.rar

استاذي ياسر كلامك صحيح لكن الميزة انه لا يمكن مسحها او نسخها وايضات يمكن التعامل مع الشيت كانه غير محمي بكل الأحوال هي محاولة عسى ولعل

برايي افضل بهذا الراي لم يعد هناك حاجة او وجود ل اللوب !! الكود كافي بالعد كل ثانية واظهار الفورم ! بالتوفيق

كلامك صحيح واوافقك ! يمكن يصبح الكود هكذا Private Sub Form_Timer() If DCount("*", "tbl_MIssions", "mish_time=time() and mish_date=date()") > 0 Then DoCmd.OpenForm "alarm" clock.Caption = Time() End Sub تحياتي

السلام عليكم إليك مرفق فيه معادلة بسيطة مجرد اختيار الخلية التي بها المعادلة تبقى مخفية ولا يمكن تغيير محتواها انظر إلى محرر الأكود بالضغط على alt+F11 في sheet1 افتح view code هشام ابوسنى.rar

السلام عليكم جزاك الله كل الخير عنا أخ سعيد صاحب الموضوع وعلى كل من شارك للصدفة وجدت الأخ سعيد قد سبقني لهذا الموضوع ووضع نفس التساؤل اللذي كنت سأستفر عنه كل من قام بتجربته فأغلب البرامج المصممة تكون قاعدتين ونكون مضطرين لوضع زر ضغط واصلاح باصفحة البرنامج للعميل فانا أضم صوتي لصوت أخي سعيد بأن الطرق والكودات كثيرة ومحيرة بهذا الموضوع ويا ليت نصل لحل يمكننا من الضغط والاصلاح للقاعدة الخلفية دون مشاكل لأانه كما ذكر استاذنا أبو خليل بأن هذه العملية خطرة جداً وبالنسبة للقاعدة الامامية عند عمل ضغط واصلاح للقاعدة الخلفية ألا تحتاج أيضاً ؟؟؟؟ مرة أخرى شكر لاخي سعيد على الموضوع المهم والرائع

تفضل هذا مثال حسب طلبك بالنسبة للارقام التي من خلالها يتم التفريق بين المستخدمين كــ 22 ، 55 .... وغيرها فهذه يمكن لبرنامجك ان يضيفها آليا عند التسجيل حسب النوع تخصيص المداخل متغير.rar

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

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

أخي الحبيب بن علية بارك الله فيك وجزيت خيراً على المعادلة الجميلة والرائعة .. أخي الغالي ابو يوسف جزيت خيراً على المشاركة الجميلة وإن كانت مكررة من قبل أخونا الحبيب أحمد الفلاحجي ولكنها مقبولة منك .. ربنا يبارك فيك ومشكور على المشاركة الرائعة أخي الحبيب أبو بسملة هوووووووووب جبت حلول كتير في المشاركة الأخيرة ليك وللأسف كلها مش مناسبة !! طبعاً معظمها شغال تمام التمام ..ولكن راعي أن تكون عملية البحث غير مقتصرة على النقل وفقط ..بل يجب أن يتم تجربة كل كود والتعديل عليه بما يتناسب مع الملف.. عايزين بحث وتدقيق وتفحيص وتمحيص .. وأعتقد إنك وصلت لي !! بالنسبة للملحوظة : السطر المشار إليه ليس بكود إنما معادلة توضع في الخلية B1 ثم يتم سحبها لأسفل

هذه مشاركة بطريقة اسهل قليلا للمتعلم drgat2.rar

اليوم والشهر بالهجرى تلقائى بالتوفيق اخوانى الاحباب التاريخ بالهجرى بشكل تلقائى.rar

تفضل أستاذى رمهان و جميع الإخوة المهتمين بالموضوع الحصول على الدرجة السابقة الدرجة رقم 2 ترتيبا فى جدول الدرجات حتى مع إضافة درجات جديدة للموظف وشكرا لجميع الإخوة خاصة الأستاذ رمهان mylasttry - 2.rar

وهذه بالاستعلام وبدوال المجال! SELECT tblDrgat.empId, DLookUp("[darganame]","tbldrgat","drgadate=#" & DMax("drgadate","tbldrgat","empid=" & [empid]) & "#") AS 1, DLookUp("[darganame]","tbldrgat","drgadate=#" & DMax("drgadate","tbldrgat","drgadate<#" & DMax("drgadate","tbldrgat"," empid=" & [empid]) & "# and empid=" & [empid]) & "#") AS 2 FROM tblDrgat GROUP BY tblDrgat.empId; وهناك افكار اخرى ! وهذه على جدول الموظفين SELECT جدول1.eid, جدول1.eName, DLookUp("[darganame]","tbldrgat","drgadate=#" & DMax("drgadate","tbldrgat","empid=" & [eid]) & "#") AS 1, DLookUp("[darganame]","tbldrgat","drgadate=#" & DMax("drgadate","tbldrgat","drgadate<#" & DMax("drgadate","tbldrgat"," empid=" & [eid]) & "# and empid=" & [eid]) & "#") AS 2 FROM جدول1;

انا لله وانا اليه راجعون البقاء لله اسال الله ان يلهمك الصبر وان يعوضك بذرية صالحه

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

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

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

الى الاخوة وخبراء منتدى ارجو مساعدتى الى ايجاد مجموع مبالغ حسب سنوات مساعدة في جمع.rar

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

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

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

أخي الحبيب محمد الريفي بارك الله فيك وعوداً حميداً ولا تحرمنا من تواجد بيننا فنحن نشتاق لك ولرؤية مشاركاتك القيمة أخي الغالي سليم قدم ما لديك من حلول ليستفيد الأخوة فما زال في جرابك الكثير تقبلوا تحياتي

العفو استاذ سعيد وانا اسحب طلبي فلك حرية وقتك ! واعتقد فكرتك هي برنامج بحد ذاته وتحتاج لوقت كبير ! ادعو لك بالتوفيق يغلق هذا الموضوع

اخي سعيد اولا ومن النظره الاولى لا انصح بهذا الكود ! ياساتر انت كل ثانية بتلف على السجلات وانشاء كائن ثم حذفه ! ثانيا لاحظت التالي وبالنظر في الكود السابق : 1. جعلت عد السجلات قبل التحرك اخيرا ثم اولا وهذا غير منطقي حيث التحرك يسبق العد لان الفائدة اصلا من التحرك هو الحصول على العدد الصحيح للسجلات 2. تتم المقارنة بناء على الوقت فقط ومهملا التاريخ معناته التنبيه يومي فهل هذا مستقصد وباهمال التاريخ 3. خلو الرسالة من موضوع التنبيه فقط ظهور الرسالة 4. لو كان هناك موضوعين بنفس الوقت هل كودك السابق سيظهر النموذج مرتين ؟ اعتقد انك لم تجرب الكود عمليا !! تحياتي

اطلعت على المرفق واول ملاحظاتي وهي التي يجب ان توليها عنايتك : الجداول وتصميمها 1- يجب كتابة اسماء الجداول بحروف انجليزية وعدم ترك مسافات فارغة بين الكلمات 2- يجب كتابة الحقول داخل الجداول بحروف انجليزية وعدم ترك مسافات فارغة بين الكلمات 3- التأكد الا تكون التسميات كلمات محجوزة ومعرفة في اكسس مثل date و Name .... وغيرها الملاحظات اعلاه تساعدك مستقبلا في كتابة الاكواد وفهمها بشكل صحيح لانه عند استخدام الحروف العربية تنقلب الاكواد رأس على عقب ويصعب فهمها اما الواجهات العربية فهي تكون في التسميات التوضيحية داخل الجداول او النماذج او التقارير 4 - اختيار النوع المناسب للحقل حيث رأيتك جعلت اغلب انواع الحقول = عملة والعملة فقط للحقل الذي يدخل فيه نقود ويجوز ان نستبدل نوع حقول العملة بارقام مزدوجة اما المعرفات فتكون اما ارقام او نصوص والخلاصة / لتعلم اكسس باحتراف وباقل مدة ممكنة يجب البدء من الجداول وهضمها جيدا ويجب تصور البرنامج كاملا من خلال الجداول سأبحث لك ان شاء الله في مكتبتي عن امثلة سهلة تساعدك

جميل جدأً واستفدنا من كل الطرق. مبدعين

السلام عليكم ورحمة الله وبركاته أخي الحبيب أحمد جربت الإضافة واشتغلت100% جزاكم الله خيراً

صباح الخيرات جزاك الله خيرا ابو يوسف هو نفس الكود اللى ارفقته ولكن بدون استخدام الاداه وتعديل كما اشار اخى ابو البراء فى السطر الاخير فقط ليتم العكس فى عمود b WorkRng.Offset(, 1).Formula = Arr طبتم واهتديتم

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

جميل ومشكور بس انا عايز السجل الثاني فقط ! اي الدرجة الثانية فقط ؟

ردي لا يقلل من شأن مجهودك أبداً أخي الحبيب توكل جزيت خير الجزاء على الوقت الذي بذلته في تجهيز الملف المرفق .. تقبل تحياتي

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

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

اعتذر جدا جدا جدا فى تأخرى فى الرد على حضرتك لم انتبه الا الان واعتذر ايضا نسيت وضع هذا السطر اولا AllowDeletions = True اجعل الكود على هذا الشكل وسيعمل على اكمل وجه ان شاء الله AllowDeletions = True DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord

بعد التجارب الامر requery فقط هو اختصار ل me.requery وللتجربة وضعت مربع قائمة فعند البحث لا تظهر النتائج بها لانها تحتاج ريكويري فاما تعمل ريكويري خاص بها او docmd.requery سيعمل للجميع فعند استخدام requery فقط لم تتحدث القائمة مما يظهر لنا انه نفس me.requery على غرار docmd.requery والذي قام بعمل ريكويري للكل تحياتي بحث واضافة-update.rar

عوداً حميداً أخي الغالي أبو سليمان مفتقدين تواجدك بيننا ..لعل غيابك عن المنتدى خير إن شاء الله تقبل تحياتي

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

أخي الكريم مراد يرجى تغيير اسم الظهور للغة العربية إليك الكود التالي ..قف في أي خلية في الجدول الذي يحتوي البيانات ثم نفذ الكود Sub FilterDeleteRows() Dim rTable As Range Dim rCol As Range, rCell As Range Dim lCol As Long, iRow As Long Dim xlCalc As XlCalculation Dim vCriteria On Error Resume Next With Selection If .Cells.Count > 1 Then Set rTable = Selection Else Set rTable = .CurrentRegion End If End With On Error GoTo 0 If rTable Is Nothing Or rTable.Cells.Count = 1 Or WorksheetFunction.CountA(rTable) < 2 Then MsgBox "Could Not Determine Your Table Range.", vbCritical, "Exit Sub" Exit Sub End If ''''''''''''''''''''''''''''''''''''''''''''' 'الشرط vCriteria = "False" 'رقم أول صف للبيانات iRow = 6 'رقم العمود المراد فلترته lCol = 19 ''''''''''''''''''''''''''''''''''''''''''''' If lCol = 0 Then Exit Sub Set rCol = rTable.Columns(lCol) Set rCell = rCol.Cells(iRow, 1) With Application .Calculation = xlCalculationManual: .EnableEvents = False: .ScreenUpdating = False End With For lCol = 1 To WorksheetFunction.CountIf(rCol, vCriteria) Set rCell = rCol.Find(What:=vCriteria, After:=rCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Offset(-1, 0) rCell.Offset(1, 0).EntireRow.Delete Next lCol With Application .Calculation = xlCalculationAutomatic: .EnableEvents = True: .ScreenUpdating = True End With End Sub تقبل تحياتي

والله ابدا بالعكس انا هسيبكو يعني واجهز الشرح وبعدين جراب فضي ازاي وهو عمال يجيب هنا معلومات اكتر من الدروس بكتير طيب تعرف ان 99% م الشرح والردود اقوم بها وانا بالعمل يعني وانا مش فاضي وحاليا وانا بتكلم معاك من بدري وانا بالعمل فعلا خلاص يامعلم انا سايب خبراء هنا واهتم بالشرح اوك

السلام عليكم ورحمة الله وبركاته كل ما سيأتي الفترة القادمة هو كيفية التعامل مع الادوات والفورم مثال باذن الله عن كيفية عمل برنامج بسيط لتشغيل القرأن الكريم من موقع tvquran كالعادة نبدأ بالادوات عدد فورم واحد كومند للخروج واحد image اداة الويب الشرح كما موجود امامنا الفورم وعليه الادوات الصورة والزر وصفحة النت فقط لتعديل الفورم بهذا الشكل يتم عمل كما في الصورة الاتية بعد اخفاء الشريط نأتي للصورة خلصنا من الصورة ندخل علي اداة الويب بعد وضع كل الادوات بهذا الشكل نقوم بوضع اسهل كود وهو كالتالي اول كود في الكومند1 Private Sub Command1_Click() End End Sub ثاني كود وهو في حدث تنشيط الفورم وظيفة الكود فتح الموقع www.tvquran.com/add/index.htm Private Sub Form_Load() WebBrowser1.Navigate "www.tvquran.com/add/index.htm" End Sub دائما الملف بعد الانتهاء منه لا يظهر في الاسفل في taskbar نقوم بتعديل الفورم كالاتي ليظهر في التاسك بار عند تشغيله واالاختيار بأسفله center screen لوضع الفورم في منتصف الشاشة عند الفتح كان هذا المصحف هدية لاخي الغالي ابو يوسف منذ فترة والان تم وضع كيفية عمل الهدية نفسها علها تنفعنا وتنفعكم والسلام عليكم يتبع مرفق المصحف ملف تنفيذي والمشروع المصحف.rar