ابوخليل

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

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

الحمد لله .. الفضل له .. وشكرا على ثنائك العطر

من مشاركاتك القليلة جاء في بالي انك تعمل على اكسل وتريد ان تنقلها هناك ، حيث لا يوجد نموذج تعمل عليه لأن في اكسس لايتم القراءة ولا الكتابة من الجداول ولا الاستعلامات وانما تكون الكتابة في النماذج والقراءة من التقارير على كل حال .. وجدت صعوبة في الترقيم من خلال استعلام واحد لذا اقدم الحل بطريقتين : الاولى تجدها في النموذج الأول form1 الثانية وهي ادراج ارقام الاقساط داخل الجدول نفسه من خلال كود برمجي موجود في النموذج الثاني form2 الاستعلام الموجود للاستئناس والاطلاع فقط بعد اجراء عملية الترقيم بواسطة الكود لانه مرتب ومفروز حسب الاسم والتاريخ تصاعديا . آمل ان يلبي طلبك وحاجتك . Database16.rar

ينقل الى قسم البرامج المدفوعة

تفضل عملت لك استعلام حسب طلبك ، يمكنك ان تبني عليه النموذج والتقرير Database15.accdb

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

Set rs = CurrentDb.OpenRecordset("AAA") rs.MoveFirst Do While Not rs.EOF x = rs!id Me("DDDD" & x).Caption = rs!NM Me("D" & x).Caption = rs!id Me("S" & x) = rs!sr rs.MoveNext Loop اسم العميل3.rar

استبدل كامل الكود الذي في المثال بهذا الكود ، حيث تم اضافة الاسطر الخاصة بتصيد الأخطاء للتجربة : شغل الجلب مرة اخرى بالرقم نفسه على الكود الموجود وانظر النتيجة ثم استبدله بهذا الكود واعد تشغيل الجلب على الرقم نفسه وانظر الفرق On Error GoTo Err_scan Dim scandiag As Object Dim image As Object Dim r As Integer: Dim x As String If IsNull(Me.[رقم الربط]) Then MsgBox "ادخل بيانات الكتاب" Exit Sub End If r = Me.[رقم الربط] x = CurrentProject.Path & "\photo\" & r & ".jpg" Set scandiag = CreateObject("wia.commondialog") Set image = scandiag.ShowAcquireImage(, , , wiaFormatJPEG) If image.FormatID <> wiaFormatJPEG Then Dim IP Set IP = CreateObject("Wia.ImageProcess") IP.Filters.Add IP.FilterInfos("Convert").FilterID IP.Filters(1).Properties("FormatID").Value = wiaFormatJPEG Set image = IP.Apply(image) End If If image Is Nothing Then MsgBox "تم الغاء الإجراء" Else image.SaveFile x Me.m.Picture = x Me.Refresh End If MsgBox "تم الحفظ" Exit_scan: Exit Sub Err_scan: MsgBox Err.Description Resume Exit_scan

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

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

عليكم السلام اعتقد حسب ترتيب الحقول اذا الترتيب صح استخدم الاداة & مع مسافة اذا لم تتمكن ارفق مثالا بسيطا

تفضل لكن الطريقة هذي فيها ثغرة الآن الترقيم في الجدول مترتب فلو اختلف ظهرت لخبطة فالافضل اخذ الرقم x من مجموعة السجلات اسم العميل2.rar

السلام عليكم ليتك جعلت طلبك في موضوع وعنوان جديد ، بسبب قدم الموضوع سوف افصل طلبك لاحقا عن هذا الموضوع على كل حال ؛ الحل هو استخدم استعلام الحاق او ارفق مثالك ان اردت الاجابة الكاملة ( يكتفى بالجدولين والنموذجين فقط )

نعم ممكن

هل ستتحف اخوتك بنسخة من البرنامج ؟ ام هذا اعلان ؟

ليه لا ؟ اذا توفر جهاز قارىء لبصمة الوجه يدعم الواجهات ( enterface) اتوقع مثله مثل جهاز قارىء بصمة اليد

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

آمل ان يكون هذا هو مطلوبك Public Function OrderAwael(Roundx As Double) As String Set rs = CurrentDb.OpenRecordset("SELECT COUNT(*) + 1 FROM (SELECT qryRank.Rounded FROM qryRank GROUP BY qryRank.Rounded) As temp WHERE temp.Rounded > " & Roundx, dbOpenSnapshot) OrderAwael = rs(0) rs.Close End Function Ranks.accdb

عليكم السلام هل تريد تقريب 249.5 الى 250 ام الى 249 ؟

الامر يسير .. نضع معيار حسب تاريخ التسديد الذي يعتبر تاريخ اليوم هنا لن يظهر ما تم تسديده في تاريخ سابق ، وايضا يسمح باظهار اكثر من سجل واحد تم تسديدها الآن printfactur3.rar