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

السلام عليكم كل كلام ووجهات نظر اخوتي اعلاه صحيح وجهة نظري ان جميع الجداول في اكسس يجب ان ان يكون لها ترقيم تلقائي وحبذا يكون هو المفتاح ولا ضير ان يتم الحذف وايضا من غير المهم الاستفادة من الارقام المحذوفة ( يمكن وضع آلية بنسخ السجلات المحذوفة وحفظها) هذا العمود هو ملك اكسس وهو المرجع للسجل بما يسمى الــــ (id) ومفيد جدا عند تحويل الجداول الى sql

وعليكم السلام -اهلا بك فى المنتدى -تم عمل واضافة قائمة منسدلة فى عمود المادة من صفحة الوصل بما تحتويه كل أسماء المواد من الصفحة الأخرى ويمكنك اضافة مواد كما تريد بصفحة سعر وصل1.xlsm

اهلا بك فى المنتدى وذلك بإستخدام هذه المعادلة =SUMIFS(INDIRECT("'"&F$1&"'!$F:$F"),INDIRECT("'"&F$1&"'!$D:$D"),$D2,INDIRECT("'"&F$1&"'!$E:$E"),$E2) نموذج1.xlsx

أ.Ali Sadiq جزاك الله خير .. فعلا ملاحظة قيمة أرجو من صاحب الموضوع أن يأخذها بمحمل الجد

وعليكم السلام 🙂 انا طريقتي تختلف عن طريقة اخي الوزير 🙂 الشرح بعد قليل ان شاء الله 🙂 رجاء جرب واخبرنا النتيجة 🙂 انا لم استعمل كود Details_Print ، ولكني غيرت اسمه الى Details_Print2 وتركت هناك ، فقد تحتاج اليه لسبب ما ، فانا لا اعرف جميع امور التقرير 🙂 جعفر 1135.1.Consumable Material Check List (40).accdb.zip

أ.mohamed elalfy هل هذا المطلوب بالتوفيق New Microsoft Access Database2.zip

اهلا بك فى المنتدى شرفتنا,شرح هذه الدالة كالتالى: وهى دالة معرفة وهذا هو الكود المرافق للدالة لحسن عملها Function VLOOKON(ParamArray My_Arg()) As Variant Dim Max As Integer Dim Index As Integer Dim FindOK As Boolean Dim MyFind As String Dim CIndex As Integer MyFind = My_Arg(0) CIndex = My_Arg(1) Max = UBound(My_Arg) FindOK = False For Index = 2 To Max If FindOK Then Exit For VLOOKON = My_Arg(Index).Name R = Range(VLOOKON).Rows.Count C = Range(VLOOKON).Columns.Count If CIndex > C Then VLOOKON = "#REF!": Exit Function For MyR = 1 To R If LCase(Range(VLOOKON)(MyR, 1)) = LCase(MyFind) Then VLOOKON = Range(VLOOKON)(MyR, CIndex) Exit Function End If Next MyR Next Index VLOOKON = "#N/A" End Function وهذا ملف ايضا به مثال يبين تطبيق الدالة لحسن استخدامها VLOOKON With No Limitation.xls

وعليكم السلام -يمكنك استخدام هذه المعادلة لجعل نطاق القائمة المنسدلة مطاطية وبدون فراغات وتكون جاهزة لزيادة اى بيانات جديدة =OFFSET($D$6,,,COUNTIF($D:$D,"?*"),1) كما انه يمكن ايضا استخدام هذه المعادلة لتسمية نطاق لإستخدامه فى الكمبوبوكس كما ترى بالصور تعبئة القوائم 1المنسدلة.xlsm

