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

شكرا على الملاحظة اخوي محمد 🙂 السبب هو المسافات الرأسية ، فوق وتحت كل من هذه الحقول : . فاذا غيّرنا والغينا المسافة العمودية بين الحقول هذه : . النتيجة ستكون: . جعفر 1265.Database1.accdb.zip

هذا الملف بشرح ما أفصده 1-البيانات الاساسية في صفحة Salim 2- في الصفحة Result بعد تنفيذ الفلتر بواسطة UserForm يمكن احتيار اي صف من ListeBox لينتقل الى الشيت في المكان المناسب (يمكن تكرار العملية وفي كل مرة يضاف ما تحتاره الى احر صف) 3- الصورة المرفقة تشرح كيفية التعامل مع UserForm الملف مرفق Filter_By UserForm.xlsm

اعرض الملف البرنامج الطبي الشامل برنامج للمراكز الطبيه يشمل الاستعلامات والمختبر وقسم الحسابات واقسام اخرى صاحب الملف الدكتور جمال راجح تمت الاضافه 24 مار, 2019 الاقسام قسم الأكسيس

تحت حدث عند عدم الوجود في القائمة ضع هذا الكود Dim i As Integer Dim Msg As String If NewData = "" Then Exit Sub Msg = "'" & NewData & "' áíÓ ÚäÕÑÇ Ýí ÇáÞÇÆãÉ. " & vbCr & vbCr i = MsgBox(Msg, vbQuestion, "ÛíÑ ãÚÑæÝ") Me.ww = "" Me.ww.Dropdown Response = acDataErrContinue 33 (1).accdb

وعليكم السلام 🙂 نريد نعمل تجميع وهمي : . . . ونعطيه اي اسم خرافي ، مثلا نقطة (.) . . . . والنتيجة . جعفر 1266.قائمة.accdb.zip

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

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

جرب البحث في المنتدى هناك امثلة لما طلبت

وعليكم السلام-اجعل دائما تنسيق الخلايا كنص أى Text ..... حتى تستطيع كتابة ما تريد

بدل ان اعطيك سمكة ، خلني اعلمك كيف تصيد 🙂 لاحظ الاستعلام qry_Student_info ، نشوف انه ما يسمح لتعديل البيانات ، ومافي سطر إضافي لإضافة سجل . في تصميم الاستعلام . احفظ الاستعلام ، وشغله ، نشوفه الآن يمكن تغيير البيانات فيه ، ويمكن إضافة سجل جديد فيه كذلك . ولما نعمل نموذج مصدر بياناته هذا الاستعلام ، كذلك نلاحظ اننا ما نقدر نغير شيء ، ولا نقدر نضيف سجل جديد . يعني في الاستعلام ، وفي النموذج : اختار Dynaset (Inconsistent Updates) بدلا عن Dynaset جعفر

يمكن تجربة هذا الملف YARA_2_USERS..xlsm

تفضل التعديل اخي الكريم 1.accdb

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

ليس من الضروري ان تمسحي الـليست بوكس اذا كان الرقم القومي غير مكرر و رقم الكود غير مكرر فإن الليست بوكس يغرص صفاً واحداً وهناك حل اخر ممكن ادراج يوزر جديد (مع الابقاء على القديم) و برمجته كما تريدين كما في هذا الملف (وهكذا يصبح بالامكان العمل غلى 2 يوزر ) اليوزر الجديد على زر Salim User سأعمل على هذا الموضوع

لديك قوس ناقص تحياتي

تفضل اخي الكريم قاعدة بيانات1.rar تحياتي

نعم هو نفس المرفق مع تعديل البيانات 1265.Database1.accdb.zip تحياتي

تفضل يا سيدي 🙂 عملت لك جدول tbl_Student_info ، بينما استعلام qry_Student_info يجمع الجدول السابق مع جدول الجدول الجديد : . ولما تريد تستعمل النماذج او التقارير ، استعمل الاستعلام qry_Student_info كمصدر بيانات لها ، بس رجاء الانتباه ، تأكد ان اسماء الطلبة موجودة ف الجدول tbl_Student_info ، والا فإنها لن تظهر في الاستعلام 🙂 جعفر ‏‏StuData.zip

يعطيك العافيه اخوي حسين

في نظري طريقتك هذه افضل من اعادة الترقيم ...

