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

الحمدلله الذي به تتم الصالحات على فكرة اين الاعجاب؟ او ان كبسة زر صعبة أوي

جرب هذا الملف نقل بدون تكرار مع الترتيب salim.rar

تحية طيبة اخي عبد الله الكود السابق هو DAO الفرق بين DAO و ADO هو باختصار DAO تدعم قواعد بيانات اكسس فقط ADO تدعم جميع انواع قواعد البيانات ( اكسس SQL Oracle ) والله اعلم منقول عن منتديات المحيط العربي

المثال الثاني: سنتعامل مع هذا الجدول لعمل دوائر على درجة الرسوب: الإجابة كالتالي : اختر الدرجات وطبق الآتي المرفق: دوائر02.rar

الخطوات كالتالي: 1- نطبق data validation على خلية الدرجة لا تنس إزالة علامة الصح نطبق ما ذكرناه على جميع خلايا درجة الطالب 2- نضيف زر لعمل الدوائر ونربطه بالكود التالي: ActiveSheet.CircleInvalid 3- نضيف زر لمسح الدوائر ونربطه بالكود التالي: ActiveSheet.ClearCircles وتهانينا.. المرفق: دوائر01.rar

ان شاء الله يكون المطلوب وبمساعدة الاستاذ اباجودي taqteet.rar

وجدت هذا المثال عسى ان تكون به الفائدة والمراد ان شاء الله TimeCheck.rar

الكثير يتسائل عن كيفية انشاء ملفات ال DLL وربطها بالبرنامج في المرفق مثال بسيط يوضح كيفية انشاء مكتبة DLL و استخدمها MyDll.rar

تم معالجة الامر Emploi salim Hidden.rar

الحل هو الحلقة التكرارية Do او For او استعلام الالحاق

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

المثال الثالت: سنتعامل مع هذا الجدول لعمل دوائر على كلمة "راسب": الإجابة كالتالي : اختر الدرجات وطبق الآتي المرفق: دوائر03.rar

جزاك الله كل خير يا أ/ أحمد ملف جميل جدا بس ممكن لو سمحت كلمة مرور VBA للإستفادة وشكرا

ما شاء الله أستاذ محمد أيمن جزاك الله خير

صحيح اخي ابا جودي و هذا المرفق يحتوي على تعديل الايام بالترتيب الصحيح Digital Clock.rar

السلام عليكم ورحمة الله وبركاته استادي محمد ابا جودى لاتأسف لأني مازلت تلميدا وانا بكل صراحة لم اتدرس في المدرسة لهذ السبب اجد صعوبة في العبارات إخواني كل شخص له هواية وانا هوايتي الأكسس اجدو فيه راحتي والحمد لله بفضل الله وبفضلكم وبفضلي الأستاد عبد العاطى حمدان على قناة A-Soft التعليمية برمجة برنامج لمحل تجاري اخوكم مستفيد ولعله يكون مفيد في هذ الفيديو وشكرا لكم جميعا اريد ارفع لكم فيديو البرنامج ولكن حجمه 14 Mo كيف ارفعه وشكرا لكم

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

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تصفية اسماء تم ارفاق كود الحل من الفاضل ا / سليم حاصبيا مرفق الملف تسوية الضرائب salim special.rar و لا تنسونا من صالح الدعاء تحياتى

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

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

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

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

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

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

مشكوووووور أخي صالح أخي محمد

السلام عليكم و رحمة الله تعالى و بركاته بعد إذنك أستاذ أبا جودي أخي assoussi إذا كنت تريد كتابة هذه العبارة في الماكرو فهي تكتب كما يلي: [SerialNumber]=-14285184548 And [Texte4]=887766665656 And [Texte6]=98766545 يعني مكان الواو تكتب and

مشاركة مع الاستاذ ابا جودي تم تعديل على الماكرو asdaa9988.rar

SerialNumber] =77544334234]و Texte4] =887766665656] و Texte6]=98766545] اريد العباراة التى توضغ مكان الواو اتعبتك معي اخي سامحي جزاك الله خيرا الهم ارحم من علمنا وزده علما

