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

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

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

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

بعد فحص ملفك المشكلة ليست في كود الترحيل المشكلة في كود عرض الوقت على النموذج جرب هذا الكود في حدث تنشيط النموذج 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

اشكرك استاذ ابو البشر للاسف التقرير كبير ومتشعب من اكثر من جدول وبيانات علي العموم تم حل المشكل بفضل الله وهي تصدر التقرير الي بي دي اف ثم تحويل البي دي اف الي ورد ثم نسخ الورد علي الاكسيل وبتكون النتيجة مبهرة بنفس التنسيق والالوان وكل شئ ودا فديو الشرح للمرحلة الاولي فتح البي دي اف علي الورد 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

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

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

من أساسيات التعامل مع 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 ؟

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

وعليكم السلام دعك من تحميل الملف المهم الكود .. استخدم الكود الموجود في الموضوع .. الملف ما هو إلا مثال تطبيقي على الكود 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

أرجو تعديل أكواد أزرار 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

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

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

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

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