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

وعليكم السلام 🙂 وبدون الرجوع الى المرفق : dim myWhere as string myWhere="[pc]='" & [Text0] & "'" myWhere=myWhere & " And [StartDate]=#" & [StartDate] & "#" myWhere=myWhere & " And [txt]='" & [Text2] & "'" DoCmd.OpenForm "Table1", acNormal, myWhere , acReadOnly, acNormal البساطة مافي احسن منها ، كل جملة بنفسها وبدون اخطاء 🙂 جعفر

اضف هذين السطرين في المكان المناسب

انا اعتمدت على العامود C (في الملف الذي رفعته سابقاً) عندما رأيت ان اخر صف فيه غير فارغ لذلك كي يشمل الماكرو اي عامود يجب استبدال ما في المربع الأحمر بما هو في المربع الأزرق (الصورة)

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

وجدت في ارشيفي برنامج للمخازن و المستودعات اسأل الله لمن صممه التوفيق و السداد .. برنامج مستودعات.rar

و كيف تظهره في حال الحاجة اليه؟؟؟ الذي يختفي هو الزر delete وليس Check Box

الاستاذ سليم حاصبيا اذا اخفي Check Box فما فائدة وجود زر المسح و Check Box

بداية يجب ازالة الخلايا المدمجة من الملف (كي يعمل الكود بشكل صحيح) تمت الازالة الكود Option Explicit Sub Get_data() Dim LrF%, k%, LrB% Dim Arr_Form Dim Arr_to Dim Lr Arr_Form = Array("B3", "B4", "B5", "J3", "I5") Arr_to = Array(5, 6, 7, 8, 9) LrF = Fatura.Cells(Rows.Count, "B").End(3).Row - 3 LrB = Bayan.Cells(Rows.Count, "A").End(3).Row + 1 If Fatura.Cells(9, 3) = vbNullString Then Exit Sub For k = LBound(Arr_Form) To UBound(Arr_Form) Bayan.Cells(LrB, Arr_to(k)).Value = _ Fatura.Range(Arr_Form(k)).Value Next For k = 9 To LrF If Fatura.Cells(k, 3) = vbNullString Then Exit For End If Bayan.Cells(LrB, 1).Resize(, 4).Value = _ Fatura.Cells(k, 1).Resize(, 4).Value LrB = LrB + 1 Next End Sub Wael.xlsm

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

اتفضل Fatur(NEW).xlsm

1-كان يجب ان تذكر من وضع لك كود الزر Detele و ذلك من باب المحافظة على الحقوق الفكرية 2-أضف الى اليورز CheckBox والكود المناسب له (كما في الصورة) 3- اذا كان الـــ CheckBox في وضعية TRUE يمكنك الجذف بعد تحديد صف في الليست بوكس 4- اذا كان الـــ CheckBox في وضعية FALSE لا يمكنك الجذف لان الزر Detele يختفي 5- في كلا الخالتين التحديد في الليست بوكس يختفي وعليك التحديد من جديد (منعاً للتسرع في حذف صف وتندم عليه) 6- الملف مرفق Fatur(NEW).xlsm

جزاك الله خيرا اخي عبدالله الصاري علي حل المشكلة مشكور وللجميع جزيل الشكر

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

تفضل .... Month now sum.accdb

السلام عليكم ورحمة الله وبركاته بالاضافة الي ما تقفضل به أخي @النجاشي جرب هذا المرفق لعله يوافق مرادك المرفق يقوم بي: 1- أخذ نسخة احتياطية من نفسه. 2- ومن قاعدة البيانات المرتبطه به. جرب أن ترتبط بقاعدة بيانات مختلفة وانظر النتيجة ولا تنسانا من دعوة بظهر الغيب تمنياتي بالتوفيق. TestBackup.rar

وعليكم السلام : التقرير لا يحترم ولا يستعمل الفرز من الاستعلام/الجدول ، لذلك يجب عليك عمله في التقرير ، لذلك يمكنك عمله في التقرير هكذا : . جعفر

try this file WiAAM.xlsx

يمكن الاستعانة بهذه المعادلة =IF(COUNTIF(A4:A10; F4:F10 );"";F4:F10) ملف الاسم.xlsx

هكذا تتضح الصورة ويرجى من جميع الأعضاء التوضيح بالصور ..لتتضح المشكلة بشكل أفضل جرب الخطوات التالية : ----------------------- في موديول رقم 1 على سبيل المثال أو أي موديول في قسم الإعلانات العامة ضع السطر التالي في أول الموديول رقم 1 Public strUser As String هذا السطر لتخزين اسم المستخدم الذي سجل الدخول ******************* في حدث الفورم UserForm1 في السطر الذي تظهر فيه رسالة تفضل بالدخول أضف سطر آخر بعده لتخزين اسم المستخدم في المتغير MsgBox "تفضل بالدخول", vbOKOnly, "تنبيه" strUser = Me.ComboBox1.Value ******************* في حدث الفورم المسمى Form2 عدل الأسطر التي أشرت إليها بهذا الشكل Dim xRow As Long xRow = Application.WorksheetFunction.Match(strUser, ورقة11.Columns(1), 0) If ورقة11.Range("L" & xRow).Text = "مشاهدة وتعديل" Then CommandButton1.Visible = True Else CommandButton1.Visible = False End If أرجو أن أكون وفقت في حل المطلوب .. لأن الملف متشابك جداً

الاخ : - see sunrise شكرا للرد الجميل والذي يعبر عن اخلاق حميدة عالية نحتاجها امس الحاجة في مجتمعاتنا هذه الايام وفقك الله ياسر الحافظ

الآمر سهل وميسور بإذن الله وبين يديك افتح مستندك الأصل الذي تريد أن تلحق داخله مستنداتك الأخرى . (يلزم اخذ نسخة احتياطية منه قبل ذلك) 1- ضع المشيرة حيث تريد أن يبدأ المستند التالي . 2- من شريط الأدوات في أعلى المستند اذهب الى إدراج / ثم اختر ملف 3- سيظهر لك مربع حوار ، اذهب من خلاله الى مستنداتك ثم حدد ما تريد . 4-انتبه الى الزر اسفل اليمين ( ادراج ) انقر عليه لتجد خيارين إما أن تدرج البيانات نفسها فقط أو تدرج البيانات مع ارتباط بالمستند المنقول منه . اعد الخطوات للمستند التالي وهكذ ..... تحياتي ،،،