ابوخليل

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

عندي يعمل جهازي وندوز 7 اوفيس 10 /32 بت

مرحبا بك في منتدى اوفيسنا 1- اعمل جدول بالبيانات الاساسية الثابتة غير المتغيرة م / رقم العميل / اسم العميل / العنوان / الهاتف ...... الخ 2- اعمل جدولا آخر لتفاصيل العمليات اعتقد انت بحاجة الى حقل واحد فقط يشمل جميع الحقول .. مافيه شي اسمه مرحل ولا جديد حقل واحد للقيمة المدفوعة وحقل بجانبه للبيان فقط من اجل كتابة مبلغ اول المدة الرصيد يظهر في الاستعلام وليس في الجدول

وجدت لك هذه وحدة نمطية عامة اجعلها في مديول #If VBA7 Then Private Declare PtrSafe Function GetShortPathName Lib "kernel32" _ Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long #Else Private Declare Function GetShortPathName Lib "kernel32" _ Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long #End If Public Function GetShortName(ByVal sLongFileName As String) As String Dim lRetVal As Long, sShortPathName As String, iLen As Integer 'Set up buffer area for API function call return sShortPathName = Space(255) iLen = Len(sShortPathName) 'Call the function lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen) 'Strip away unwanted characters. GetShortName = Left(sShortPathName, lRetVal) End Function ويتم مناداتها بهذا السطر Shell ("cmd /c mspaint /p " & GetShortName(CurrentProject.path & "\" & Me.picFld & ".jpg"))

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

نسيت ان اذكر يجب تفعيل خانة تتالي الحذف في العلاقة ، من اجل تكتفي بحذف الجدول الرئيس

اذا تكتفي بسطر الاستاذ قاسم هذا Set rsFatora = db.OpenRecordset("SELECT * FROM tblFatora WHERE FatoraId <> " & strInvoiceID & "") ليصبح الكود Sub DeleteRecordsExceptOne() Dim db As DAO.Database Dim rsFatora As DAO.Recordset Dim strInvoiceID As Integer strInvoiceID = "1001" Set db = CurrentDb Set rsFatora = db.OpenRecordset("SELECT * FROM tblFatora WHERE FatoraId <> " & strInvoiceID & "") Do While Not rsFatora.EOF rsFatora.Delete rsFatora.MoveNext Loop rsFatora.Close db.Close Set rsFatora = Nothing Set db = Nothing End Sub وغير الرقم 1001 لما هو موجود عندك في الجدول الرئيس

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

اولا مربع التحرير ياخذ اسم الدائرة من الجدول الجديد ، ولكن قيمته رقم الدائرة وليس الاسم (نقدر نختار قيمة الحقل من الخصائص) 1 او 2 اي العمود الاول في الاستعلام او العمود الثاني بعد ذلك ياتي دور الكود هذا ياخذ رقم التصنيف من رقم الملف ويضعه في حقل رقم التصنيف [رقم التصنيف] = Mid([رقم الملف بالاستئناف], 5, 4) وهذا يظهر رقم الدائرة بناء على رقم التصنيف (لكن اللي يظهر امامك في مربع التحرير هو الاسم ) لاننا في الخصائص اخفينا الرقم واعطينا الاولوية للظهور للاسم [الدائرة] = [رقم التصنيف] وهذا ياخذ اسم الدائرة من مربع التحرير ويضعه في الحقل الجديد المخفي .. لاحظ الرقم 1 يعني العمود الثاني اللي هو عمود الاسم dayrh = [الدائرة].Column(1)

انظر المصدر هنا hard disk2.rar

