jjafferr

السلام عليكم 🙂 المنتدى مليئ بمختلف المواضيع ، لهذا السبب فإننا ننصح بإستخدام خاصية البحث ، قبل وضع سؤال جديد ، فهناك احتمال كبير بوجود عدة اجابات لسؤالك 🙂 وبطبيعة الحال ، فهناك العديد من المواضيع القديمة ، والتي قد نستفيد منها بطريقة او اخرى. واذا اردنا ان نسأل في موضوع قديم ، فيجب ان نأخذ رابط ذلك الموضوع ، ونعمل موضوع جديد نضع فيه سؤالنا ، ونشير الى ذلك الرابط القديم 🙂 واذا اردنا ان نشكر صاحب الموضوع ، فممكن بالنقر على ايقونة الشكر: ورجاء عدم وضع ملاحظة/طلب تعديل/سؤال جديد في موضع قديم 🙂 جعفر

السلام عليكم 🙂 شوف هذا الرابط جعفر

السلام عليكم اخوي ابا جودي 🙂 انا اعرف انه ليس من السهولة عمل تغييرات جذرية في طريقة العمل ، ولكن لكل مجتهد نصيب 🙂 عملت بعض التعديلات على البرنامج ، بحيث جعلته سهل ان يأخذه المستخدم الى كمبيوتر آخر: دمجت الجدولين في جدول واحد ، ودمجت جميع الوحدات النمطية في وحدة نمطية واحدة ، وعملت تغيير بسيط على الدالة Msg 🙂 في شيء آخر صار لي اكثر من اسبوع احاول ان افتح فيه موضوع ، ولكن التهي بشيء او آخر ، وان شاء الله لما اعمله ، اخبرك عنه 🙂 جعفر 1080.dbskn.zip

اذا فهمتك صح ، فهذه ما يحتاج لها نموذج خاص 🙂 هناك مثال في الاكسس عن Msgbox Function: Dim Msg, Style, Title, Help, Ctxt, Response, MyString Msg = "Do you want to continue ?" ' Define message. Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons. Title = "MsgBox Demonstration" ' Define title. Help = "DEMO.HLP" ' Define Help file. Ctxt = 1000 ' Define topic ' context. ' Display message. Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then ' User chose Yes. MyString = "Yes" ' Perform some action. Else ' User chose No. MyString = "No" ' Perform some action. End If . فتعمل الاختبار قبل ما تعرض الرسالة ، وعلى اساس النعم او لا تقوم بالخطوة التالية 🙂 وسواء استعملت الرسالة بالانجليزي او العربي ، فالطريقة سيان 🙂 جعفر

وعليكم السلام 🙂 مو جميع اكواد VB6 تعمل في بيئة VBA ، والمشكلة هنا في تعاملك مع ملف user32.dll ، وليس في اعدادات الاكسس. انا احب البساطة في العمل ، ولذلك ، وبدل ان ادخل في اكواد لا افهمها ، ممكن ان اعمل نموذج ليقوم بهذا العمل ، بالاكسس 100% 🙂 جعفر

وعليكم السلام 🙂 الطريقة الافضل لعمل فرز في النموذج ، هو عن طريق الاستعلام (مصدر بيانات النموذج) ، مثل ما تفضلت وقلت ، ولكن ، قد تكون عملت فرز آخر في النموذج وحفظته !! ادخل النموذج في وضع التصميم : 1. ومن اعدادات النموذج ، لاحظ اذا كان هناك فرز في حقل "Order By" ، فإحذفه ، 2. انظر في حدث النموذج: عند الفتح ، عند التحميل ، اذا في اي امر فيه OrderBy ، فإحذفه. جعفر

شكرا بشمهندس 🙂 جعفر

