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

السلام عليكم ورحمة الله مرة أخرى أحبائي الكرام اليوم سوف أقدم لكم ملف جد بسيط ولكن يساعد في احصاء التلاميذ و هذا البرنامج بعنوان بطاقة التعريف المدرسية الملف جميل لكن ينقصه بعض التعديلات الخفيفة مثل اضافة صورة تلقائية و بعض الفورم لمن اعجبه الملف فل يعمل عليه أنا أعطيتك ملف جاهز ماعليك الا أن تكمل ماعملت انا عليه و في الأخير أرجوا منكم الدعاء لي بظهر غيب فقط. مع المبرمج : مناد سفيان الجزائر. معا لنبني مستقبل أفضل فكن معنا www.developpez.com معكم كل الاستفسارات في منتدانا العظيم فشاركنا معلوماتك ولا تبخل علينا. 2018............. www.developpez.com البطاقة المدرسية.rar

السلام عليكم ورحمة الله وبركاته مرحبا بي خبراء البرمجة التقنية في الهندسة والبناء اليوم انتقلت من قسم اكسل و عدت ادراجي الى البرمجة لأن الحياة تكمل هنا في صناعة المواقع المتطورة قبل و كل شيئ سوف نبدأ من أول حرف الى آخره ملاحظة : الدروس القادمة انشاء الله متسلسلة وبدون التسرع و شكرا. أخوكم في الله مناد سفيان - الجزائر

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، وهي شرح برمجة ساعة رقمية و عقارب في اكسل digital and analog clock in excel فتابعونا. شرح برمجة ساعة رقمية و عقارب في اكسل digital and analog clock in excel؟ نبدأ أولا بمعرفة القواعد النظرية الرياضية التي اعتمد عليها الشرخ. الحدث application.ontime يستخدم في تنفيذ إجراء معين في وقت معين. مثال: تنفيذ الإجراء masclock بعد ثانية من الآن Application.OnTime Now + TimeSerial(0, 0, 1), "masclock" نأتي للساعة العقارب تعتمد على أن عثرب الساعات يمشي 30 درجة في الدائرة 360 درجة كل ساعة من خلال المعادلة التالية ثم نحسب زوايا الساعات والدقائق والثواني = 6 * عدد الثواني وهكذا ثم نوزع الضرب على الجمع ونختصر فتكون ونتعرف أيضا على: استدعاء ماكرو عند فتح مصنف إكسل ماكرو يستدعي نفسه ويكرر نفسه طريقة ونظرية برمجة عقارب الساعة رياضيا حساب إحداثيات نقطة بدلالة زاوية وطول الضلع على محور السينات X axis ومحور الصادات Y axis إضافة خلفية الرسم البياني Char إظهار محتوى خلية في شكل تلقائي auto shape كتابة معادلة في الشكل التلقائي لا أريد أن أطيل عليكم تابعوا معي هذا الفيديو شرح برمجة ساعة رقمية و عقارب في اكسل digital and analog clock in excel الشرح يعمل في إكسل 2016 و 2013 و 2010 و 2007 و 2003 الملف المستعمل في الشرح في المرفقات ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك mas digital and analog clock.rar

If MsgBox("هل تريد حذف البيانات ؟", vbYesNo, "تنبيه") = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL " delete * from ABC" MsgBox "لقد تم حذف جميع الاصناف بنجاح!!!!", vbOKOnly, "تنبيه" Else DoCmd.CancelEvent End If وعليكم السلام ورحمه الله وبركاته ان شاءالله يكون طلبك

الاخ سلمان كنت تعطينا الملف بالقطارة ..كنت اتمنى الملف كامل من البداية جرب الاستعلام التالي كمصدر للتقرير SELECT TB_conform.Date1, TB_conform.tem, TB_conform.ser FROM TB_conform WHERE ((([Date1] & " " & [tem]) Between CDate([Forms]![FM_report]![text1] & " " & [Forms]![FM_report]![Time1]) And CDate([Forms]![FM_report]![text2] & " " & [Forms]![FM_report]![Time2]))); بالتوفيق

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

س / ماهي وظيفتك ؟ ج/ أستاذ جامعي في البرمجة + الكترو تقني س / وبماذا خدمك اكسل ؟ ج / خدمني عندما كنت طالب جامعي سنة 1995 س / وكم نسبة اعتمادك علية في العمل ؟ 50/فقط لأننا نستعمل الرقمنة حاليا و هو موقع صممناه خصيصا لطلبة مساء الخير للجميع هنا هذا السؤال منذ مدة و انا اريد طرحه للنتناقش فيه و إبداء وجهات النظر المختلفة اتمنى من الجميع المشاركه‏

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

جزاك الله خيرا

السلام عليكم بعد فتح النموذج AddItems ومن خلال مفتاح تبويب الفرعي 2 والذى هو عبارة عن النموذج FItemD أريد المساعدة بعمل كود تحديث لمربعات الكمبوبوكس كلما تجدد الأختيار عند إضافة بيانات جديدة مع إظهار إجمالي عدد المسميات التي تندرج تحت أخر عنوان أو موضوع تم أختيار في أخر كمبوبوكس بالخانة المجاورة لبند عدد مواضيع هذا العنوان 01 Main 25-1-2018 تجربة الإضافة لمسار الفوائد.zip

