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

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

تفضل عزيزي أبو زاهر: جرب هذا الكود With CurrentDb .Execute "UPDATE AfwtIar SET AfwtIar.Atarih =# " & Format([x], "dd/mm/yyyy") & "#" .Execute "UPDATE Hrakatsanf SET Hrakatsanf.Atarih =# " & Format([x], "dd/mm/yyyy") & "#" .Execute "UPDATE HRR SET HRR.Atarih = # " & Format([x], "dd/mm/yyyy") & "#" End With مع تغيير x لحقل التاريخ في النموذج

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

تفضل يا غالي With CurrentDb .Execute "UPDATE AfwtIar SET AfwtIar.Atarih =#" & Format([x], "dd/mm/yyyy") & "#" & "WHERE AfwtIar.Rjmfatwra ='" & Me!Rjmfatwra & "'" .Execute "UPDATE Hrakatsanf SET Hrakatsanf.Atarih =# " & Format([x], "dd/mm/yyyy") & "#" & "WHERE Hrakatsanf.Rjmfatwra ='" & Me!Rjmfatwra & "'" .Execute "UPDATE HRR SET HRR.Atarih = # " & Format([x], "dd/mm/yyyy") & "#" & "WHERE HRR.Rjmfatwra ='" & Me!Rjmfatwra & "'" End With

تسلم حبيبي أبو ياسين ما انتبهت انو مشروط عموما بنحط الشرط على نفس الكود وهو يختار المناسب وزيادة الخير خيرين يا غالي :: تحياتي

بعد اذن اخي AlwaZeeR اظن هذا هو طلبه لانه مشروط برقم الفاتورة DoCmd.SetWarnings False DoCmd.RunSQL ("UPDATE [AfwtIar] SET [AfwtIar].[Atarih]= [forms]![تنظيم_تسلسل]![Atarih].[value] " _ & " WHERE ((([AfwtIar].Rjmfatwra)=[forms]![تنظيم_تسلسل]![Rjmfatwra]));") DoCmd.RunSQL ("UPDATE [HRR] SET [HRR].[Atarih]= [forms]![تنظيم_تسلسل]![Atarih].[value] " _ & " WHERE ((([HRR].Rjmfatwra)= [forms]![تنظيم_تسلسل]![Rjmfatwra]));") DoCmd.RunSQL ("UPDATE [Hrakatsanf] SET [Hrakatsanf].[Atarih]= [forms]![تنظيم_تسلسل]![Atarih].[value] " _ & " WHERE ((([Hrakatsanf].Rjmfatwra)=[forms]![تنظيم_تسلسل]![Rjmfatwra]));") DoCmd.SetWarnings True MsgBox "تم التعديل بنجاح", vbInformation, " حفظ التعديلات"

إضافة لما تفضل الأستاذ أبو ياسين DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentDb().Name, acTable, "YourTable", "NewTable", True

