jjafferr

ياريت تخبرنا عنها ، لأنها ضاعت وسط الكود 🙂

1- ما ادري ، ما عملت اي تغيير في اي جزئية اخرى من الكود 😁 ولكن : لا تستعمل DoCmd.Close فهو يغلق اي كائن عليه التركيز ، سواء نموذج1 او نموذج2 او حتى التقارير وانما استعمل DoCmd.Close acForm, me.Name والذي معناه اغلاق النموذج الموجود فيه الكود هذا او DoCmd.Close acForm, "frm_relink" والذي يغلق النموذج الموجود اسمه في الكود 2- نعم ، هكذا If tdf.Name = "shet_Data" Then Call CurrentDb.TableDefs.Delete(tdf.Name) DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel12Xml, _ "shet_Data", CurrentProject.Path & "\Data.xlsx", True, "ورقة1" & "$" elseIf tdf.Name = "shet_Data2" Then Call CurrentDb.TableDefs.Delete(tdf.Name) DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel12Xml, _ "shet_Data2", CurrentProject.Path & "\Data.xlsx", True, "ورقة21" & "$" elseIf tdf.Name = "shet_Data3" Then Call CurrentDb.TableDefs.Delete(tdf.Name) DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel12Xml, _ "shet_Data3", CurrentProject.Path & "\Data3.xlsx", True, "ورقة1" & "$" Else

وكان المفروض نعرف كل هاي : . من هذا الطلب : . ما ادري ليش عندي احساس ان طلبك غير مركب على بعضه ، يعني انت لم تخبرنا طلبك بالضبط ، وإلا تريدنا نعمل تخمين للباقي كمان !!

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

يا سلام ، هذا الدلع وإلا بلاش 😁

كنت مستغرب من ابو البشر يسأل هذا السؤال البسيط ، والآن عرفنا السبب 😁 هل انت متأكد ان اسم النموذج "Form.frm-UserLogon" وليس "Form.frm_UserLogon" او "frm-UserLogon" او "frm_UserLogon" شوف اسم النموذج اذا صحيح

تفضل 🙂 1553.Database1.accdb.zip

تفضل 🙂 1551.Relink.zip

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

انا استعمل Macro اسمه Autoexec والذي معناه انه اول شيء يشتغل عند فتح الاكسس ، وفيها اضع اسم النموذج الذي اريد فتحه ، او الدالة في الوحدة النمطية اللي اريدها تشتغل 🙂 جعفر

شكرا على التوضيح 🙂 انا جربتها على المرفق وضبطت ، فاعتقدت بانها مثل fix 😁

شكرا ابو احمد على المعلومة ، واتضح ان Int يصلح كذلك 🙂 int([DateTime]) او fix([DateTime])

وعليكم السلام 🙂 تفضل جعفر

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

نعم صحيحة 🙂 وللعلم ، يُفضل ان يكون هارد ديك مجلد المشاركة من نوع SSD او M.2 🙂 جعفر

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

طريقتي لا تعرف اذا كانت الجملة المراد تغيير مكانها "ميت غمر" ، في اي مكان من الحقل ، فهي تحذفها ، ثم تضيفها في البداية ، فإذا هذه الجملة ممكن ان تكون في اماكن متفرقة من الحقل ، فطريقتي لا تصلح ، الافضل استعمال هذا الكود ، لأنه يتأكد من وجود الجملة في نهاية الحقل : Trim(IIf(Right([Title],7)="ميت غمر","ميت غمر " & Left([Title],Len([Title])-Len("ميت غمر")),[Title])) جعفر

السلام عليكم 🙂 هناك الكثير من المواضيع في المنتدى ذات الصلة ، والميزة في قراءتها من المنتدى ، انه سيكون فيه اسئلة واجابة على استفسارات الاعضاء ، منها . . جعفر

وعليكم السلام 🙂 استعمل الكود التالي للتحديث : "ميت غمر " & Mid(Replace([Title],"ميت غمر",""),1) . فيصبح استعلام التحديث هكذا UPDATE tblOld SET tblOld.Title = "ميت غمر " & Mid(Replace([Title],"ميت غمر",""),1); جعفر

وطريقة اخرى للنسخ واللصق ، في الاكسل مثلا ، نظم الحقول بنفس ترتيب الحقول في الاكسس ، او في الاكسس نظم الحقول بنفس ترتيبها في الاكسل (يعني امسك الحقل و خليه يزحف يمين ويسار) ، ومو لازم جميع الحقول تكون متساوية في الاكسل والاكسس ، في الاكسل اعمل نسخ للاعمدة المطلوبة ، وفي الاكسس اختار في سجل جديد (مكان وجود النجمة) ، ثم اختار الحقول المتسلسلة من الاكسس (يعني مو كل الحقول) ، ثم الصق 🙂 وعلشان ترتيب الحقول في الجدول ما تخترب عليك ، اغلق الجدول بدون ان تعمل له حفظ : . جعفر

اريدك تتمعن في طريقة عرض وتنسيق ومحاذاة الاكسس لبيانات الحقول ، وهو نفس التنسيق سواء للجداول او الاستعلام او النماذج او التقرير في الصورة التالية ، ترى جزء من بيانات الجدول ، وتحته 3 طرق لعرض التاريخ في الاستعلام : . من تنسيق/محاذاة القيم في الجدول ستعرف محاذاة التاريخ الصحيحة (نفس الشئ ينطبق على حقل النص او التاريخ او الرقم) ، فالمفروض تعرف اي الطرق الثلاثة من الاستعلام صحيحة 🙂 . . جعفر New Microsoft Access Database.zip

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

شكرا اخوي موسى خليتني اقرأ السؤال مرة ثانية 🙂 تفضل ، وبدلا عن dd-mm-yy ، تقدر تتفنن باي طريقة للتاريخ ، مثل dd/mmm/yy ، المهم انك تستخدم نفس الطريقة لإسم الحقل والمعيار: . وهذا هو الاستعلام SELECT Format([DateTime],"dd-mm-yy") AS iDate FROM revision WHERE (((Format([DateTime],"dd-mm-yy"))=Format(Date(),"dd-mm-yy"))); جعفر

وين هذه السجلات ؟ هل هي في ملف اكسل او ملف نص txt ؟

السلام عليكم 🙂 اخوي ابو البشر ، الافضل ان تحذف الرابط الحالي قبل ان تعمل رابط جديد ، وتتعامل مع النسخة xlsx 🙂 If tdf.Name = "shet_Data" Then Call CurrentDb.TableDefs.Delete(tdf.Name) DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel12Xml, _ "shet_Data", CurrentProject.Path & "\Data.xlsx", True, "ورقة1$" End If جعفر