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

عموما الفكرتين وحدة .... فقط تعديل الارتباط بدل الاسم يصبح الرقم فقط ؟؟؟؟ تفضل المطلوب New.rar

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

انظر هذا الموضوع قد يفيدك

حياك الله اخي الكريم

تفضل .... New.rar

ممكن لو عرفنا هدفك من تعطيل هذا الزر ..... ممكن نجد حل اخر ؟؟؟

شكرا لاخي جعفر للشرح والتوضيح بالنسبة لحذف بيانات الجدول في الموضوع هناك انه لدينا جدولين tbl1 و tbl2 الجدول1 يحتوي على بيانات المشروع والجدول2 هو الجدول الذي سوف تنسخ اليه نتيجة الإهلاك فلما ننقر على الزر لتنفيذ الكود تظهر النتيجة في جدول2 ، ولكن حين ننقر مرة اخرى يتم تكرار النسخ وهكذا ... الى مالا نهاية فالحل هو عند كل نقرة على الزر يتم تفريغ الجدول2

ضع هذه في معادلة المبيعات الشهرية =SUMIFS(B:B,C:C,D1,A:A,">="&DATE(YEAR(C1),MONTH(C1),1),A:A,"<"&DATE(YEAR(C1),MONTH(C1)+1,1)) وتعني أن يكون مكتوبا في العمود c كلمة مبيعات والتاريخ أكبر من أو يساوي 1 في الشهر وأقل من بداية الشهر التالي وهذه في معادلة المبيعات السنوية =SUMIFS(B:B,C:C,D1,A:A,">="&DATE(YEAR(C1),1,1),A:A,"<"&DATE(YEAR(C1)+1,1,1)) وتعني أن يكون مكتوبا في العمود c كلمة مبيعات والتاريخ أكبر من أو يساوي 1 في شهر يناير وأقل من بداية العام التالي بالتوفيق

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

اعذرني حيث أن المطلوب غير واضح لي لكن حسب فهمي أنك تريد نقل البيانات في الصفوف رقم 4 و 6 و7 و8 وآخر قيمة في الصف الأخير وكلها في العمود الأول من شيت recept وكتابة ok إذا تحقق الشرط والخروج من التكرار إذا تحقق الشرط إن كان فهمي صحيحا فهذا هو التعديل: Sub recp_fill() Application.ScreenUpdating = False For a = 5 To [a10000].End(xlUp).Row If Cells(a, 2) <> "" And Cells(a, 13) = "recept1" Or Cells(a, 13) = "recept2" Or Cells(a, 13) = "recept3" Or Cells(a, 13) = "recept4" Or Cells(a, 13) = "recept5" Or Cells(a, 13) = "recept6" And Cells(a, 14) <> "ok " Then Sheets("po_rec").Cells(a, 14).Value = "ok" With Sheets("recept").[a10000].End(xlUp) .Offset(4- .row, 1) = Cells(a, 2) .Offset(6- .row, 1) = Cells(a, 5) .Offset(7- .row, 1) = Cells(a, 6) .Offset(8- .row, 1) = Cells(a, 7) .offset(0, 1) = Cells(a, 13) End With exit for End If Next a Application.ScreenUpdating = True MsgBox "!تم الترحيل بنجاح", vbInformation + vbMsgBoxRight, "تم الترحيل" Range("b6").Select End Sub بالتوفيق

السلام عليكم اعمل على برنامج لإدارة ديون الزبائن وأريد عمل تنبيه وإظهار الزبائن الذين يتجاوز ديونهم حد معين ( يحدد من قبلي ) في نموذج 1 قمت بمحاولات عديدة ولكن لم اصل الى النتيجة فأرجوا المساعدة مع جزيل الشكر لكم. ديون1.rar

اختصارت جميع الاوامر فى الورد نقل عن الدكتور سعود عقيل رمضان كريم 2021 ملخص اختصارات وورد.DOC

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