نعم ، أي شيء غير الانجليزي (حتى الملاحظات) ، يجب ان لا تكون في الكود ، وطبعا الكود الانجليزي يظل في الكود 🙂 واذا تسمح لي ، فقد عملت دمج للدالتين ToHijri و ToMilady ، ويمكنك ان تضع ملاحظاتك بالانجليزي بدل العربي ، والشيء الوحيد المتبقي بالعربي هو معلومات رسالة الخطأ ، والتي يجب ان تضعها في جدول ، وتناديها منه : Public Function ToWhat(ByRef myData As String, To_Hijri_Milady As String) As String On Error GoTo ErrorHandler 'to call the Function 'Hijri to Milady 'txt Milady date = ToWhat(txt Hijri date, "H") ' 'Milady to Hijri 'txt Hijri date = ToWhat(txt Milady date, "M") Dim CorctAdjustDay As Integer CorctAdjustDay = DLookup("[AdjustDay]", "tblAdjustHjriDate") If To_Hijri_Milady = "M" Then myData = Trim(Format(DateAdd("d", -1 * CorctAdjustDay, myData), "dd/mm/yyyy")) SavedCal = Calendar VBA.Calendar = 1 d = CDate(myData) VBA.Calendar = 0 Else myData = Trim(Format(DateAdd("d", CorctAdjustDay, myData), "dd/mm/yyyy")) SavedCal = Calendar VBA.Calendar = 0 d = CDate(myData) VBA.Calendar = 1 End If s = CStr(d) ToWhat = Format(s, "dd/mm/yyyy") VBA.Calendar = SavedCal ErrorHandlerExit: Exit Function ErrorHandler: If Err = 13 Then MsgBox "لم تقم بإداخال قيمة صحيحة للتاريخ", vbOKOnly + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه" Exit Function 'Resume Next Else Resume ErrorHandlerExit End If End Function جعفر

اذا كانت الكلمات العربية في جدول ، فلن تحصل على رسالة الخطأ ، وانما لن يستطيع الاكسس قراءة الكلمات لأنه لا توجد خطوط عربية في الوندوز ، فيعطيك الاكسس علامات استفهام بدل الكلمة ، هكذا مثلا: ????? ??? 🙂 جعفر

يا خرابي ، علاقتنا وصلت لهذه الدرجة 😱🥵😭 العفو ، انا امزح معاك ، واعرف انها خطأ مطبعي 🙂 السبب انك تستخدم ملف MDW هو للتحكم بالمستخدمين ، وابعاد المتطفلين (الغير محترفين 🙂 ). اعمل التالي لوسمحت ، على زر ، في اي برنامج عندك ، اكتب : msgbox currentuser والنتيجة ستكون Admin . هذا معناه ، ان اذا البرنامج غير محمي بملفه الخاص MDW ، فالاكسس سيقرأ اسم المستخدم من الملف الاصل System.MDW . لهذا السبب ، اذا المتطفل اخذ البرنامج ، وحاول يفتحه في على كمبيوتره (بدون وجود ملف MDW ولا المختصر الذي يقرا من MDW ، واستطاع ان يفك ارتباطه من الـ MDW) ، فتلقائيا يجب ان لا يشتغل البرنامج ، وذلك بإتباع : . لهذا السبب ، ولأنه ببساطه للذي يفهم شوي في الاكسس ، يقدر يتخطى هذا الملف ، وللعلم فالحماية هذه عن طريق MDW يعتبرها المحترفين "مجرد قفل صغير" وليس قفلا حقيقيا يحمي البرنامج ، ولهذا السبب ازالته المايكروسوفت من اصدارات 2007 فما فوق (على حد تعبيرهم) 🙂 جعفر

اخوي ابا جودي 🙂 ملاحظتك غير دقيقة !! لأنه اذا استعملت الكود حقك في نظام وندوز مافيه عربي ، فستحصل على هذه الرسالة ، لأن الكود عندك به كلمات عربية : والطريقة اللي ممكن تجعل برامجك تشتغل بكل اللغات بدون الخطأ اعلاه : ولكن ، صحيح انك ما راح تحصل على خطأ ، وصحيح انك استخرجت الارقام العربية من unicode الخط ، ولكن كلماتك العربية (اسماء الايام والاشهر) تحتاج ان يكون في الوندوز خطوط عربية 😞 جعفر

