jjafferr

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

وعليكم السلام 🙂 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. يا سلام ، اشوف الجميع يتفق مع توقيعي: 🙂 جعفر

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

المرفق مافيه مشكله 🙂 جعفر

جرب ، وبتستغرب من المعلومات اللي عندك 🙂 جعفر

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

السلام عليكم 🙂 اريدكم تشوفوا هذا المثال ، ولو انه يدوي ، ولكنه يعطي الفكرة 🙂 وبعدها ، ممكن نعمله تلقائي على حدث "الحالي" للنموذج 🙂 جعفر 1075.10-09.mdb

الصيغة هي: dddd d mmmm yyyy لو تكتب كلمة Format في بحث VBE ستجد جميع الطرق : https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/format-function-visual-basic-for-applications جعفر

هذا هو سؤال الاخ كاسر 🙂 جعفر

وعليكم السلام 🙂 الطريقة هي ان نتأكد اذا كان السجل مقفل ، اي ان السجل يتم يحريره/تغييره. اولا يجب ان تجعل الاكسس يقفل السجل الذي يكون عليه التحرير: . وبعد هذا تشوف الكود هنا https://www.utteraccess.com/forum/index.php?s=bacff30915afa7f517609d3afe412ef8&showtopic=1834320&view=findpost&p=2350111 جعفر

وعليكم السلام 🙂 تفضل ، هذا التعديل على الوجدة النمطية Public Function FileName(iPath_In As String, iCondition As Variant) Dim fdr As String FileName = iPath_In & "No.jpg" fdr = Dir(iPath_In & iCondition & ".*") Do While fdr <> "" FileName = iPath_In & fdr fdr = Dir Loop End Function جعفر

شكرا جزيلا على المعلومة 🙂

في مشكلة في صيغة jpeg ، يمكن لأنها 4 حروف ، ما ادري !! . . . جعفر 1074.1.Worker.mdb.zip

وعليكم السلام 🙂 تفضل: الكود يأخذ الاسم ، ولا يهمه صيغة الملف/الصورة ، واذا عندك اكثر من ملف بنفس الاسم ، ولكن بصيغ مختلفة ، فهو يأخذ آخر ملف Private Sub Form_Current() Dim img_Path As String 'img_Path = FileName("C:\Photo\", Me.Worker) img_Path = FileName(Application.CurrentProject.Path & "\Photo\", Me.Worker) Me.img_Employee.Picture = img_Path End Sub Public Function FileName(iPath_In As String, iCondition As Variant) Dim fdr As String fdr = Dir(iPath_In & iCondition & ".*") Do While fdr <> "" FileName = iPath_In & fdr fdr = Dir Loop End Function جعفر 1074.zip

السلام عليكم 🙂 انا صادفت اكثر من 3 - 4 برامج ، المبرمج قافلها ، واصحاب العمل ما عارفين شو يعملون ، بعد ان تم عمل فورمات للكمبيوتر ، والمبرمج طالب المبلغ الفلاني لإعادة تنصيب البرنامج !! فرجاء ، رجاء ، اللي يريد ان يقفل برنامجه ، رجاء ان يضع برنامج او اي كود في برنامجه الحالي ، بحيث يقدر صاحب البرنامج ان يشتغل عليه من جديد ، وفي لابتوبات مافيها إلا البارتيشن C فقط . وهنا سؤال ، هل في اتفاق بينك المبرمج وبين صاحب البرنامج ، ان البرنامج لك ، او له !! فإذا مافي ، فمعناه ان البرنامج له ، وهو حر التصرف فيه !! جعفر

وانا كذلك 🙂 مع اني ما احتجت الى استرجاع بيانات هذا في اي من برامجي ، ولكن طُلب مني التعديل على برنامج يقوم بحذف بيانات من جدول ويلحقه الى جدول آخر ، الى هنا والسالفه سهلة ، الطلب كان ، انهم محتاجين يقارنون البيانات المحذوفة ، ببيانات من جدول آخر ، بشرط عدم وجودها في الجدول الاصل. وشروط الجدول الآخر هي 1 و 2 و 3 . واتضح ان حقول جدول المحذوفات قد تم تغيير بعض حقولها ووووو ، ولولا جلوس المستخدم المحترف بجنبي وتوجيهي ، لكان حل الموضوع !! جعفر

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

مع ملاحظة ، عند ادخال التاريخ ، سيكون باللغة الانجليزية ، ولكن لما تخرج من الحقل سيتم عرضه بالطريقة اللي كتبتها في التنسيق 🙂

في اعدادات الحقل ، سواء في الجدول او النموذج ، اكتب في التنسيق: dd/mm/yyyy جعفر