jjafferr

شكرا جزيلا اخوي دربالي على شرح هذا البرنامج 🙂 هناك مجموعة من المواضيع في المنتدى فيها شرح جميل عن هذا البرنامج ، وبرامج اخرى مشابهة : https://cse.google.ae/cse?cx=partner-pub-4958585055085854:7791406915&ie=UTF-8&q=Hamachi&sa=Search جعفر

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

وعليكم السلام 🙂 اخوي Ezril (بس ان شاء الله مو معانها عزرائيل 😬) ، شكرا على الهدية 🙂 اول ما فتحت البرنامج ، طلعت لي هذه الرسالة مرتين : . . ثم مرتين هذه الرسالة . ثم . شو العمل ؟ جعفر

ارجوك ارجوك اخوي ابوخليل ، خليني استمتع بهذه اللحظة ، استراحة المحارب 🙂

ما شاء الله ، نماذج بتنسيق جميل ، بالفعل شيء يشرح الصدر 🙂 جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 الظاهر اني مال ضرابه اليوم ، كل موضوع واكون مكشر فيه 😁 . قوانين المنتدى تقول: 13. - يمنع وضع السؤال داخل المرفق، يجب شرح السؤال بالتفصيل لتعم الفائدة، ولا مانع من اضافة صورة توضيحية هذا الموضوع مشابه لطلبك جعفر

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

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); جعفر