جزاك الله خيرا تم التعديل كما طلبت في المرفق البرنامج.xlsm

اعذرني أخي الكريم فالملف المرفق من حضرتك يعتمد على فكرة هي: ترتيب عمود تاريخ الميلاد من الأصغر للأكبر ثم البحث في الأسماء حسب تاريخ الميلاد الحالي وقد وجدت هذه الأخطاء وتم بفضل الله تصحيحها: خطأ في المسلسل عند الصف 106 تشغيل معادلة التاريخ في العمود D وضبط تنسيق التاريخ في العمود M المعادلة في البداية تقرأ حتى الصف 900 ولكن من الصف 19 أصبحت تقرأ حتى الصف 500 تم ضبط معادلة الاسم العمود Q والعمود R يقرأ حتى 500 والصواب 900 وهذا ملفك بعد التعديل بالتوفيق ترتيب الطلاب حسب السن.rar

‏الاثنين‏، 5‏/7‏/2021م الموافق ‏26‏/11‏/1442هـ طريقة الاستخدام يتم فتح الملفين : البرنامج و البودرة من ملف البرنامج الذهاب الى ورقة TransPorter اضغط على خطوة 1 سوف يتم تحديث بيانات القوائم المنسدلة ببيانات جميع الملفات المفتوحة من اسم الملف و أسماء الأوراق في ككل ملف ابدء بتعبئة البيانات في الجدول كامل حدد أسماء الملفات المصدر و الوجهة و أسماء الأوراق المنقولة منها البيانات و اسم الرقة الهدف التي سوف توضع بها البيانات ثم اضغط زر ابدء نقل البيانات يتم نقل البيانات من جميع الأوراق الى الورقة الحالية مع التحية الصورة للشاشة الاكواد المستخدمة 'عمل قائمة اسماء الملفات Application.ScreenUpdating = False WBK1 = ActiveWorkbook.Name Set TS = Workbooks(WBK1).Sheets("TransPorter") TS.Unprotect 'Password:=Range("PW") TS.Range("A4:B99").ClearContents R = 4 For WB = 1 To Workbooks.Count BN = Workbooks(WB).Name For Sh = 1 To Workbooks(BN).Sheets.Count TS.Cells(R, 1) = BN TS.Cells(R, 2) = Workbooks(BN).Sheets(Sh).Name R = R + 1 Next Sh R = R + 1 Next WB 'TS.Range("AB4").ClearContents TS.Range("K3") = WBK1 [I3] = "" [H6] = "" [K6] = "" Application.ScreenUpdating = True 'Application.Run "Data_TransPorter01_Clear" 'Application.Run "Protct" ActiveSheet.EnableSelection = xlUnlockedCells -- Dim WB1N, WB2N, WB3N, FDT, TDT, DTC, FC1, FC2, TC, TR Dim TSH, SHN, CC, CC2, CC3 Dim RN1 As Range If Sheets("TransPorter").Range("Q14") = False Then QQ = Sheets("TransPorter").Range("Q15").Text MsgBox QQ, vbMsgBoxRight, "أكمل البيانات المطلوبة" Exit Sub End If 'CreateObject("Wscript.shell").Popup "إنتظر قليلاً حتى الإنتهاء من معالجة البيانات", 0, "إنتظار !!!!", vbExclamation WB1N = Range("I3").Text WB2N = Range("K3").Text WB3N = ActiveWorkbook.Name 'اسم ملف ورقة الأوامر ORDERSHET = ActiveSheet.Name 'ورقة الإعدادات او الأوامر TSN = Range("K4").Text Set WB1 = Workbooks(WB1N) 'من ملف Set WB2 = Workbooks(WB2N) 'الى ملف Set WB3 = Workbooks(WB3N) 'ملف البيانات Set OSH = WB3.Sheets(ORDERSHET) Set TS = WB2.Sheets(TSN) 'الى الورقة ActiveSheet.Unprotect ' Password:=Range("PW") TS.Unprotect 'Password:=WB2.Range("PW") FDT = OSH.Range("K6").Value 'من تاريخ TDT = OSH.Range("K7").Value 'الى تاريخ DTC = OSH.Range("M9").Text 'عمود التاريخ لملف مصدر البيانات FC1 = OSH.Range("K8").Text 'من العمود FC2 = OSH.Range("M8").Text 'و العمود TC = OSH.Range("L10").Text 'العمود الوجهة TR = Val(OSH.Range("L11")) 'الصف الوجهة ' Application.ScreenUpdating = False Application.Calculation = xlManual Application.EnableEvents = False ' For SHN = 5 To 14 If OSH.Cells(SHN, 16) <> True Then GoTo 1 FSN = OSH.Cells(SHN, 8).Text Set FS = WB1.Sheets(FSN) ER = FS.UsedRange.Rows.Count + 11 For R = 1 To ER QDT = FS.Range(DTC & R).Value If QDT >= FDT And QDT <= TDT Then CC2 = Val(Cells(1, FC1).Column) ' من عمود رقم CC3 = Val(Cells(1, FC2).Column) ' الى عمود رقم ' التأكد من فراغ الصف الوجهة TR 7 For Each RN1 In Range(Cells(TR, CC2), Cells(TR, CC3)) If RN1 <> "" Then TR = TR + 1 GoTo 7 End If Next 'RN1 ' نقل بيانات الصف For CC = CC2 To CC3 TS.Cells(TR, CC) = FS.Cells(R, CC) Next 'CC TR = TR + 1 End If Next 'R 1 Next 'SHN OSH.Select 'Application.Run "Data_TransPorter01_Clear" 'Application.Run "protct" Application.Calculation = xlAutomatic Application.EnableEvents = True البرنامج.xlsm

