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

كل الشكر والتقدير استاذ @Shivan Rekany ولإكمال الفائدة بيانات تسجيل البرنامج كالاتى Name : Johny Khan CODE : HP4ANyamVnhPkJUTTsOx2CdPhAyLTMSZiXxkNERW KAwkZC+a6+sTipI7MMPyhJam0jdUttMT4Ebo9USN o9IcmHB9FGrgYIeDPhW7WujYCM1s/bpe7hzoE5tj RKphe5N1gew6I1BDJ37EMijaO+x0ROUw/YUbXOjv V1ZeSKDFqlo= الخــيــــــــــ( دمتم بكل )ــــــــــــــر

يا أخي يا أخي ، لما المرة الجاية اقول لك سهلة ، صدقني الحمدلله جعفر

السلام عليكم شباب هل لاحظ احدكم شيء في الصورة اللي ارفقتها ، شيء للمستقبل وشغّال عندي 100% جعفر

بارك الله فيك أخي العزيز ناصر ..الحمد لله أن تم المطلوب على خير والحمد لله الذي هدانا لهذا وما كنا لنهتدي لولا أن هدانا الله تقبل وافر تقديري واحترامي

والله شي رائع تسلم ايديك

اليكم هذا الرابط به برامج لتغير ايقونات اي ملف تريد https://iconchanger.en.uptodown.com/windows

أخي العزيز ناصر حاول تتبع الكود باستخدام مفتاح F8 من لوحة المفاتيح لتلاحظ التغيرات التي تحدث بعد كل سطر سأعطيك مثال من الكود لتعرف الأجزاء المهمة في السطر 'رقم عمودالبيانات الفريده ورقم عمود بيانات المصدر Cells(U, 22) = Sheets("رصد الترم الثانى").Cells(U, 4) هذا السطر يلي السطر الذي يقوم بعمل حلقة تكرارية من الصف رقم 7 'اسم شيت المصدرورقم صف البدايه في شيت المصدر For U = 7 To Sheets("رصد الترم الثانى").[C1500].End(xlUp).Row فالمتغير المسمى U يحمل في أول حلقة تكرارية القيمة 7 ... من ثم فإن السطر الذي أعطيك مثالاً له يكون بالشكل التالي إذا قمنا بترجمته Cells(7, 22) = Sheets("رصد الترم الثانى").Cells(7, 4) الشق الأول لا توجد فيه إشارة لورقة العمل حيث أن الكود موضوع في حدث تنشيط ورقة العمل Worksheet_Activate ، فإنه يفهم أن الخلية في الصف رقم 7 والعمود 22 في الورقة التي تحتوي الكود (الورقة الهدف) التي توضع فيها القيم الفريدة والشق الثاني يشير للورقة المصدر التي تحتوي البيانات الخام في الصف السابع والعمود الرابع كيف يمكن أن أغير صف البداية في ورقة العمل المصدر أو الهدف ؟ ببساطة يمكنك التحكم في المتغير U حيث يمكنك إضافة قيمة محددة ... على سبيل المثال إذا كانت البيانات الخام تبدأ من الصف رقم 10 فإنه في الجزء الذي يتعامل مع البيانات الخام يتم إضافة 3 لقيمة المتغير U لتحصل على الرقم 10 ، ليكون بهذا الشكل Cells(U, 22) = Sheets("رصد الترم الثانى").Cells(U+3, 4) هذا مجرد مثال لتتضح الصورة ، ويمكنك تطويع الكود كما ترغب حسب هيكلة وحالة الملف وتقبل تحياتي

السلام عليكم قبل ان ابدأ ، الاكسس وكما قال اخي أوس sandanet ، هو قاعدة بيانات ، وعلشان اكون اكثر دقة: فهو برنامج واجهة فقط ، بينما برنامج الجداول هو JET (للأكسس قبل 2007) والذي يستخدمه الوندوز في عمله ، ثم تحول البرنامج بإسم ACE (للاكسس 2007 فمافوق) ، JET او ACE هو محرك الجداول و SQL الاستعلام ، بينما الاكسس هو واجهة وبرمجية VBA ، JET او ACE و VBA ، عندهم الادوات للتخاطب مع البرامج الاخرى في الوندوز ، كُلٌ حسب تخصصه ، مما يجعل الاكسس برنامج فريد من نوعه ، كبرنامج وجداول وتخاطب انا بدأت كلامي بالتخصيص: هواتف الآن ومنها الاندرويد ، تعمل مثل ما شرحت لك اعلاه وبدون الحاجة الى برامج وسيطة لربطها وعملها مع الوندوز ، بينما انت تتكلم عن الحقبة ماقبل ، وبعض الهواتف منها فيها مودم للإتصال بالانترنت ، ومنها تريد ربطها بالوندوز. نعم ممكن عمل ما تريد ، ولكن الاسهل لك ان تخطو الخطوة التالية ، بالهواتف الجديدة والرابط الذي ارفقته لا يعمل !! جعفر

