التقني

وعليكم السلام أخي العزيز أرفق مثالا لتتضح الرؤية عند الأخوة

وعليكم السلام ورحمة الله العفو أخي العزيز الشرح : عندما تنشيء جدول وتقوم بتسمية الحقول (في وضعية التصميم للجدول) يوجد خصائص لكل حقل من ضمن هذه الخصائص 1- (قاعدة التحقق من الصحة) وبجانبها حقل إدخال القاعدة ولتكن (>50) و 2- نص التحقق من الصحة وبجانبها حقل إدخل النص وليكن ( يجب أن تكون القيمة أقل من 50) فعند التنفيذ وإدخال قيمة أكبر من 50 يتم التدقيق بالقيمة المدخله فإن خالفت القاعدة يتم عرض رسالة نص التحقق من الصحة . هذا ما لدي

السلام عليكم ورحمة الله الطريقة التي تطبقها لا تصلح للسجلات المتوسعة ( أي التي تطلب إدخال أكثر من سجل لموظف واحد مثل الدرجات أو الاجازات أو أيام الغياب ... الخ ) الحل: يجب أن يكون لديك جدولان الأول .. للموظفين وبياناتهم الوظيفية والآخر .. لإختبارات الموظفين وتواريخها وما عليك إلا ربط هاذين الجدولين ببعضهما وبالتالي يصبح لديك جدول متوسع لا حدود له ويحوي جميع الإختبارات ومن خلال العلاقات والاستعلامات يتم فرز كل موظف وإختباراته . أرجو أن أكون قد وفقت بتوضيح الفكرة

السلام عليكم ورحمة الله برأي المتواضع هو أن تعمل ثلاث مربعات نص الأولى للترقيات ( 6 ، 5 ، 4 ... الخ) والثاني لترقيم والأخير يدمج بين مربعي النص الأول والثاني لينتج لنا رقم الملف الخاص بالموظف وهكذا يتم التحكم بسهولة برقم الموظف أثناء الترقيات من الفوائد أيضا يمكنك عملا استعلامات تستند الى حقل الدرجة لتحصر الموظفين في درجة معينة . وكذلك لسهلة البحث أيضا . فكرة متواضعة أنظر المرفقات من خلال هذا الرابط http://www.officena.net/ib/index.php?showtopic=9315 بالتوفيق

وعليكم السلام ورحمة الله حياك أخي العزيز وفيك بارك الله أخي

السلام عليكم ورحمة الله الأخت مها بحثت في كثير من المواقع الأجنبية المختصة بالأوفيس فتبين لي أن مسألة تحويل برنامج الاكسل بكامله الى برنامج أكسس تعتمد على برامج مخصصة لهذا الشأن . فعلى سبيل المثال : هذا الموقع : http://www.4tops.com/convert_excel_to_access.htm فيه برنامج متخصص بتحويل ملفات الاكسل الى ملفات آكسس أرجو أن تكون المعلومة قد وصلت وسامحينا على التقصير

الله آمين .. ولك بالمثل اليك هذه المواقع مواقع انجليزية : www.access-programmers.co.uk/forums/ www.microsoft-accesssolutions.co.uk/ www.fontstuff.com/access/ www.access-programmers.co.uk/forums/ www.dbforums.com/ www.moretools.com/ مواقع عربية: www.arabteam2000-forum.com/ www.moudir.com/vb/ www.granite.ab.ca/access/ www.msaccess4arab.net/ www.geocities.com/m_jewabr/ www.c4arab.com/ www.websy.net/

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

