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

وعليكم السلام اوقف عمل هذا الجزء '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- تعمل طرف فاتورة المرتجع وتكون حقولها مكونة من اسم المادة وسعر المرتجع والمبلغ الاجمالي وتربطها برقم راس الفاتورة .. كذلك تعمل لها معرف تربطه بجدول المنتجات والذي يتكون من رقم تلقائي واسم المنتج ولا داعي لكل تلك الحقول في جدول المنتج ارجوا ان يكون الكلام واضح..وبالتوفيق

بعد فحص ملفك المشكلة ليست في كود الترحيل المشكلة في كود عرض الوقت على النموذج جرب هذا الكود في حدث تنشيط النموذج Private Sub UserForm_Activate() VBA.Calendar = vbCalHijri L2.Caption = "التاريخ الهجرى :" & Format(Date, "ddd dd mmm yyyy") VBA.Calendar = vbCalGreg L1.Caption = "التاريخ :" & Format(Date, "ddd dd mmm yyyy") Do L3.Caption = Format(Now, "hh:nn:ss AM/PM") DoEvents Loop End Sub بالتوفيق

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

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

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

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

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

وعليكم السلام-يمكنك جعل المعادلة هكذا =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

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

من أساسيات التعامل مع vba عدم تسمية الدالة function بنفس اسم الموديول module يمكنك حل هذه المشكلة بإعادة تسمية الدوال أو اضافة اللاحقة _mod في نهاية اسم الموديول من خلال نافذة الخصائص أسفل يسار نافة محرر الأكواد بالتوفيق

تفضل اخي الكريم في زر الحذف ضع الكود التالي 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

السلام عليكم اكتب الكود التالي في آخر السطر اي تحت السطر MsgBox "تم تسجيل التعديلات" For j = 3 To 22 Me.Controls("TextBox" & j) = "" Next

أخي الكريم// محمد عبدالصمد محرر الاكواد محمي بباس ووور وعلي اية حال لو فرضنا ان تريد ادخال ارقام فقط في تكست بوكس 1 استخدم الكود التالي Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 46, 48 To 57 Case Else KeyAscii = 0 MsgBox "فضـلا أستخدم الأرقام فقط" End Select End Sub أو هذا الكود Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsNumeric(TextBox1.Value) Then MsgBox "فضلا قم بادخال أرقام فقط" Cancel = True End If End Sub واذا كنت تريد ان يدخل الرقم بتنسيق رقم استخدم السطر التالي اضفه مع مفتاح الادخال لديك بفرض ان التكست بوكس 1 TextBox1.Text = Format(TextBox1.Text, "0")

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

أين المرفق ؟؟

أخي طارق الأخ لا يقصد أبدا أن سعر الوحدة يقل تبعا لزيادة المسافة فهل يعقل ان تنقل لك شركة كمية لمسافة 10 كم بسعر 10 جنيهات وإذا طلبت أن تنقل نفس الكمية لمسافة 20 كم يكون السعر مثلا 5 جنيهات ؟؟؟ بالطبع لا ولكن هو يقصد على مثالنا أن سعر النقل لمسافة 10 كم يكون 10 جنيهات والمفترض أن يكون سعر النقل لمسافة 20 كم هو 20 جنيه لا بل سعر النقل لمسافة 20 كم يكون مثلا 15 جنيه بتخفيض 5 جنيهات والمفترض أن يكون سعر النقل لمسافة 40 كم هو 30 جنيه لا بل سعر النقل لمسافة 40 كم يكون مثلا 25 جنيه بتخفيض 5 جنيهات وهكذا وما عملته في مثالي بناء على هذه الحسبة والمطلوب منه ان يكتب المسافة من صفر إلى 25 كم سعرها الكامل بعد الخصم المسافة من 25 إلى 50 كم سعرها الكامل بعد الخصم وهكذا

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

ما الفائدة من تنسيق رءوس الأعمدة والصفوف ؟؟

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

السلام عليكم ورحمة الله وبركاته 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 الأصلية مع التحية