وعليكم السلام تفضلي أختي: الزر موجود في النموذج Form1 ، اولا تأكدي ان تغير الحدث من Private الى Public Public Sub cmd_A_Click() MsgBox "Run A" End Sub ثم من اي مكان او اي نموذج ، ناديه هكذا: Call Form_Form1.cmd_A_Click جعفر

السلام عليكم ورحمة الله تعالى وبركاته اختنا الكريمة @Rawannnna ان شاء الله تعالى تجدى فى هذا التعديل مرادك كما تريدين واكثر قمت ببعض التعديلات اولا اضافة حقل تاريخ فى جدول تحاليل السكر قولى ليــــه هأقول لك ليه انا علشان سببين الاول : يعنى مفروض يكون عندى خلفية بمستويات السكر فى تواريخ سابقة لمقارنتها بتواريخ حدبثه للتسهيل متابعة ومراقبة المستوى ☺ ثانيا والاهم برمجيا : حتى لا يتكرر ادخل بيانات فى وقت واحد بقرائة واحده او حتى بقراءه مختلفة يعنى مثلا مش ينفع المريض محمد عصام فى تاريخ 2/5/2017 يكون مستوى السكر 300 قبل الافطار ويتم تكرار هذا السجل مرة اخرى وكذلك لا يصح ان يكون المريض محمد عصام فى تاريخ 2/5/2017 يكون مستوى السكر 450 قبل الافطار اى تسجيل نتيجه مختلفة بالخطأ فى وقت غير وقت العينه امممممم معلش انا اسف لانى مستعجل حبتين ولا يسمح وقتى الحالى بالنقاش والحوار والمتابعة الجيدة انا عدلت من نفسي بما رايت فيه الصالح قد اكون مخطئ وقد اكون مصيب فى افكارى فإن أصبت فبفضل من الله سبحانه وتعالى وان اخطأت فمن نفسى فتقبلوا خطأى بحلم كذلك عذرا قمت بتعديل المسميات للعناصر على النموذج لتسهيل التكويد بصراحه انا مش باعرف اكود عربى اممممممم ايضا قمت بمسح مصدر بيانات النموذج وجعلته غير منضم واضفت استعلام جديد لاضافة القيم من النموذج الى الجدول وقت الضغط على زر ادخال البيانات واخيرا وليس اخرا اسال الله تعالى ان يهدينا الى ما فيه الخير والفلاح والصلاح والرشاد واسالكم الدعاء لوالدتى بظهر الغيب فنحن فى امس لحاجة لدعوات صالحات بظهر الغيب نظام متابعة مواعيد مرضى السكر_UP.rar الاستاذ @عبدالله كاظم كل لاشكر والتقدير وجعلكم الله سباقون الى الخيرات دائما وابدا اعتذر منكم وكلى خجل فوالله لم ارى والاحظ ردكم اعتذر منك اخى الكريم

