jjafferr

السلام عليكم 🙂 اخي الفاضل @Ahmed_J مبروك علينا ترقيتك الى درجة خبير ، تستاهل 🙂 ولازلنا نبحث عن خبراء جدد 🙂 جعفر

السلام عليكم 🙂 كود اخوي ابو بسملة = تفتح قاعدة بيانات خارجية ، وتغير اسم النموذج الذي يفتح البرنامج الخارجي ، بينما كودي انا = تفتح قاعدة بيانات خارجية ، وتفتح النموذج الذي تريد 🙂 قمت بتجربة برنامجي على 3 كمبيوترات: وندوز ، اكسس 2010 32بت ، وندوز 7 ، اكسس 2019 64بت ، وندوز 10 ، اكسس 365 64بت ، واشتغل تمام : . والكود : Option Compare Database Option Explicit Dim appAccess As Object Dim DB_Path As String ' Private Sub cmd_Open_frm_1_Click() On Error GoTo err_cmd_Open_frm_1_Click 'if the Remote Application/Form is open, close it first appAccess.DoCmd.Quit Set appAccess = CreateObject("Access.Application") DB_Path = CurrentProject.Path & "\a.accdb" appAccess.OpenCurrentDatabase (DB_Path) appAccess.DoCmd.OpenForm "frm_1" appAccess.Visible = True appAccess.UserControl = True Set appAccess = Nothing appAccess.DoCmd.Quit Exit_cmd_Open_frm_1_Click: Exit Sub err_cmd_Open_frm_1_Click: If Err.Number = 91 Or Err.Number = 462 Then 'the application is NOT open, ignore the error Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_cmd_Open_frm_1_Click End If End Sub Private Sub cmd_Open_frm_2_Click() On Error GoTo err_cmd_Open_frm_2_Click 'if the Remote Application/Form is open, close it first appAccess.DoCmd.Quit Set appAccess = CreateObject("Access.Application") DB_Path = CurrentProject.Path & "\a.accdb" appAccess.OpenCurrentDatabase (DB_Path) appAccess.DoCmd.OpenForm "frm_2" appAccess.Visible = True appAccess.UserControl = True 'Set appAccess = Nothing Exit_cmd_Open_frm_2_Click: Exit Sub err_cmd_Open_frm_2_Click: If Err.Number = 91 Or Err.Number = 462 Then 'the application is NOT open, ignore the error Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_cmd_Open_frm_2_Click End If End Sub Private Sub cmd_quit_Click() On Error GoTo err_cmd_quit_Click GetObject(DB_Path).Application.Quit Exit_cmd_quit_Click: Exit Sub err_cmd_quit_Click: MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_cmd_quit_Click End Sub جعفر Open Form another DB_jj.zip

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

شكرا جزيلا اخوي دربالي على شرح هذا البرنامج 🙂 هناك مجموعة من المواضيع في المنتدى فيها شرح جميل عن هذا البرنامج ، وبرامج اخرى مشابهة : 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 🙂 جعفر

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