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

السلام عليكم ورحمة الله مرة أخرى أحبائي الكرام اليوم سوف أقدم لكم ملف جد بسيط ولكن يساعد في احصاء التلاميذ و هذا البرنامج بعنوان بطاقة التعريف المدرسية الملف جميل لكن ينقصه بعض التعديلات الخفيفة مثل اضافة صورة تلقائية و بعض الفورم لمن اعجبه الملف فل يعمل عليه أنا أعطيتك ملف جاهز ماعليك الا أن تكمل ماعملت انا عليه و في الأخير أرجوا منكم الدعاء لي بظهر غيب فقط. مع المبرمج : مناد سفيان الجزائر. معا لنبني مستقبل أفضل فكن معنا 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/فقط لأننا نستعمل الرقمنة حاليا و هو موقع صممناه خصيصا لطلبة مساء الخير للجميع هنا هذا السؤال منذ مدة و انا اريد طرحه للنتناقش فيه و إبداء وجهات النظر المختلفة اتمنى من الجميع المشاركه‏

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

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

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

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

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته هذا الملف جميل جدا و يناسب كل من يريد استخراج شهادة الأجر بدون الذهاب المقتصد وهي تسهل أيضا عليك عملية ملئ قواعد البيانات أي استفسار فأنا تحت الخدمة مع فائق الاحترام و التقدير . و أعتذر عن التأخير معكم أخوكم في الله المبرمج : مناد سفيان الجزائر. معا لنبني مستقبل أفضل فكن معنا معكم كل الاستفسارات في منتدانا العظيم فشاركنا معلوماتك ولا تبخل علينا. 2018............. Fiche de Paie + ATS.rar

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

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

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

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

اشكرك عزيزى سليم حاصبيا دائم المساعده

الللللله ينور اي الشغل الجامد ده

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

لأن الشرط ينتهي عند الساعة الثانية صباحا.. لمعالجة المشكلة.. في نهاية الحد الثاني من التعبير أضف +1 فقط بهذه الطريقة 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])+1));

تحياتي لك استاذ رهمان.. هذا هو التعبير الصحيح لشرط استخراج الوقت المحدد.. لأن الوقت لوحده يعتبر قيمة عائمة بين 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 و يمكن أن نلتقي يوما ما إن شاء الله أما بالنسبة للمساعدة و حل المشاكل فافضل أن يكون هنا في المنتدى ليستفيد منه الجميع

اذا فهمت قصدك اكتب هذه الخاصية في اية خلية =RANDBETWEEN(100000,999999) و قم بالسحب ستظهر ارقام عشوائية مكونة من 6 ارقام

هذا حل آخر بالمعادلات أرجو أن يفي الغرض المطلوب... توزيع بالمعادلات.xlsx

القي نظرتا الى هذا استعلام SELECT TB_conform.Date1, TB_conform.tem, TB_conform.ser, Format([Date1],"yyyy/mm/dd") & " " & FormatDateTime([tem],4) AS Expr1 FROM TB_conform WHERE (((Format([Date1],"yyyy/mm/dd") & " " & FormatDateTime([tem],4)) Between [Forms]![FM_report]![Text55] And [Forms]![FM_report]![Text57])); هل هو المطلوب ؟ اذا لا اخبرني ماذا تريد ان يظهر في الاستعلام عند ادخال اي وقت واي تاريخ الى اي وقت والى اي تاريخ دمتم بخير * تستخدم صيغة الوقت الحالي NOW عند اضافة السجل سيكون من الاسهل اليك Database2.3.rar

هل من مساعد في التعديل على هذا الملف ؟ nightshift1.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

السلام عليكم أخي العمري اكتب الأسماء في الأسبوع الأول (وليس في الصفحة الأولى) راجع كلامي السابق في الاسبوع الأول ( يعني الورقة الثانية في برنامجك) اكتب أسماء الطلاب سيتم نسخ الاسماء إلي بقية الصفحات تم تغيير اسماء الصفحات اختصار للجهد جرب المرفق الصف الخامس الابتدائي222.rar

جزاك الله خيرا استاذ عبدالباري البنا عمل ممتاااااااااااااااااااااااااااااااااااااااااز عند اقتراح بالنسبة للأكواد لاحظ تكرار جملة عدة مرات في الكود اقتراحي اختصار هذه الاكواد بالطريقة التالي مثلا الكود التالي 'TX55 = ActiveCell.Offset(0, 1).Text 'TX56 = ActiveCell.Offset(0, 2).Text 'TX57 = ActiveCell.Offset(0, 3).Text 'TX58 = ActiveCell.Offset(0, 4).Text 'TX59 = ActiveCell.Offset(0, 5).Text 'TX60 = ActiveCell.Offset(0, 6).Text 'TX61 = ActiveCell.Offset(0, 7).Text 'TX62 = ActiveCell.Offset(0, 8).Text 'TX63 = ActiveCell.Offset(0, 9).Text 'TX64 = ActiveCell.Offset(0, 10).Text 'TX65 = ActiveCell.Offset(0, 11).Text 'TX66 = ActiveCell.Offset(0, 12).Text 'TX67 = ActiveCell.Offset(0, 13).Text 'TX68 = ActiveCell.Offset(0, 14).Text 'TX69 = ActiveCell.Offset(0, 15).Text 'TX70 = ActiveCell.Offset(0, 16).Text 'TX71 = ActiveCell.Offset(0, 17).Text 'TX72 = ActiveCell.Offset(0, 18).Text 'TX73 = ActiveCell.Offset(0, 19).Text 'TX74 = ActiveCell.Offset(0, 20).Text 'Tx75 = ActiveCell.Offset(0, 21).Text 'Tx76 = ActiveCell.Offset(0, 22).Text 'TX77 = ActiveCell.Offset(0, 23).Text يمكن اختصاره كالتالي Dim i, j As Integer For i = 55 To 77 j = i - 54 Me.Controls("TX" & i) = ActiveCell.Offset(0, j).Text Next i والكود 'TX55 = "" 'TX56 = "" 'TX57 = "" 'TX58 = "" 'TX59 = "" 'TX60 = "" 'TX61 = "" 'TX62 = "" 'TX63 = "" 'TX64 = "" 'TX65 = "" 'TX66 = "" 'TX67 = "" 'TX68 = "" 'TX69 = "" 'TX70 = "" 'TX71 = "" 'TX72 = "" 'TX73 = "" 'TX74 = "" 'Tx75 = "" 'Tx76 = "" 'TX77 = "" 'TX78 = "" يمكن اختصاره Dim i As Integer For i = 55 To 78 Me.Controls("TX" & i) = "" Next i هذا اقتراحي ولكم الرأي شكرا جزيلا ً