السلام عليكم ورحمة الله وبركاته كنت قد وضعت هذا المثال في منتدى الفريق العربي للبرمجة ، وأخي ابو الآ ما قصر وعمل نسخة منه الى هذا المنتدى (انا لم اكن من روّاد هذا المنتدى حينئذٍ) على هذا الرابط: http://www.officena.net/ib/topic/58001-منقول-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل/ والآن ، وبعد عمل مجموعة تعديلات عليه واصبح في نسخته الخامسة ، واهمها ان البرنامج اصبح يعمل على 32بت و 64بت ، رأيت ان اضع البرنامج بين يديكم طريقة العمل هي كما في الرابط السابق (ولكن للأسف لا يمكن رؤية الصور التوضيحية هناك) ، فعليه ، سأقوم بعمل نسخة منه هنا مع الصور التوضيحية: رأيت الكثير من الاسئلة حول تصدير بيانات الاكسس الى الاكسل ، وكل سؤال يختلف عن غيره بطريقة او اخرى ، فحبيت ان اضع بين يديكم برنامج اشتغلت عليه ، واتمنى من الله سبحانه وتعالى انه يقدر يخدم الكل البرنامج سهل الاستعمال ، فكل المطلوب في الواجهة ، ولا تحتاج الذهاب للكود اولا: الواجهة: 1. تختار من مربع السرد ، جدول او استعلام ، 2. على اساس الاختيار في رقم 1 ، ستظهر لك قائمة باسماء الجداول او الاستعلامات في برنامجك ، 3. اسم ملف الاكسل المراد حفظه به ، ومجلد التخزين ، فتلقائيا يكون في نفس مجلد البرنامج ، 4. هنا تكتب اسم صفحة الاكسل التي تريدها (انظر الصورة في الاسفل) **1** تستطيع ان تصدر اي عدد من الصفحات الى اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم اسم صفحة جديدة) ، **2** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 5. تستطيع بدء تصدير البيانات الى اي خانة في اكسل مثل A2 او C5 او اي خانة اخرى ، **3** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 6. تستطيع ان تحفظ ملف الاكسل بالصيغ التاليه: "xls" او "xlsx" او "xlsm" او "xlsb" او "csv" او "txt" ، والصيغتين الاوليتين هما الاهم ، والصيغتين الاخيرتين بهم قيود معينة ، 7. تستطيع ان تختار المجلد الذي تريده ، مع كتابة اسم الملف المناسب لك (انظر الرقم 3 اعلاه) ، 8. تستطيع تصدير البيانات مع اسماء الحقول (في الاكسس) ، وتستطيع تصدير البيانات مع عناوين/مسميات الحقول (في الاكسس) ، نلاحظ اعلاه ، بان الجدول elemnts لا يحتوي على عناوين/مسميات الحقول بالعربي ، بينما الجدول elemnts2 يحتوي عليها ، وتستطيع تصدير البيانات فقط بدون اسماء الحقول ، 9. تستطيع ان تصدر البيانات الى ملف اكسل فيه بيانات سابقة ، وهنا تستطيع الاستفادة من الارقام 4 و 5 اعلاه ، او ان تحذف ملف الاكسل الموجود حاليا بنفس الاسم ، وتبدأ تصدير ملف جديد ، 10. بعد تصدير البيانات الى اكسل ، هل تريد إحتواء وتوسيع كل الاعمدة فيه ، حتى ترى كل البيانات بدون الحاجة الى توسيع كل عمود على حدة ، او لا تريد توسيع الاعمدة. 11. الزر الذي يقوم بعملية تصدير البيانات الى اكسل ، حسب الاختيارات اعلاه ، مع ملاحظة: يجب تعبئة الحقول داخل المربعات الحمراء ، اما بقية الحقول فإختيارية ، 12و 13. لجعل هذا البرنامج يعمل على اي من برامجكم الحاليه ، يجب تصدير النموذج frm_Export_to_Excel و الوحدة النمطية fFolder_Dialog اليها. طبعا هناك أفضلية تصدير البيانات من الاستعلام ، حيث تستطيع ان تتحطم بالبيانات المطلوب تصديرها. ملاحظات؟ اخطاء/عطل؟ إضافات؟ انا في الخدمة ، قدر المستطاع جعفر 7.Export_to_Excel_05.1.mdb.zip

‏الخميس‏ 2‏/11‏/1432هـ الموافق ‏29‏/9‏/2011م هذا ملف جاهز للإستخدام نظرا لما عانيته خلال سنوات من متابعة حركة السيارات وتنقلاتها ومتابعة مستنداتها للتجديد كان هذا الملف هو آخر ما استجد في الموضوع – بحيث يسهل علي هذه المهمة الصعبة قدر الإمكان المميزات:- حفظ كامل بيانات السيارات والفحص والتأمين والبيع. التعامل مع التاريخين الهجري والميلادي. إضافة وتعديل أي بيانات تعديل رقم اللوحة تلقائياً عند الإدخال بحيث لا يتكرر. - خاصة لوحات السيارات بالسعودية إمكانية البحث السريع بأي جزء من أي رقم أو أي كلمة . البحث عن أي تاريخ بحيث تظهر كل البيانات المطلوبة قبل التاريخ المدخل. مرفق ملف به شرح تفصيلي لطريقة الإستخدام بيانات_السياراتAYMZ077.rar وآخر دعوانا ان الحمد لله رب العالمين