فى البداية نقوم بفتح برنامج الاردوينو ومسح المحتوي الذى بداخلة كله ولصق هذا الكود : // Example_1_Computer MSACCESS_Interfacing // Design By : Karim Adel El-Hosseny // Mobile : 01277877151 int Door=7; // تهيئه متغير يقوم يتعويض رقم المنفذ 7 الى اسم لسهولة البرمجة int value; // تهيئة متغير لتخزين قيمة القراءه من المنفذ التسلسلي void setup () // دالة عامه لتهيئة المنفذ التسلسلي { Serial.begin(9600); // ضبط معدل النقل ويجب ان تتوافق هذه القيمة مع القيمة المضبوطبه بالبرنامج بالاكسس pinMode(Door,OUTPUT); // تهيئة الطرف الخاص بالخرج digitalWrite(Door,LOW); // جعل قيمة الجهد المسلط على الطرف الخاص بالخرج مساوى لصفر فولت } void loop () { // دالة تكرار لا نهائية value = Serial.read(); // تخزين قيمة البيانات المستلمة من المنفذ التسلسلي والمرسلة من الاكسس بالمتغير المحجوز مسبقاً if (value == '1') // يقوم هذا الامر من مراجعة قيمة البيانات المرسلة اذا كانت مساوية للواحد ويتحقق الشرط يقوم بتنفيذ الاوامر التالية { digitalWrite(Door,HIGH); // جعل الالجهد المسلط على الطرف مساوية لاعلى فولت ممكن delay(3000); // الانتظار لمده ثلاث ثواني digitalWrite(Door,LOW); // جعل الجهد المسلط على الطرف مساوية لاقل فولت ممكن } else if (value == '0') {digitalWrite(Door,LOW);} // وفى حالة عدم تحقق الشرط يجعل الجهد المسلط على الطرف لاقل فولت ممكن } ولفهم الكود بشكل اكبر سنقو بشرحة خطوه خطوه فى البداية تعريف للكود والمصمم له : // Example_1_Computer MSACCESS_Interfacing // Design By : Karim Adel El-Hosseny // Mobile : 01277877151 -------------------------------------------------------------------------------------------------------------------------------- int Door=7; int value; وفى هذا الجزء قمنا بحجز سجل ( متغير رقمي ) فى الذاكره المؤقته بالميكروكونترول باسم Door و جعلنا قيمتها 7 و 7 هى رقم الطرف الذى سيوصل عليه البوابة او لمبة الاناره ويكون الرقم مكتوب بجوار الطرف كما بالصورة : وحجز خانة اخري بالمسمي Value لتسجيل بها البيانات المستقبله من طريق السيريال بورد . void setup (){ } وهى دالة محجوزة بالميكروكونترول ويكتب بها اوامر النهيئة الخاصة بالاطراف او الموديلات الداخلية المدمجة معه . Serial.begin(9600); ويقوم هذا الامر بتفعيل وتهئية موديل السيريال بورد المدمج مع الميكروكونترول ويخبره بان معدل نقل البيانات المستخدم هو 9600 كيلو بايت ويجب ان يكون جهاز الكمبيوتر متوافق مع هذا الرقم وايضا البيانات المرسلة من الاكسس كما سنوضحها لاحقاً . pinMode(Door,OUTPUT); طبيعة الطرف ان الاردوينو لكل طرف بها وظيفتين اساسيتان والبعض اكثر من وظيفة فالوظيفه الاولى هى استعمالة كخرج بمعني ان يقوم بتوصيل كهرباء لهذا الطرف او قطع الكهرباء عنه وهذا مفهوم بسيط لتسهيل استيعابه والوظيفة الشانية ان يستخدم كدخل اى ان يقوم بفحصه هل يوجد عليه كهرباء ام لا . اذا فالوظيفة الاولى كخرج والثانية كدخل . ونحن هنا نستخدمة كخرج فنامره عند ارسال قيمة معينه من الاكسس يقوم بالتوصيل واذا انقطعت يتوقف . digitalWrite(Door,LOW); وكما وضحنا فى الامر السابق اننا نستخدمه كخرج فيتحكم هذا الامر فى طبيعة الخرج وقمنا بامره ان يجعل الكهرباء المسطله اقل قيمة كهربيه اى صفر فولت لا لا يقوم بالتوصيل او التشغيل . void loop () { } وهى دالة البرنامج الرئيسى التى اول ما يعمل الميكرو ويقوم بالتهيئة يدخل اليها لتنفيذ التعليمات المرغوبة . ملحوظة هامه : ان الميكروكونترول ليس مرن كالاكسس بمعنى انه يقوم بتنفيذ التعليمات بالترتيب ولا يستطيع ان يقفز الى امر اخر دون المرور على البقية . value = Serial.read(); وهنا نامر الميكرو بتسجيل البيانات المستقبلة فى المتغير المحجوز سلفاً فى الكود . if (value == '1') { وكالمعتاد والمتوقع عن ايجاد دالة الشرط IF كما تعودنا استخدامها فى الاكسس وتختلف فقط بطريقة كتابها كما موضح . وتقوم بفحص حالة المتغير فاذا كانت قميته تساوى واحد صحيح يقوم بتنفيذ الاوامر واذا لم تكن يقوم بتنفيذ التالى وكذلك يمكن استخدام Elseif ونرسل قيمة مثلا 2 فيقوم بفتح بوابة اخري وهكذا . digitalWrite(Door,HIGH); فاذا تحقق الشرط يقوم بجعل قيمة الخرج المسلط على الطرف المحدد سلفاً باعلى قيمة فولت لتشغيل الريلاى لفتح البوابة . delay(3000); وهذه داله تمنيت وجودها فى الاكسس وهى دالة تأخير زمني والرقم 3000 بمعني 3 ثواني فالميكروكونترول لديه قدره لتقسيم الثانية الواحده الى 1000 جزء ويتعامل معها كجزء من الـ1000 digitalWrite(Door,LOW); بعد الانتظار لمدة ثلالث ثواني يقوم بتخفيض الفولت الى صفر لغلق البوابة واذا احببتم زياده الوقت نقوم بزياده ال 3000 else if (value == '0') {digitalWrite(Door,LOW);} وفى حالة عدم تحقق الشرط او عدم وجود قيمة يقوم بابقاء الفولت منخفض للحفاظ على غلق البوابة . وبعد الانتهاء من ادخل الكود نقوم بالضغط على علامه الصح بالاعلى للتأكد من صحه الكود وفى حالة الخطأ سيقوم البرنامج بالتوضيح فى الجزء الذى بالاسف بالاخطاء الموجوده ويجب ان تظهر هذه العبارات التى توضح المساحة المستخدمة من الذاكره الخاصة بالميكرو والرام فاذا ظهرت هذه الرسالة يكون الكود خالى من الاخطا وبامكانك شحن الاردوينو بالبرنامج من هذه العلامة : وهكذا نكون اتممنا برمجه الاردوينو بنجاح . والله الموفق . ونلتقي قريباً .

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Internet.rar

