jjafferr

وعليكم السلام اخوي علي انت سؤالك كان شئ ، والآن اشوفك تنط الى سؤال آخر الخطأ 2220 معناه انه ما فيه صوره في المسار استخدم Windows Explorer وشوف اذا الصورة موجودة في المسار جعفر

وعليكم السلام الرابط يقول اني احتاج الى صلاحية للوصول الى الملف استعمل برنامج winrar او winzip وارفع برنامجك على المنتدى هنا جعفر

تفضل نفس موضوعك ، بالمجموعات: 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 ، بتخصص المستخدم ، عليه ستكون الادوية لتخصصه فقط جعفر