دورة شرح الفيجوال بيسك لبرنامج الإكسيل VBA .. !! خطوة خطوة ( الجزء الأول ) صدقة جارية علي روح والدي ) رحمه الله ( ... نسألكم الدعاء له ==================== الجزء الأول السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان مثل هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار ولكن ما دعاني لتقديم هذا الموضوع ... حيث كنت قد اعددت له منذ فترة وأن يصبح لي اي عمل ولو صدقة جارية عله ينفع البعض ولو بمعلومة صغيرة وايضا لأنني اردت ان اجعل المواضيع الاساسية في تنفيذ عمل وتصميم اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ... سلسة ( خطوة .. خطوة ) (( اعانني الله علي اكمالها كما ينبغي )) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح في هذا الجزء علي ملفات PDF لتصبح موجودة لدي من يحتاجها دائما واليكم اخواني الكرام : فهرس بالدروس التي تم اعدادها ( جاري اعداد بقية الدروس ان شاء الله ) : الدرس الاول : مقدمة عامة الدرس الثاني : اعدادات مستوي الامان ( التعرف عليها – كيفية ضبطها ) الدرس الثالث : كيفية اظهار شريط ادوات الـ VBA ضمن اشرطة الادوات و القوائم الدرس الرابع : كيفية اظهار محرر الفيجوال بيسك VBA في الاكسيل الدرس الخامس : مكونات وأجزاء محرر الفيجوال بيسك VBA في الاكسيل الدرس السادس : بعض الاجراءات الضرورية للتعامل مع محرر الفيجوال بيسك VBE قبل التطرق للاكواد وبرمجتها الدرس السابع : المـــــــــــــــــاكرو ( الجزء الأول ) ما هو الماكرو أنواع الماكرو ما هي أفضل الطرق للتعامل مع الماكرو؟ انواع الاجراءات تسجيل الماكرو بالنسبة لاكسيل 2003 الدرس الثامن : المـــــــــــــــــاكرو ( الجزء الثاني ) ( تسجيل الماكرو بالنسبة لاكسيل 2007 ) الدرس التاسع : المـــــــــــــــــاكرو ( الجزء الثالث ) شرح بسيط لتركيبة الكود او الماكرو بشكل عام وللماكرو المسجل لدينا بشكل خاص تعديل الماكرو ( المسجل أو المكتوب ) تعديل أو تعيين اختصار الماكرو ( المسجل أو المكتوب ) الدرس العاشر : المـــــــــــــــــاكرو ( الجزء الرابع ) كيفية تشغيل الماكرو كيفية عمل زر لتشغيل الماكرو الدرس الحادي عشر : المـــــــــــــــــاكرو ( الجزء الخامس ) تسجيل الماكرو النسبي تخصيص زر لتشغيل الماكرو في القوائم الموجودة لدينا في الاكسيل التوقيع الرقمي او التوثيق واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري ومنتظر أرائكم في الشرح .. جزاكم الله خيرا اساتذتنا المقدمة1.rar طريقة تخفيض مستوي الامان في كل اصدارات الاكسيل2.rar اظهار شريط ادوات الفيجوال بيسك للاكسيل 3.rar وباقي الدروس في المشاركات التالية نظرا لحجم المسموح برفعه في كل مشاركة

السلام عليكم نعم ، الحمدلله ، استطعت ان اتحكم بكاميرا هاتف اندرويد Galaxy S3 بنظام 4.4 و Huawei Mate 7 بنظام اندرويد 6 ، الآن توصلت الى اخذ الصورة من برنامج الاكسس , وعلى سجل معين ، بتوقيت 8.1 ثانية والبرنامج يعمل بجميع هذه الطرق: كاميرا هاتف اندرويد ، او WebCam HD مثل Logitec HD c615 ، او DSLR مثل Nikon D5100 او Canon الخطوة التالية: وهو السماح للمستخدم بتحديد مكان قطع الصورة (لمرة واحدة طبعا) ، وحذف الزوائد بس للعلم ، انا دائما اقول ، بأن للأكسس له قدرات معينه ، ومافي عيب من استخدام برامج/وسائط اخرى خارجية للقيام بأي عمل: جعفر

بعد اذن اخي ياسر هذا الكود Option Explicit Option Base 1 Sub Give_Uniques() Dim j, x As Integer Dim First_Sh, Sec_Sh As Worksheet Dim sn Dim Obj As Object Set First_Sh = Sheets("بيانات الطلبة"): Set Sec_Sh = Sheets("اوائل ") sn = First_Sh.Range("v7:v" & Cells(Rows.Count, "v").End(xlUp).Row) With CreateObject("System.Collections.ArrayList") For j = 1 To UBound(sn) If sn(j, 1) <> vbNullString Then If Not .Contains(sn(j, 1)) Then .Add sn(j, 1): x = x + 1 End If Next .Sort Sec_Sh.Range("s9").Resize(x) = Application.Transpose(.toarray) End With End Sub

صحبة ان شاء الله يا اخي شيفان جزاك الله كل خير يا اخي ابا جودي

نحن نشكرك لمشاركتك استاذي الحبيب

جزاكم الله خير اخوتي جميعا @صالح حمادي @Shivan Rekany@محمد ايمن@ابا جودىنفع الله بكم الإسلام والمسلمين اسال الله ان يزيدك علما ويبارك فيكم شكرا لكم

شكرا لكم

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

اللهم امييييييين الله يعطيكم العافيه

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

'Private Sub Worksheet_Activate() Sub القــيم_الفريده() 'Private Sub Worksheet_Activate() 'هذاالكود خاص بالعلامه عبد الله باقشير 'حفظه الله ' الهدف من الكود هو الاتيان بالقيم الفريده 'تم هذا الكود في 23/06/2007 '' '' '' '' '' '' '' '''' '' '' '' '' '' '' '' Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False 'مسح عمود القيم الفريده [S9:S500].ClearContents 'متغير عمود القيم الفريده Set MyRange = [S9:S500] 'اسم شيت المصدرورقم صف البدايه في شيت الهدف For U = 9 To Sheets("بيانات الطلبة").[C1500].End(xlUp).Row 'رقم عمودالبيانات الفريده ورقم عمود بيانات المصدروكذلك رقم الصف في شيت المصدر Cells(U, 19) = Sheets("بيانات الطلبة").Cells(U - 2, 22) 'رقم عمودالبيانات الفريده في الشيت الهدف If Application.WorksheetFunction.CountIf(MyRange, Cells(U, 19)) > 1 Then 'رقم عمودالبيانات الفريده Cells(U, 19).ClearContents End If Next 'فرز عمود القيم الفريده [S9:S500].Sort [S9], xlAscending Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True End Sub ربنا يبارك لك استاذ ياسر خليل

اريد ان احسب الوقت الحالي واقارنه بالوقت الموجود بالجدول اذا كان الفرق بين نطاق 30 دقيقه لا اكثر ولا اقل يعطيني رساله تنبيه مثال الساعه الان 8:00:00 وبالجدول الساعه 7:22:00 في هذا المثال لا يعطي رساله تنبيه لان الفرق اكثر من نصف ساعه Test.rar

الله اكبر ... الله اكبر .. ربنا يحفظك ويصونك يا استاذ ياسر ===== شرح ولا اسهل القيم الفريــده.rar وهذا تطبيق الشرح

السلام عليكم حسب علمي يمكن إنشاء اختصار للبرنامج بسطح المكتب و تغيير أيقونته بإستعمال هذا الكود: With CreateObject("WScript.Shell") With .CreateShortcut(.SpecialFolders("Desktop") & "\Test Database.lnk") .TargetPath = "f:\aa\Test.accdb" .WindowStyle = 1 .Hotkey = "" .IconLocation = "f:\aa\arabic.BMP, 0" .Description = "Test Icon Substitution" .WorkingDirectory = "f:\aa\" .Save End With End With أما تغيير أيقونته مباشرة فلم تمر عليا من قبل و الله أعلى و أعلم.

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

ايوة صح دا كلام كبير اوي camera from android mobile بصراحة مواضيع هامة جدا مع التطور الموجود في الوقت الحالي

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

اتفضل اخى الكريم المطابقة على اساس اعمدتين (التاريخ + الرقم).rar

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

كل الشكر والتقددددددير أبا جودي

جرب المرفق المطابقة على اساس اعمدتين (التاريخ + الرقم).rar

اتفضلى الملف بعد التعديل باضافة الرسالة نظام متابعة مواعيد مرضى السكر_UP.rar يتم وضع الرسالة فى نموذج سكرك على زر الامر أمر21 "ادخال" فيصبح الكود بهذا الشكل If IsNull([MS]) Then MsgBox "من فضلك ادخل مستوى السكر" MS.SetFocus ElseIf IsNull([TS]) Then MsgBox "من فضلك حدد وقت اخذ العينة" TS.SetFocus Else DoCmd.SetWarnings False DoCmd.OpenQuery "سكرك" DoCmd.SetWarnings True 'لمسح قيم عناصر التحكم على النموذج بعد ادخال القيم MS = "" TS = "" MsgBox "تم تسجيل نتيجة التحليل" Me.Requery End If

جزاك الله خيرا أساذ سليم فعلا هو المطلوب

ربما كان هذا ما تقصده اذا كان اكثر من اسم لها نفس البيانات اكسل يوردها كلها (و يتم تلوينها) طالب Salim.rar

تفضل جرب ووافنا بالنتيجة وعند فتح موضوع ياريت تقول السلام عليكم نكسب حسنات :) fd.rar

بعد كود فتح نموذج "سكرك" نضع الكود التالي Forms![سكرك]![رقم ملف المريض] = Me.رقم_ملف_المريض بحيث يصير الكود بالشكل التالي DoCmd.OpenForm "سكرك", , , , NewRecord Forms![سكرك]![رقم ملف المريض] = Me.رقم_ملف_المريض اتمنى يكون هذا هو المطلوب

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

السلام عليكم تفضل Access Database2003UP.rar

والله تستاهل صبرت و نلت

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

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

2003 ودا كان رأيي قبل قرائة التعليقات ومع خبرتي المحدودة جدا فأن 2003 بة ميزه لم اجدها في 2007 وهي ان القائمة تتسع تلقائيا بمعني انني اذا كان لدي قائمه واردت ادخال بيانات جديدة فأن القائمة تتسع تلقائيا لادراج البيانات الجديدة وهذا غير موجود في 2007

وعليكم السلام اختي واهلا وسهلا بك في المنتدى سأعطيك الطرق التالية لعمل المطلوب: 1. لا تعملي اي معيار في الاستعلام ، وسنطلب من البرنامج ان يفتح التقرير برقم Research_ID الذي تنقرين عليه (على نفس السجل ، سواء في النموذج الارئيسي او الفرعي)، وبالنظر الى الصور التي ارفقتيها ، ولأن ارقام حقل Research_ID في يمين الحقل (طبعا هذا اذا لم تقومي بعمل تنسيق له وعمل محاذاته لليمين) ، فهذا معناه ان الحقل نص وليس رقم اذا كان حقل Research_ID نص DoCmd.OpenReport "Report1", acViewPreview, , "[Research_ID]='" & Me.Research_ID & "'" واذا كان رقم DoCmd.OpenReport "Report1", acViewPreview, , "[Research_ID]=" & Me.Research_ID 2. اذا اردتي ان تضعي المعيار في الاستعلام ، فسيكون هكذا (طبعا غيري اسم Main_Form الى اسم النموذج الرئيسي ، و Sub_Form الى اسم النموذج الفرعي): Forms!Main_Form!Sub_Form!Research_ID 3. اذا عندك نموذج رئيسي لا يُغلق طول فترة البرنامج (سواء أكان ظاهر او مخفي) فلنسميه frm_Main ، فاعملي فيه حقل بإسم iResearch_ID مثلا، ثم اعملي الاستعلام على ان يأخذ معيار الحقل Research_ID من هذا الحقل ، وعلى حدث فتح التقرير ، سنرسل قيمة الحقل Research_ID الذي في النموذج الفرعي ، الى الحقل iResearch_ID في النوذج frm_Main ، والذي سيأخذ الاستعلام قيمته: Forms!frm_Main!iResearch_ID=me.Research_ID DoCmd.OpenReport"Report1" ,acViewPreview جعفر

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

السلام عليكم اخي إسلام حط هذا الكود في حدث Thisworkbook عند الحفظ من واجهة الإكسل أو من الإختصار "Ctrl" + "S" يفعل الكود Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Call Ali_Prodc End Sub وهذا الكود السابق وعليه تعديلات بسيطه لتلافي الأخطاء Public Sub Ali_Prodc() Dim Sh As Worksheet Dim Rng As Range Ch_P For Each Sh In ThisWorkbook.Worksheets If Sh.ProtectContents = True Then Sh.Unprotect Password:="123": Sh.Cells.Locked = False If Not Sh.Cells.HasFormula Then Sh.Cells.Locked = False Else Sh.Cells.FormulaHidden = True For Each Rng In Sh.UsedRange If Rng.Value > Empty Or Rng.HasFormula Then Rng.Locked = True Next If Sh.Cells(1, "IV") = "True" Then Sh.Protect Password:="123" Next End Sub Private Sub Ch_P() Dim Sn As Worksheet For Each Sn In ThisWorkbook.Worksheets If Sn.ProtectContents = True Then Sn.Unprotect Password:="123": Sn.Cells(1, "IV") = "True": Sn.Protect Password:="123" Next End Sub ارجو التجربه واي ملاحظات أنا موجود تحياتي