اضم صوتي للاستاذ kaser906 لابد اولاُ من تعديل جميع الحقول والنماذج والاستعلامات باللغة الانجليزيه ثم نبداء نتقناش في البرنامج من الصفر وكل ماننتهي من جزئية ننتقل للجزئية التي تليها حتى نظهر ببرنامج مبيعات مكتمل باذن الله

تفضل أخي عسى أن تكون هذه غايتك حسابات 2018_5.rar غير فقط DMax("[rs]";"[R1]") وإعملها DLast("[rs]";"[R1]")

واياكم اخي الكريم

بارك الله فيك جزاك الله خيرا

شكرا اخي سليم إضافة جميلة وذكية

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

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

هذا الكود Sub DEl_H() Dim My_rg As Range, Lh As Long, i As Long Lh = Cells(Rows.Count, "H").End(3).Row If Lh < 3 Then Exit Sub Set My_rg = Range("h2:h" & Lh) For i = Lh To 2 Step -1 If Cells(i, "H") = vbNullString Then _ Cells(i, "H").EntireRow.Delete Next End Sub

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

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

السلام عليكم تغيير بسيط في الكود الذي تستعمله: Dim rs As Object Set rs = Me.مساعد_تصفية_فواتير_الشراء.Form.RecordsetClone rs.FindFirst "[رقم فاتورة الشراء] = " & Str(Nz(Me![aa1], 0)) If Not rs.EOF Then Me.مساعد_تصفية_فواتير_الشراء.Form.Bookmark = rs.Bookmark تصفية.rar

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

ربما سيساعدك؟ 3333333333333333.xls

السلام عليكم قم بتغيير المعادلة في الخلية K6 بالمعادلة التالية ثم اسحبها للأسفل : =IF($H6="";"";COUNTIF($C$6:$C$500;$H6)) بن علية حاجي

هل من مساعد في التعديل على هذا الملف ؟ nightshift1.rar

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

ما شاء الله غليك أستاذ مجدى يونس واصل ونحن دما معك

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

جزاك الله خيرا

جزاك الله خيرا

الدرس الحادي عشر: جمل SQL هذا الدرس مخصص لشرح جمل SQL: Create: نستخدم هذه الجملة لإنشاء جدول جديد و طريقة كتابة الجملة كالتلي: Create Table table_name (field1 type_field, field2 type_field); table_name : اسم الجدول المراد إنشاؤه field1, field2 ....: أسماء الحقول type_field : نوع الحقل مثال : الكود التالي يقوم بإنشاء جدول اسمه salah و به حقلين id و nname Dim req As String req = "create table salah (id integer, nname string(12));" DoCmd.RunSQL req نستخدم الكود Docmd.RunSQL من أجل تنفيذ جمل SQL Drop: نستخدم هذه الجملة لحذف جدول معين و طريقة كتابة الجملة كالتلي: Drop Table table_name; table_name : اسم الجدول مثال : الكود التالي يقوم بحذف جدول اسمه salah Dim req As String req = "Drop Table salah;" DoCmd.RunSQL req Alter: نستخدم هذه الجملة للتعديل على تصميم جدول معين بإضافة حقول جديدة أو حذف حقول موجودة و طريقة كتابة الجملة كالتلي: Alter Table table_name Add Column new_field type_field; table_name : اسم الجدول new_field: اسم الحقل الجديد type_field: نوع الحقل الجديد مثال1 : الكود التالي يقوم بإضافة حقل جديد اسمه adress في جدول salah Dim req As String req = "Alter Table salah Add Column adress string;" DoCmd.RunSQL req مثال2 : الكود التالي يقوم بحذف حقل اسمه adress في جدول salah Dim req As String req = "Alter Table salah Column Drop adress;" DoCmd.RunSQL req Select: نستخدم هذه الجملة لاستخراج مجموعة سجلات من جدول معين (استعلام) و طريقة كتابة الجملة كالتلي: Select * table_name Where condition; table_name : اسم الجدول *: تعني اظهار جميع الحقول و يمكن كتابة بعض الحقول في مكانها condition: الشرط الذي يوضع لاستخراج السجلات مثال : الكود التالي يقوم بإستخراج السجل الذي رقمه (ID) يساوي 3 في جدول salah Dim req As String req = "select * from salah where id=3;" Me.RecordSource = req السطر الأخير معناه نجعل مصدر السجلات لنموذج الحالي هو الاستعلام req Delete: نستخدم هذه الجملة لحذف مجموعة سجلات من جدول معين و طريقة كتابة الجملة كالتلي: Delete table_name Where condition; table_name : اسم الجدول condition: الشرط الذي يوضع لاستخراج السجلات مثال : الكود التالي يقوم بحذف السجل الذي رقمه (ID) يساوي 3 في جدول salah Dim req As String req = "Delete From salah where id=3;" DoCmd.RunSQL req Insert: نستخدم هذه الجملة لإضافة سجل جديد إلى جدول معين و طريقة كتابة الجملة كالتلي: INSERT INTO table_name ("column1", "column2", ...) VALUES ("value1", "value2", ...) مثال : الكود التالي يقوم بإضافة سجل جديد لجدول salah Dim req As String req = "insert into salah1 (id, nname) values (11,'أوفيسنا');" DoCmd.RunSQL req Update: نستخدم هذه الجملة لتغيير قيمة سجل في حقل معين لجدول ما و طريقة كتابة الجملة كالتلي: Update table_name Set field='value' Where condition; مثال : الكود التالي يقوم بتعديل قيمة الحقل nname إلى 'محسن' في السجل الذي رقمه (id) 3 بالجدول salah Dim req As String req = "update salah set nname='محسن' where id=3;" DoCmd.RunSQL req

