عفرنس قام بنشر يناير 3, 2020 مشاركة قام بنشر يناير 3, 2020 الإخوة الأكارم .. هل ممكن أعمل نموذج يكون ( صفحة رئيسية ) ومن خلاله أستطيع فتح أكثر من قاعدة بيانات ؟؟ أم هذا غير ممكن ؟؟ رابط هذا التعليق شارك More sharing options...
ابو البشر قام بنشر يناير 3, 2020 مشاركة قام بنشر يناير 3, 2020 وضح اكثر كل شيئ ممكن .... رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 3, 2020 مشاركة قام بنشر يناير 3, 2020 وعليكم السلام 🙂 نعم يمكن ، وتفتح نموذج معين ، وتعمل له تصفية ، وللقراءة فقط 🙂 يعني تعمل فيه اللي تريد 🙂 اقتطعت هذا الكود من احد برامجي : Private Sub cmd_View_Kids_info_Click() On Error GoTo err_cmd_View_Kids_info_Click Dim appAccess As Object Dim DB_Path As String Dim myWhere As String 'if the Remote Application/Form is open, close it first appAccess.DoCmd.Quit 'now open the Form for the new Employee_ID Set appAccess = CreateObject("Access.Application") DB_Path = "\\Managing_1\h\Personal\FE\Personal_FE.accdb" appAccess.OpenCurrentDatabase (DB_Path) myWhere = "[Full_Name]='" & Me.frm_1_All!Full_Name & "'" myWhere = myWhere & " And [Relation]<>'زوجة'" myWhere = myWhere & " And [Relation]<>'زوج'" appAccess.DoCmd.OpenForm "sfrm_Family", , , myWhere, acFormReadOnly appAccess.Visible = True appAccess.UserControl = True 'Set appAccess = Nothing Exit_cmd_View_Kids_info_Click: Exit Sub err_cmd_View_Kids_info_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 End If End Sub جعفر 1 رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر يناير 3, 2020 الكاتب مشاركة قام بنشر يناير 3, 2020 12 دقائق مضت, jjafferr said: وعليكم السلام 🙂 نعم يمكن ، وتفتح نموذج معين ، وتعمل له تصفية ، وللقراءة فقط 🙂 يعني تعمل فيه اللي تريد 🙂 اقتطعت هذا الكود من احد برامجي : Private Sub cmd_View_Kids_info_Click() On Error GoTo err_cmd_View_Kids_info_Click Dim appAccess As Object Dim DB_Path As String Dim myWhere As String 'if the Remote Application/Form is open, close it first appAccess.DoCmd.Quit 'now open the Form for the new Employee_ID Set appAccess = CreateObject("Access.Application") DB_Path = "\\Managing_1\h\Personal\FE\Personal_FE.accdb" appAccess.OpenCurrentDatabase (DB_Path) myWhere = "[Full_Name]='" & Me.frm_1_All!Full_Name & "'" myWhere = myWhere & " And [Relation]<>'زوجة'" myWhere = myWhere & " And [Relation]<>'زوج'" appAccess.DoCmd.OpenForm "sfrm_Family", , , myWhere, acFormReadOnly appAccess.Visible = True appAccess.UserControl = True 'Set appAccess = Nothing Exit_cmd_View_Kids_info_Click: Exit Sub err_cmd_View_Kids_info_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 End If End Sub جعفر أستاذي الفاضل .. هل بالإمكان تطبيق الكود على هذا المرفق .. ولك جزيل الثواب .. fayz.rar رابط هذا التعليق شارك More sharing options...
ابو البشر قام بنشر يناير 3, 2020 مشاركة قام بنشر يناير 3, 2020 (معدل) وليش ما يكونوا داخل برنامج واحد !!!! تم تعديل يناير 3, 2020 بواسطه ابو البشر رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر يناير 3, 2020 الكاتب مشاركة قام بنشر يناير 3, 2020 7 دقائق مضت, ابو البشر said: وليش ما يكونوا داخل برنامج واحد !!!! لدي أكثر من برنامج .. وليس لي معرفة في البرمجة .. هي فكرة طرأت في خاطري وهي : أعمل نموذج ، يحتوي على عدة نوافذ ، كل نافذة بكبسة زر تفتح لي البرنامج المخصص لها .. رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابو البشر قام بنشر يناير 3, 2020 أفضل إجابة مشاركة قام بنشر يناير 3, 2020 (معدل) 55 دقائق مضت, emam1424 said: لدي أكثر من برنامج .. وليس لي معرفة في البرمجة .. هي فكرة طرأت في خاطري وهي : أعمل نموذج ، يحتوي على عدة نوافذ ، كل نافذة بكبسة زر تفتح لي البرنامج المخصص لها .. ربما هذا هو المطلوب fayz.rar تم تعديل يناير 3, 2020 بواسطه ابو البشر 4 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 3, 2020 مشاركة قام بنشر يناير 3, 2020 جزاك الله خيرا اخى واستاذى جعفر جزاك الله خيرا اخى ابو البشر تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر يناير 4, 2020 الكاتب مشاركة قام بنشر يناير 4, 2020 7 ساعات مضت, ابو البشر said: ربما هذا هو المطلوب fayz.rar 174.26 kB · 5 تنزيلات شكر الله لك أبا البشر .. هذا هو المطلوب تماما .. والشكر أيضا للأستاذين ( جعفر - أحمد ) رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 4, 2020 مشاركة قام بنشر يناير 4, 2020 اسمحوا لي ان اشرح فائدة الطريقة اللي اشرت لها انا 🙂 الفائدة هي محاكاة البرنامج الاخر ، وارسال بيانات له ، واستيراد بيانات منه ، وهذا لا يقتصر على قاعدة البيانات التي فتحت البرنامج الآخر ، وانما يعتمد على اي عدد من قواعد البيانات التي فتحتها عن طريق المتغير appAccess و appAccess2 و ... وبعد اذن اخي ابو البشر ، فاستخدمت مرفقه ، وبتعديل بسيط على البرنامج Sub بحيث النموذج mark2 لا يُفتح تلقائيا ، واضفت له زر : الكود التالي : يفتح قاعدة البيانات Sub ، 1. يرسل القيمة "c:\abc\abc" الى الحقل txtPath ، 2. ويأخذ المسمى الموجود في حقل التسمية 7 ، ويضعه في برنامجنا : Private Sub cmd_View_Kids_info_Click() On Error GoTo err_cmd_View_Kids_info_Click Dim appAccess As Object Dim DB_Path As String Dim myWhere As String 'if the Remote Application/Form is open, close it first appAccess.DoCmd.Quit 'now open the Form for the new Employee_ID Set appAccess = CreateObject("Access.Application") DB_Path = Application.CurrentProject.Path & "\mark2.mdb" appAccess.OpenCurrentDatabase (DB_Path) appAccess.DoCmd.OpenForm "Mark" appAccess.Visible = True With appAccess.Forms!Mark .txtPath = "c:\abc\abc" Me.lbl2.Caption = .[تسمية7].Caption End With appAccess.UserControl = True 'Set appAccess = Nothing Exit_cmd_View_Kids_info_Click: Exit Sub err_cmd_View_Kids_info_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 End If End Sub جعفر fayz.zip 2 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر يناير 4, 2020 مشاركة قام بنشر يناير 4, 2020 جزاك الله خيرا اخى واستاذى جعفر عالشرح والتوضيح رابط هذا التعليق شارك More sharing options...
Barna قام بنشر يناير 4, 2020 مشاركة قام بنشر يناير 4, 2020 (معدل) طريقة احترافية اخي @jjafferr بارك الله فيك .... دائما نستفيد منك تم تعديل يناير 4, 2020 بواسطه Barna 1 رابط هذا التعليق شارك More sharing options...
ابو البشر قام بنشر يناير 4, 2020 مشاركة قام بنشر يناير 4, 2020 جميلة الطريقة استاذ . @jjafferr رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.