ابوخليل

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

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

افتح القاعدة باشتخدام الشيفت على التصميم الكود واضح وعليه بعض الشروحات

هل هذا ما تريد ؟ Function ProcessorSpeed() ' shows the processor name and speed of the computer Dim MyOBJ As Object Dim cpu As Object Dim strComputer As String Set MyOBJ = GetObject("WinMgmts:").instancesof("Win32_Processor") For Each cpu In MyOBJ 'MsgBox cpu.Name & " " & cpu.CurrentClockSpeed & " Mhz", vbInformation strComputer = cpu.CurrentClockSpeed Next ProcessorSpeed = strComputer End Function ايضا انظر في سطر الرسالة المعطل ان اردت اسم المعالج ايضا Clock2.rar

اقرأ ما كتبته لك جيدا ((( احذفها من جدول الفاتورة .. لأنها مكررة ))) وليس من جدول رأس الفاتورة

تفضل top 10 fsl Up.rar

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

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

اختلف الموضوع .. فضلا افتح موضوعا بعنوان جديد بطلبك

النسخة هنا في موضوع وعنوان جديد