نجوم المشاركات
Popular Content
Showing content with the highest reputation on 03/05/16 in all areas
-
السادة / أعضاء منتديات أوفيسنا التعليمية الموقرين السلام عليكم ورحمه الله وبركاته بالمرفقات (( هدية )) بريمج العيادة الطبية الإصدار الأول التجريبى ملف تنفيذى أى بإمتداد exe لا يحتاج الى خفض أمان الماكرو لكى يعمل يرجى تجربتة وإبداء الملاحظات من قبل كل مهتم وتقبلوا منى وافر الاحترام والتقدير بريمج العيادة الطبية الإصدار الأول32 بت.rar4 points
-
السلام عليكم ورحمة وبركاته .. في المرفق يتم استخراج بيانات الجهاز .. المعالج + الماذر بورد + الهارد ديسك اتمنى ان يفيد من يبحث عنه ... ولا نستغني ابدا عن توجيهات خبرائنا الكرام .. ونقاش الأخوة اعضاء المنتدى الحبيب وتبادل وجهات النظر وكذلك من له تجارب مع الموضوع. بالتوفق للجميع MyProtect.rar3 points
-
3 points
-
1. سيبك من ده دلوقتي 2. ميزة الاكسس هو مصمم الاستعلامات ، استفيد منه ، لأنه جدا قوي ، و أحد اسرار الاستعلام ، ما تعمل كل شئ في استعلام واحد ، وانما تهيئ استعلام لإستعلام آخر (كما في مثالك اعلاه ، وكما في المثال التالي): http://www.officena.net/ib/topic/67637-جمع-حقول/?do=findComment&comment=440543 هي قاعدة البيانات ايه؟ 1. ادخال بيانات ، 2. بحث وتصفية البيانات (استعلام) ، 3. إظهار النتائج. فالاستعلام هو اهم شئ تقدر تستفيد منه في الاكسس ، وحتى لما نستعمل الكود ، نستخدم الاستعلام للسجلات اللي نريدها (يعني نجهز السجلات اولا بالاستعلام) ، ثم نكمل الباقي بالكود ، والذي هو أبطأ بكثير في عمله من الاستعلام جعفر2 points
-
2 points
-
2 points
-
شكرا اخوي عبدالرحمن على الملاحظة يبدوا ان هذه هي مشكلة اخونا عبدالله قدور2 points
-
جزاكم الله خيرا اخواني الكرام واخص صاحب الموضوع اخونا سعيد لي تجربة مع رقم اللوحة الام عملت برنامج وجعلت الحماية على اللوحة الام ولكني تفاجأت في يوم ما ان بعض شركات الحواسيب رقم اللوحة الام متشابه في جميع اجهزتها طبعا التجربة كانت على عدة حواسيب من اصدار معين2 points
-
السلام عليكم هذا رابط ومن منتدانا مع اني لم ادخل في تفاصيله ولكن اعتقد انها تجربة بها فائدة تحياتي2 points
-
ايش رأيك في مثال موسع أكثر نستطيع ان نعمل قاعدة التحقق من الصحة في كود ، مثلا: اعمل حقل اسمه int_No ، وعلى حدث "الحالي" للنموذج ، استعمل كود مثل هذا: Private Sub Form_Current() If Day(Date) <= 5 Then Me.int_No.ValidationRule = "is null or <=5" ElseIf Day(Date) <= 10 Then Me.int_No.ValidationRule = "<=10" ElseIf Day(Date) <= 15 Then Me.int_No.ValidationRule = "isnumeric([int_No])=true" ElseIf Day(Date) <= 20 Then Me.int_No.ValidationRule = "isnumeric([int_No])=false" ElseIf Day(Date) <= 25 Then Me.int_No.ValidationRule = "between 15 and 30" Else Me.int_No.ValidationRule = "between 1 and 14" End If End Sub . فحسب يوم الشهر ، تتغير قاعدة التحقق من الصحة مرونة تامّه ، مو مثل الجدول جعفر2 points
-
أخي الحبيب رجب جاويش بارك الله فيك وجزتي خيراً على حلولك الجميلة مجرد سؤال : لما قمت بكتابة أكواد في حدث كل ورقة عمل على حدا .. ما رأيك بإزالة كل الأكواد في حدث كل أوراق العمل ووضع الكود التالي في حدث المصنف Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = [B4].Address Then Application.EnableEvents = False Sheets("1").[B4] = Target.Value Sheets("2").[B4] = Target.Value Sheets("3").[B4] = Target.Value Application.EnableEvents = True End If End Sub تقبل وافر تقديري واحترامي2 points
-
أخى الحبيب ياسر بالعكس أنا أسعد كثيرا بهذه النوعية من النقاش لانها تثرى الموضوع ويستفيد منها الجميع أولا : النقطة الخاصة بتحديد الأعمدة ثم كليك يمين على رؤوس الأعمدة ثم يختار الأمر Hide يكون سهل فعلا فى حالة الاخفاء ولكن فى هذه الحالة أنت تريد تحديد الأعمدة المراد اظهارها وليس اخفاءها وبالتالى لا يمكن تنفيذ ذلك الا من خلال الكود والا كان الأمر فى منتهى الصعوبة بدون الكود2 points
-
السلام عليكم أفضل تحية لأخى الحبيب ياسر على فتح موضوعات تفيد الجميع وتفتح نقاشات جميلة تعود بالنفع على جميع الأعضاء بالنسبة لهذ الموضوع ( اخفاء جميع الأعمدة ما عدا أعمدة محددة ) الكود الذى قدمه أخى المبدع سليم هو أبسط كود يقوم بعمل المطلوب فعلا ولكن لاثراء الموضوع هذه فكرة أخرى وفيها يتم تحديد الأعمدة المراد عدم اخفاءها عن طريق الماوس داخل inputBox وفى حالة تحديد أعمدة غير متجاورة يستخدم مفتاح CTRL أثناء التحديد Sub ragab() Dim Rng As Range On Error Resume Next Application.DisplayAlerts = False Set Rng = Application.InputBox(Prompt:="قم بتحديد الأعمدة التى لا تريد اخفاءها عن طريق الماوس وعند اختيار أعمدة غير متجاورة اضغط مفتاح Ctrl أثناء التحديد", Title:="اخفاء مخصص", Type:=8) Application.DisplayAlerts = True If Rng Is Nothing Then Exit Sub Columns.Hidden = True Rng.EntireColumn.Hidden = False End Sub2 points
-
حياك الله اخي الكريم شاهد المرفق شاهد حدث في الحالي للنموذج وحدث بعد التحديث لحقل birthdate بإمكانك اخفاء حقل calculate فيما بعد بالتوفيق Tccst.rar2 points
-
وعليكم السلام اخي الاستاذ عبد العزيز احسن الله عزاكم في فقيدكم ، ولا اراكم الله مكروها فيما تحبون ، وازال عنكم وبلدكم العزيز الهم والغم ، وابدلكم بها الخير والامن والاستقرار ، انه على كل شئ قدير ، ونعم بالله. لوسمحت تعطيني مثالين بالتفصيل على الذي تريد ، من واقع بياناتك (سواء على ملف اكسل او صورة او حتى كتابة يد) ، حتى استطيع مقارنة نتائجي به. جعفر2 points
-
يمكن استخدام طريقة تغيير خاصية قابل للتعديل وبالقيمة =نعم ! مع افتراض ان الخاصية تاخذ القيمة لا عند تحميل النموذج فعند تحميل النموذج يكون الحدث وعند التحميل للنموذج Me.AllowEdits = False وعند الضغط على الزر يكون الحدث Me.AllowEdits = true وهنا يظهر استفسار : ماذا بعد التعديل في النموذج هل يتم عودة عدم السماح بالتعديل ام يظل التعديل متاح ؟ فاذا يعود الاقفال اكتب الحدث التالي وعند بعد التحديث للنموذج Me.AllowEdits = False هنا اصبح السناريو : عند تحميل النموذج اول مرة غير متاح .... عند النقر على الزر متاح ... بعد التعديل يعود عدم السماح بالتوفيق2 points
-
بسم الله الرحمن الرحيم ارجو عدم التعليق داخل الموضوع لسهولة الوصول للدروس تباعا والتعليق يكون داخل الموضوع في الرابط التالي http://www.officena.net/ib/topic/65630-الردود-والاستفسارات-عن-دروس-الفيجوال-بيسك6-والاكسيل-ياسر-العربي/ أما ألان دعونا نغوص في بحور الفيجوال قليلا وترك الإكسيل مؤقتا لحين الإلمام بمبادئ الفيجوال وبداياته ثم نتحول للربط بينهم فيما بعد أولا قمت بإرفاق نسخة محمولة من برنامج الفيجوال بيسك6 موجودة هنا صغير الحجم وتفي بالغرض ألان http://up.top4top.net/downloadf-top4top_20111f0b9a1-rar.html نقوم بتفعيل البرنامج من VbPortable6.reg ثم نقوم بتشغيل البرنامج منvb6 وان واجهتم اي مشكلة في التشغيل يرجى تشغل البرنامج كمسئول كما بالصورة تظهر لنا الشاشة الآتية 1- فتح مشروع جديد 2- فتح مشروع موجود مسبقا 3- اخر مشروعات تم فتحها 4- وهو المشروع الافتراضي الذي سنعمل عليه دائما نقوم بفتح standard.exe جديد سيظهر لنا بالشكل التالي 1- شريط القوائم 2- شريط الادوات القياسي 3- نافذة المشروع 4- نافذة الخصائص 5- شريط الادوات 6- نافذة الفورم او برنامجنا وبكدا نكون عرفنا شكل الواجهه للبرنامج نخش في مقارنة سريعه قبل البدأ في العمل علي المشروع بين هذه النافذه ونافذه محرر الاكواد داخل الاكسيل وهذه صورة لنافذة محرر الاكواد داخل الاكسيل 1- شريط القوائم 2- شريط الادوات القياسي 3- نافذة المشروع 4- نافذة الخصائص 5- شريط الادوات 6- نافذة الفورم او برنامجنا ايه دا تخيلو ان احنا بنتعامل مع نفس محرر الاكواد كله كان مصعبها علي نفسه ويقول برمجة ومش عارف ايه اهو هو هو محرر الاكواد بس التوسع في مجال اخراج البرامج انما الواجهه وطريقة العمل هي بعينها طيب وبعدين ياعم الحاج كمل اقول لكم حاجه حلوة كمان ومقارنة سريعه تانية نفس الادوات واسمائهم بس مش عارف بيرخموا ليه وبيزودو كلمة بوكس وبوتن يعني لما نكتب مثلا تكست بوكس 1 بتساوي تكست بوكس 2 نعملها كدا اكسيل TextBox1.Text = TextBox2.Text فيجوال بيسك6 Text1.Text = Text2.Text دا الطبيعي العادي وممكن نسميهم مثلا اسيل1واسيل2وتمشي مع المحررين Aseel1.text = aseel2.text اظن كدا الصورة وضحت لمعظم الموجودين والمتابعين يلا بينا نعمل برنامجنا الاول مع بعض وقبل المشروع الاول نبدأ بمشروع بسم الله الرحمن الرحيم نضع عدد واحد تكست وكومند1 نضغط علي الكومند مرتين ليظهر محرر الاكواد نضع به التالي ثم نضغط run او F5 ثم نضغط علي الزر ليظهر لنا بسم الله نبدأ من جديد طيب لحفظ المشروع علي هذا الوضع نقوم بالذهاب الى قائمة File ومنها save project as ونحدد له مكان ونحفظ يتم حفظ المشروع وعدد الفرومات الموجودة معه طيب عاوزين نحول البرنامج بتاعنا لتنفيذي بقي عشان نشغله علي أي جهاز ونفرج الناس علي ابداعنا في الفيجوال بردو من قائمة file نختارmake project ونضعه في المكان اللي احنا عاوزينه وهذا شكل البرنامج ناخد مشروع تاني علي السريع صغير ايضا عبارة عن أله حاسبة بسيطة المكونات تلاته تكست تلاته ليبل اربعه كومند كما بالصورة ونضع بداخل الفورم الاكواد التالية ونحفظ المشروع ونحوله لملف تنفيذي كما تعلمنا سابقا وزي الشطار كدا كل واحد يرفق المثال اللي عمله في موضوع الردود والاستفسارات عن درس الفيجوال بيسك6 والاكسيل وانا علي ثقة تامة ان الاخوة المتابعين سيبدعوا في العمل انا حاولت اشرح بطريقة تقليدية بسيطة ولكن هلاقي منكم ابداع غير عادي باذن الله وهلاقي برامج تانية بتتعرض منكو باذن الله مع تحياتي ياسر العربي يتبع1 point
-
الرجاء مساعدتي لاني تعبت من كثرة البحث اريد اخفاء شاشة اكسيس وقد قراءت عشرات المواضيع عن الموضوع في هذا المنتدى وفي غيره ولم استطع معرفة الطريقة يا ريت احد يساعدني ملاحظات / قراءت انه لازم تكون الخصائص pop up = yes ولم اعرف اساسا اين اجد هذه الخصائص1 point
-
اعتذر منك استاذ محمد ... لم اشاهد ردك الا الآن فيك الخير والبركة وربنا يعينك ويقويك .. وانت سباق لفعل الخير دائما .. لا اقصد الهاردات وانما مساعدت اخوانك في المنتدى بما تستطيع .. ولك التقدير والحب استاذ محمد بالتوفيق1 point
-
معي تمام اكسس 2013 وويندوز 7 وهنا ولعل به فائدة بالتوفيق1 point
-
السلام عليكم ارفقت لك مثال قمت بالتعديل عليه وهو مشاركة للاخ سعيد صواب وفيه ثلاثة انواع من الحماية ارجو ان يكون هو طلبك والسلام حماية برقم المعالج واللوحة الام والهارد.rar1 point
-
1 point
-
جزاك الله كل خير استاذ سعيد ... المرفقات شغالة 100 % وندوز 7 انكليزي اوفس 2010 عربي1 point
-
1 point
-
ليس من عدل كمن أبدع أخي الغالي رجب جاويش فأنت صاحب الكود وكل ما فعلته أنني اختصرت المسافة .. يعني بدل ما آخد أتوبيس أخدت توك توك (وكل السبل تؤدي إلى بلشاي)1 point
-
أخى الكريم // عبد العزيز البسكرى بارك الله فيكم وزادكم الله من فضله ومن علمه بداية بالنسبة لمربع الحوار بها إختيارين أينعم وهى لتجبر المستخدم على إدخال اسم الحاله ( المريض ) لكى أجبره على استخدام البريمج ليس إلا ومن ثم يمكنك بعد ادخال الاسم يظهر لك مربع حوار يمكنك من خلاله التراجع عن الإدخال أى ادخال اسم المريض ( الحاله ) أما بالنسبة للملف التنفيذى فهو للعلم ليس له فائدة غير أنه يمكنك من التعامل مع الملف الذى به أكواد بدون الحاجه الى خفض أمان الماكرو فالأكواد التى بالملف هى تمنع المستخدم من استخدام زر ESC وكذلك من الدخول الى محرر الأكواد اى تمنعك من استخدام زري ( ALT+F11 ) وطبعا يمكن التحايل عليها بكل سهوله حيث أننى لم أضع باسوورد لمحرر الأكواد والطريقة سهله وهى بتحميل ملف من موقع ( DoneEx ) وهى نسخة تجريبية لمدة 30 يوم ويمكنك شراؤها من الموقع رابط الموقع http://doneex.com/excel-compiler/ أو طبعا بعد تحميلها من الممكن كسر المدة وهى تقوم بعد تسطيبها بإضافة قائمة جديدة بالاكسل بإسمها ومن خلالها تقوم بتحويل الملف الى ملف تنفيذى وتختار صورة لجعلها أيقونه للملف وتقبل منى وافر الاحترام والتقدير1 point
-
السلام عليكم انا لا خبرة لي في هذا الموضوع ، ولكنه احد المواضيع المتداولة كثيرا ، Form Resizer انت في الواقع تريد: https://www.fmsinc.com/microsoftaccess/controls/components/form-resizer/index.html الاكسس 2010 له طريقة تستطيع ان تكبر/تصغر احجام حقول معينة في حال تكبير/تصغير الشاشة ، عن طريقة Anchoring ، مثل حقل Notes في الرابط التالي: http://www.appliedoffice.net/news/2009-may/access.html وهنا امثلة يمكن انزالها لتكبير/تصغير النموذج كاملا: http://jamiessoftware.esy.es/resizeform/afr.zip http://jamiessoftware.esy.es/articles/resolution.html http://www.databasejournal.com/features/msaccess/article.php/3689226/Auto-Resize-Access-Subforms.htm جعفر1 point
-
اخوي الفاضل ابا جودى قم بسترداد الوحده النمطيه والنموذج وقم بتعديل من النموذج علي نعم او لا وغيرها من هناك ثم ضع كلمه Dialog.Box في اول اكوادك العادية في النموذج وللافادة اكثر راجع رابط اخوي جعفر اعزة الله عند هذا السطر How to use it Download the demo database below and copy (drag & drop) the following into your application وهو الخاص بكيفيه الاستخدام والتي لم انتبه لها من قبل شكرا وسامحني علي رقاقه اللغه في الشرح1 point
-
ممكن تضع سطر في أول الكود ليلغي هذه الرسالة التي تسبب مشكلة Application.DisplayAlerts=False تقبل تحياتي القلبية1 point
-
سلمت يمينك أستاذنا الكريم أبو خليل جزاك الله عنا كل خير جربت مثالك الكريم وتم بفضل الله وبكرمك لم يعمل في البداية مع النموذج المنبثق1 point
-
شكر........ خاص لمجهودك الرائع مشكور................................................... اخي فاضل جعلها الله في ميزان حسناتك سعيد صواب1 point
-
الله يجزيك الخير, و يجعلها في ميزان حسناتك الله يوفقك1 point
-
1 point
-
1 point
-
1 point
-
حياك الله اختي الكريمة الق نظرة على الرابط http://www.officena.net/ib/topic/34968-اظهار-المكرر-فقط-تمت-الإجابة/ بالتوفيق1 point
-
بسم الله ما شاء الله عليك أخي الحبيب الزباري موضوع بسيط جداً لكنه في غاية الروعة والجمال ، وجماله يكمن في بساطته حيث أن الكثير ممن يتعاملون مع الإكسيل لا يعرفون استخدامات الدالة ولا يعرفون البارامترات المستخدمة .. من ثم تأتي الصورة لتعبر بشكل جميل عن استخدام الدالة ومعرفة البارامترات الخاصة بها تقبل وافر تقديري واحترامي1 point
-
1 point
-
أخوي ابو خليل رحم الله والديك دنيا وآخرة ، كنت اريد ابحث عنها جعفر وتمت التجربة بنجاح وان شاء الله استخدم هذه الطريقة في مرفق الرابط: http://www.officena.net/ib/topic/67205-هل-من-حل-شافى-لمشكلة-اختلاف-اعدادات-اللغة-بالويندز-على-الأجهزة-المختلفة/?do=findComment&comment=437551 وبهذه الطريقة يتكامل الموضوع اكثر جعفر1 point
-
1 point
-
اخي وحبيبي في الله ياسر خليل أبو البراء الجواب بيبان من عنوانه . نحن لن ننظر للمخرجات حتى نقيم البرنامج يكفى انه يحمل اسمك ..وده معناه كبير جدا جدا ويدل على عبقريه وتميز تحياتي وحبى وتقديري لشخصكم الكريم1 point
-
حبيبى يا ابوالبراء هههههههههههههههههه حلو اكسلجى دى ههههههههههههههههههه ممكن حد يفتكرها اسرنجاتى هههههههههههههههههههههههه يا عم والله ما عندى وقت هنا فى الغربه برجع البيت الساعه 7 مطحون من الشغل ومهنتى بتعامل مع ارقام يعنى برجع مدروخ برنامج ايه والله ما بعت كله هدايا والله والله كنت هبصيها ليك وسالتهم على فيزا قالو والله مفيش هما عايزين حد من هنا لان مفيش فيز والله نفسى اسوقلك واخد 30 % ههههههههههههههه بس لما انزل مصر لان هنا مش هينفع انا لو مكانك اعمل مركز تدريب ودورات باسكندريه أيه رائيك فى الفكره يالا وانا هدعمك1 point
-
أخي وحبيبي في الله حسام عيسى الإكسيلجي المتميز بارك الله فيك وجزيت خيراً على مشاركتك المميزة .. مركز تدريب ودورات وبرنامج محاسبي على أعلى قدر وشغل ومش لاقي وقت (بقر بس) ربنا يزيدك من فضله وبعدين اللي معندكش وقت ليه باصيه لأخوك ..اللعبة خد وهات (ربنا يصلح أمورنا جميعاً) وبالنسبة للـ 10% لا تقلق ممكن خليهم 30% بس اعملي دعاية وليك على كل راس 30% ..نسبة عمولتك تقبل وافر تقديري واحترامي1 point
-
بارك الله فيك اخي الغالي لا بأس ان يكون لنا جانب من مجهودنا بس ياريت حط نسخة ديمو كدا ولا تجريبية ولا خايف نقلبها منك1 point
-
1 point
-
السلام عليكم ورحمة الله وبركاته 6 صيغ عن البحث عن اخر قيمة او نص فى عمود حتى مع وجود فراغات تم تناول هذا الموضوع فى العديد من المواقع واليكم افكارى المتواضعه فى هذه الحاله تقبلو تحياتى لاتنسونا بصالح دعاؤكم اخر قيمة - 3.rar1 point
-
السلام عليكم أخي سالم بالنسبة للكود UserName=InputBox (Prompt:="Please enter your name") تقوم هذه الدالة بالسماح للمستخدم بإدخال نص ما ومن ثم تخزين هذا المتغير في المتغير UserName ثم استخدام هذا المتغير في الكود ، مثلاً في المثال السابق يمكن إظهار رسالة ترحيب للمستخدم استناداً إلى المتغير الذي تم تخزينه MsgBox "Hello " & UserName إليكم ملف مرفق به الشرح أخوكم أبو البراء InputBox.rar1 point
-
إخواني نسيت الواجب مش اللي أنا حاحله ، طبعاً اللي إنت حتحلوه!!!! * من ضوء ما درست قم بعمل دالة UDF تقوم بحساب مساحة الدائرة وأعطها الاسم CircleArea * قم بشرح مبسط لهذا الكود: Set Report = Worksheets("Sheet1").Range("A1:E10") Report.Select Range("b1").Activate Range("E10").Value = "Khalil" X = Range("E10").Value MsgBox X1 point
-
السلام عليكم ورحمة الله وبركاته الأخ الحبيب أيمن بدر جزاكم الله خيراً على هذا التشجيع وأرج أن ينضم إلينا كثير من الأعضاء حتى تعم الفائدة أخي وحبيبي أبو عبد الرحمن المقدسي يبدو أنك من أكثر المواظبين على هذه الدورة ، شكلك ناوي تجيب امتياز أما بالنسبة للبهارات خايف تكون كتير تقوم الناس يجيلها إمساك وساعتها بدل ميدعولي حيدعو عليا أتمنى أن يكون الدرسين نالوا إعجابكم واستفدتم منهما وتكون عملية الاقتحام إلى ذلك العالم الشيق الممتع تمت بسلام إليكم الصاروخ الثالث أقصد الدرس الثالث ( الفصل الأول _ الجزء الثالث ) كان فيه مثال مرفق بس أنا نسيت أحمله على الفلاشة ، وأوعدكم بكرة حيكون المثال معي إن شاء الله ChapterOne_3.rar ChapterOne_C.rar1 point
-
السلام عليكم إخواني الكرام أخي أحمد يعقوب مشكور على المرور الكريم وفي انتظار التفاعل معنا في هذه الدورة فنحن في حاجة إليك منورنا يا باشا أخي خالد القدس اهضم كويس عشان اللي جاي ميكبسش على العقل ويخليه يهنج!!! أخي جودة أنا بدأت ولو لم أستمر فليستمر غيري وليكن أنت أو أي عضو بالمنتدى المهم ألا يغلق الموضوع حتى نطمئن إلى أننا وصلنا إلى مرحلة متقدمة أخي أبو عبد الرحمن بالله عليك وحدة وحدة الموضوع محتاج تأني وتروي أنا عارف إنك مستعجل وأنا مستعجل وكل الأعضاء مستعجاين ، بس متنساش إن الدورة للذين هم في مرحلة الحبو ( أمثالي) إليكم إخواني الجزء الثاني من الفصل الأول ، وقد رفعته بالتنسيقين 2003 و 2007 أخوكم أبو البراء ChapterOne_2.rar ChapterOne_B.rar1 point