مفيش تعب ولا حاجة. الله في عون العبد مادام العبد في عون أخيه بالنسبة لهذا السطر جرب استعمال هذا بدلا منه .offset(0, 1) = Cells(a, 13) وهو بنفس المعنى الكتابة في نفس الصف والعمود التالي أما موضوع الأرقام السابقة .Offset(4- .row, 1) = Cells(a, 2) فهذا كما قلت حسب فهمي أنك تريد الكتابة في الصف 4 و 6 و7 بالذات مهما زاد عدد الصفوف. فقمت بتصحيح الكود لك وهو يقوم بطرح رقم الصف الحالي من رقم 4 مثلا فيكون قيمة الصف بالسالب وتعني الرجوع لأعلى إلى أن يصل للصف الرابع أما الأعمدة والخلايا التي يأخذ منها الكود القيم فهي كما هي في الكود لم يتم تغييرها

يرجع هذا لتعدد الأعمدة أنت تجمع من B3:D13 وليس من B3:B13 يمكنك استعمال هذه المعادلة للجمع في المبيعات الشهرية للكراتين =SUMPRODUCT((B3:C13)*(F3:F13=G1)*(A3:A13>=DATE(YEAR(F1),MONTH(F1),1))*(A3:A13<DATE(YEAR(F1),MONTH(F1)+1,1))) لاحظ أن كل الأعمدة لها نفس البداية 3 ونفس النهاية 13 وهذه المعادلة في المبيعات السنوية للكراتين =SUMPRODUCT((B3:D13)*(F3:F13=G1)*(A3:A13>=DATE(YEAR(F1),1,1))*(A3:A13<DATE(YEAR(F1)+1,1,1)))

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

شكراً استاذ عبداللطيف .

السلام عليكم اخي العزيز هذا ملف إلغاء الشفت ، وتمكينه مع تغير كلمة المرور 1111111111 مع التقدير Shift.rar

تفضل هذا التعديل اسم المستخدم : Admin كلمة المرور : 123 بالنسبة لإضافة اكثر من قيد تستطيع من خلال استيراد ملف اكسل ابوالحسن4.zip

ما السبب في تكرار المواضيع؟؟ 🤔😎🤔