اعرض الملف النسخ الاحتياطي والضغط بخيارات متقدمة بسم الله الرحمن الرحيم كل عام أنتم بخير وسعادة ورضا بمناسبة عشر ذي الحجة وعيد الأضحى المبارك أعاده الله علينا جميعا بالصحة والسعادة استكمالا لسلسلة ما خف وزنه وغلا ثمنه موعدنا اليوم مع ملف يحتاجه كل مهتم بالتعامل مع قواعد البيانات النسخ الاجتياطي أو الضغط والإصلاح بطريقتين أولا لقاعدة البيانات الحالية والثانية لقاعدة بيانات يتم تحديدها مع إمكانية استعمال المجلد الحالي أو أي مجلد يتم تحديده كمكان للنسخ أو الضغط والنسخ وكل ذلك في نموذج واحد وبأبسط كود ممكن ويوجد في الملف الكثير من الأكواد التعليمية الرائعة مثل: استعمال متصفح الملفات المضمن في الأوفيس بدون دوال الويندوز استعمال متصفح المجلدات المضمن في الأوفيس بدون دوال الويندوز استخلاص اسم الملف من مساره الكامل استخلاص امتداد الملف من مساره استخلاص اسم الملف بدون امتداده من مساره استخدام أوامر الدوس داحل الأكسس ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة ********************** ملحوظة: الكود يعمل على كل إصدارات الأوفيس تم مشاهدة موضوع في نفس المجال وهو في هذا الرابط وتطوير الفكرة إلى ما وصلت عليه في هذا الملف ******************* دمتم في رعاية الله وحفظه وانتظرونا فالقادم أفضل بإذن الله إن شاء الله صاحب الملف أ / محمد صالح تمت الاضافه 12 أغس, 2018 الاقسام قسم الأكسيس

السلام عليكم، ربما يكون درس اليوم غير مألوف في برنامج البوربوينت، ولكن مع خصائص التصميم الجرافيكي الكبيرة التي يتمتع بها هذا البرنامج، فأعتقد أنه آن الأوان للدخول في هذا المجال قليلًا حتى نتعرف على برنامج البوربوينت من هذه الناحية!. في البداية سنحتاج شكلين لبدء تصميم الزخرفة، الأول مربع دائري الزوايا، والثاني نجمة ثمانية. وليكون التصميم دقيق، سنجعل حجم المستطيل 10×10 سم، والنجمة الثمانية 12×12 سم، ويمكن تحديد حجم الشكلين من قائمة تنسيق (FORMAT). والآن سنقوم بسحب المربع الأصفر الخاص بالنجمة الثمانية، وهو الذي يظهر بالجزء العلوي من النجمة عند تحديده، ونرفعه للأعلى قليلًا حتى تصبح بهذا الشكل. بعد ذلك نضع الشكلين فوق بعض ونحددهما معًا، ثم نذهب إلى قائمة تنسيق (FORMAT)، ثم نضغط على دمج الأشكال (Merge Shapes) ونختار منها توحيد (Union)، وهذا سيجعل الشكلين شكل واحد. الآن نقوم بنسخ الشكل ونغير حجمه إلى 11×11 سم ونضعه فوق الشكل الأول ونحددهما معًا، ثم نذهب مرة أخرى إلى دمج الأشكال (Merge Shapes) ونختار منها هذه المرة تقطيع (Fragment)، حيث سيتم قطع الشكلين، الأول سيصبح على شكل إطار خارجي، والثاني سيكون الجزء الداخلي للزخرفة. بعد ذلك نحدد الشكلين ونذهب إلى قائمة تنسيق (FORMAT)، ونضغط على تأثيرات الشكل (Shape Effects)، ثم نضغط على التأثيرات الجاهزة (Preset)، ونختار منها التأثير الثاني (Preset 2)، وهذا سيعطي تأثير مميز للزخرفة. الآن سنقوم ببعض التعديل على هذا التأثير، نحدد الشكلين ثم نذهب إلى قائمة تنسيق (FORMAT)، والضغط على السهم الصغير الموجود أسفل تأثيرات الشكل (Shape Effects)؛ وهذا لإظهار القائمة الخاصة بتأثيرات الشكل، ثم نختار منها تنسيق ثلاثي الأبعاد (3-D FORMAT)، حيث سنقوم بالتعديل على المادة (Material)، والإضاءة (Lighting) للشكلين. الآن بالنسبة للمادة (Material) سنقوم بتعديلها إلى الخيار الأول (Matte). وبالنسبة للإضاءة (Lighting) سنقوم بتعديلها إلى الخيار الثالث (Soft). بعد ذلك سنقوم بنسخ الإطار الخارجي للزخرفة ونقوم بتصغيره لحجم 11×11 سم، ووضعه في الداخل. والآن، جاء وقت تلوين الزخرفة.. فيمكن تلوينه بهذه الألوان.. أو مثل هذه الألوان.. فهذا باب واسع جدًا وتستطيع تلوينه كما تشاء، فالأمر يرجع لك، ولكن مع مراعاة تناسق الألوان مع بعضها طبعًا!. لتحميل ملف الدرس من المرفقات. نهاية الدرس زخرفة.pptx

