jjafferr

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

ممكن ان تضع الكود السابق على حدث "عند تحميل" النموذج حتى لا ترى مكان ادخال السجل الجديد ، عندما تفتح النموذج لأول مرة ، وضع زر لإظهاره ، وضع هذا الكود على حدث "النقر" : 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 ، فمعناها ان اعدادات الوندوز (وليس الاكسس) يحتاج تغييرها لتدعم اللغة العربية ، هكذا: . جعفر

وعليكم السلام 🙂 معظم الوقت هناك بدائل في الاكسس (وليس دائما) ، عن معادلات الاكسل 🙂 فالافضل ان تفهم عمل دالة الاكسل ، ثم تعمل على البديل في الاكسس ، كما قال اخي حسنين 🙂 اما اذا كنت تعمل على الاكسس ، ولكن تريد ان تستعمل دالة/مكتبة الاكسل ، فنعم ممكن: 1. اختيار مكتبة الاكسل / مثلا: . 2. ثم اجعل معادلتك التي في الاكسل هنا ، مثل: MsgBox Excel.WorksheetFunction.SumProduct(array1, array2, array3) . وبهذه البساطة 🙂 وهنا اخونا @رمهان وضع مثال لدالة اخرى: . جعفر

طيب ، ياريت تخبرنا بالضبط ايش المطلوب ، حتى ممكن نفكر معاك ونوصل الى حل ترضى به 🙂 جعفر

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

اخي تامر 🙂 رجاء اعد صيغة السؤال ، بمرفق صحيح ، وبمثال من مرفقك 🙂 جعفر

همممم اذن المرفق الذي ارفقته في مشاركتك غلط :

اللي فهمته هو : حقل pic يحتوي على اسم الصورة ومسارها ، هكذا مثلا: D:\abc\1.jpg للسجل الذي ID=1 ، وتريد ان تغير اسم الصورة التي في المجلد : بدلا ان تكون بإسم 1.jpg تريدها ان تصبح موظف1.jpg ويتم تغيير بيانات الحقل pic بدلا عن D:\abc\1.jpg ليصبح D:\abc\موظف1.jpg هل هذ المفهوم صحيح؟ اذا كان نعم ، فالكود حاليا يقوم بتغيير جميع السجلات والملفات ، دفعة واحدة ، ويمكن تغييره ليقوم بتغيير السجل الذي تنقر عليه. اما اذا مفهومي ما كان صحيح ، فرجاء تعطيني مثال متكامل على افهمه 🙂 جعفر الآن اكتشفت ان مفهومي غلط ، لأن الحقل pic ليس نص ، وانما حقل صورة !!

وعليكم السلام 🙂 اللي فهمته هو ، حقل pic يحتوي على اسم الصورة ومسارها ، ويكون هكذا مثلا: D:\abc\1.jpg هذه الدالة ستعمل اذا مسار الصورة ليس فيه رقم: Public Function change_Folder_Pics_ID_to_Name() Dim rst As DAO.Recordset Dim Old_Path As String, Nwe_Path As String Set rst = CurrentDb.OpenRecordset("Select * From Table1") Do Until rst.EOF Old_Path = rst!pic New_Path = Replace(rst!pic, rst!ID, rst!pic_name) 'Rename the file in the Folder Name Old_Path As New_Path rst.Edit rst!pic = New_Path rst.Update rst.MoveNext Loop rst.Close: Set rst = Nothing MsgBox "Done" End Function جعفر

اخوي امير ، هل جربت تعمل البرنامج بالطريقة اللي اقترحتها عليك: جعفر