Hamdi Edlbi-khalf

السلام عليكم هناك عدة طرق لعمل ذلك و الأفضل استخدام إحدى الطريقتين في المرفق: الأولى بجلب البيانات بالدالة Dlookup من جدول الأصناف بناء على مربع السرد و الحوار الخاص برقم الصنف . الثانية بنسخ قيمة الأعمدة من مربع السرد الحوار إلى الحقول المطلوبة. هاتان الطريقتان تسمحان بالتعديل على البيانات مثل تغيير سعر الوحدة من البضاعة في مثالنا، دون تغيير القيمة الافتراضية كما هو في طريقة ربط جدولين. BringValuesFrom-A-TableToAnother.accdb

وفقكم الله وبارك بكم ومنها لأعلى

جزاكم الله كل خير أساتذتي الكرام

السلام عليكم أرفق نسخة مرفوعة على سيرفر الموقع برنامج احتساب البصمة.accdb

أستاذ @kha9009lid واخجلي منك لقد استخدمت كودكم ولكن أشرتٓ إلى أني أخذته من الأستاذ Kaliad jnb

بانتظار ملاحظاتكم أخي .

السلام عليكم مؤخراً قمت بعمل مشروعٍ لمعالجة بيانات جهاز البصمة الإلكترونية Fingerprint Scanner ، ومن ضمن مراحل العمل احتساب الإجازات الساعية شهرياً وذلك بتحويلها إلى يوم إجازة، ونظراً لكون المشروع يتعلق بخصوصية المكان المنفذ لأجله مع التعقيدات القانونية المتعلقة بذلك، فقد اختصرت العمل لما يبين هذه الجزئية فقط، بعد أن وجدت من يسأل عنها؛ عسى أن يكون في هذا العمل ما ينفع، مع بعض الأكواد البسيطة التي قد يُحتاج إليها. أللهم صلِ على سيدنا محمد وعلى آله وصحبه وسلم. ميديا فاير- رابط المثال

السلام عليكم لقد قمت بتصحيح الكود كما جاء في الرابط: سأضع المثال كما أمرتم. جزاكم الله كل خير أستاذ @jjafferr لقد كتبت الكود السابق خطأ، في المرفق الفكرة كما أردت طرحها. Database1.accdb

السلام عليكم لقد قدم أساتذتي -جزاهم الله كل خير-الجواب على هذه المسألة. وأضيف من تجربتي: يمكنكم ذلك بجعل تصميم النموذج هو تصميم التقرير- فعلياً لا وجود للتقرير- ومن ثم فإنك تطبع النموذج نفسه. أو بإضافة عنصر تحكم نموذج تجعل مصدره التقرير من خلال الكود: Me.subFormName.Sourceobject "ReportName.rep"= عندها سيظهر التقرير ضمن النموذج وستتمكن من تدارك التعديلات قبل الطباعة ودون الخروج من النافذة. الشكر للأستاذ رمهان فمنهم تعلمت طريقة عرض التقرير ضمن النموذج.

السلام عليكم ربما لن أتمكن من تقديم شيء يذكر ولكن عسى أن يكون في هذه المشاركة ما ينفع، فمن البحث في جوجل : لديك برنامج أكسس مرتبط بـ كريستال ريبورت، أو برنامج مصمم بـ الفيجوال بيزك يخزن البيانات في قاعدة أكسس ويستخدم كريستال ريبورت لطباعة التقارير. المشكلة -كما شرحتٓها في السؤال وكما اقترح البحث- لها أسباب كثيرة، ولكن بما أن المشكلة ظهرت بعد نقل الهارد من حاسب إلى آخر فإن شيئاً مما ذكر في الحلول المختلفة لا يتصل بصورة مباشرة مع ما ظهر لديكم. ولكن كان تصفير كلمات السر هو الحل المقترح فأغلب الروابط أشارت إلى أن هذه المشكلة تحدث عند تمرير كلمة السر بين مشروع VB والكريستال ريبورت، وفي حالة برنامجكم قد لا تكون النتائج مرغوبة أومتوقعة.

جزاكم الله كل خير.

أخي العزيز انظر الاقتباس السابق آلية العمل بالصورة التالية: الحقل D1 تتغير قيمته كون جميع المعادلات بنيت على أساسه وجمع الأكواد ضمن البرنامج أيضاً و تجنباً لإعادة العمل من الصفر قمت بإضافة حقل جعلته مصدر الحقل D1 في النموذج. هو DateOrginal لذلك لن تتغير عندك النتائج لو جعلت هذا الحقل المصدر بالتقرير. لذلك قلت في بداية الطريق: الأمر الآخر - أخي الغالي - أنك لم ترفق لي نسخة مصغرة من البرنامج إنما جدول و استعلام ليس فيهما كثير مما ظهر في المراحل اللاحقة، وهذا كله قد يؤدي إلى نتائج غير كاملة. هل تريد أن يظهر التاريخان في حقلين مستقلين للتمكن من عرض النتائج في استعلام أم أن هناك أمراً آخر؟ وسأستمر معك - إن شاء الله- حتى تصل إلى أن يعمل برنامجك بصورة كاملة.

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

