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

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

نصائح الخبراء هنا كثيرة بخصوص اول خطوة في البرمجة وهي الجداول يرددون دوما يجب الاهتمام بتصميم الجداول وخاصة التسميات ولكن الكثير من المبتدئين لا حياة لمن تنادي .. وكأن توجيهات الخبراء لا تعنيهم اخي الكريم .. من الاخطاء التي وقعت فيها : 1- تسمية الكائنات بكلمات محجوزة في اكسس مثل Name ولم تكتف بتسمية الجدول بهذا بل سميت الحقل به 2- جميع الحقول المرتبطة في الجداول الثلاث متشابهة في التسمية ، وهذا لا يصلح لأنك ستواجه عقبات مستقبلا في الربط فلا تستغرب اذا تأخر رد الاخوة الاعضاء .. ------------------------------ تفضل هذا مطلوبك بعد تعديل الاخطاء .. استعلام واحد اجعله مصدرا لتقريرك 222.rar

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

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

تفضل stock11 .rar

Sub printpreview1() On Error GoTo ErrorHandler ThisWorkbook.Windows(1).Visible = True Application.Visible = True Dim lastRow As Long Dim ws As Worksheet ' تحديد ورقة العمل المطلوبة Set ws = ThisWorkbook.Sheets("sheet") ' العثور على آخر صف يحتوي على بيانات lastRow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row If lastRow > 0 Then ' إعداد منطقة الطباعة لتشمل كل الأعمدة With ws .PageSetup.PrintArea = .Cells(1, 1).Resize(lastRow, ws.Columns.Count).Address .PrintPreview End With End If Exit Sub ErrorHandler: MsgBox "حدث خطأ: " & Err.Description, vbExclamation, "خطأ" End Sub تمام تفضل اخي الكريم

بالنسبة للحفظ والحذف اكسس يحفظ آليا بدون أمر .. بمجرد الكتابة اما الحذف فأرى ان يتم الحذف من نموذج التعديل ,, لأن البيانات ستكون ظاهرة فيه الرئيسي اعمل له زر ماكرو .... والفرعي جاهز فقط يتم التحديد على السجل ثم زر delet ---------------------------------- اعجبني مثالك .. اذا وجدت الوقت الكافي سوف اعمل تحسينات جوهرية عليه ----------------------------------------------- تفضل هذه طريقة الترقيم الخاص Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer xLast = DMax("moveCode", "tblInvoiceHeader", "Left(moveCode, 1) ='" & "W" & "'") prtyr = Left(xLast, 1) If IsNull(xLast) Then xNext = 1 prtyr = "W" Else xNext = Val(Mid(xLast, 2, 5)) + 1 End If Me!moveCode = prtyr & Format(xNext, "00000") stock10 .rar

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

حسب فهمى للطلب =IF(G3="";"";INT(DATEDIF(G3;TODAY();"m")/4)*10) TESTT.xlsx

جرب هذا الكود اخي =IF(TODAY()>G3;INT((DATEDIF(G3; TODAY(); "m") / 4) * 10);"لم يأتي الموعد")

استاذى الفاضل / فؤش ابشرك لقد نجحت معى طريقتك بنسبة 100% وفعلا بتعديل بسيط جدا على كود توليد ارقام الفواتير تمت العملية ولم تنهج باقى البيانات بل بالعكس كلا تدخل البيانات فيه دون اى تهنيج او توقف ـ وكلام معلمنا الجليل ابو خليل فى المداخلة الاخيرة له صحيح 100% ولكن انا رعيت هذه الملاحظة فى عمل الكود فكرة الاستاذ الفاضل فؤش صحيحة وجميلة فعلا وفى منتهى الذكاء واحب اضيف لكل اخوانى فى الدخول فيما بعد ان يتنبه الى انى قمت بتغيير زمن التسجيل فى options ثم client settings ثم open databases by using record وجعلت refresh interval (sec) قمت بالتقليل من 60 الى 5 ثوان فقط فكانت النتيجة مرضية جدا جدا جدا ولم يهنج لان المعلومات تنتقل خلاص 5 ثوانى فقط ـ يعنى المتستخدم الاول على مايكتب اسم الصنف يكون رقم الفاتورة قد كتب وعند المستخدم الثانى يكتب اسم الصنف ياخد رقم فاتورة بعده ـ حاجة فى منتهى الجمال اشكر استاذنا العزيز الفاضل العبقرى فؤش جزاه الله كل خير ويبارك فى صحتة ويرزقه ويسهل له عمله الشاق المتعب وان يبارك فى اولاده يارب ولا يحرمنا من اجابات ونصائح استاذن الجليل / @ابوخليل واستاذنا العبقرى المهندس / @ابو جودي واستاذنا الفاضل / فؤش جزاكم الله خير على ما تقدموه وتفعلوه معنا لاجل المصلحة