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

السلام عليكم كل كلام ووجهات نظر اخوتي اعلاه صحيح وجهة نظري ان جميع الجداول في اكسس يجب ان ان يكون لها ترقيم تلقائي وحبذا يكون هو المفتاح ولا ضير ان يتم الحذف وايضا من غير المهم الاستفادة من الارقام المحذوفة ( يمكن وضع آلية بنسخ السجلات المحذوفة وحفظها) هذا العمود هو ملك اكسس وهو المرجع للسجل بما يسمى الــــ (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 شاشة دخول مع صلاحيات

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

على اساس 11 سجل. الكلام عن الجزء العلوي: اذا كان عندنا 5 سجلات : الصفحة الاولى: نكتبها فوق ، وباقي 6 سجلات فارغة اسفلها ، والصفحة الثانية : فقط سجلات فارغة ، اذا كان عندنا 15 سجل : نكتب 11 فوق ، وطبعا مافي سجلات فارغة في اسفلها ، والصفحة الثانية : نكتب 4 سجلات ، وباقي 7 سجلات فارغة اسفلها هل هذا صح؟

هو فيه صفحة تانية كمان .. مش عارف بصراحة .. تقبل عذرى

تفضل ، وبجميع الطلبات اعلاه 🙂 عملت استعلام qry_tblPME للتقرير الفرعي في الاعلى ، بحيث يأخذ 11 سجل من الجدول tblPME ، اما التسلسل ، فيا رجال ، اخفيناه بحيلة من اعدادت الحقل نفسه 🙂 جعفر 1135.2.Consumable Material Check List (40).accdb.zip

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

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

جرب المرفق ادخل رقم الصنف واضغط زر ادخال على لوحة المفاتيح ملفك لا يفتح عندي المرفق هو فقط تجربة لما شرحت في مشاركتك test.xlsm

أستاذ dada101 أين الضغط على الإعجاب ؟!!!!!!!!

رجاء عمل صورة للخطأ ، وارفاقه هنا . كذلك يمكنك تجربة التالي: في كود النماذج (وليس الوحدة النمطية) ، استعمل Shell بدلا عن Shell_n_Wait في: Shell_n_Wait Command_Line, vbHide اما قارئ بالباركود ، فيجب ان تبحث لماذا لا يعمل مع unicode او utf8 ، جعفر

السلام عليكم السطر الأول للتصدير إلى أكسل و السطر الثاني للإستيراد من الأكسل قم بالبحث في المنتدى سوف تجد العديد من المواضيع و الأمثلة على ذلك DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "اسم الجدول", "المسار الكامل للملف", False, "اسم الورقة" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "اسم الجدول", "المسار الكامل للملف", False, "اسم الورقة"

وعليكم السلام 🙂 جرب هذا المرفق ، واخبرنا بالنتيجة لوسمحت 🙂 ولا تنسى ان تضع هذا المرفق في نفس المجلد اللي فيه البرنامج الموجود في مشاركتي الاولى 🙂 جعفر QR_2.zip

بارك الله فيك وجزاك الله خير الثواب ورحم الله والديك

بارك الله فيك وزادك الله من فضله

نعم استاذ عصام الآن يعمل الكود بشكل سليم .. تحية لك على هذا المجهود الرائع بارك الله فيك

تفضل يمكنك استخدام هذه المعادلة =IF(G7="","",VLOOKUP(G7,$A$1:$B$150,2,0)) تغيير الرقم 1لنص.xlsx

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

لانك عامل إيقاف لاهم شيء في الكود يعتمد على كم سطر تريد اظهار في الصفحة Consumable Material Check List waz (1).accdb

بارك الله فيك وزادك الله من فضله

بعد إذن والدى الحبيب واستاذى الجليل ومعلمى القدير الاستاذى @jjafferr اسمح لى اقوم بارفاق هذا التعديل على المرفق لاخى صاحب المسألة - انشاء الـ QR Code لكل سجل على حده داخل النموذج المستمر -انشاء الـ QR Code لكل السجلات داخل النموذج المستمر دفعة واحدة بكبسة زر واحدة -عرض الـ QR Code الذى تم انشاءه لكل سجل على حدة أو الــ QR Code الذى تم انشاءه لكل السجلات دفعة واحدة بكبسة زر واحدة داخل النموذج المستمر -عرض تقرير لكل سجل على حده فى من خلال السجل الحالى داخل النموذج المستمر -عرض تقرير مجمع لكل السجلات فقط التى تم انشاء الـ QR Code لها فقط اتفضل يا استاذ @nasseam1969 سؤال 2.zip

تفضل تم تغيير معادلتك نهائياً فهى لا تعمل المشتريات1.xlsx

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

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

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

عليكم السلام اتفضل اخي الكريم اليك الداله التي تقوم بالمطلوب حل مشكلة الخلايا الفارغة مع الدالة VLOOKUP.xlsm

بارك الله فيك وجزاك الله كل خير-والحمد لله الذى بنعمته تتم الصالحات

تفضل بريك (1).xlsx

انا متشكر لحضرتك بس هو فى مشكلة بسيطة ممكن حل ليها ان امكن الملف انا ضفت الوقت المتاخر بس بينزل مرتين مرة بال - فى الغياب ومرة بالاضافى فى الاضافة فا كدة بياخد الوقت مرتين قسم الأدارة-01008432266 (1).xlsx

تفضل اخى الكريم 1العمل.xlsx

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

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