السلام عليكم ورحمة الله بالنسبة لتحويل المبلغ الرقمي الى نصي فهذا يسمى التفقيط ويمكنك عمل ذلك من خلال هذا الكود : هذا الكود يقوم بتحويل الأرقام إلى نصوص ويفيد خاصة من يعملون في مجال المحاسبة التي تتطلب منهم كتابة المبالغ الماليه رقماً وكتابة فمع هذا الكود ما عليه سوى كتابة الرقم فقط 0وأحببت أن أضعه هنا للفائدة Public Function Horof(X) Ma = " ريال" Mi = " هللة" N = Int(X) B = Val(Right(Format(X, "000000000000.00"), 2)) R = SHorof(N) If R <> "" And B > 0 Then Result = R & Ma & " و " & B & Mi If R <> "" And B = 0 Then Result = R & Ma If R = "" And B <> 0 Then Result = B & Mi Horof = Result End Function Private Function SHorof(X) N = Int(X) C = Format(N, "000000000000") C1 = Val(Mid(C, 12, 1)) Select Case C1 Case Is = 1: Letter1 = "واحد" Case Is = 2: Letter1 = "اثنان" Case Is = 3: Letter1 = "ثلاثة" Case Is = 4: Letter1 = "اربعة" Case Is = 5: Letter1 = "خمسة" Case Is = 6: Letter1 = "ستة" Case Is = 7: Letter1 = "سبعة" Case Is = 8: Letter1 = "ثمانية" Case Is = 9: Letter1 = "تسعة" End Select C2 = Val(Mid(C, 11, 1)) Select Case C2 Case Is = 1: Letter2 = "عشر" Case Is = 2: Letter2 = "عشرون" Case Is = 3: Letter2 = "ثلاثون" Case Is = 4: Letter2 = "اربعون" Case Is = 5: Letter2 = "خمسون" Case Is = 6: Letter2 = "ستون" Case Is = 7: Letter2 = "سبعون" Case Is = 8: Letter2 = "ثمانون" Case Is = 9: Letter2 = "تسعون" End Select If Letter1 <> "" And C2 > 1 Then Letter2 = Letter1 + " و" + Letter2 If Letter2 = "" Then Letter2 = Letter1 If C1 = 0 And C2 = 1 Then Letter2 = Letter2 + "ة" If C1 = 1 And C2 = 1 Then Letter2 = "احدى عشر" If C1 = 2 And C2 = 1 Then Letter2 = "اثنى عشر" If C1 > 2 And C2 = 1 Then Letter2 = Letter1 + " " + Letter2 C3 = Val(Mid(C, 10, 1)) Select Case C3 Case Is = 1: Letter3 = "مائة" Case Is = 2: Letter3 = "مئتان" Case Is > 2: Letter3 = Left(SHorof(C3), Len(SHorof(C3)) - 1) + "مائة" End Select If Letter3 <> "" And Letter2 <> "" Then Letter3 = Letter3 + " و" + Letter2 If Letter3 = "" Then Letter3 = Letter2 C4 = Val(Mid(C, 7, 3)) Select Case C4 Case Is = 1: Letter4 = "الف" Case Is = 2: Letter4 = "الفان" Case 3 To 10: Letter4 = SHorof(C4) + " آلاف" Case Is > 10: Letter4 = SHorof(C4) + " الف" End Select If Letter4 <> "" And Letter3 <> "" Then Letter4 = Letter4 + " و" + Letter3 If Letter4 = "" Then Letter4 = Letter3 C5 = Val(Mid(C, 4, 3)) Select Case C5 Case Is = 1: Letter5 = "مليون" Case Is = 2: Letter5 = "مليونان" Case 3 To 10: Letter5 = SHorof(C5) + " ملايين" Case Is > 10: Letter5 = SHorof(C5) + " مليون" End Select If Letter5 <> "" And Letter4 <> "" Then Letter5 = Letter5 + " و" + Letter4 If Letter5 = "" Then Letter5 = Letter4 C6 = Val(Mid(C, 1, 3)) Select Case C6 Case Is = 1: Letter6 = "مليار" Case Is = 2: Letter6 = "ملياران" Case Is > 2: Letter6 = SHorof(C6) + " مليار" End Select If Letter6 <> "" And Letter5 <> "" Then Letter6 = Letter6 + " و" + Letter5 If Letter6 = "" Then Letter6 = Letter5 SHorof = Letter6 End Function ضع هذا الكود في وحدة نمطيه عامة ثم على نموذج ضع مربع نصين الأول سمه مقدار_الراتب_رقماً والثاني مقدار_الراتب_نصاً0 وفي حدث بعد التحديث لمربع النص المسمى مقدار_الراتب_رقماً أكتب الكود التالي: strN = Horof(مقدار_الراتب_رقماً) مقدار_الراتب_نصاً = strN فعندما تكتب الرقم 4552 في الحقل المسمى مقدار_الراتب_رقماً يكون حقل مقدار الراتب نصاً كالتالي اربعة الآف وخمسمائة وإثنان وخمسون ريال مع تعديل ما يناسب عملة بلدك . وهو مقتبس من موقع الفريق العربي للبرمجة لكاتبه مصلح الحريصي - جزاه الله خيرا بالتوفيق

السلام عليكم ورحمة الله الموضوع سهل بإذن الله الحل سيكون بطريقة الربط بالخطوات التالية : 1- انشئ ملف أكسس جديد 2- من القائمة ملف ثم احضار بيانات خارجية ثم ربط جدول 3- افتح قائمة (أنواع الملفات) واختر MicroSoftExcel بعد أن يظهر ملف الاكسل المراد ربطه اضغط زر ارتباط . 4- سيظهر معالج الارتباط 5- اختر ورقة العمل التي فيها البيانات ثم اضغط التالي 6- حدد ما إذا أردت أن يكون أول صف هو الذي يحوي أسماء الحقول أم لا ثم اضغط التالي . 7- قم بتسمية جدول الارتباط هذا ومن ثم اضغط إنهاء . 8- سيظهر في منطقة الجداول جدول أيقونته على شكل الاكسل وبجانبه سهم يدل على أن هذا الجدول يستقي معلوماته من ملف خارج الأكسس . والله أعلم وبالتوفيق .

