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

افتح فيجوال بيسك CTRl+F اكتب التعبير او الكلمة ال عاوز تبحث عنها واختار Current project سيتم البحث في كل اكواد فيجوال بيسك تقبل تحياتي

عفوا اخي على التأخير الرد لكن كان اليوم الجمعة وما افتح النيت كثيرا فيه اخي فتح نموذج الفاتورة في وضع تصميم وحدد رقم الصنف وفي خحدث بعد تحيدث اكتب هذا الكود Me.نص15 = Me.رقم_الصنف.Column(2) لكن انا عندي ملاحظة الجدول الفاتورة ما بها حقل اسم الصنف وما عرفت السبب وتريد بيكون في نموذج الفاتورة اسم الصنف وفي هذه الحالة ما يتم الحفظ الاسم الصنف في قائمة الفاتورة واليك ملفك بعد اضافة الكود الاعلاه فقط 10 (1).rar

برنامج_مخازن_جديد.xlsm

كيف تمنع اكسل من تغيير خلية معينة هسى ان ينال الاعجاب هروب من التحديد.rar

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

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

هذا الذى ندندن حوله - ايش تعنى بترقم متصل أو منفصل للوارد وعلى أى اعتبار سيكون الانفصال أو الاتصال بالترقيم

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

الآن سؤالك اصبح غير واضح!! رجاء شرح ما تريد وبالتفصيل ، وابدء باسم النموذج واسم الحقل واسم الجدول ن ثم ماذا يجب ان نرى ، وماذا تريد ان يصير انت صاحب البرنامج وادرى به منا جعفر

تفضل هذا مثال ، وانت ضبطه على برنامجك for JPG files Shell ("cmd /c mspaint /p " & "D:\test.jpg") for PDF files Shell ("C:\Program Files\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe /p /h " & "D:\Sheet.pdf") جعفر

هل تقصد أن الأقسام لديك هى قسم الوارد وقسم الصادر وأن لكل قسم مستخدمين يتعاملون معه ان كان هذا الذى تعنى - فأعنى على نفسك بكثرة السجود - أقصد بمثال , ولا تنسانا من دعائك بالسجود حياك الله حبيبى الغالى

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

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

اتفضل لكن ما عرفت ما هو المشكلة استعلام سكان 2 مع رقم 3 !! اذا ما تم الوصول الى النتيجتك غدا ان شاء الله راح اشوفه لان ما عندي وقت اليوم Test (8).rar

أخي العزيز / طائع وبعد إذن أستاذنا الكبير سليم حاصبيا حفظه الله هذه معادلة أخرى إثراء للموضوع =IF(B6="";"";TEXT(B6;"mmm yyyy")) تحياتي لكم ولأستاذنا سليم

اتفضل لا يظهر الخطأ حين اذا تاريخ الترقية بيكون فارغة Test (8).rar

وعليكم السلام تفضل (طبعا غير معروف عندنا المعايير بالضبط ، فهناك احتمال محتاج تغيير حسب المعايير) task1 = "select top " & strmcount & " * from nregistration where " & strtotal1 & " And " & strtotal2 جعفر

لا داعي للشكر علواجب اخي الحبيب تحياتي

اليك ما طلبت مع تقدير مدرسة مثال حفظ من مربع نص في نموذج إلى الجدول.rar

شكرا اخى شڤان انت دائما يسهل الاشياء ، بالطبع انا اتبع نصيحتك ... شكرا للمساعدة

اهلا بك اليك هذا الكود me.اسم_الموظف = Dlookup("[اسم_الموظف]","mytable","[رقم_القيد]="& me.رقم_القيد ) و اسف ما نكدر نساعدك اكثر لانك ما ارفقت قاعدة بياناتك بدل ماي تابل ب جدول الموظفين

اخي ريباز اتفضل ما طلبت لكن هناك ملاحظة من الافضل ان نكتب كل الاسماء المربعات النصية و الليبلات بالانكليزية اي لاتينية و نبدأ بالحرف وليس الرقم ملفك بعد تعديل Kurdstan.rar

اتفضل كما تريد حين تفتح النموذج راح يعمل ما تريد 123.rar

