jjafferr

اذا تحب ترفق لنا برنامجك ، ممكن احنا نشوفه 🙂 جعفر

وعليكم السلام 🙂 اخي الفاضل Minaemil ، للاستفادة القصوى من المنتدى ، رجاء مراجعة قوانين المنتدى : اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة قواعد المشاركة فى الموقع 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. عنوان المشاركة 4. يجب أن يكون عنوان المشاركة يدل على محتواها 5. أن لا يحتوي على عبارات مثيرة مثل " النجدة "، "الحقونا محتوى المشاركة 8. يجب ذكر كافة المعلومات التي من الممكن أن تُسأل عنها، مع الشرح الوافي للمشكلة لأن الشخص الذي تكتب له ليس ملما بالمشكلة مثلك. ويحبذ وضع مثال للنتيجة التي تريدها (سواء كملف مرفق باستخدام البرنامج المطلوب كالاكسيل او الأكسيس مثلا، او صورة توضيحية، أو تفصيل المطلوب بشرح وافي)، ويجب ان تكون بيانات المثال نابعة من نفس بيانات المرفق كي بمكن الربط و الفهم بسهولة. 9. .12. . 13. - يمنع وضع السؤال داخل المرفق، يجب شرح السؤال بالتفصيل لتعم الفائدة، ولا مانع من اضافة صورة توضيحية ------------------------------------------- رجاء اخبرني عن اسم مشاركة مناسب ، حتى اقوم بتغيير الاسم الحالي 🙂 جعفر

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

رجاء تتبع تعليماتي في مشاركتي السابقة ، وستحصل على نفس النتيجة مثل اللي في المرفق هذا🙂 ww.pdf

تفضل التقرير ، وبع التقرير ww فقط🙂 احذف التقرير ww الذي في برنامجك ، ثم استورد الموجود في المرفق. سترى ان الصور الخلفية هي التي جعلت المرفق حوالي 7 ميجا ، لذا اتبع النصيحة التي اخبرتك عنها في مشاركاتي اعلاه 🙂 جعفر 1391_G568.mdb.zip

همممم طيب ، على حاسبتك ، افتح النموذج record_program_vacances ثم افتح النموذج الذي به المشكلة ، هل ستحصل على المشكلة ؟ يا ريت اذا ممكن ترفق لنا هذه الجزئية من برنامجك ، لأني لم اصادف او اقرأ بها مثل حالتك 🙂 جعفر

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

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

انت تستعمل كم كبير من المكتبات ، فهل انت بالفعل محتاج لها جميعا ؟ في جهازي ، ظهر لي 20 خطأ ، اي ان هنا 20 مكتبة غير موجودة على جهازي : . يعني هذا البرنامج لن يعمل على جهازي ، فإذا كنت انا زبون ، فتصور حالتي !! وحتى اذا قلت ان البرنامج سيعمل على جهازك فقط ، ففكر ماذا سيحصل لك لما تعمل فورمات لجهازك ، وتنحذف منك هذه المكتبات ، ولن يعمل البرنامج بعد الفورمات مباشرة !! فيجب عليك حذف المكتبات التي لا يحتاجها البرنامج 🙂 جعفر

1. الصور المضمنة في البرنامج هي التي تزيد من حجم البرنامج ، والحمدلله لم ارى اي منها في جداولك ، ولكن التقرير ww يحتوي على مجموعة صور مضمنة ، فيجب عليك ان تضع الصور في مجلد خارج البرنامج ، ثم تربطه اثناء عمل التقرير ، هكذا (لاحظ ان الصور في الكود هي لقسم التفصيل Detail ، فيجب عليك استعمال القسم الصحيح من التقرير لوضع حدث الكود فيه) : Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) On Error GoTo err_Detail_Format Dim BE_or_FE As String 'BE_or_FE = Application.CurrentProject.Path BE_or_FE = "D:\Project123\images" Me.Pic_BismAllah.Picture = BE_Path & "\" & "Images\BismAllah.jpg" Me.Pic_Section.Picture = BE_Path & "\" & "Images\Admin_Section.jpg" Exit_Detail_Format: Exit Sub err_Detail_Format: If Err.Number = 2220 Then 'ignor, picture not found Me.Pic_BismAllah.Visible = False Me.Pic_Section.Visible = False Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_Detail_Format End Sub . 2. كما يمكنك عمل ضغط واصلاح ، حيث ان الاكسس يحتفظ بجميع البيانات التي حذفتها في البرنامج ، ولا يتخلص منها إلا بعمل "ضغط واصلاح" ، 3. يمكنك استعمال البرنامج المرفق في الرابط التالي ، فبالاضافة الى الرقم 2 اعلاه ، فهو يقوم بحذف بقايا الكود التي حذفتها والتي لا تزال في الاكسس : . 4. بعد عمل النقاط اعلاه ، فتح برنامج اكسس جديد ، ثم استيراد كائنات البرنامج السابق اليه 🙂 جعفر

