jjafferr

الكود يعمل نسخة من قيمة الحقل 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 جعفر

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

لعمل طريقتي : . ادخال البيانات يكون هكذا مثلا 12021 او 992021 والنتيجة : . لأنه تنسيق ، فالمستخدم يراه بالشرطة ، ولكن برمجيا لا يوجد به شرطة ، وحتى لما طلبت طول الحقل ، نرى ان طوله بعدد الارقام فقط 🙂 لاحظ لما تنقر على الرقم في الجدول ، يعطيك الرقم فقط : جعفر

شكرا اخوي خالد 🙂 اخي محمد ، للاستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة 🙂 جعفر

اذن يكفي 0-0000 جعفر

وعليكم السلام 🙂 اذا كنت تريد "تنسيق" الرقم يكون 123/2021 ، فيمكن في اعدادات تنسيق الحقل في الجدول عمل: 000/0000 ، ولكن واقع الامر سيكون الرقم 1232021 في جميع تعاملاتك البرمجية 🙂 وتستطيع كذلك استعمال اعدادات قناع الادخال 🙂 جعفر

وعليكم السلام 🙂 مربع نص اسم الامراض= str_Sickness مربع نص مرض مزمن= str_chronic if instr(me.str_Sickness,"سكر")>0 or instr(me.str_Sickness,"ضغط")>0 then me.str_chronic="مزمن" end if جعفر

وعليكم السلام اخي عبدالله 🙂 بدلا من استخدام Dlookup ، جرب تستخدم الدالة Elookup من هنا: Microsoft Access tips: Extended DLookup() (allenbrowne.com) مجرد تضيف الدالة الجديدة الى برنامجك ، وتغير Dlookup الى Elookup ، وبدون ان تغير اي متغيرات في الجملة. بالاضافة الى هذا الرابط: Alternative solution to DCount and DLookup with SQL Server Backend - Access developer (accessexperts.com) والذي يعمل بنفس الطريقة ايضا 🙂 جعفر

السلام عليكم 🙂 اخي حسنين @SEMO.Pa3x اخونا حسين @د.كاف يار وضع رابط مشروع الضوابط والمتطلبات والمواصفات الفنية والقواعد الإجرائية اللازمة لتنفيذ أحكام لائحة الفوترة الإلكترونية والذي قد تجد فيه المكتبات و API و SDK المطلوبة للبدء في تحليل الامر 🙂 اخي حسين ، اذا محتاج بيانات مؤسسات لبدء العمل على البرنامج ، فنستطيع ان شاء الله طلبها من بعض الاخوة الاعضاء المشاركين 🙂 جعفر

من الخطأ الجسيم ان ترفق صور وملفات في قاعدة بياناتك ، فحجم قاعدة البيانات سيكبر بشكل كبير (ولا تنسى ان اقصى حجم للاكسس هو 2 جيجا) ، وستصادف الكثير من المشاكل لاحقا ، لهذا السبب ترى جميع هذه المواضيع 🙂 نعم ، لا مانع من ارفاق بعض الصور والملفات في قاعدة البيانات ، ولكن السؤال سيكون ، لماذا ؟؟ واهلا وسهلا بك في المنتدى 🙂 وللاستفادة القصوى من المنتدى ، رجاء مراجعة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة جعفر

اخي حسنين 🙂 الموضوع هو نفسه الذي كنا نتناقش فيه (انظر الرابط اعلاه ، ونعم انا قمت بتغيير اسم الموضوع ليتلائم مع محتواه) ، فرجاء الرد هناك 🙂 جعفر

رجاء قراءة هذا الموضوع ، وبالخصوص مشاركتي في "تمكين المحتوى" : جعفر

السلام عليكم اخي ايمن 🙂 يتم مناقشة موضوع الفاتورة الالكترونية لهيئة الزكاة والدخل هنا: رجاء تشاركنا هناك ، فطلبك مشابه 🙂 جعفر

وعليكم السلام اخوي عمر 🙂 يتم مناقشة موضوع الفاتورة الالكترونية لهيئة الزكاة والدخل هنا: رجاء تشاركنا هناك 🙂 جعفر