تعديل بسيط على الكود وضع سطر اضافي بين علامات الـــ +++++ Option Explicit Dim ARR() Dim D As Worksheet, P As Worksheet, I# Sub Data_VAL() Dim K%: K = 1 Set D = Sheets("data"): Set P = Sheets("pv") For I = 1 To D.Cells(Rows.Count, 1).End(3).Row If D.Range("A" & I).Interior.Color = RGB(220, 230, 241) Then ReDim Preserve ARR(1 To K) ARR(K) = D.Range("A" & I).Value K = K + 1 End If Next With P.Range("H5").Validation .Delete .Add 3, , , Join(ARR, ",") End With End Sub '++++++++++++++++++++++++++++++++++++++++++++ Sub get_data() Dim First_Ro%, Laste_ro% Dim Copy_RG As Range Dim clas Dim m%: m = 11 Dim col: col = 2 Set D = Sheets("data"): Set P = Sheets("pv") P.Range("A11:C500").ClearContents P.Range("I11:K500").ClearContents clas = P.Range("H5").Value First_Ro = D.Range("A:D").Find(clas, after:=D.Cells(1000, 1), LOOKAT:=1).Row + 4 Laste_ro = D.Range("A" & First_Ro).End(4).Row Set Copy_RG = D.Range(Cells(First_Ro, 2), Cells(Laste_ro, 3)) For I = 1 To Copy_RG.Rows.Count '++++++++++++++++++++++++++++++ If I > P.Range("H6") Then Exit Sub '+++++++++++++++++++++++++++++++ If m = 36 Then m = 11: col = 10 With P.Cells(m, col - 1) .Value = I .Offset(, 1) = Copy_RG.Cells(I, 1) .Offset(, 2) = Copy_RG.Cells(I, 2) End With m = m + 1 Next End Sub الملف من جدبد med_SALIM_new.xlsm

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

دقق في الكلام اعلاه ,, ما فيه شي اسمه اعطاها يجب ان يكون الترقيم تلقائي يتم بعد نقر زر الحفظ

السلام عليكم استاذ @essam rabea تحية لشخصك الكريم عندي مداخلة هنا بخصوص ملف الاخ السائل الجداول فيه اخطاء كثيرة منها على سبيل المثال كود الصنف نوعه عملة؟ بالنسبة للحل الذي تقدمت به فهو صحيح ميه ميه ولكن احببت ان الفت نظر الاح السائل ليس الا. وهذه الصور من الجداول. تقبل تحياتي

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

وعليكم السلام-جرب هذه الفيديوهات https://www.youtube.com/watch?v=EN18dfR2mhw https://www.youtube.com/watch?v=BIkzEM3i-tA وكمان هذا الرابط من داخل المنتدى جعل ملف الأكسل مشترك على اكثر من جهاز

اخي العزيز Kha9009lid المحترم هو ما كنت اريده بالضبط جزاك الله عنا خير الجزاء اللهم إنا نسألك لاخي Kha9009lid صحة في إيمان وإيماناً في حسن خلق ونجاحاً يتبعه فلاح ورحمةً منك وعافية اللهم زده ولا تنقصه وأكرمه ولا تهنه وأعطه ولا تحرمه وآثره ولا تؤثر عليه وأرضه وارض عليه . اللهم امين.

وعليكم السلام ورحمة الله وبركاته توجد اكثر من طريقة لعمل ترقيم والاستغناء عن الترقيم التلقائي الموجود في اكسيس وجدت لك مثالاً يمكنك الاستفادة منه باذن الله 2007-2013.rar تحياتي

الحل في عملية ( ضغط قاعدة البيانات وإصلاحها)

جرب المرفق yoynis2.accdb

بارك اللخ فيك استاذ مجدى وزادك الله من فضله

السلام عليكم ,كان عليك قبل رفع هذه المشاركة استخدام خاصية البحث فى المنتدى فهناك العديد من الموضوعات التى تخص طلبك ومنها :- كيفية إظهار اسم المستخدم على تكست بوكس بعد الدخول برنامج صلاحيات المستخدمين الاصدار 3 شاشة دخول مع صلاحيات

السلام عليكم ورحمة الله اخواتى واساتذتى لقد رأيت ان اشرح طريقة عمل ايقونة بطريقة بسيطة باستخدم خيارات الاكسس .. فقمت بشرحها على اليوتيوب لكي يستفيد منها كل الاعضاء المبتدئين وانا اعرف المنتدي غنى بمثل تلك المشاركة وبطرق مختلفة https://youtu.be/jav3HFmrbEE

السلام عليكم استاذى الغالى @kha9009lid هذا مثال على حذف السجلات ذات رقم تلقائى مفتاح اساسى ويتم الحذف واعاده الترقيم وجزاهم الله خيرا كل من قدم لنا معلومه وعلمنا مما علمه الله وفى امثله اخرى ان وجدتها سوف ارفقها للاستفاده منها وكتنويع فى الحلول تقبل تحياتى وتمنياتى لكم جميعا بالتوفيق طبتم واهتديتم إعادة ترقيم تسلسل حقل ترقيم تلقائي دون الحاجة إلى فتح الجدول-ReAutoNumber.rar

وعليكم السلام ليش مايكون ادخال البيانات في صفحة فقط