سيدي الفاضل 🙂 هذا هو التقرير ww في وضع التصميم: 1. المثلث الاخضر ظاهر ، 2. انت مختار التقرير يطبع على ورقة A4 ، وعرض الورقة 11.69 بوصة (سيكون الرقم مختلف اذا كنت تستعمل السنتيمتر) ، . هامش الطابعة للجانبين (وهو المقدار الذي تحتاجها بكرات الطابعة لسحب الورقة) هو: 0.166 + 0.168 = 0.334 لمعرفة اقل هامش تحتاجة طابعتك ، يمكنك ان تضع اصفار في هذه الخانات ، ثم تنقر ok ، ثم تفتح النافذة مرة اخرى فترى الارقام ، ويُنصح ان تترك الهوامش على اكبر هامش وهو 0.250 ، وذلك حتى يتناسب مع طابعات الزبائن/المستخدمين بأشكالها ، الطابعات الافتراضية ، سواء لطباعة/تصدير pdf او صورة ، فيمكنك ان تضع اصفار في هذه الخانات ، . عرض التقرير هو: 11.6146 بوصة ، اذن عرض التقرير : 11.6146 + هوامش الطابعة 0.334 = 11.9486 عليه ، فإن عرض صفحة التقرير 11.9486 اكبر/اعرض من ورقة الطباعة 11.69 ، لذلك تحصل على صفحة بيضاء فارغة : . فالحل: . ولما ننظر للتقرير بوضع التخطيط ، نرى انه خارج حدود الاطار: . وهذا ما اخبرنا اخي الاستاذ خالد: . جعفر

وعليكم السلام 🙂 النموذج لما يتم فتحه ، تكون السجلات نظيفة me.Dirty=false ، ولما يتم التعديل على اي منها ، فيكون السجل me.Dirty=true ، فإذا اردت ان تطبع التقرير مثلا ، ولكن تريد إظهار بيانات السجل الذي انت عليه ، وقد تكون فد عملت تعديلات على السجل ، لذا فانت تريد التأكد من حفظ السجل قبل الطباعة ، فيمكنك عمل التالي قبل سطر طباعة التقرير: 1. docmd.runcommand accmdsaverecord يحفظ السجل بغض النظر ان السجل نظيف او لا 2. me.refresh يعمل انتعاش للنموذج ، والذي بدوره يجعل مؤشر البيانات ينتقل الى اول سجل وبما ان السجل يفقد التركيز ، فيتم حفظه تلقائيا ويعيد طلب البيانات من الجداول ، بغض النظر ان السجل نظيف او لا 3. me.requery تقريبا نفس طريقة عمل #2 اعلاه 4. if me.Dirty then me.Dirty=false اذا كان السجل غير نظيف ، فيقوم بحفظ السجل . رجاء تخيل ان قاعدة البيانات الخلفية موجودة على سيرفر ، لذلك يُوجب عدم مزاحمة السيرقر إلا في اضيق الحالات ، الطريقة: 1. تحفظ البيانات ، بغض النظر اذا كان الوضع يتطلب ذلك او لا ، ففيه عمل اضافي ، 2 و 3. تحفظ البيانات ، بغض النظر اذا كان الوضع يتطلب ذلك او لا ، ويطلب البيانات مرة اخرى من الجداول ، ففيه عمل اضافي بزيادة ، 4. تحفظ البيانات وقت الحاجة فقط ، فتكون هذه الطريقة هي الامثل 🙂 جعفر

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

ممكن ان تضع الكود السابق على حدث "عند تحميل" النموذج حتى لا ترى مكان ادخال السجل الجديد ، عندما تفتح النموذج لأول مرة ، وضع زر لإظهاره ، وضع هذا الكود على حدث "النقر" : me.AllowAdditions=true جعفر

وعليكم السلام 🙂 هو ليس سجل فارغ ، وانما مكان ادخال البيانات لسجل جديد 🙂 اذا ما تريده ، في حدث تحميل النموذج اكتب: me.AllowAdditions=false جعفر