تفضل تم عمل اللازم آمل ان يحوز على استحسانك البيانات كثيرة جدا ستلاحظ بطء عند بداية فتح التقرير يمكن التسريع من خلال استخدام التصفية حسب الحاجة ملحوظة : بعض المدارس ليس لها ارقام فوضعت لها ارقام وهمية تسلسيلة تبدأ من 1 student1.rar

وعليكم السلام ماشايف ليش لا !! جعفر

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

اليك هذه المعادلة =VLOOKUP(MONTH(B6),{1,"يناير";2,"فبراير";3,"مارس";4,"ابريل";5,"مايو";6,"يونيو";7,"يوليو";8,"اغسطس";9,"سبتمبر";10,"نوفمبر";11,"اوكتوبر";12,"ديسمبر"},2,0) اذا لم تعمل استبدل الفاصلة بقاصلة منقوطة لتصيح هكذا =VLOOKUP(MONTH(B6);{1,"يناير";2,"فبراير";3,"مارس";4,"ابريل";5,"مايو";6,"يونيو";7,"يوليو";8,"اغسطس";9,"سبتمبر";10,"نوفمبر";11,"اوكتوبر";12,"ديسمبر"};2;0)

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

أخى الكريم جرب الملف التالى سند 111صرف وقيض____1.rar