تفضل التعديل ابوالحسن3.zip

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

أهلا بك.. في هذه التجربة صار اسم الجدول الوسيط (Join_Books) ، والشفرة المعنية بإنشاء هذا الجدول تلقائيا موجودة ضمن الوحدة النمطية mdl_join_books.. الشفرة تنقسم إلى ثلاثة أقسام.. الأول لمعالجة إضافة اسم الكتاب ضمن بيانات الجدول، وأيضا توحيد بيانات الكتب وتجهيزها للقسم الثاني الثاني تحصيل السجلات التي تحتوي على بيانات التخريج المدمجة وتفكيكها إلى سجلات مستقلة حسب بيانات التخريج الثالث حذف السجلات التي المدمجة وإنشاء الجدول (Join_Books) للمعلومية.. أضفت زر أمر للنموذج (frm_7) لتشغيل الإجراء المعني بمعالجة دمج البيانات MusndWZwayid 8.accdb

لانك في سطرين فقط كاتب ok في العمود 14 و السطور الثانية لا يوجد بها اوكي

و عليكم السلام و رحمة الله وبركاته جرب هذا الموضوع ان شاء الله تجد به ما تريد https://www.officena.net/ib/topic/38355-مكتبة-الموقع-مُجمِع-البيانات-للاكسيل-excel-data-collector/ وهو للعلامه محمد طاهر

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

شكرا لك, يبقى الحل الافضل هو استعمال justify ثم تـمـديـد الكلمات يدويا لتسكير المسافات

السلام عليكم اخي العزيز نوع البيانات غير موحد ..في جداول الكتب نوع البيانات MNO (نص).. بينما في السجل الرئيسي والفرعي عبارة عن (رقم) فلا يجوز الربط بينهما

🙂

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

تفضل هذا المثال 1MyData.zip

تفضل التعديل احصاء.zip