واياكم وفيك بارك الله كلنا نتعلم من بعضنا ومن اخواننا واساتذتنا جزاهم الله خيرا عندما تقف فى اى شئ قم بالبحث اولا فالمنتدى وخارجه فسوف يفدك البحث كثيرا وان لم تصل الى شىء افتح موضوع بالمنتدى واشرح به ما تريد مع مثال للتوضيح وان شاء الله تجد العون باذن الله اما شرح الكود سوف اشرحه ببساطه lastNum متغير واسندت له قيمه آخر سجل بالداله -Dlast- من الاستعلام qryFilter بعد فرزه بناء على 2 الكمبوكس Nz(DLast("ItemCode", "qryFilter"), 0) ثم اضفت متغير بالسطر الذى بعده strNum واسندت الرقم الخاص بالترقيم بعد اقتصاصه بهذا الجزء وبه 3 دوال Right(lastNum, Len(lastNum) - InStrRev(lastNum, "-")) ثم اضافه + 1 ثم السطر الذى بعده متغير strLeft اسندت له الجزء المقصوص قبل الرقم بالجزء وبه 2 داله Left(lastNum, InStrRev(lastNum, "-")) ثم قمنا باستخدام if الشرطيه اذا كان المتغير lastNum =0 يضع القيمه الناتجه من السطر التالى Me.ItemCode = Me.ItemType.Column(2) & "-" & Me.GradName.Column(2) & "-" & 1 والا ضع القيمه بالزياده ارجو ان اكون وفقت بالشرح والتوضيح بالتوفيق اخى

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

تفضل ...... ترقيم تلقائي جديد كل سنة مضاف الى الترقيم السنة.mdb

هذه المعادلة في الحلية C3 من الورقة 2 واسحب يساراُ وتزولاُ =IF(ورقة1!E3=2,ورقة1!$B3,"") الملف مرفق Bilal.xlsx

استاذنك استاذ سليم لمعالجة هذا الموضوع يجب مسح الحقول بعد عملية الحفظ ويتم تغير هذا الجزء من الكود Private Sub BT_SAVE_Click() Dim old_num Set sh = Sheets("Sheet1") last = sh.Cells(Rows.Count, 1).End(3).Row If last = 1 Then Exit Sub sh.Range("A2:G" & last).Interior.ColorIndex = 35 If Me.T_NewMASROUF.Value = "" Then MsgBox "الرجاء تحديد المصروف الجديد قي الخانة المناسبة", _ vbMsgBoxRtlReading Exit Sub End If old_num = LB_Kadim.Caption With Me.ListBox1 If .ListIndex < 2 Then Exit Sub x = .List(.ListIndex, 7) sh.Cells(x, 7) = Me.T_NewMASROUF.Value .List(.ListIndex, 0) = Me.T_NewMASROUF.Value End With Me.ListBox1.ListIndex = -1 Me.LB_Kadim.Caption = old_num sh.Cells(x, 1).Resize(, 7).Interior.ColorIndex = 40 Application.Goto sh.Cells(x, 1) Me.T_CODE = "" Me.T_KOUMI = "" Me.LB_Kadim = "" Me.T_NewMASROUF = "" End Sub اخر اربع اسطر مسئولين عن مسح الحقول سامحنى استاذى سليم ا اقصد الا المساعدة لوجه الله احترامى لشخصك الكريم

اتبع الخطوات كما في هذه الصورة (اذا لم تظهر القائمة المنسدلة غادر الصفحة Target الى اي صفحة احرى ثم عد اليها)

وعليكم السلام ورحمة الله وبركاته نفضل اخي الكريم وجدت لك هذا المثال ويمكن تطويره اكثر بما يناسبك za-AccessAndPowerPoint.rar تحياتي

أخي الكريم صلاح جرب الكود التالي ويمكن وضعه في حدث فتح المصنف .. أو كما ترغب فيما بعد Sub OpenClosedWBs() Dim wbk As Workbook Dim ws As Worksheet Dim strInput As String Dim i As Long Dim p As Long Dim lr As Long Application.ScreenUpdating = False On Error Resume Next Set ws = ThisWorkbook.Sheets("Sheet1") For i = 2 To ws.Cells(Rows.Count, "H").End(xlUp).Row p = InStrRev(ws.Range("H" & i), "\") + 1 strInput = Mid(ws.Range("H" & i), p) Set wbk = Workbooks(strInput) If wbk Is Nothing Then Set wbk = Workbooks.Open(Filename:=ws.Range("H" & i)) If wbk Is Nothing Then MsgBox ws.Range("H" & i) & " Not Found!", vbCritical Exit Sub End If End If With wbk.Sheets(1) Range("B" & .Cells(Rows.Count, 2).End(xlUp).Row + 1).Activate End With Set wbk = Nothing Next i On Error GoTo 0 Application.ScreenUpdating = True End Sub

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