ابوخليل

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

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

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

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

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