الــدرس الرابع: الجملة الشرطية ( IIF ) ( لقد قام أستاذي و أخي جعفر حفضه الله بتقديم هذا الدرس كله و أنا لم أفعل شيء سوى التنسيق و النشر فاللهم جازيه عنا خير الجزاء يا رب العالمين) طريقة استعمال ((iif: iif(expr, truepart, falsepart) iif(القيمة المطلوب تقييمها, اذا كان التقييم صح فستأخذ هذه القيمة, اذا كان التقييم خطأ فستأخذ هذه القيمة) مثال: Age=50 Age_Now = iif(Age=50 , "Yes it is", "No it is not") ميزاتها: نستطيع استعمالها في الكود ، والاستعلام نستطيع ان نضع اكثر من شرط واحد فيها مثال: Price=10 Qty=5 Sale_is= iif(Price* Qty = 50 , "Low sale", iif(Price * Qty = 100 , "Middle sale" , "Big sale")) عيوبها: الدالة تختبر جميع الحالات ، ولا تختبر القيمة الاولى وتخرج (مثل الـ IF): 1. المثال السابق ، مع ان اول تقييم هو الجواب الصحيح 10*5=50 ، إلا ان الدالة ستقوم بتقييم جميع الاختيارات ، مما يجعلها تأخذ وقت اطول للتقييم ، 2. بسبب اختبارها لجميع الحالات ، فيجب ان نكون دقيقين في وضع التقييم ، مثلا اذا اردنا اختبار قيمة مثال: Divide = iif(n2 = 0, MsgBox("القيمة صفر"), MsgBox(n1 / n2)) فاننا سنحصل على خطأ ، لأن الدالة تحققت من القيمتين ، والقيمة الثانية هي تقسيم رقم على صفر ، 3. بطيئه نوعا ما ، لأنها تحول الارقام الى Variant (رجاء مراجعة الدرس الاول للأخ صالح) ، ثم تقوم بالحساب ، 4. لا تستطيع ان تستخدم اكثر من 7 شروط في الاستعلام ، مثلا عندنا ارقام الاشهر ونريد نستخرج اسمائها ، 5. ببساطة مكن ان تخطأ في عدد الاقواس والفواصل ، 6. لا تستطيع قراءة ولا تغيير اي شئ بسهولة ، وخصوصا اذا كان عندنا اكثر من تقييم ، امثلة عملية: 1. اذا عندنا ارقام الاسبوع ، ونريد ان نستخرج ايامها ، فاذا عملنا الكود في الاستعلام مباشرة ، فسيكون صعب ، لذا ، فالطريقة التي اعملها انا هي: أ‌- عمل الكود في محرر VBA ، هكذا: لاحظ اني عملت اول شرط ونتيجة القيمة الصحيحة ، ثم انهيت السطر بخط سفلي _ (واللي معناه في البرمجة ان الكود سيتواصل في السطر التالي ، ثم انتقلت السطر التالي ، ونفس الشئ ، عملت الشرط التالي ونتيجة القيمة الصحيحة و.... كما سبق و... الى ان نوصل للسطر الاخير ، فوضعت الشرط الاخير ونتيجة القيمة الصحيحة والخطأ ، ثم حسبت كم قوس مفتوح ، فقفلت بنفس عددها: iDay = 2 Today_is = IIf(iDay = 1; "Sun"; _ IIf(iDay = 2; "Mon"; _ IIf(iDay = 3; "Tue"; _ IIf(iDay = 4; "Wed"; _ IIf(iDay = 5; "Thu"; _ IIf(iDay = 6; "Fri"; "Sat")))))) ب- والخطوة التالية ان نجعلها في سطر واحد ، حتى نأخذها للإستعلام ، وهي ان نحذف الاشارة _ ، لتكون النتيجة Today_is = IIf(iDay = 1; "Sun"; IIf(iDay = 2; "Mon"; IIf(iDay = 3; "Tue"; IIf(iDay = 4; "Wed"; IIf(iDay = 5; "Thu"; IIf(iDay = 6; "Fri"; "Sat")))))) . هكذا . 2. اذا عندنا سجلات الصف الاول والثاني ، واردنا معرفة عدد الطلاب لكل صف: iif([Section]= "A" ; 1;0) وهكذا تكون في الاستعلام: 3. اذا عندنا اكثر من 7 شروط (ارقام الاشهر نريد تحويلها الى اشهر) ، فهنا نضطر الى عمل وحدة نمطية: Function What_Month(M) Select Case M Case 1 What_Month = "Jan" Case 2 What_Month = "Feb" Case 3 What_Month = "Mar" Case 4 What_Month = "Apr" Case 5 What_Month = "May" Case 6 What_Month = "Jun" Case 7 What_Month = "Jul" Case 8 What_Month = "Aug" Case 9 What_Month = "Sep" Case 10 What_Month = "Oct" Case 11 What_Month = "Nov" Case 12 What_Month = "Dec" End Select End Function ونرسل لها ارقام الاشهر ، هكذا . والنتيجة

وعليكم السلام تفضل: كل شئ مربوط برقم الحقل Me.E_ID : هذا السطر يعمل نسخة من الصورة ويحفظها في مجلد الصور 'Copy the file to the PIC Folder FileCopy [PicFile], Application.CurrentProject.Path & "\PIC\" & Me.E_ID & ".jpg" وهاذ السطر يحذف الصورة من المجلد 'Delete the file from the PIC Folder Kill Application.CurrentProject.Path & "\PIC\" & Me.E_ID & ".jpg" وهذا السطر يعمل نسخة من ملف PDF ويحفظها في مجلد 'Copy the file to the PDF Folder FileCopy [PicFile], Application.CurrentProject.Path & "\PDF\" & Me.E_ID & ".pdf" جعفر Za-EMP5.zip

ما هي نسخة الأوفيس لديك وما إصدار الويندوز وهل الويندوز 32 بت أم 64 بت؟ وهل الكود لا يعمل على الإطلاق أم تظهر رسالة خطأ .. سيظهر في الفورم زر للتكبير وللتصغير وهذا ما يقوم به الكود ..أما زر الأمر المكتوب عليه "تصغير الفورم" فلا يرتبط بكود .. المزيد من التوضيح للمشكلة يساعد في حلها بسرعة وبكفاءة

السلام عليكم أخي صالح إطراء وتعقيب: الموضوع متكامل ، والتنسيق رائع والشئ الوحيد الذي لم تشر اليه هو (مأخوذ من برنامج الاكسس) ، هو خلط المتغير Expression Case 9, 11, 13 و Case 1 To 4, 7 To 9, 11, 13 . ومع ان تشبه الدالة Select Case إلى حد كبير الدالة If ، إلا ان المبرمجين المحترفين يفضلون استخدام Select Case على If جعفر

وعليكم السلام هذا يابو عبدالله يعمل عندي على الاصدار 2003 جرب وغير امتداد الملفات لعله يعمل عندك Private Sub zer1_Click() CreateMDE End Sub Public Sub CreateMDE() Const strcMDBFullPath As String = "d:\db1.mdb" Const strcMDEFullPath As String = "d:\db1.mde" Dim objACC As Access.Application Set objACC = New Access.Application objACC.SysCmd 603, strcMDBFullPath, strcMDEFullPath objACC.Quit acQuitSaveNone Set objACC = Nothing End Sub main.rar

اي ممكن لكن انتظرني حتى بعد يوم الجمعة لاني انا بستخدم موبايل وما افتح نيت كثيرا مع تحياتي

قبل ان نبدأ قل لي هل انا فهمت بصح ام لا حين تختار رقم الصنف مثلا ان يجيبك في حقل اسم الصنف اي اسم بيكون يساوي مع رقم الصنف مع تقدير

تفضل

يعني وصلت للمطلوب الحمد لله

اتفضل اخي الكريم Aziz (2).rar

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

اهلا وسهلا بك في منتدانا هل ممكن ترفع المرفق لكي نتم العمليه‌ عليه

صدقنى كلام جميل ومفيد جعله الله فى ميزان حسناتك

السلام عليكم ورحمة الله وبركاته برنامج انجاز ( برنامج مبيعات ومخازن ) للبيع بنظام الجملة والتجزية _________________ سعر البرنامج 30 $ فقط 500 ج عرض خاص ________________ للاستفسار واتساب 966535154420 فيس بوك www.facebook.com/acchosam _________________ الدخول للبرنامج مدير النظام - اسم المستخدم وكلمة المرور admin مستخدم - اسم المستخدم وكلمة المرور user ________________ لينك التحميل - نسخة تجربية برنامج انجاز - برنامج مخازن ومبيعات - اضغط للتحميل

السلام عليكم اخواني ...اليوم ساقوم باكمال الدرس الثاني ...متابعه ممتعه و مفيده ان شاء الله ... الدرس الثاني : اساسيات بناء صفحة ويب باستخدام الHTML المدة المتوقعه لانجاز الدرس : 15 دقيقه من خلال هذه الدرس سيتم توضيح التالي : 1- تعريف الوسوم الرئيسه في HTML 2- بناء صفحة ترحيبية. أولا : تعريف الوسوم الرئيسه فيHTML خلال هذا الدرس سيتم تعريف الوسوم الاساسية في بناء صفحات الHTML ويجب التنويه هنا الى ان هذه الوسوم تستخدم دائما في بناء أي صفحه لانها عناصر اساسية. يجب التنويه الى ان الوسوم أو TAG بالاجليزيه تبدأ دائما بالقوس <>و تنتهي بقوس مثل </> كالتالي : <P></P> مكونات صفحة الويب الرئيسه : 1- يجب ان تبدأ كل صفحة بالوسم التالي المسؤول عن تعريف نوع الويب <!DOCTYPE html> يوصع دايما اول سطر 2- تكويد صفحة الويب تبدأ دائما بالوسم <html> 3- تكويد صفحة الويب ينتهي دائما بالوسم </html> 4- معلومات راس الصفحه مثل العنوان توضع بين الوسم <header>….</header> 5- مكونات الصفحه توضع دائما بين الوسم <body> .... .... </body> يجب أن يتم استخدام هذه الوسوم الاساسيه في بناء أي صفحه من صفحات الويب ,التالي يبين المخطط الرئيسي لبناء صفحة الويب. <!DOCTYPE html> <html> <head> ...وسوم راس الصفحه توضع هنا..... </head> <body> ...وسوم محتويات الصفحه توضع هنا..... </body> </html> ثانيا : بناء صفحة ترحيبية الان عزيزي القارىء لنقم بانشاء اول صفحة ويب بشكل سريع , 1- قم بفتح محرر النصوص Notepad أو أي محرر تحب استعماله كما تم الذكر في الدرس السابق قم بطباعة التالي داخل محرر النصوص : <!DOCTYPE html> <html> <head> <meta http-equiv="Content-Type" content="text/html;charset=UTF-8"> <title>مثال بناء صفحة ويب اساسيه</title> </head> <body dir=”rtl”> <h1>مثال بناء صفحة ويب اساسيه</h1> </body> </html> 1- قم بحفظ الملف على سطح المكتب , قيم بتسميه الملف باسم Example.html لاتنس ان امتداد الملف عند الحفظ يجب أن يكون .html 2- قم بالنقر عالملف الذي حفظته Example.html لاحظ انه يتم فتح الملف مباشرة باستخدام المتصفح الرئيس المعرف على جهازك. 3- لابد أنك حصلت على نتيجه تشبه التالي : مثال بناء صفحة ويب اساسيه الان لنقم بشرح تلك الوسوم ...الوسوم ملخصه بالجدول أدناه...و بالترتيب حسب المثال الذي اعطيناه من السطر الاول الى التاني و الثاللث و هكذا .. الوسم ماذا يعني <!DOCTYPE html> تعريف بنوع الوثيقه <html> يعني البدأ بصفحة الHTML و دائما يجب ان يكون موجودات <head> تعريف البدأ براس الصفحه <meta http-equiv="Content-Type" content="text/html;charset=UTF-8"> هو من وسوم تعريف محتويات و معلومات الصفحه في عالم الويب , مهم في حالتنا لاننا نقوم بالبرمجه باللغه العربيه , حيث يقوم بتكويد الاحرف العربيه على المتصفحه. استخدم هذا الوسم دائما <title>مثال بناء صفحة ويب اساسيه</title> وسم يحتوي على عنوان للصفحه , حيث أن عنوان الصفحه في مثالنا هذا هو مثال بناء صفحة ويب اساسيه </head> تعريف الانتهاء من راس الصفحه <body dir="rtl"> تعريف البدأ بمحتويات الصفحه. لاحظ هنا اننا اضفنا الخاصيه dir="rtl" و هي مهمه في حالة التكويد باللعه العربيه و تعني ان الصفحه ستبدأ من اليمين للشمال حسب ما هو وارد في لغتنا العربيه. <h1>مثال بناء صفحة ويب اساسيه</h1> أي عباره تقع بين الوسم <h1></h1> هي عباره ترئيسيه تستخدم كعنوان لعرض نص في صفحات الويب. وهي ليست اجباريه , و تم استخادمها بهذا المثال فقط لعرض نص في صفحة الويب هذه. </body> تعريف الانتهاء بمحتويات الصفحه. </html> يعني الانتهاء بصفحة الHTML و دائما يجب ان يكون موجودات المرفق هو المثال الذي تم شرحه ... ارجو ان تكون الفائدة قد عمت Example1.zip

هذه بعض الاكواد المميزة و المتنوعة في كيفية تثبيت CommandButton في الورقة و التي تتم غالبا في حدث Worksheet_SelectionChange Freeze CommandButton1.rar Freeze CommandButton2.rar Freeze CommandButton3.rar Freeze CommandButton4.rar Freeze CommandButton5.rar Freeze CommandButton6.rar Freeze CommandButton7.rar Freeze CommandButton8.rar Freeze CommandButton9.rar

الاخ الكريم علي السلام عليكم ورحمة الله وبركاته برنامج جميل صحيح ولكن هناك تعديل بسيط أود لو تقوم به - إذا أعجبك!- وهو أن تكون هناك في الصفحة الرئيسية مكان مكتوب به أسماء الأصناف التي تم تسجيلها بالمخزن والكمية المخزونة منها. وذلك قد يسهل كثيراً عدم إضافة أي صنف جديد قد يكون تم تسجيله سابقاً, كما يوضح بنظرة سريعة مستوى المخزن والمخزون في نفس الوقت. كما لو أنك أضفت حقلاً إلى هذه القائمة الجديدة موضح به سعر كل صنف لعرفنا بنظرة سريعة قيمة المخزون أيضاَ. شكرأً لك على هذا العمل الرائع وتمنياتي لك بمزيد من التقدم. أخوكم محمد عبد الحليم