السلام عليكم 🙂 مشاركتي هنا مو معناها اني أؤيد هذا الطريق ، وانما لأنه تم فتح هذا الباب ، فاريد ان اضع بعض نقاط تجربتي فيه 🙂 1. لا تستخدم ملف System.MDW ، وانما اعمل منه نسخة واستعمل النسخة ، 2. احتفظ بنسخة من ملفاتك الـ MDW معك في مكان امين ، لأنك ستحتاج لها اذا فقدت النسخة الاصل ، 3. بما انك تقدر ان يكون عندك اكثر من مجموعة (مجموعة لبرنامج المحاسبة ، ومجموعة لبرنامج الصادر والوارد ، وووو) ، يفضل ان يكون اسم ملف الـ MDW هو نفس اسم برنامجك ، 4. خلي ملف MDW نفس مجلد الجداول BE ، وعليه ، يجب ان تكون كل الاختصارات تشير اليه ، 5. في البرنامج ، علشان تعرف اسم المستخدم ، الامر هو CurrentUser ، 6. يجب ان تفتح البرنامج من المختصر Shortcut من على سطح المكتب (رجاء متابعة النقطة تحت) ، وتعمل مختصر لكل مستخدم ، 7. اذا تم فتح البرنامج بدون المختصر (او اذا لم يوجد ملف MDW) ، فإسم المستخدم سيكون Admin ، وهذه كارثة ، لذلك يجب ان تحذف اسم Admin من قائمة المستخدمين في ملف MDW ، 8. في اول سطر ، عند فتح قاعدة البيانات ، يجب ان تغلق البرنامج اذا كان المستخدم هو Admin : if currentuser= "Admin" then docmd.quit end if 9. المختصر على سطح المكتب هو كما اشار اليه اخي ابا جودي ، 10. يمكن إضافة اسم المستخدم في المختصر (بدل ان يختار اسمه عند فتح البرنامج) : "C:\Program Files\Microsoft Office\Office\msaccess.exe" /wrkgrp "\\TT\WorkgroupFile.mdw" "\\TT\Database.mdb" /user UserName 11. يمكن إضافة اسم المستخدم وكلمة السر في المختصر (بدل ان يختار اسمه عند فتح البرنامج ، وادخال كلمة السر) ، ولكن حذاري ، فقد يعرفها المخربون : "C:\Program Files\Microsoft Office\Office\msaccess.exe" /wrkgrp "\\TT\WorkgroupFile.mdw" "\\TT\Database.mdb" /user UserName /pwd Password جعفر

وعليكم السلام 🙂 جوابك قد تحصل عليه في احد هذه الروابط . . . جعفر

راجع هذا الرابط ، والذي فيه رابطين وهذا جعفر

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

اخي الفاضل 🙂 هذا المنتدى لنشر وتبادل المعلومات بين الاعضاء ، فرجاء وضح سؤالك ، حتى تحصل على مساعدة من الاعضاء ، ويستفيد الجميع من الاجابة. اما اذا اردت ان يتم التخاطب معك مباشرة عن طريق عنواينك الخاصة بالتواصل الاجتماعي وغيرها ، فالرجاء وضع سؤالك هنا: https://www.officena.net/ib/forum/157-إعلانات-شخصية-للاعضاء-فقط-فى-مجال-الموقع/ جعفر

السلام عليكم 🙂 للأسف الشديد ، مو كل شيء ممكن يتحقق بإستعلام واحد !! نعمل استعلام لعملية البيع ، واستعلام لعملية الشراء ، ثم نربط هذين الاستعلامين في استعلام ثالث واللي نحصل فيه النتيجة . والنتيجة . جعفر 1078.Database2.accdb.zip

ليش !! رجاء التوضيح اكثر لوسمحت 🙂 جعفر