هذا يقوم به الكود ما عليه سوى تعديل مصدر حقل بداية المدة في التقرير ليكون موافقاً لمصدر الحقل D1 في النموذج. هناك حقل في النموذج يكتب به تاريخ التعديل و التاريخ السابق لتاريخ الرحلة الجديد هذا خلاف ما تم طلبه سابقاً حيث تكون الرحلة لعامل الإقامة في أول أسبوع يلي آخر المدة. قبل أن نقوم بالتعديل مجدداً يرجى النظر في المرفق السابق مرة أخرى و إعلامي بما تحتاج. بالتوفيق أخي العزيز.

شكراًً لكم بارك الله بكم.

السلام عليكم https://www.officena.net/ib/topic/100763-هدية-معالجة-الكتابة-الحروف-العربية-المشفرة-التي-تظهر-في-ملفات-إكسل/

السلام عليكم

أهلا وسهلاً بكم جزاكم الله كل خير

شكراً على تشجيعكم أخي الغالي.

السلام عليكم تواجه كثيراً من مستخدمي إكسل مشكلة تشفير الكتابة العربية في الملفات وخاصة تلك المصدرة من الأجهزة والبرامج الأخرى كجهاز البصمة أو الملفات المحملة من الإنترنت أقدم لكم هذا الكود الذي كتبته بعد بحث في موضوع اليونيكود خاصة أني سابقاً قد عانيت من المشكلة و الحلول البديلة تسمح بمعرفة المحتوى دون القدرة على تحويل الملف بالكامل. ملاحظة : يفضل نسخ الملف المشفر قبل إجراء التحويل عليه. a Code shows invalid/ decrypted characters in Excel properly والحمد لله الذي بنعمته تتم الصالحات و صلى الله على سيدنا محمد وعلى آله وصحبه أجمعين وسلم تسليماً كثيراً. عند فتح الملف هنا زر بالنقر عليه تفتح نافذة لاختيار الملف المطلوب ثم مربع حوار لكتابة اسم الورقة ثم مربع حوار اختيار المجال المراد تغييره عن طريق التحديد. الفانكشن في البداية يمكن استدعاؤها كدالة من دوال إكسل ضمن ورقة البيانات يكفي لذلك = InStead(YourText or Cell Address) Public Function InStead(T1 As String) ' Created by Khalf Officena Forums 20/02/2020 ' www.officena.net ' Hamdi Edlbi ' This Code for Showing Arabic Characters Properly In Excel Dim w As Integer w = Len(T1) For X = 1 To w T2 = Mid(T1, X, 1) T3 = AscW(T2) T4 = Chr(T3) T5 = T5 & T4 Next X InStead = T5 End Function Sub InSteadAll() ' This Sub For Call the Function In The Current Sheet On Error Resume Next Dim C As Range For Each C In Selection C.Value = InStead(C.Value) Next End Sub Sub ChooseRange() 'Choose the Range Dim rng As Range Set rng = Application.InputBox("Select The Range", "Decryption Characters", , , , , , 8) Application.Goto rng ' Call The Sub InSteadAll Call InSteadAll End Sub Sub OpenWorkbook() 'Apply The Code to Another Workbook On Error Resume Next Dim strFile As String Dim X As String strFile = Application.GetOpenFilename() Workbooks.Open (strFile) ' These Followed Couple of Lines are Optional In Case You Need to Get Specific Sheet X = Application.InputBox("Select The Sheet", "Decryption Characters", , , , , , 2) Sheets(X).Activate Call ChooseRange End Sub Decryption_Invalid_Characters.xls

الشكر للأستاذ كانوري المرفق وضعته منذ سؤالك السابق ولكن بأكسس ٢٠١٠ والأستاذ كانوري مشكوراً حوله إلى ٢٠٠٣ جزاه الله كل خير

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

في السؤال السابق، وقد وضعه الأستاذ كانوري مشكوراً في هذا السؤال. على أي حال لعلي أعيد رفعه لكم مجدداً.

بمجرد ضغط مفتاح إنتر يضيف ١٠ مسافات. يبدو أنكم لم تجربوا المرفق. كل ما عليك: ضبط عرض مربع النص في النموذج والتقرير ليكونا متساويين. ثم ابدأ الإدخال عند ضغط مفتاح إنتر ينتقل إلى الصف الثاني مضيفاً المسافة المطلوبة.

بالتوفيق أخي.