السلام عليكم حدد المدى اخي مايحتاج تحط مسمى لكل ورقة For Each ws In ThisWorkbook.Worksheets If ws.Name = Me.ComboBox3.Value Then With ws .Select Me.ComboBox1.RowSource = .Range("A6:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Address '"name1" ' A Me.ComboBox2.RowSource = .Range("B6:B" & .Cells(.Rows.Count, "B").End(xlUp).Row).Address '"data1" ' B End With End If Next

?

يعني النصف العلوي لازم يكون فاضي في الصفحة الثانية والثالثة ووو ؟ جعفر

ويعنى لو حبيت جرب ده كمان يمكن يقول معاك .. بس أنا من غير شرح عشام مش فاهم أى حاجة من اللى فى الكود 😍 Consumable Material Check List (ES).zip

لا ادرى إن كان هذا ما تقصد ام لا .. جرب ووافنى بالنتيجة بالتوفيق Microsoft Access قاعدة بيانات جديد.accdb

عفوا اخى الكريم الفورم موجود ويعمل بصورة جيدة اعدت تحميله لك مرة اخرى لاتفتحه بواسطة drive لان ذلك يؤدى لاختفاء الفورم حمله على الجهاز ثم فك الضغط ورب ضارة نافعة فقد عدلت لك كود الطباعة بالحلقات التكرارية ليعمل على جميع الصفحات بسهولة مرفق الرابط الجديد https://drive.google.com/file/d/1lejWvh6cW2-UaV0THDPOe_iHA_D0AYzj/view?usp=sharing 101استعلام عن طريق الاسم (3) .xlsm

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

استاذي الفاضل كيف تقوم بإعادة توجيه الرابط إذا كانت القاعدة مقفلة بصيغة mde او accde ؟

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

السلام عليكم تم عمل فورم للطباعة وتم تطبيق العمل على الوراق من 101 : 106 عليك اكمال باقى الاوراق او الاستعانة باخد الاساتذة من الموقع لتحويل الكود الى صيغة تكرارية 101استعلام_عن_طريق_الاسم_(3)_.xlsm

وهذه طريقة اخرى 🙂 مثل سابقتها ، ولكن بطريقة تختلف قليلا ، وبدون Recordset للانتقال للسجل التالي 🙂 جعفر 1137.3.مثال.accdb.zip قصدك الاستاذ خالد 🙂

تحياتي الخالصة تم عمل المطلوب بالتعديل على معادلات "الترتيب - 2" (وهي معادلات صفيف لكن لا تحتاج إلى تأكيدها بواسطة ctrl+shift+enter). أرجو أن يفي الغرض المطلوب... بن علية حاجي ترتيب اوائل الفصول.rar

جرب هذا الماكرو Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) With Me.UsedRange .Columns.AutoFit .Rows.AutoFit End With End Sub

حبيبي أبا جودي بما ان الاسطر تضاف برمجيا فيجب إبقاء بعض هامش الصفحة من الأسفل عند المعاينة تظهر الورقة طبيعية لكن عند الطباعة يتجاوز حجم الورقة فيعطي صفحات متعددة ولا يتم طباعة البيانات انظر المرفق اطبع ووافني بالنتيجة Consumable Material Check List (30).rar

كل الشكــــــــــر والتقدير استاذى الجليل ومعلمى القدير اعتذر لتعب حضرتك معايا جزاكم الله خيـــــــــــرا وأحسن الله اليكم وشكر الله لكم فى مشكله غريبــــــــه عند الطباعة لا تظهر الببيانات اسم التقرير 604 Consumable Material Check List (3).zip

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

أحسنت استاذ سليم عمل ممتاز جعله الله فى ميزان حسناتك

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

جزاك الله خير الثواب وبارك الله فيك استاذ مجدى

الأستاذ علي الرويلي أين الضغط على الإعجاب وذلك اقل شيء مقاب الحصول على الإجابة المرجوه ؟!!!!

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

أحسنت أستاذ shetosalex

وضح بالضبط استاذى الكريم ماذا تريد واى خلية بالتفصيل تريد تعديلها بارك الله فيك

من الأفضل والأسرع والأدق العمل على شيت الإكسيل نفسه وليس على الفورم بارك الله فيك

بارك الله فيك اخى شيفان ..

هذه الدالة تحطها وين يا غالي أمس الكود الموجود أو أستبدل بـ شيء؟

انا استخدمن هذه الدالة وهى جميلة وفعالة الف شكر للجميع =IF(b2="";"";SUBTOTAL(3;b$2:b2))