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

كل عام وأنتم جميعا بكل خير يمكنك استعمال هذه المعادلة في الخلية C2 مع سحب المعادلة يسارا ثم أسفل =SUMIFS('Data '!$E:$E,'Data '!$A:$A,$A2,'Data '!$C:$C,">="&C$1,'Data '!$C:$C,"<="&EOMONTH(C$1,0)) مع ضرورة حذف المسافة في نهاية اسم الشيت data حتى لا تتسبب في مشكلات بعد ذلك بالتوفيق

استبدل الكود في زر الامر بالتالي Dim rst As DAO.Recordset Dim rs As DAO.Recordset Dim fld As Field Dim a As Integer Set rst = CurrentDb.OpenRecordset("the main") Set rs = CurrentDb.OpenRecordset("sd") For a = 1 To rst.RecordCount For Each fld In rst.Fields If fld.Name = "28" Or fld.Name = "280" Or fld.Name = "281" Then rs.AddNew rs!a = fld.Value ' rs!id = rst!no rs.Update End If Next fld rst.MoveNext Next a rst.Close: Set rst = Nothing rs.Close: Set rs = Nothing ولو تضع عمود id تنقل له الرقم no للمحافظة على التسلسل اذا رغبت بذلك اضف حقل id في جدول sd ولا تجعله مفتاح اساسي وفي السطر 12 من الكود الغي علامة . من بداية السطر تحياتي

عذرا أخي @figo82eg إنشغلنا بإجازة العيد 😅 .. تفضل التعديل : بعدها يتم حذف المجلد [ 1 ] والخاص بالسجل رقم 1 بالكامل بما فيه من ملفات 🙂 وهذا الكود المرتبط بزر الحذف : Private Sub DltBtn_Click() Dim DesPath As String Dim D As String: D = "\" DesPath = BECurrentPath & D & Me.InOut & D & Me.Department & D & Me.DocType & D & Me.ID If IsFileExists(DesPath) = False Or IsBlank(Me.FileName) = True Then MsgBox "لا يمكن العثور على الملف", vbOKOnly, "": Exit Sub On Error Resume Next If MsgBox("هل حقا تريد حذف الملفات المرتبطة ؟", vbYesNo, "") = vbYes Then DleteFolder DesPath Me.FileName = "" Me.ImageBox.Requery End If End Sub وفي حدث عند الحذف للنموذج تضع هذا الأمر : Private Sub Form_Delete(Cancel As Integer) DltBtn_Click End Sub مع الحاجة لإضافة هاتين الدالتين في موديول ( أنا أضفتها للموديول المسمى FilesHandlingModule ) : Public Function DleteFolder(FolderPath As String) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.DeleteFolder FolderPath, True Set fs = Nothing End Function '----------------------------------------------------------------------------- ' True if the argument is Nothing, Null, Empty, Missing or an empty string . '----------------------------------------------------------------------------- Public Function IsBlank(arg As Variant) As Boolean Select Case VarType(arg) Case vbEmpty IsBlank = True Case vbNull IsBlank = True Case vbString IsBlank = (LenB(arg) = 0) Case vbObject IsBlank = (arg Is Nothing) Case Else IsBlank = IsMissing(arg) End Select End Function AttachFilesToDB.rar

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

مبدع مشرفنا الكريم @مبرمج سابق هل يمكن تطوير الكود بحيث لا يكرر البيانات.. وإنما ينقل الجديد فقط..؟ وهل بالإمكان أن يقبل النص.. لأني فيما رأيت لا يقبل سوى الرقم..؟

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

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

اود ان اوضح انه في مثل هذه الحالات البسيطة فقط دمج ثلاث حقول من جدول الى حقل في جدول اخر بشكل عمودي ممكن ان نصل للنتيجة بدون الحاجة الى اكواد وبعدة طرق ومن باب تعدد الحلول سوف اشرح طريقة واحدة اضافية وقبل ذلك من المعلوم ان لدينا انواع متعددة من الاستعلامات ومنها استعلام توحيد وهذا النوع يستخدم في العادة لدمج حقول متشابهه من جدولين او اكثر في استعلام واحد ولكن ايضا ممكن دمج حقول من نفس الجدول لذا ممكن ان نصيغ جملة الاستعلام بالشكل التالي SELECT [The Main].[no], [The Main].dx FROM [The Main] union all SELECT [The Main].[no], [The Main].dd FROM [The Main] UNION ALL SELECT [The Main].[no], [The Main].dh FROM [The Main]; والخطوة التالي نعمل استعلام الحاق مصدر بياناته استعلام التوحيد INSERT INTO sd ( id, a ) SELECT q_1.[no], q_1.dx FROM q_1 ORDER BY q_1.[no]; ونحصل على نفس نتيجة استخدام الاكواد تحياتي

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