وعليكم السلام 🙂 1. انت تريد عرض التقرير يكون 90 سم ، بينما تقرير الاكسس يمكنه ان يكون 55.8 سم بحد اقصى ، فيمكنك ان تستعمل 55.8 سم (او اقل) كحد اقصى للعرض ، بعمل تنسيق يختلف قليلا ، هكذا: او 2. الاكسس كونه قاعدة بيانات ، ومثله مثل باقي البرامج ، له حدود معينه لا نستطيع تجاوزها !! اقترح عليك تصدير البيانات من استعلام الى ملف اكسل ، والطباعة من الاكسل ، سواء للطابعة مباشرة او لملف PDF (والذي بإمكانه احتواء عرض صفحة A0). جعفر

وعليكم السلام اخي مازن 🙂 انت في مناقشة مع اثنين من الاعضاء في مشاركتك . فالرجاء المتابعة واعطاء تفاصيل اكثر هناك. الموضوع مكرر ، يُقفل. جعفر

السلام عليكم 🙂 في الواقع جربت طريقة اخوي ابوخليل سابقا ، ولكني قد لم اعملها بطريقة صحيحة ، فما حصلت على النتيجة المطلوبة ، فحذفت برمجتها !! ولكني ارفق هنا التجارب الاثنين الاخرى لنفس الموضوع (6 ملفات ، 3 ملفات لكل تجربة) ، وجاهز للشبكة ، BE على السيرفر ، و FE_1 على كمبيوتر و FE_2 على كمبيوتر آخر (بس انا استعملتهم كلهم على كمبيوتر واحد 🙂 ) وفي انتظار نتيجة تجاربك 🙂 جعفر 1075.RecordLock.zip

السلام عليكم 🙂 عندي مجموعة ملاحظات في هذا الموضوع ، فرجاء تتحملوني 🙂 1. لو كان اخونا عبد اللطيف واضح في سؤاله ، ومرفق الملف الصحيح ، لو كنا وصلنا للحل بدري 🙂 2. اتفق مع الجميع ، فنحن بحاجة الى معيار آخر كذلك ، قد يكون التاريخ ، حتى مع الحل الاخير الذي قدمه الاستاذ ابا جودي ، فالايجار لن يظل نفسه لطول العمر !! 2.1. لابد من استعمال المسميات الانجليزية في تسمية جميع كائنات الاكسس ، لأن التسميات العربية تقلب الاوامر ولا نستطيع ان نضبط الكود بها ، 3. بدل استخدام Dlookup (لا ننسى انك يجب ان تكتب الاسم بالضبط وبطريقة صحيحة ، حتى يعمل Dlookup ويجلب القيم الصحيحة) ، الافضل استخدام Combobox ، فممكن ان يعطيك اكثر من قيمة لإيجار الشقة ، وتختار منها. ويكون عندك في حقل Combobox اعمدة بجميل الحقول الاخرى ، وعلى حدث "بعد تحديث" الحقل ، يتم توزيع/فرز القيم على بقية الحقول 🙂 4. الامر Dlookup في الواقع هو استعلام ، لذلك فنحاول قدر الامكان ان نجلب كل البيانات من الجدول مرة واحدة ، ثم نفرزها في النموذج ، وهذا اللي يعمله كود الاستاذ ابا جودي ، بالاضافة الى كتابه اقل 🙂 5. اتفق مع الشباب ، بأنه في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، يفتق الاذهان ويدمج التجارب ويبلور الافكار وفائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال جعفر

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

والامر الكامل هو: If Me.Dirty = true Then Me.Dirty = False هي تساوي في العمل: docmd.runcommand accmdsaverecord اي تحفظ السجل ، ولكن ، بدل ان نحفظ السجل وبدون ان نكون قد قمنا يتغيير شيء فيه ، الامر me.Dirty=true معناه هناك تغيير في قيمة في السجل ، فاذا بالفعل هنا تغيير ، اذن قم بالحفظ ، يعني تحقق اذا كان الحفظ مطلوب او لا 🙂 جعفر

همممم 1. الموضوع كان ، لماذا يحدث تكرار في البيانات كلما استعملنا delookup ، 2. يا سلام ، اشوف الجميع يتفق مع توقيعي: 🙂 جعفر