jjafferr

تفضل نفس موضوعك ، بالمجموعات: http://www.officena.net/ib/topic/60480-طباعة-اصناف-محددة-معينة-بالنموذج-الفرعي-وليس-كل-الاصناف/ والنتيجة (لاحظ لون الرقم المسلسل يتماشى مع نوع الطبق): . وهنا التسلسل للسجلات: http://www.officena.net/ib/topic/63356-ترقيم-سجل-بعد-البحث/?do=findComment&comment=412591 جعفر

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

السلام عليكم الاستعلام في وضع التصميم: ومهم جدا لنجاح هذه العملية ان يكون الاستعلام 1. بفرز مواد المجموعات ، ثم 2. بفرز الترقيم التلقائي مثلا ، وعمل الترقيم تقوم به الوحدة النمطية RowCounter : . والنتيجة: . ولتحديث الجدول Items ، يجب ان يكون لدينا الاستعلام اعلاه ، ثم يقوم الاستعلام qry_2_Update بتحديث الجدول على اساسه وهذه هي الوحدة النمطية: Option Compare Database Option Explicit Public Function RowCounter( _ ByVal strKey As String, _ ByVal booReset As Boolean, _ Optional ByVal strGroupKey As String) _ As Long ' Builds consecutive RowIDs in select, append or create query ' with the possibility of automatic reset. ' Optionally a grouping key can be passed to reset the row count ' for every group key. ' ' Usage (typical select query): ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter(CStr([ID]),False) <> RowCounter("",True)); ' ' Usage (with group key): ' SELECT RowCounter(CStr([ID]),False,CStr([GroupID])) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter(CStr([ID]),False) <> RowCounter("",True)); ' ' The Where statement resets the counter when the query is run ' and is needed for browsing a select query. ' ' Usage (typical append query, manual reset): ' 1. Reset counter manually: ' Call RowCounter(vbNullString, False) ' 2. Run query: ' INSERT INTO tblTemp ( RowID ) ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable; ' ' Usage (typical append query, automatic reset): ' INSERT INTO tblTemp ( RowID ) ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter("",True)=0); ' ' 2002-04-13. Cactus Data ApS. CPH ' 2002-09-09. Str() sometimes fails. Replaced with CStr(). ' 2005-10-21. Str(col.Count + 1) reduced to col.Count + 1. ' 2008-02-27. Optional group parameter added. ' 2010-08-04. Corrected that group key missed first row in group. Static col As New Collection Static strGroup As String On Error GoTo Err_RowCounter If booReset = True Then Set col = Nothing ElseIf strGroup <> strGroupKey Then Set col = Nothing strGroup = strGroupKey col.Add 1, strKey Else col.Add col.Count + 1, strKey End If RowCounter = col(strKey) Exit_RowCounter: Exit Function Err_RowCounter: Select Case Err Case 457 ' Key is present. Resume Next Case Else ' Some other error. Resume Exit_RowCounter End Select End Function Public Function Reset_RowCounter() Call RowCounter(vbNullString, False) End Function Public Function Correct_Last_Sequence() Dim rst As DAO.Recordset Dim Last_Seq As Integer Set rst = CurrentDb.OpenRecordset("Select * From 1 Order By Auto_ID Desc") rst.MoveNext Last_Seq = rst!M rst.MovePrevious rst.Edit rst!M = Last_Seq + 1 rst.Update rst.Close: Set rst = Nothing End Function جعفر 361.Database1.mdb.zip

السلام عليكم أخي عمرو ممكن ترفق لي قاعدة بيانات فيها بيانات حقيقة ، لأن الاسماء في المرفق بالانجليزي كما لا توجد الجنسية في مرفقك جعفر

وعليكم السلام أخي علي يعني افهم من سؤالك الآتي: 1. عندك CDs و DVDs وكلٌ له رقم ، 2. في كلٍ منهم مجموعة ملفات ، وتريد ان تكتب مواضيع هذه الملفات في قاعدة بيانات ، 3. وتعمل بحث عن في المواضيع ، فتعرف رقم الـ CD او DVD . هل هذا كل الذي تريده؟ جعفر

أصيل أخوي ابوخليل ، وهذا نابع من طِيب اصلك رحم الله والديك على هذه الروح اخوي عمر جعفر