شكرا للأستاذ @كريمو2 هذا الملف كان من مقتنياتي في وقت إنشائه من أخينا الفاضل MAXXIN لكن مع مرور الوقت فقدت الملف ورابط الموضوع وظهرت أكواد أسهل وأفضل مما كنا نستعمله في 2007 فهذا جهدي المتواضع لتطوير هذا الملف تجدونه على هذا الرابط وفقنا الله جميعا لكل خير

الله يوفق الجميع استاذي الغالي ابو ياسين

بالتوفيق اخي ابو زاهر

تسلم حبيبي الوزير كلما كان هناك افكار كلما زاد الانسان بالعلم ونحن تلميذكم

للأسف مش هعرف أعملها لكن ممكن تعمل نموذج للإيداع و نموذج للسحب أو اعمل موضوع جديد وممكن حد من الأخوة أصحاب الخبرة يفيدك XX.mdb

المشكلة في كود إنشاء الدائرة جرب هذا الكود Public Sub sbCrclInTxt(Rpt As Report, TxtCtrl As TextBox, TxtDegree As Integer) If TxtCtrl.Value <= TxtDegree Then Dim sngHCtr As Single, sngVCtr As Single, sngRadius As Single sngHCtr = TxtCtrl.Left + (TxtCtrl.Width \ 2) sngVCtr = TxtCtrl.Top + (TxtCtrl.Height \ 2) sngRadius = TxtCtrl.Width \ 4 ' Circle radius. Rpt.FillColor = RGB(255, 0, 0) ' Background Color red. Rpt.FillStyle = 0 ' Fill solid. Rpt.Circle (sngHCtr, sngVCtr), sngRadius, vbRed, , , 0.55 End If End Sub ولتعديل شكل الدائرة يمكن تعديل الرقم 4 الموجود في sngRadius أو الرقم الأخير 0.55 بقيمة أقل من الواحد الصحيح

اتفضل هذا رقم اساسي Dim strSQL1, strSQL2 As String strSQL1 = "SELECT emp.id, emp.name, emp.emp, emp.asxc, emp.cvcvcv, emp.fgf, emp.dsa, emp.kjh INTO aboyaseen " & vbCrLf & _ "FROM emp;" strSQL2 = "alter table aboyaseen add primary key(id);" DoCmd.RunSQL strSQL1 DoCmd.RunSQL strSQL2

الله يجزيك الخير اخي واستاذي ابو ياسين هذا هو طلبي

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

السلام عليكم تفضل اخي الكريم ملفك بعد تعديل الكود كما طلبت تحياتي Filter (2).accdb

السلام عليكم هل عملية تفعيل الفلتر أو التصفية في النموذج الفرعي عن طريق النموذج الرئيسي ممكنة برمجياً؟ إذا كان الجواب نعم، أرجو التعديل على المثال المرفق في بداية الموضوع أو وضع مثال نستفيد منه. تحياااتي

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

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي System Information.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Strings.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Math.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Graphic.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Forms.rar

تـفضل اخي المعادلة التالية شرح المعادلة لو كانت قيمة الخلية A3 أكبر من الرقم 200 أترك الخلية فارغة لو كانت قيمة الخلية A3 أصغر او تساوي من الرقم 100 اكتب 30 لو كانت قيمة الخلية A3 أصغر او تساوي من الرقم 200 اكتب 40 =IF(A3>200;"";IF(A3<=100;"30";IF(A3<=200;"40")))