بصراحة انا مش قادر افهم اى شئ من المرفق ممكن حضرتك تطبق الكود ده FollowHyperlink "D:\officena\Full Control Of Print Report.mdb"

وعليكم السلام الطلب غير واضح ..الرجاء مزيد من التوضيح

هذا لان هناك خلايا مدمجة (مما يعيق عمل الكود) لحل هذه المشاكل استبدل الكود الاول بهذا (يمكنك تفيير الباسورد من داخل الماكرو) الحالي هو 123 Sub MergeMyData1() Dim ws As Worksheet Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If ActiveSheet.Name <> "تسوية" Then Exit Sub On Error Resume Next With Sheets("تسوية") .Unprotect Password:="123" .Range("c13", Range("c" & Rows.Count).End(xlUp)).ClearContents .Range("az1", Range("az" & Rows.Count).End(xlUp)).ClearContents .Range("h2:at2").ClearContents End With '======================================= Dim arr() arr = Array("1", "2", "4", "5", "6", "8") For i = LBound(arr) To UBound(arr) Sheets("تسوية").Cells(2, kk + 8) = arr(i) Set ws = Sheets(arr(i)) ws.Range("b13", ws.Range("b" & ws.Rows.Count).End(xlUp)).Copy Sheets("تسوية").Range("az" & Rows.Count).End(xlUp).Offset(1) kk = kk + 1 Next Sheets("تسوية").Range("c13", Range("c" & Rows.Count).End(xlUp)).ClearContents With Sheets("تسوية").Range("az1", Range("az" & Rows.Count).End(xlUp)) .sort Key1:=Range("az1"), _ Order1:=xlAscending, _ Header:=xlNo, _ OrderCustom:=1, _ MatchCase:=False, _ Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With Sheets("تسوية").Range("az1", Range("az" & Rows.Count).End(xlUp)).RemoveDuplicates Columns:=1, Header:=xlNo Sheets("تسوية").Range("az1", Range("az" & Rows.Count).End(xlUp)).SortSpecial Sheets("تسوية").Range("az1", Range("az" & Rows.Count).End(xlUp)).Cut Sheets("تسوية").Range("c13") fil_Month_number Sheets("تسوية").Range("c12") = "أسماء السادة الموظفين" Sheets("تسوية").Protect Password:="123" Application.ScreenUpdating = True Application.Calculation = xlAutomatic End Sub

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

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

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

عودة للمشاركة اعلاه هنا كيف نستفيد من فكرة اباجودي في رسم جدول في التقرير ويمكن بدمج خلايا محددة . هذه روابط تدور حول ما اشرت اليه وقد اكون مقصر فهذا ما استطعت اظهر به من البحث https://www.officena.net/ib/topic/24569-رسم-جدول-فى-التقرير-بناءاً-على-بيانات-معينة/?_fromLogin=1 https://www.officena.net/ib/topic/38468-هل-هناك-إمكانية-لإنشاء-جدول-بالتقرير/ https://www.officena.net/ib/topic/32989-تكرار-السجلات-فى-تقرير/ https://www.officena.net/ib/topic/48517-اريد-تنسيق-جداول-اكسس-2007-مثل-تنسيق-الجداول-في-اكسل/ هي تدور حول رسم جدول بالتقرير واعتذر للاخوة والاستاذ عبدالله لو خرج هذا قليلا عن الموضوع هذا المثال وفكرته : ضع مصدر للتقرير فقط وبدون مصدر لمربعات النص او اي عنصر اخر كعنصر خيار مثلا وغيره بالتوفيق SQLdemo_up.rar

السلام عليكم هذه الفكرة وبشكل بسيط جدا وعبارة عن كل ماحاول المستخدم تغيير عرض العمود او ارتفاع الصف يرجع كما هو محدد بالكود يمكن تطويرها فالبرمجة عالم مفتوح ضع الكود التالي عند رفع الماوس للنموذج الفرعي وليصبح الكود كاملا بالشكل التالي Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.الموديل.ColumnWidth = 1500 Me.سعر_البيع.ColumnWidth = 1500 Me.العدد.ColumnWidth = 1500 Me.نص19.ColumnWidth = 1500 Me.RowHeight = 300 End Sub بالتوفيق

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

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