2. بالعكس ، المسألة سهلة ، ويمكنك اضافة حقل المسار في الجدول ، ويمكن بدون حقل المسار في الجدول (انا لا استخدم المسار في الجدول) ، راجع الروابط التالية: و و و 3. نعم ، اذا حفظت الصور داخل قاعدة البيانات ، فنعم ، حجم قاعدة البيانات ستكبر ، و SQL سيكون مناسب ، ولكن لو جربت المادة 2 اعلاه ، فلن تحتاج الى هذه الخطوة 4. رابط مايكروسوفت اللي اعطيتك اياه يقوم بالمطلوب. جعفر

وعليكم السلام هذا الرابط من مايكروسوفت يعطيك الكود: https://msdn.microsoft.com/en-us/library/bb258184(v=office.12).aspx ولكن لا يُنصح بحفظ الصور في جداول قاعدة البيانات ، والافضل حفظها في مجلد الوندوز وربطها بالبرنامج بالكود جعفر

وعليكم السلام اخي ابومصطفى بما اني من عمل جزئية البرنامج السابق ، فتفضل جعفر 354.برنامج الفواتيرالناجح المعدل.accdb.zip

الحمدلله نعم لوسمحت ، افتج موضوع جديد. جعفر

قاعدة بياناتك مافيها جدول المستخدمين!! فكرتي تحتاج الى حقل للمستخدم ، وحقل للمفضلة ، بينما فكرتك تعمل نسخة من كل سجل لمفضلة كل دكتور !! طبعا يبقى في الجدول ، وإلا كيف ادخلت اسماء الاطباء ؟ جعفر

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

رجاء ترفق برنامجك وفيه بيانات للجداول المذكورة ، حتى لما اشتغل نكون نعرف شو النتائج. جعفر

هل الجداول الاربعة مرتبطة بالحقل acc_code كما مشار في الاستعلام التالي: جعفر

انا ابديت رأيي ، وبما ان البرنامج لك ، فاختر ما شئت

نفس الفكرة اللي انا طرحتها من البداية ، لكنك تريدها بنموذجين ، وانا اريدها بنموذج واحد جعفر

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

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

وعليكم السلام في هذه الحالة ، في جدول الادوية ، اضف خانتين ، اسم الدكتور ، والمفضلة (نعم/لا) ، والدكتور يستطيع ان يختار ادويته المفضلة من نموذج الادوية ، ويكون في اعلى النموذج خانه غير مضمنه (علامة صح مثلا) ، باسم "الادوية المفضلة" مثلا ، فعندما يختارها الدكتور (صح) ، تعطيه اسماء الادوية المفضلة ، واذا كانت (غير مؤشر عليها) تعطيه كل الادوية جعفر

الى التطبيق: الطريقة: . . والنتيجة: . طريقة الاستعلام (وانت عليك الباقي ) : . او او . والنتيجة: . جعفر 355.pme.mdb.zip

وعليكم السلام أخي علي السؤال مبهم وغير واضح ، فلوسمحت توضح بتفاصيل اكثر ، وستجد الردود تنهال عليك ان شاء الله جعفر

وعليكم السلام انا اعطيتك الجواب من الناحية البرمجية ، وليس من الناحية المحاسبية ، والاخ عبد الله قدور متخصص في مجال المحاسبة وبرمجتها ، لذا انصحك ان تتبع نصائحه ، وخصوصا بسبب ملاحظاتك الاخيرة ، والتي حذرك هو منها مسبقا 1. نعم يمكن عمل هذا برمجيا ، ولكن ماذا اذا اخطأت في معلومة واردت تغييرها !! 2. لا اعرف ولكن السؤال الصحيح هو (ونرجع مرة ثانية الى نصائح الاخ عبدالله قدور) ، لماذا الترحيل الى جدول مؤقت ؟ مادامت البيانات الاصلية موجودة في جداول المشتريات والمبيعات ، فيمكنك استعمالها مباشرة من هناك ، عن طريق استعلام (مثلا) ، وبهذه الطريقة ، تتخلص من المشكلتين معا ، طبعا هذا رأي مهندس مدني هاوي البرمجة ولا يفهم شئ في المحاسبة جعفر

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

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

وعليكم السلام ابا جودي جرب هذه المعادلة: month([Due_Date]) & "-" & year([Due_Date]) = month(date()) & "-" & year(date()) جعفر