jjafferr

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

وعليكم السلام 🙂 النموذج الجدولي DataSheet يأخذ خط واحد فقط لكل النموذج ، واذا اذكر تمام ، بواسطة التنسيق الشرطي تقدر تغير نوع الخط 🙂 جعفر

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

وعليكم السلام 🙂 نعم ، اعمل كلمة مرور لبرنامج الواجهة 🙂 جعفر

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

الاكسس : يحفظ بالكود القديم اثناء تجاربك ، وبعدما تنتهي وتضبط الكود ، جزء من الكود القديم قد يكون موجود ويسبب مشكلة ، والضغط والاصلاح لا يُنظف الكود القديم ، وانما تحتاج الى الدالة Decompile ، يحتفظ بالسجلات المحذوفة ، الى ان تعمل ضغط واصلاح ، يعيد عمل الفهرسة للجداول والاستعلامات ، بعد الضغط والاصلاح ، هناك حدود معينة لكل كائن تقريبا ، فمثلا في النموذج/التقرير تستطيع ان تُضيف/تحذف 754 كائن او قسم (في التقرير) ، وبعدها لن يعمل النموذج/التقرير ، والضغط والاصلاح يحل المشكلة ، طريقة عمل الضغط والاصلاح ، بأن يقوم الاكسس بعمل قاعدة بيانات جديدة ، ويستورد فيها جميع كائنات وخصائص قاعدة بياناتك الحالية ، وبما انها قاعدة بيانات جديدة ، فيتم عمل "اعادة تعيين" Reset لجميع الاشياء السابقة ، وطبعا لأشياء اخرى ما اذكرها او اعرفها 🙂 طريقة الاستيراد هي لعمل جزء معين من الرقم # 5 اعلاه ، وبعض الاحيان تحل مشاكل ما يقدر عليها الضغط والاصلاح ، مثل عند تغيير طريقة الصور في النموذج من مضمن/مرتبط/مشارك ، فهو يستطيع ان يُرجع للبرنامج حجمه الجديد 🙂 والبرنامج اللي في الرابط اعلاه ، يقوم بكل ذلك ، مع الاحتفاظ بنسخة من برنامجك ، وللعلم ن اثناء برمجتي ، فانا استعمل البرنامج اعلاه كلما عملت اضافة على البرنامج اللي اشتغل عليه ، يعني يمكن في اليوم اعمل عليه 4-8 مرات لنفس البرنامج ، والميزة الاخرى للنسخ ، امه يمكن تحتاج ان ترجع لها لأي سبب (وصارت معدي عدة مرات ، بعد التعديل ، وبعد يومين او ثلاثة يتضح لي ان الجزئية اليابقة محتاج لها ، فارجع للنسخ القديمة) 🙂 جعفر

وعليكم السلام 🙂 قد يكون هذا الحل لك جعفر

السلام عليكم 🙂 اخي الفاضل @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

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