بارك الله فيك أخي الحبيب جزيت خيرا تعبتك كتير معايا هذا هو المطلوب

ملاحظة تجنب تسمية الاحقول بالارقم الملف مرفق Database51.accdb

ممكن ذلك Dim rst As DAO.Recordset Dim rs As DAO.Recordset Dim fld As Field Dim a As Integer Set rst = CurrentDb.OpenRecordset("tbl_1") Set rs = CurrentDb.OpenRecordset("tbl_2") For a = 1 To rst.RecordCount For Each fld In rst.Fields If fld.Name <> "id" And fld.Name <> "item" Then rs.AddNew rs!a = fld.Value ' rs!Item = rst!Item rs.Update End If Next fld rst.MoveNext Next a rst.Close: Set rst = Nothing rs.Close: Set rs = Nothing عملته بشكل سريع وليس لدي وقت للمراجعة مرفق مثال صغير تحياتي Database151.accdb

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

وعليكم السلام ممكن تصور لنا مثالك على شيت اكسل ..وكيف سيكون ..حتى يكون المطلب واضحا

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

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

السلام عليكم ورحمه الله وبركاته مشاركه مع مهندسنا العزيز قاسم جزاه الله خيرا 💐 اخى الفاضل عبدالحميد عدل السطر المشار اليه الى Dim rs As DAO.Recordset وان شاء الله مهندسنا العزيز يكمل معك باقى الاجوبه بالتوفيق

كل عام وأنتم بألف خير.. وعيد أضحى مبارك على الجميع،،

عيدكم مبارك اهل مصر الحبيبة ... ربي يحفظكم لانكم كدعان بجد ... ربي يحفظ المملكة ..مملكة لا اله الا الله ... ربي يحفظ اهلها وولاتها

السلام عليكم 🙂 فيه خطوط جاهزة تعمل مثل خطوط شاشات العرض LCD ، مرفق احدها ، واليك طريقة استعمال الخط Font : أ. قم بتنصيب الخط في الوندوز ، ثم في الاكسس استعمله كأي خط عادي ، وفي حالتك ، استعمله للارقام 🙂 ، او ب. او اذا لا تريد ان تنصب الخط في الوندوز (قد لا تستطيع الوصول لحاسبة جميع المستخدمين) فيمكنك ان تجعل برنامجك يستعمله لبرنامجك فقط (في احد برامجي ، استعمل خط الباركود code39.ttf ويجب ان يكون في البرنامج علشان ينتج الباركود ، فاستعمل هذه الطريقة) : 1. ضع الخط في نفس مجلد برنامجك ، 2. اعمل وحدة نمطية مستقلة ، احفظها باسم mod_AddFonts ، واضف فيها هذا الكود: Option Compare Database Option Explicit Private Declare PtrSafe Function AddFontResource Lib "gdi32.dll" Alias "AddFontResourceA" ( _ ByVal lpFileName As String) As Long Public Function AddFonts(Font_Name_Path As String) Dim result As Long result = AddFontResource(Font_Name_Path) 'MsgBox Result & " fonts added" End Function 3. في حدث "عند تحميل" اول نموذج في برنامجك ، نادي الدالة اعلاه هكذا (طبعا تكتب اسم الخط ومساره في مجلد برنامجك) : 'Code39.ttf Font, install it, just in case it is not installed before Call AddFonts(CurrentProject.Path & "\Barcode_Font\code39.ttf") 4. بس على كمبيوترك (كمبيوتر المبرمج) ، يجب ان تنصب الخط في الوندوز لأول مرة ، ثم تعمل برنامجك ، ولما كل شيء يكون تمام ، تقدر تحذف الخط من الوندوز ، وتستعمل الطريقة اعلاه 🙂 وبما انه خط عادي ، فما فيه داعي لكود خاص علشان تعرض الارقام ، والتعديل والالوان وحجم الخط ووووو ، يكون بكل سهولة ، لأنه مجرد خط 🙂 جعفر digital-7.zip