يعني الاثنين جميعا في ترقيم واحد ؟؟؟؟ هذا الكود الأول 'لو اردت خانة الرقم تصبح 4 اصفار طبق التعليقات التي امام الاسطر Dim xLast, xNext As Integer Dim i, t, tt, x As Integer t = Format(Date, "yy") tt = Format(DMax("PatientID", "tblPatients"), "yy") i = Format(Me.p_Date, "mmyy") xLast = Right(DMax("PatientID", "tblPatients", tt = t), 3) ' يصبح الرقم 4 بدلا من 3 If IsNull(xLast) Then xNext = 1 Else xNext = xLast + 1 End If Me.PatientID = i & "/" & Format(xNext, "000") 'وهنا تزود صفر على الثلاث اصفار غير "yy" الى "mmyy" في الموضعين ليصبح الكود هكذا Private Sub p_Date_AfterUpdate() Dim xLast, xNext As Integer Dim i, t, tt, x As Integer t = Format(Date, "mmyy") tt = Format(DMax("PatientID", "tblPatients"), "mmyy") i = Format(Me.p_Date, "mmyy") xLast = Right(DMax("PatientID", "tblPatients", tt = t), 3) If IsNull(xLast) Then xNext = 1 Else xNext = xLast + 1 End If Me.PatientID = i & "/" & Format(xNext, "000") End Sub

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

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

ههههه بعد شرح المعنى عرفت انطق الاولى لانها مشتركة بيننا وبينهم ، لاني في الأول قرأتها بتشديد الواو مع الكسر وفتح الدال ثم تاء مربوطة ( مؤنث دودة ) على وزن متفعٍلَة والنطق الصحيح بها بتسكين الواو مع كسر خفيف للدال الثانية ثم هاء .. مْتدُوْدِه حتى الميم تسكن وكأنك تنطق m اما الكلمة الثانية فلا نشترك فيها معهم الله يسعدك

لا لا ما نتركها لكم يا دكتور .. نريد تفسير الكلمات .... بعدين تعال : انت في العراق وموسى في عمان ... هل الكلمات عراقية ام عمانية ؟

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

شكرا اخي جمال على الهدية هل هو جيد ؟ هل جربته على ملفات تالفة ، وهل يستعيد كافة البيانات ام الجداول فقط وسؤال اخير ضروري : هل هو مجاني ؟ ام مدفوع ؟

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

بعد اذن اخي الحبيب ابا جودي .. المرفق عبارة عن شبه برنامج متكامل ( جداول واستعلامات ونماذج) وكان ظني ان اجد فقط جداول للاستشارة وحتى لا يدب اليأس الى قلبك ... ان كنت عازما على عمل مشروعك بشكل جيد منظم وتستفيد من خبرات اخوتك هنا اتبع الخطوات التالية : 1- ابدأ من الصفر 2- اشرح عملك بالتفصيل ، واطرحه للنقاش بأدق التفاصيل .. وهذه مرحلة مهمة جدا جدا عند العزم على بناء اي مشروع 3- ابدأ بتصميم الجداول .. بناء على نتيجة تحليل البيانات .. تحت نظر الخبراء هنا . اعلم انك اذا انهيت تصميم الجداول بشكل صحيح فانك انهيت 50% من مشروعك ، لأن كل ما يلحق مستقبلا يعتمد على هذه الجداول وفقك الله لكل خير

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

تفضل ترقيم يتجدد كل سنة 'لو اردت خانة الرقم تصبح 4 اصفار طبق التعليقات التي امام الاسطر Dim xLast, xNext As Integer Dim i, t, tt, x As Integer t = Format(Date, "yy") tt = Format(DMax("PatientID", "tblPatients"), "yy") i = Format(Me.p_Date, "mmyy") xLast = Right(DMax("PatientID", "tblPatients", tt = t), 3) ' يصبح الرقم 4 بدلا من 3 If IsNull(xLast) Then xNext = 1 Else xNext = xLast + 1 End If Me.PatientID = i & "/" & Format(xNext, "000") 'وهنا تزود صفر على الثلاث اصفار ID44.rar

زيادة الخير خير

السطر هذا سليم ولكن السنة ستكون اربعة ارقام !RDnum = "RD" & !report_No & Month(Date) & year(Date) ومن اجل تكون السنة رقمين جرب !RDnum = "RD" & !report_No & Month(Date) & format(year(Date),"yy")

لست بحاجة الى حقل محسوب حول نوع الحقل الى نصي ، واعتقد ان اكسس يرفض التحويل فلابد تحذفه وتدرجه من جديد وفي حدث بعد التحديث لحقل " رقم الملف بالاستئناف " ضع معادلتك ( بمعنى انه يتم ادراج رقم التصنيف آليا عند الانتهاء من كتابة رقم الملف بالاستئناف) [رقم التصنيف] = Mid([رقم الملف بالاستئناف], 5, 4)

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