مثلا: الجدول X في البرنامج الخارجي ، و الاستعلام X هو للجدول X ، ولكن فيه الحقول المطلوب التعامل معها فقط ، بدلا من جميع حقول الجدول. أ. بعمل رابط للجدول X في البرنامج الذي تشتغل عليه ، فيصبح كأي برنامج عادي ، واذا اردنا ان يكون للقراءة فقط ، فيا نعمله في الاستعلام او النموذج ، او ب. عمل استعلام مباشرة في قاعدة البيانات ، للجدول/استعلام X ، وهنا نستطيع ان نجعل البيانات للقراءة فقط من استعلام مباشرة برنامجك : 1. في برنامجك ، اعمل استعلام جديد ، وادخل فيه اسم مسار البرنامج الذي يحتوي على الجدول/استعلام X . 2. انقر لفتح الجداول والاستعلامات التابعة لذلك البرنامج ، 3. اختر الجدول/الاستعلام X واستعمل الحقول ، 4. اذا اردت ان يكون الاستعلام للقراءة فقط : . او ج. بالكود تستطيع ان تربط الجدول/الاستعلام X كمصدر بيانات لإستعلام في برنامجك ، ويمكن ان يكون هذا الاستعلام بالكود ايضا ، د. نفس طريقة ج اعلاه ، ولكن لقراءة الجدول/الاستعلام X مباشرة في الكود 🙂 الطريقة التي افضّلها انا ، هي الفقرة ب ، لأنها سهلة وتتعامل معها بطريقة عادية 🙂 ** ملاحظة: في حال تم تغيير مكان البرنامج الذي يحتوي على الجدول/الاستعلام X ، يجب تغيير المسار لجميع الفقرات اعلاه 🙂 جعفر

وعليكم السلام 🙂 هذه الرسالة تقول ان النموذج record_program_vacances غير موجود/مفتوح ، حتى تتم قراءة قيمة الحقل Text29 !! استدعاء هذه القيمة تكون عادة في حقل/معيار في الاستعلام ، او فلتر قديم موجود في اعدادات النموذج في الفلتر ، فابحث عنها واضبط الامر 🙂 جعفر

اخي رضوان ، حتى لما تطبع ، فالطباعة تكون صفحة تلو الاخرى ، وبحجم A4 ، وكل صفحة لها رقم ، وبهذا الرقم يمكن ان تجلب رقم الصورة الخاصة بها ، وفي نفس الوقت السجلات والحقول التابعة لها ايضا 🙂 تفضل ، واستعمله لباقي الحقول بدلا عن Wdoc.Bookmarks("NameRint").Range.Text = Me.NameRint استعمل Wdoc.Bookmarks("NameRint").Range.Text = nz(Me.NameRint,"") او Wdoc.Bookmarks("NameRint").Range.Text = iif(len(Me.NameRint & "")=0,"",Me.NameRint)

الحمدلله عرفت مكان المشكلة 🙂 جعفر

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

تم فتح موضوع جديد للشق الثاني: جعفر

رجاء ارفق صورة الباركود

هي مجرد افكار 🙂 ويمكن التغلب على اي من الصعوبات 🙂 جعفر

تفضل هذا التعديل: If Not IsNull(Me.txtQR) Then Dim X As String Dim Y() As String X = Me.txtQR Y = Split(X, vbcrlf) Me.txtFrisnam = trim(mid(Y(0),instr(Y(0),":")+1)) Me.txtlastname = trim(mid(Y(1),instr(Y(1),":")+1)) Me.txtOBD = trim(mid(Y(2),instr(Y(2),":")+1)) Me.txtID = trim(mid(Y(3),instr(Y(3),":")+1)) End If . اما الشطر الثاني ، فرجاء عمل سؤال خاص به ، ورجاء وضع مثال او اي شيء آخر ، وصورة منه ، حتى نعرف كيف تم عمل الباركود 🙂 جعفر

الكود يعمل نسخة من قيمة الحقل Emp_Name ويضعه في الذاكرة ، ثم يفتح متصفح الملفات ، يفتح البارتيشن \:C (اذا الملفات على مجلد معين ، تقدر تغير المسار من الكود ، بحيث يفتح المتصفح هذا المجلد مباشرة) : Private Sub cmd_Open_File_Explorer_Click() Me.EMP_NAME.SetFocus DoCmd.RunCommand acCmdCopy 'Application.FollowHyperlink "C:\" 'or 'Dim Foldername As String 'Foldername = "\\server\Instructions\" 'Shell "C:\WINDOWS\explorer.exe """ & Foldername & "", vbNormalFocus 'or Shell "C:\WINDOWS\explorer.exe c:\", vbNormalFocus 'Open Windows Explorer, C partition End Sub . ومنها تتصفح الى المجلد المطلوب ، ولما تريد ان تغير اسم ملف ، انقر على الملف بالفأرة اليسار مرة واحدة ، ثم انقر على F2 من لوحة المفاتيح يدويا ، وسيكون الملف جاهز لتغيير الاسم ، اضغط على لوحة المفاتيح Ctrl+V للصق الاسم الجديد. جعفر