السلام عليكم ورحمة الله الموضوع بسيط بإذن الله الخطوات : أولا : الإستيراد 1- انشئي ملف أكسس جديد 2- بعد تسميته قومي بعمل استيراد عن طريق ( ملف ثم إحضار بيانات خارجية ثم استيراد ) 3- سيتم فتح صندوق الحوار الخاص بالاستيراد 4- إختاري من (أنواع الملفات ) نوعية الملف (MicroSoft Excel) 5- إبحثي عن البرنامج الذي عملتيه بالإكسل 6- بعد العثور عليه إختاريه ثم اضغطي (استيراد) . ثانيا : التحويل 7- سيظهر مربع حوار (معالج استيراد جداول بيانات ) وإختاري منها ورقة العمل التي فيها البيانات (عادة ما تكون الأولى ) ثم اضغطي التالي . 8- ضعي علامة صح في المربع الصغير لإعتبار أن أول صف هو الذي يحوي أسماء الحقول ثم اضغطي التالي . 9- سيتم تخييرك إما أن تخزني هذه البيانات في جدول جديد أو في آخر موجود مسبقا في القائمة (الأفضل جدول جديد ) ، ثم اضغطي التالي . 10-في هذه الخطوة المطلوب منك التعديل في مواصفات أول عمود (اتركيها كما هي ) اضغطي التالي . 11- في هذه الخطوة هل تريدين رقم معرف فريد ينشئه أكسس تلقائيا أم تختارين من القائمة أم لا هذا ولا ذاك . بعد ذلك اضغطي التالي . 12- الخطوة الأخيرة (وبما أننا اخترنا في الخطوة 9جدول جديد ) قومي بوضع اسم لهذا الجدول ثم اضغطي إنهاء . هكذا سيتم استيراد ملف الأكسل ليكون على هيئة جدول أكسس وما عليك أختي الا تصميم نموذج يليق بهذا الجدول . وبالله التوفيق

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

وعليكم السلام ورحمة الله وبركاته أخي العزيز إليك هذا الموقع العربي : http://www.msaccess4arab.net/ فيه الشرح والأمثلة ويمكنك تحميلها كي تطبقها على جهازك وإن أردت المزيد ( عربي كان أم انجليزي) فعلى الرحب والسعة ولا تنساني من دعوة صالحة . بالتوفيق والسداد

وعليكم السلام أخي ثبيت عرب مثالك قريب جداً لكن توجد ملاحظتين : 1- كما قلت أنت أن الذي تم إدخاله ضمن القائمة سيزول بمجرد إغلاق النموذج ، وهذا يجب تفاديه . 2- يجب أن يظهر البند الجديد ضمن محتويات مصدر الصف وذلك عند فتح النموذج في وضع التصميم .

السلام عليكم ورحمة الله اخواني الكرام لدي تساؤل أعتقد أنه بسيط لكنه صعب المنال بالنسبة الي . التساؤل هو : لدي قائمة منسدلة خصائصها كالتالي : نوع مصدر الصف = قائمة القيم مصدر الصف = "مدير"؛"رئيس قسم"؛"كاتب"؛"طباع" التزام يالقائمة = نعم والذي أريده هو : هل يمكن إضافة محتوى جديد الى مصدر الصف وبالطبع الإلغاء أيضا . قد يقول البعض لماذا هذه الغلبة ولماذا لا تضع نوع مصدر الصف على هيئة جدول منفصل به هذه المسميات ويسهل لك الأمر . صح الكلام لكن .... هل يمكن إيجاد هذه الطريقة . وبارك الله بكم

السلام عليكم ورحمة الله انظر الرد في المرفقات التالية : MyCo.rar

جرب هذا الشرط لعل فيه مبتغاك : لنفرض أن الدرجة من 100 وما فوق الـ50 يعتبر ناجح =IF(A2>=50;"ناجح";"راسب") حيث A خانة الدرجة والشرط أعلاه ضعه في خانة النتيجه B وبالتوفيق

السلام عليكم ورحمة الله مجرد مشاركه هذا برنامج خاص بالأسهم أعتقد أنه يفيدك : http://www.officena.net/ib/index.php?showtopic=9194

السلام عليكم لا أعلم إن كانت قاعدة Select Case تعمل على الأكسل كما هو الحال في الأكسس ؟ بمعنى أن هذه القاعدة فيها الحل للسؤال لكن .. في الأكسس لذا لزم التنويه بالتوفيق

السلام عليكم ورحمة الله تسلم أخي على هذا البرنامج

الموضوع بإختصار .. مثال : عند ترك الحقل فارغ تظهر رسالة تنبيه بذلك ( علما بأن عدد الحقول يتجاوز 14 حقل ) هل بالامكان وضع كود واحد لكل هذه الحقول ؟ وأين يوضع هذا الكود ؟ وتسلم

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

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

السلام عليكم ورحمة الله جزاك الله كل خير أخي رضا عقيل قمت بتثبيت البرنامج وبع أن فتحته ظهر مربع حوار بإسم : (معالج تركيب الأدوات التطويرية....رضا عقيل) - الخطوة الأولى الزر (استعراض) لا يعمل هل المشكلة عندي ؟ الأوفيس 2003 والويندوز XP-SP2 وجزاك الله كل خير

أخي العزيز أنظر الى المرفقات التالية : http://www.officena.net/ib/index.php?showtopic=9162 وبالتوفيق