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

وعليكم السلام اوقف عمل هذا الجزء 'Me.Undo

اضافة لما تفضل به استاذي محمد ابو عبد الله اذا كان لديك جدول فيه مفتاح اساسي وترقيم تلقاتي (Table1) ومرتبط بجدول اخر (Table2) وتريد ان تحذف جميع البيانات من الجدولين وتعيد الترقيم من الصفر استخدم الكود التالي في حدث عند النقر على زر الحذف DoCmd.SetWarnings False DoCmd.RunSQL "DELETE * FROM Table2" DoCmd.RunSQL "DELETE * FROM Tabl1" DoCmd.RunSQL "INSERT INTO Tabl1 (ID) VALUES (0)" DoCmd.RunSQL "DELETE * FROM Tabl1" DoCmd.SetWarnings True Me.Requery Refresh

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

حياك الله شيخ الزهارين ..... بالتوفيق ... ليش حذف افضل اجابة ؟؟؟؟؟ ههههههه

انسخ ملفات ال PDF الى مجلد بجوار القاعدة وسمي المجلد مثلا Kanory ثم استبدل الكود لديك بهذا الكود ... Me.AcroPDF1.LoadFile (CurrentProject.Path & "\" & "kanory" & "\" & Me.mo3amlano & ".pdf") Me.AcroPDF1.setShowToolbar (False) Me.AcroPDF1.Height = 5000 Me.AcroPDF1.Width = 10000 Me.AcroPDF1.setView ("FullScreen") Me.AcroPDF1.Visible = True كدة هيشتغل معاك البرنامج في اي مكان في جهاز الحاسب بدون مشاكل .... بشرط وجود مجلد Kanory بجوار القاعدة .....

الافضل ان تكون الملفات في مجلد خاص بجوار قاعدة البيانات

ملفات ال PDF بدلا من 1 - 2 -3 اصبجت برقم العميل 11 - 12 - 13 عدلها

شيك على المكتبات لديك حسب الصورة ... لأان البرنامج يعمل لدي ....

وعليكم السلام لاحظ تغيير اسماء ملفات PDF حسب رقم الموظف ..... جرب المرفق واعلمنا بيالنتيجة mm.rar

وهذا كود يقوم بعمل حذف لحقل ID الذي هو حقل ترقيم تلقائي ثم اعادة انشاءه CurrentDb.Execute "ALTER TABLE [tbl1] DROP COLUMN [ID] ;" CurrentDb.Execute "ALTER TABLE [tbl1] ADD [Id]AUTOINCREMENT;" تحياتي

أول خطوة قمت بها هي ضبط حدود الصفحة: وضعتها على 10 ملم (1سم) الخطوة الثانية هي تحديد عدد الأعمدة مع ضبط المسافة بين الأعمدة وبين الصفف على الصفر الخطوة الثالثة هي ضبط عرض التفصيل ارتفاعة على حجم الملصقة (25.4mm*48.5mm) وبالسنتميتر (2.54cm*4.85cm) في هذه الخطوة يأتي التباين في المقاس بين الورقة وبين التقرير؛ مقدار التباين يكون بالملي أو جزء منه.. ولكي نستطيع ضبط المقاس بشكل دقيق دون الحاجة إلى الطباعة من أجل التحقق نحن بحاجة إلى إطار يمثل مقاس الملصقة ومن ثم نضع حقول البيانات كما نريدها في الواقع الخطوة الأخير نقوم بعرض التقرير في وضعية (رؤية قبل الطباعة) للتأكد من أن البيانات سوف تطبع في مكانها الصحيح إذا تمت الإمور بالشكل الصحيح نقوم بتغيير لون الحدود إلى (شفاف)

يبدو أن حضرتك لم تقرأ هذا من قبل يجب وضع وصف دقيق ومفصل للمشكلة (تم تعديل الموضوع وإضافة الشرح الموجود بالملف) على العموم هذا ملفك بعد التعديل بملاحظة الجداول وجدت أسماءها الجدول20 والجدول21 وهكذا فتم استعمال اسم الجدول في معادلة البحث بالتوفيق بحث فى عدة جداول برقم.xlsx

تفضل التعديل ترحيل(3).xlsm

بالخدمة استاذ ورحم الله والديك تفضل التعديل الخاص بعدد السجلات التي سيتم نقلها ملاحظة : الكود منقول للامانة مع بعض التعديلات و يرجى التاكد من فاعليته Access-Import-2.rar

السلام عليكم ورحمة الله وبركاته شكرا استاذنا الفاضل husamwahab جعلها الله في ميزان حسناتك وهو المطلوب

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

حتكلم معاك بالمصري .. يافندم ميحتاجش تبعثلي ع الخاص .. انت بس حاول ترسم فكرة زي الي حضرتك بتريدها واحنا بخدمة حضرتك حتكلم معاك بالمصري .. يافندم ميحتاجش تبعثلي ع الخاص .. انت بس حاول ترسم فكرة زي الي حضرتك بتريدها واحنا بخدمة حضرتك

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

جزاك الله خيرا

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

شكرا لك الطريقه تعمل 100% لكم جزيل الشكر

أهلا بك أبو العقاب راجع المرفق التالي.. أرجو أن يكون مناسبا لمتطلباتك الحدود وضعت من أجل التصميم.. يمكنك إزالتها بتعديل خصائص لون الحدود إلى (شفاف) استخدمت الخطوط عوضا عن عنصر ActiveX طباعة ملصقات نهائي.zip

اشكرك استاذ ابو البشر للاسف التقرير كبير ومتشعب من اكثر من جدول وبيانات علي العموم تم حل المشكل بفضل الله وهي تصدر التقرير الي بي دي اف ثم تحويل البي دي اف الي ورد ثم نسخ الورد علي الاكسيل وبتكون النتيجة مبهرة بنفس التنسيق والالوان وكل شئ ودا فديو الشرح للمرحلة الاولي فتح البي دي اف علي الورد https://youtu.be/7LaHlDdiEU0

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

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

وعليكم السلام-يمكنك جعل المعادلة هكذا =SUMIFS($C$3:$C$7,$D$3:$D$7,$I3,$B$3:$B$7,J$2,$A$3:$A$7,">="&H3,$A$3:$A$7,"<="&EOMONTH(H3,0)) work1.xlsx

ممكن بس فين رمز كنترول الصواب Application.SendKeys("^z") ولكن تذكر أن هذا السطر يساوي Application.undo وهما معا يقومان بالتراجع خطوة واحدة قبل تنفيذ الكود vba

اتفضل هذا التعديل يابوالحسن الفلتر كالتالي - اما ان تختار نطاق التاريخ او تختار السنة المالية فقط لكي يتم تعيين بداية السنة و نهايتها - نوع الحساب الختياري ضمن الفلتر الدائن و المدين.zip

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

تفضل اخي الكريم في زر الحذف ضع الكود التالي If IsNull(Me.a) Then Exit Sub End If If Me.نص34 <> 0 Or Me.نص35 <> 0 Then MsgBox "لا يمكن حذف الزبون لان عليه ديون" Else If MsgBox("هل تريد بالتأكيد حذف الزبون المحدد", vbYesNo, "تأكيد الحذف") = vbYes Then DoCmd.RunCommand acCmdDeleteRecord End If End If الديون.rar تحياتي

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

لاضافة دالة معرفة الى ملفك اضغط alt+f11 لفتح نافذة ال vba من قائمة insert اختر module الصق كود الدالة في الموديول وفي الخلية المطلوب اظهار جمع الارقام اكتب =sumparts(A1) حيث ان A1 هي الخلية التي تحتوي على العدد المراد تقسيمه بالتوفيق

وهذا حل سهل عن طريق المعادلات ويوجد بالملف توضيح جمع أرقام العدد.xlsx

حسب فهمي للمطلوب جرب هذه الدالة المعرفة بنسخ هذا الكود في،موديول جديد Function sumparts(num As String) As Long Dim n As Long, a As Long a = 0 For n = 1 To Len(num) a = a + Val(Mid(num, n, 1)) Next n If Len(CStr(a)) > 1 Then sumparts = sumparts(CStr(a)) Else sumparts = a End If End Function وبعد البحث في الانترنت عن هذا الأمر يمكن اختصار هذه الدالة إلى Function sumparts(num As String) As Long sumparts = num - 9 * Int((num - 1) / 9) End Function وطريقة استدعائها داخل الخلية =sumparts(A1) حيث A1 هي الخلية التي تحتوي على العدد المراد معرفة مجموع أرقامه ويمكن الوصول لهذا الهدف مباشرة في معادلة اكسل بهذه الصورة =A1-9*INT((A1-1)/9) بالتوفيق

وعليكم السلام هل يمكن ان يكون العدد في A1 عدد عشري مثال 1254.76 ؟ او عدد سالب مثال -766543 ؟

هذا ملف الاكسس يتم استبداله بالملف في مرفق الاستاذ محمد حاولت بما اعرف في الأكسس لتكون النتيجة كالتالي 1. وضع مسارات الملفات في جدول tbl1 طبعاً كلها تكون في نفس الفولدر 2. فتح الفورم واخيارا الملفات التي تريد دمجها 3. يمكنك ترتيب المفات التي ستدمج (ايها يكون الاول وهكذا) 4. كتابة اسم الملف الناتج عن عملية الدمج 5. الضغط على زر الدمج وان شاء يتم دمجها دمج ملفات pdf.rar

وعليكم السلام 🙂 الموقع الذي ارفقت انت رابطه يقول ، بأنه يجب ان يكون عندك ادوبي اكروبات الكامل ، وليس برنامج القراءة : في الرابط التالي ستجد البرنامج المطلوب وطريقة العمل: جعفر

هذه الهدية القيمة شفرة الكود المستخدمة فى استخلاص اسماء الشهور والايام اهدانى اياها ذات يوم استاذى الجليل ومعلمى القدير الاستاذ الجليل @ابوخليل ههههههه حتى ايضا الشفرة المستخدمة لعمل الاستبدال ( دالة Replace) ايضا يرجع الفضل فيها الى الله اولا ثم الى استاذى المبجل الاستاذ @ابوخليل نعم لم تكن بنفس الهيئة كانت للاستبدال رموز خاصة وعلامات وانا قمت بالتعديل الطفيف عليها لتحويل الارقام الى عربي عن طريق ال Unicode Chart ولكن لولا الله سبحانه وتعالى ثم استاذى ووالدى لما توصلت الى هذه الفكرة مميزات المرفق - موديول به كل ما يخص التاريخ وكذلك تحويل الارقام الى العربية بدون التدخل فى اعدادات النظام وبدون اى خطوط خارجية ولتكون الهدية كاملة مكملة هذا هو الموقع الذى استخدمة عندما اريد الحصول على ارقام رمز او حرف ما  https://www.ssec.wisc.edu/~tomw/java/unicode.html التاريخ.mdb

وعليكم السلام دعك من تحميل الملف المهم الكود .. استخدم الكود الموجود في الموضوع .. الملف ما هو إلا مثال تطبيقي على الكود Sub Create_PDF_Files_For_Each_Sheet() Dim Ws As Worksheet Dim Fname As String Application.ScreenUpdating = False For Each Ws In ActiveWorkbook.Worksheets On Error Resume Next Fname = ThisWorkbook.Path & "\Exported " & Ws.Name Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False Next Ws Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub

السلام عليكم اخي الكريم شاهد المرفق فية تعديل الكود 20 عامود . اقبل تحياتي واحترامي تعديل 1انجازز (1).rar

أرجو تعديل أكواد أزرار OptionButton بالملف المرفق : حيث إن الكود الحالى يقوم بتحديد فقط الخلايا من B4:B16 & C4:C16 & D4:D16 وهكذا ....... حيث يتم التمثيل البيانى لهذه الخلايا للمدى المحدد بالكود . والمطلوب تعديل الكود بحيث يبدأ من الخلية B4 وينتهـــى عند آخـــر خلية بها قيم مسجلة فى العمود B ، حتى لو كانت مثلا الخلية B3000 أو B600 أو ............... ، حيث يتم يوميا تسجيل قيم جديدة فى هذا العمود و فى الأعمدة الأخرى بالجدول . وبالطبع نفس التعديل للكود فى العمود C بحيث يبدأ من الخلية C4 وينتهى عند آخــر خلية بها قيم مسجلة فى العمود C . وهكذا نفس الكلام للأعمدة D & E & F & G . أرجو المساعدة فى تنفيذ ذلك ولكم جزيل الشكر تعديل أكواد أزرار الاختيارات.rar

السلام عليكم اهم تعديل في هذا المرفق هو استبدال الفورم المرن الاصدار الاخير (تجاوز اخطاء الفورم السابق) وتم تنفيذ بعض الطلبات الممكنه حاليا شاهد المرفق 2010 تعديل فورم البحث والتعديل.rar

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

شكرا أخي خبوروأخي yahiaouiلعل ما كتبه الأخ خبور يكفيوإذا لم يكن هو المقصود فأخبرني

على العموم هذه إعادة هيكلة لملفك تعتمد على أن يكون سعر الوحدة مكتوب للمسافات المحددة كاملا والبرنامج يعطيك سعر نقل الوحدة حسب المسافة المكتوبة ثم يضربها في العدد ليخرج الإجمالي أتمنى أن تعجبك لاحظ واملأ البيانات الموجودة في النطاق j6:k12 بما يتناسب معك أخوكم أبو عبد الله محمد صالح mas-oil.rar

أخي الكريم بناء على أي شيء يتم حساب السعر لأول 25 كم والسعر لثاني 25 كم والسعر لثالث 25 كم والسعر لما فوق 150 كم ؟؟؟

جزاك الله خيرا فقد قال رسول الله صلى الله عليه وسلم : من اسدى إليك معروفا وأردت أن تكافأه فقل له جزاك الله خيرا

مشكور أخي yahiaoui هواية مفيدة تحويل العلم من مقالات إلى كتب نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا

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

السلام عليكم ورحمة الله وبركاته Microsoft Save as PDF or XPS يسمح لك هذا التنزيل بتصدير تنسيقات PDF وXPS والحفظ إليها في ثمانية برامج من برامج 2007 Microsoft Office. كما يتيح لك الإرسال كمرفق بريد إلكتروني بتنسيقات PDF وXPS في مجموعة فرعية من هذه البرامج. وقد تختلف بعض الميزات المحددة من برنامج لآخر. يعمل هذا التنزيل مع برامج Office التالية: Microsoft Office Access 2007 Microsoft Office Excel 2007 Microsoft Office InfoPath 2007 Microsoft Office OneNote 2007 Microsoft Office PowerPoint 2007 Microsoft Office Publisher 2007 Microsoft Office Visio 2007 Microsoft Office Word 2007 تنبيه: يتوفر هذا التحميل للعملاء الذين يستخدمون برامج Microsoft Office الأصلية مع التحية