jjafferr

تفضل التقرير ، وبع التقرير 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 للصق الاسم الجديد. جعفر

الآن الموضوع اصبح واضح 🙂 الطريقة التي تجي على بالي: في الجدول تعمل حقل نص اسمه col_width ، لعرض الاعمدة ، ويكون فيه الادخال هكذا: Col_width 4cm;4cm;4cm;3cm;3cm 3cm;3cm;3cm;3cm;3cm;3cm;3cm 4cm;4cm;4cm;3cm;3cm 3cm;3cm;3cm;3cm;3cm;3cm;3cm 3cm;3cm;3cm;3cm;3cm;3cm;3cm;3cm بحيث كل نكتب عرض كل عمود ، وحسب ترتيبهم ، وبعدها تغير فيهم الى ان تصل الى الرقم الصحيح ، وفي النموذج ، في حقل اختيار التصنيف MyTabols ، تضيف هذا العمود اليه : . . وفي دالة myData ، نضيف السطر الاخير التالي: Me.SmartList.RowSource = MyTb Me.SmartList.ColumnCount = rs.Fields.Count Me.SmartList.ColumnWidths = Me.MyTabols.Column(2) . والنتيجة . قراءة الارقام من الجدول تكون اليسار الى اليمين ، ولكن تطبيقها على الاعمدة يعتمد على اعدادت طريقة القراءة لمربع القائمة : جعفر 1390.nabil2322.accdb.zip

مفهوم رقم 1: اين توجد الصورة السابقة ، ما مسارها ، وما اسمها ؟ يعني يجب ان يكون عندك حقل آخر (او اكثر من حقل) ، فيه هذه المعلومات ، يعني ممكن عندك حقل فيه المسار فقط ، وحقل آخر فيه اسم/رقم الصورة ، وقد يكون مسار الصور يتبع مسار قاعدة البيانات ، فلهذا السبب لن يكون هناك حقل بالمسار. يعني لا تريد ان يتم العمل بالخفاء/بالصمت برمجيا ، ولكنك تريد فتح مستعرض الملفات ايضا ، لماذا وما الفائدة من هذا ؟ مفهوم رقم 2: تريد ان تنقر على زر الاكسس فيفتح متصفح الصور ، وانت تختار من الصور الموجودة هناك ، ولما تنقر/تختار الصورة ، تريد ان يتغير اسمها الى تلك التي في سجل الاكسس ؟ اذا كان هذا المفهوم صحيح ، فطريقة الحل التي اعرفها: 1. يجب ان يكون عندك مسار للمجلد الذي تريد ان تفتح المتصفح عليه ، وترى صوره ، 2. بدلا عن فتح المتصفح ، يمكننا ان نأتي باسماء جميع الملفات الى مربع قائمة في نموذج الاكسس ، 3. هناك يمكنك اختيار الملف من القائمة ، ونستطيع تغيير الاسم. او نستطيع عمل التالي: لما تنقر على زر الاكسس ، نجعل الاكسس يحفظ الاسم في الذاكرة (كانك عملت Ctrl+c للاسم) ، ثم نفتح متصفح الملفات ، وانت تذهب الى المجلد الصحيح ، ولما توصل الى الملف الصحيح ، تنقر عليه لتغيير اسمه (سواء عن طريق النقر على الزر F2 ، او بالفأرة اليمين تعمل Rename ، او ..) ، وعندها تعمل Ctrl+V ليلصق الاسم الجديد 🙂 جعفر

اخي رضوان ، ذهبت الى موقع الكلية ووجدت هناك استمارة اخرى غير التي ارفقتها انت ، فانزلتها وحولت الصفحات الى صورتين (بالاضافة الى صورتين الملف الاصلي الذي ارفقته انت) 🙂 الطريقة التي عملها لك اخي حسين طويله نوعا ما (ولكن تستطيع تكبير الصفحة وتضع حقول الكلمات بطريقة اسهل) ، ويمكنك ان تستعمل الصورتين في تقرير الاكسس كما ارفقته لك هنا (واحذف التقرير الذي لا تريده) ، وهذه هي الطريقة التي اقترحها عليك اخونا حسنين 🙂 الميزة في تقرير الاكسس ، هو انك تعرف كيف تتعامل مع الحقول وتسمياتها ، وتضبيط مكانها ، والتحكم بالسجلات 🙂 جعفر 1388.Fill_pdf_image.accdb.zip

لبيك اخوي حسين 🙂 اي رسالة من رسائل الاكسس تحتوي على كلمة خادم و OLE ، فمعناها ان اعدادات الوندوز (وليس الاكسس) يحتاج تغييرها لتدعم اللغة العربية ، هكذا: . جعفر