رمهان

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

معليش خلينا نحدد اعلاه اكثر 1. تعديل قيمه بجدول 2. تعديل عنوان label 3. عن طريق باتش يتم تحميله من النت هل هذا المطلوب بالتمام ؟

اخي شبفان لو تلاحظ المرفق باول مشاركه مجرد انه تم تغيير امتداد القاعده الى zip بدلا من mde جرب ان تغير امتداد قاعده لديك الى zip طبعا سيسالك الويندوز بالتاكيد اختر موافق ثم قم بتطبيق الكود مع تغيير مايلزم من مسار وجدول وحقل وقيمه هذه احد اساليب الحمايه في الاكسس تغيير الامتداد وهي ليست بالقويه تحياتي

DoCmd.RunSQL "delete from kaedabyanat in 'C:\Users\SYSTEM_KADASI.zip' where table1.id=3;" بعد اذن اخي الاستاذ شيفان جرب الكود اعلاه مع تغيير اسم الجدول وحقل الشرط ومسار القاعده ولم استطع فتح القاعده لانها محوله الى نسخة تنفيذيه بصيغة 32 بت وانا لدي 64 بت والذي يعترض فتح الملفات المنشاه ب 32 بت تحياتي

اخي كاسر جرب ان تضع الكود التالي خلف الزر ادخل الصوره Private Sub cmdInsertPic_Click() Application.FileDialog(3).Show FileCopy Application.FileDialog(3).SelectedItems(1), "\\TOSHIBA\careitems\hi.jpg" End Sub ثم تاكد انها انتقلت للجهاز الاخر . لا تتاكد بانه تم عرض الصوره في المربع وانما التاكد بالذهاب للجهاز السيرفر او التي به الجداول كنت اتمنى ان المرفق احتوى على واحد من الجداول المربوطه تحياتي

استاذ صابر هل المرفق السابق تقصد به معلومه وانه تم المطلوب . ام مازال الطلب قائم تحياتي اخي اوس بالعكس مرفقك جميل وقيم وبه المطلوب . ولكن فقط ساحاول الاختصار وما ساشارك به هو نفس فكرتك تقبل تحياتي

تظهر المشكله والله اعلم بان هناك دالة مستخدم يست موجوده او بها مشكله اذا ممكن رفع المرفق

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

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

معليش استاذ عبدالفتاح .. هل تقصد eval هنا ؟ ومعليش يمكن طفشتك بس عايز اوصل لحاجه معينه .

العفو

مافهمت وضع جدولين ؟ ما دخل الجداول . هل ميكروسوفت تستخدم الجداول للعمليه ؟ الله اعلم وافدنا بوركت والذي اعرفه والله اعلم ان الاكسل لديه القدره على التعرف على تاريخ ام القرى اما الاكسس فقط الهجري

جرب في التعبير expr2 ان تعيد التعبير expr1 وليس اسمه وليصبح التعبير expr2 هكذا Expr2: ([item_prais]*[QOTE_ITEM]+[add_prais]-[descon_combny])-[mdfoo_ada] بالتوفيق

اهاه اعطاني خطأ في المعيار بان الكمبايل مش قادر يتعرف على المعيار وضغطت موافق فاعطاني المعيار خالي معناته عندي اكسس 2013 مش راضي يتعرف على المعيار ساحاول عمله يدوي واشوف جزيتم خيرا وهنا ذكرت عن طريق الكود وليس الاستعلام فكيف عن طريق الكود . لاني شايف التعبير صريح ولا يحتاح الدالة فكما ترى الاستاذ ابو خليل مرر القيمة في الكود وبدون هذه الدالة eval تحياتي

استاذ ابو خليل الموضوع هنا ام القرى والهجري هناك مشاركات قديمه هنا وفي منتديات شقيقه وكما تفضلتم به في الرابط السابق وعلى ما اذكر كان هناك ملاحظة منك حول مشاركتي هنا باستخدام الاكسل وانها لم تنفع لتاريخ معين ذكرته انت في احد المشاركات ولكنني نسيته فياليت تعيد ذكره هنا ان ذكرت جزيتم خيرا وانا جالس احضر لعمل العكس كما طلب الاخ محمد سلامة بنفس الطريقة بالاكسل وهي على وشك ترى النور ان شاء الله تحياتي

اولا يبدو ان المشكلة في expr1 وليس expr2 والمظلل بالاحمر ثانيا هات المرفق اخي حسين

معليش استاذ عبدالفتاح لم اجد eval هلا المرفق بالتطبيق

ممكن ايضاح اكثر استاذ ابو خليل حول المعدلة لموافقة ام القرى لاني شايف الموضوع لهجري وميلادي فقط وحسب اخر ملف من الرابط السابق تحياتي

ولك بالمثل هل افهم تمت العمليه ؟

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

اين المرفق ؟ وحبذا لو ذكر مسار الملف المحلي المراد نقله تحياتي

هنا عند التعامل مع الجت عن طريق المكتبات وليس الاكسس يتم تعريف الباراميتر عن طريقة خاصية الباراميتر للكائن الاستعلام جرب التالي Private Sub ÃãÑ2_Click() 'Step 1: Declare your variables Dim MyDatabase As DAO.Database Dim MyQueryDef As DAO.QueryDef Dim MyRecordset As DAO.Recordset Dim i As Integer 'Step 2: Identify the database and query Set MyDatabase = CurrentDb Set MyQueryDef = MyDatabase.QueryDefs(Me.allq.Column(1)) 'Query name in the database 'Step 3: Open the query 'DoCmd.OpenQuery Me.allq.Column(1) MyQueryDef.Parameters(0) = Forms![frmEdite]![TelID] Set MyRecordset = MyQueryDef.OpenRecordset 'Step 4: Clear previous contents Dim xlApp As Object Set xlApp = CreateObject("Excel.Application") With xlApp .Visible = True .Workbooks.Add ''.Sheets("æÑÞÉ1").Select 'Step 5: Copy the recordset to Excel .ActiveSheet.Range("A2").CopyFromRecordset MyRecordset 'Step 6: Add column heading names to the spreadsheet For i = 1 To MyRecordset.Fields.Count xlApp.ActiveSheet.Cells(1, i).Value = MyRecordset.Fields(i - 1).Name Next i xlApp.Cells.EntireColumn.AutoFit End With MsgBox "Êã ÇáÊÕÏíÑ ÈäÌÇÍ" End Sub التعديلات - MyQueryDef.Parameters(0) = Forms![frmEdite]![TelID] وهو الاهم - تعديل عنوان السجلات من a1 الى a2 لان الصف الاول يكتب به العناوين - انت مستخدم activesheet فلا داعي لتعريف اسم الشيت وحتى لا تقع في حصرا باسم الشيت فقد تكون النسخة انجليزي بالتوفيق

قبل ان اجرب هل تم حل المشكله ؟ بالتوفيق ومن نظره اولى وجدت التعبير التالي ب picno =[Forms]![frmarchive].[piclist].[column]([piclist].[ListCount]-1,5) ولم اجد ادخال الدالة nz كما اشرنا سابقا وهكذا =nz([Forms]![frmarchive].[piclist].[column]([piclist].[ListCount]-1,5),0) واخيرا اخي سروك لم تجب على الاستفسار السابق

تمام جرب FileCopy "C:\hi.jpg", "\\TOSHIBA\careitems\hi.jpg" 'طبعا غير مسار الملف في الجزء الاول "C:\hi.jpg" لمسار صحيح محلي اما الجزء الثاني والخاص بمسار السيرفر فاتركه كما هو اعلى بالتوفيق

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