بعد إذن جميع الأخوة المشاركين هذا جهدي المتواضع لإثراء الموضوع يمكن اختصار الإجراء لهذا الكود Sub TEST() Dim Sh As Worksheet, LR As Long, Cel As Range Dim Texte1 As String For Each Sh In Worksheets(Array("DATA")) LR = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row Texte1 = Ar_WriteDownNumber(Cells(LR, "Q") + (Cells(LR, "p") / 100), "جنيها", "قرشا", 100) Sh.Cells(LR + 2, "C").Value = "فقط " & Texte1 ''' هنا حدد اين تريد يظهرالتفقيط ActiveWindow.SelectedSheets.PrintOut Copies:=1 Sh.Range(Sh.Cells(LR + 1, "A"), Sh.Cells(LR + 12, "C")).ClearContents Next Sh End Sub

السلام عليكم أود أن أسأل عن كيفية إدراج صورة معاملة في برنامج معاملات؟ وماهي أفضل طريقة يمكن استخدامها؟ ولكم الشكر والمثوبة إن شاء الله اخوكم / العامر

السلام عليكم يا إخواني إليكم هذا البرنامج الجميل فهو يصلح الملفات المعطوبه لجميع ملفات الأوفيس excel, word, access, powepoint. حجمه 2.71Mb الرقم السري: serial 5223-43974 or 3072-32157 لا تبخلوا علي بردودكم حملوه من هنا!!!!!!!!!!!!!!!!!!!!!! :lol: :lol: :lol: :lol:

السلام عليكم هذا برنامج مخصص لاصلاح واستعاده البيانات لبرنامج الاكسس,,, داعم لجميع اصدارات الاكسس: Access XP, Access 2000, Access 97, Access 95 and Access 2.0 قادر على إستعاده العلاقات و الاستعلامات والجداول متوافق مع كل إصدرات الويندوز الإصدار: Demo حجم الملف: 1.08 MB لاتبخلوا علي بردودكم حملوه من هنا!!!!!!!!!!!!!!!!!!!!!! :pp:

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

إخوتي الأفاضل السلام عليكم ورحمة الله وبركاته لدي قاعدة بيانات وضعت فيها الاسم الأول ، اسم الأب ، اسم الجد ، العائلة كل في حقل مستقل ، لأن لدي تقارير احتاج إلى هذا التفصيل . ولدي تقارير احتاج إلى جعل الاسم كله في حقل واحد ، فقمت بعمل استعلام وفيه ربط الحقول الأربعة بالرابط & . مشكلتي هي أن الأسماء تكون متلاصقة . أي ليس بين كل اسم وآخر فراغ . وأنا لاأريد استخدم كلمة ( ابن ) أو غيرها . ووضعت فراغ بين أداتي الربط . هكذا [الاسم الاول]& &[اسم الاب] ولم يقبل وجود هذا الفراغ . أرجو مساعدتي ودزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته قبل ابدا بسؤالي : رسالة اوجهها الى اخوي محمد طاهر قبل كتابة الموضوع قمت بالبحث لكن فيه مشكلة وان بعض الاعضاء يكتب عنوان لايعني الموضوع نفسه مثل ( ارجو المساعدة وغيره ) فلا استطيع ان اجد مشكلتي من قراءة العناوين فارجو المعذرة على كتابة موضوعي هذا مع العلم انني بحثت :$ فيه هذا الملف : http://www.bahooth.com/db3.zip لدي نموذج باسم ( طلب قطع ) ولدي بالاعلى اسم العميل وتاريخ الفاتورة وغيرها وتحت في النموذج الاوسط لدي مربعات تحتوي على الصنف وبياناته ولقد جعلت النموذج مستمر ( لكي استطيع ان ادخل اكثر من صنف ) واطبعها بفاتورة واحد لنفس العميل لكن المشكلة انني كلما انتقلت من ادخال صنف الى صنف اخر يطالبني بادخال اسم العميل من جديد فكيف اجعل اسم العميل يثبت حتى اضغط على زر الامر اضافة وطباعه ( فيقوم باضافة كل الاصناف لنفس العميل وبعدها يطبع تقرير ) ولكم التحية ... واعذروني مرة اخرى

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

تتمكن الإستعلامات من أداء وظيفه عديده حسب تسخير المستخدم لها فها هي مع استخدام بسيط للدالة dlookup تمنع تكرار قيمه لنفس رقم السجل لنفس التاريخ او حسب حقول اخرى . فلدينا مثال مكون من رقم تاريخ قيمه في نموذج اسمه نموذج 1 لنعمل استعلام نختار منه الحقول الثلاثه ونكتب تحت القيمه في المعايير نكتب [forms]![نموذج 1]![القيمه] وتحت الرقم نكتب [forms]![نموذج 1]![الرقم] وتحت التاريخ نكتب [forms]![نموذج 1]![التاريخ] والآن نتجه الى النموذج ونكتب في الاجراء بعد التحديث لحقل القيمه الكود التالي If DLookup("القيمه", "استعلام1") > 0 Then response = MsgBox("iهذه القيمه موجوده مسبقا وبنفس التاريخ لهذا السجل هل تريد التكرار", vbYesNo, "تبيه عن تكرار") If response = vbYes Then DoCmd.GoToControl "اضافة سجل جديد" Else If response = vbNo Then DoCmd.GoToControl "تراجج" [القيمه] = "" End If End If End If هنالك ايضا زرا امر يتم انشاءهما في النموذج وهما تراجع و اضافة سجل

لدي تقرير يقوم بعرض كشف حساب زبون بين تاريخين من إلى والكشف هو عبارة عن تفاصيل لعملية الدفع والسحب مع تاريخ العملية إلى هنا كل شيئ على ما يرام لكن أريد أن أضيف رصيد سابق : بحيث يعرض قيمة العمليات التي توجد قبل من وشكراً ساعدوني أرجوكم إني في أمس الحاجة إلى مساعدتكم وإلا سيبوء مشروعي بالفشل :') :') :') :') :') :') :') :') :') :')

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