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

جرب هذا الملف Add_years.rar

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

السلام عليكم ورحمة الله وبركاته مساء الخير أحبتي رواج مملكة الأكسس والوورد أعتذر عن انقطاعاتي الكثيرة وماذاك الا الانشغال مع جدتي شفاها الله وعافها ولا أراكم مكروها اليوم كُنت في محل نظارات وهو محل تابع لمؤسسة معروفة لها أكثر من فرع لاحظتهم يستخدمون برنامج في كل فروعهم فأردت أُشبِع فُضولي حيث سألت مدير الفرع عن البرنامج الذي يستخدموه فقال لي أنه برنامج مُصمم بالأكسيس فاستأذنته بالاطلاع للتأكد وفعلاً وجدته ملف أكسيس ولكن من صممه أبدع كثيراً في تصميمه حتى أني لم أتوقع حينها أنه بالأكسيس , الذي صَدمني أكثر هو أنه تم شراء البرنامج بقيمة 500 ألف ريال على حد قول مدير الفرع ولم أصدقه مبدأياً حتى استرسل وفٌصل في الموضوع إذ تم شراء نسخة لكل فرع ومازلت حقوق البرنامج للمُبرمج ولم تُعطى للمؤسسة !! الموضوع بِرمته رسالة لمن يستهين بالأكسيس : ) لكم وافر التقدير والاحترام ومساءكم سعادة ,, الموضوع منقول من منتدي مملكة الاكسس والورد

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

اخي يوسف .. حبذا لو ذكرتم طريق الحل هل هي بالطريق التي ذكرتها في هذالموضوع ام امر اخر .. بارك الله فيك

الله يجزيك الخير فتح البرنامج

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

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

السلام عليكم ورحمة الله انسخ الكودين التالين والصقهما فى الموديول واربط الكود الاول بالزر المتاح Option Explicit Sub Trdata_TwoCnds1() Dim Arr As Variant, Temp As Variant Dim LR As Long, i As Long, ii As Long, j As Long, jj As Long, P As Long, R As Long LR = Sheets("الرئيسية").Range("C" & Rows.Count).End(xlUp).Row Arr = Sheets("الرئيسية").Range("A8:AS" & LR).Value ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 16) = "الاول" Then P = P + 1 For j = 1 To 9 Temp(P, j) = Arr(i, Choose(j, 1, 2, 3, 4, 5, 7, 23, 18, 45)) Next End If Next Sheets("شرط اول").Range("A8").Resize(P, UBound(Temp, 2)).Value = Temp Call Trdata_TwoCnds2 End Sub Sub Trdata_TwoCnds2() Dim Arr As Variant, Temp As Variant Dim LR As Long, i As Long, ii As Long, j As Long, P As Long, R As Long LR = Sheets("الرئيسية").Range("C" & Rows.Count).End(xlUp).Row Arr = Sheets("الرئيسية").Range("A8:AS" & LR).Value ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 17) = "الثانى" Then R = R + 1 For j = 1 To 6 Temp(R, j) = Arr(i, Choose(j, 1, 2, 3, 4, 5, 18)) Next End If Next Sheets("شرط ثانى").Range("A8").Resize(R, UBound(Temp, 2)).Value = Temp End Sub

الاخ / عمرو المطري عمل جميل جدا وتنسيق في منتهي الروعة نرجو المزيد من هده الابداعات جعله الله في ميزان حسناتك

قم بتعبئة البيانات في مرابعات السرد والتحرير قبل نقر زر التحميل وظلل البيانات في مربع السرد قبل قبل نقر زر التغيير

بعد اذن اخي زيزو هذا الكود من سطرين Sub Salim() Range("F4", Range("F4").End(4)).ClearContents Range("B2", Range("B2").End(4)).AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=Range("F4"), Unique:=True End Sub

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

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

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

يا ترى بحلم ولا بحلم ولا يمكن بتخيل .. هو أنا عيني شايفة البوست دا ولا دي خيالات .. ربنا يستر علي معقولة خالد القدس أخيراً ظهر وبااااااااااااااااااااان .. والله والله والله ليك وحشة يا غالي (دا كلام تغيب عننا كل الفترة دي ..)

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

ورقة النتيجه فيها ان السبت 28 جمادى الاول مش الجمعه

الاخ ناصر الجمعة عندى 28 جماد وليست 29

بخصوص التاريخ اولا اليوم الجمعه وياتي بالسبت ثانيا وبالنسبه للتاريخ الهجري زايد يوم المفروض مع السبت يجي 28 جما د ى الاول مكتوب 29 جمادى الاول

بعد اذن الاخ محمودالشريف تنسيق بسيط تكبير الفورم والخطوط اخفاء الكومبوبوكس الثانى مع اضافة سطور للتاكد من العمل نتمنى تساعد الاخ ابو الحسن مرتبات تم التعديل5.rar

أخى فى الله الأستاذ // أبو الحسن بالمرفقات الملف ( تجد عدد 2 كومبوبوكس _ قم بالبحث من خلال الأول الذى بجوار ابحث بكود الموظف ) وان شاء الله تجد مشكلتك تم حلها مع اى تغيير تريده على راتب اى موظف مرتبات تم التعديل_4.rar

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل المرفقات عدد ( 2 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة حيث لم اتمكن من اضافتهم في المشاركة الاولي نظرا للمساحة المخصصة لكل عضو ( حسب علمي ) فيديو2 .. طريقة عمل شاشة ادخال 2.rar شاهد النتيجة فيديو3 .. طريقة عمل شاشة ادخال 3.rar