الدرس العاشر: دوال تجميع المجال هذا الدرس مخصص لشرح دوال تجميع المجال: DAvg: تستخدم هذه الدالة من أجل استخراج القيمة المتوسطة لمجموعة سجلات بحقل معين في جدول. DAvg(field, table, condition) field: اسم الحقل المراد حساب قيمته المتوسطة table: اسم الجدول الذي به الحقل condition: الشروط أو المعايير و هي اختيارية و ليست ضرورية DCount: تستخدم هذه الدالة لحساب عدد الجلات في جدول معين. DCount(field, table, condition) DFirst: تستخدم هذه الدالة لاستخراج السجل الأول في جدول معين. DFirst(field, table, condition) DLast: تستخدم هذه الدالة لاستخراج السجل الأخير في جدول معين. DLast(field, table, condition) DLookUp: تستخدم هذه الدالة لاستخراج قيمة حقل معين من جدول ما. DLookUp(field, table, condition) DMax: تستخدم هذه الدالة لاستخراج القيمة القصوى لحقل معين في جدول ما. DMax(field, table, condition) DMin: تستخدم هذه الدالة لاستخراج القيمة الدنيا لحقل معين في جدول ما. DMin(field, table, condition) DStDev: تستخدم هذه الدالة لاستخراج الانحراف المعياري لمجموعة سجلات بحقل معين في جدول ما. DStDev(field, table, condition) DSum: تستخدم هذه الدالة لحساب مجموع قيم مجموعة سجلات بحقل معين في جدول ما. DSum(field, table, condition)

الدرس التاسع: دوال الرياضيات السلام عليكم. نعود بعد مدة من الإنقطاع لنكمل ما بدأناه من هذه الدروس. هذا الدرس مخصص لشرح دوال الرياضيات: Abs: تستخدم هذه الدالة من أجل استخراج القيمة المطلقة لعدد. Abs(«رقم») Abs(-10)=10 Abs(10)=10 Cos: تستخدم هذه الدالة لاستخراج جيب تمام الزاوية. Cos(«الزاوية») pi = 3.14159265358979 Cos(pi/3)=0.5 ملاحظة: قيس الزاوية يكون بالراديان 3.14159265358979 rad = 180° Sin: تستخدم هذه الدالة لاستخراج جيب الزاوية. Sin(«الزاوية») pi = 3.14159265358979 Sin(pi/6)=0.5 Tan: تستخدم هذه الدالة لاستخراج ظل الزاوية. Tan(«الزاوية») pi = 3.14159265358979 Tan(pi/4)=1 Exp: تستخدم هذه الدالة لارجاع عدد مزدوج يحدد قيمة أساس اللوغاريتم الطبيعي مرفوع لقيمة معينة. Exp(«رقم») Exp(10)=22026.4657948067 Int: تستخدم هذه الدالة لاستخراج الجزء الصحيح من عدد. Int(«رقم») Int(4.51) =4 Sqr: تستخدم هذه الدالة لحساب الجذر التربيعي لعدد. Sqr(«رقم») Sqr(16)=4 Log: تستخدم هذه الدالة لحساب اللوغاريتم الطبيعي لعدد. Log(«رقم») Log(10)=2.30258509299405 Rnd: تستخدم هذه الدالة لتوليد رقم عشوائي من نوع مفرد. Rnd(«رقم») Rnd(2)=0.7671117 Rnd(2)=0.05350453 Round: تستخدم هذه الدالة لتقريب عدد عشري إلى عدد محدد من الفواصل العشرية. Round(«الدقة», «الرقم») Round(12.364,1)=12.4 Round(12.364,2)=12.36 Sgn: تستخدم هذه الدالة لإرجاع عدد صحيح يشير إلى رقم العدد. بحيث: يعيد 1 إذا كان العدد أكبر من الصفر (0) يعيد 0 إذا كان العدد يساوي الصفر (0) يعيد -1 إذا كان العدد أصغر من الصفر (0) Sgn(«رقم») Sgn(12)=1 Sgn(0)=0 Sgn(-3)=-1 Fix: تستخدم هذه الدالة لإرجاع الجزء الصحيح لعدد. Fix(«رقم») Fix(12.56)=12

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