نجوم المشاركات

أستاذ متقاعد جزاك الله خيراً و شكرا للتوضيح تفضل تمت التجربة ويعمل يجب أن تختار النموذج المراد نقله من القائمة المنسدلة ومسار القاعدة edusoftUpdate (2).accdb

المثال يعمل بعد تعديله الى DoCmd.TransferDatabase acExport, "Microsoft Access", "d:\test.accdb", acForm, Me.Modifiable9.Column(1), "FramDelete" تحياتي

لا اخي المقصود هنا تصدير كائن من قاعدة لاخرى باستخدام الكود

نعم ممكن ولكن .... نعود لذلك بعد شرح الطريقة الامر المطلوب هو DoCmd.TransferDatabase acExport, "Microsoft Access", "d:\test.accdb", acForm, "form6", "form6" هنا نصدر كائن قاعدة بيانات اكسس ثم مسار واسم القاعدة التي نرغب التصدير اليها ثم نوع الكائن اسم الكائن اخيرا اسم النموذج في القاعدة الوجهة نعود للكن النموذج يختلف عن الجدول من خلال ان له مصدر بيانات في العادة يكون جدول واحيانا استعلام وقليلا مايكون غير منظم ايضا النموذج قد يحتوي على قوائم او مربعات تحرير وسرد مصدرها قد يكون استعلام وقليلا ما يكون مصدر بالكود واحيانا يكون النموذج له نموذج فرعي لذا تصدير نموذج يتطلب معالجات اكثر مما يتطلب تصدير جدول تحياتي اخي محمد لطفي سبقتني بالرد ولكني كنت اجهز للرد

تفضل هل هذا ماتريد DoCmd.TransferDatabase acImport, "Microsoft access", "C:\sourceDB.mdb", acForm ,"SourceFormName", "FormNameInDestinationDB" نفس طريقة نقل الجدول

وعليكم السلام ورحمه الله وبركاته يمكنك استخدام هذه المعادله =TEXT(A8,"dddd") استخراج اسم اليوم.xls

ربنا يبارك فى حضرتك أنا هنا لاتعلم ومازلت اتعلم

والله يا استاذ @محمد احمد لطفى اذا كان هناك من يستحق افضل اجابه فهو انت 🌹 ولك بالمثل واكثر من ذلك انت واخي محمد لطفي

شكرا استاذي هذه احسن اجابة بارك الله في اعمالك و تقبل صيامك و غفر ذنوبك

اعذرونى ان لم افهم الموضوع ولكن حسب ما اعرف انه بسهولة يمكن نقل جدول او استعلام او نموذج من قاعدة الى اخرى ولكن النموذج طبعا يكون مرتبط بجداول او استعلامات او الخ وبالتالى اذا اردت ان يعمل بشكل صحيح يجب ان تعرف ما المرتبط به واستيرداها ايضا وذلك يكون حينما تكون فاتح القاعدة المراد استيراد النموذج لها ومن ثم من قائمة بيانات خارجية- مصدر بيانات جديد -من قاعدة بيانات - اكسيس واختار ما تريد استيراده

In standard module Private Declare Function IsNetworkAlive Lib "Sensapi" (lpdwFlags As Long) As Long Sub CheckInternetConnection() If Not IsInternetConnected() Then UserForm1.Show Application.OnTime Now + TimeValue("00:00:10"), "CheckInternetConnection" End Sub Public Function IsInternetConnected() As Boolean Dim lngAlive If IsNetworkAlive(lngAlive) = 1 Then IsInternetConnected = True End Function In workbook module Private Sub Workbook_Open() Application.OnTime Now + TimeValue("00:00:10"), "CheckInternetConnection" End Sub

مشكور جزاك الله خير الجزاء يااستاذ كريم نظيم

شرح جميل وواضح ومفهوم من مفكر كبير ودكتور فى الاكسس ـ ما هذه الفصاحة والبلاغة والاستعارات المكنية والتصريحية اشكرك استاذ / خالد وزادك الله من علمه واجاز بك تفسير اكسس لنا رحم الله والديك وبارك الله فيك وفى معلوماتك القيمة وجزاك كل خير

هذا صحيح لاننا الحقنا القيمة في الجدول وتم حفظها كسجل الحقيقة ان هذه الطريقة تستخدم في العادة لغرض تحديد الصلاحيات للمستخدمين مثلا محمد له صلاحية form2 وعلى form3 وهكذا في مثل هذه الحالات ممكن نستخدم الاستعلام مباشرة ولن تواجهنا مشكلة عند تغيير اسم النموذج على كل حال لو فتحت جدول MSysObjects ستجد ان هناك رقم id لكل كائن في القاعدة هذا الرقم يمثل معرف فريد وبالتالي ممكن استخدامه لاجراء التعديل بدون الحاجة للتعديل اليدوي ولكن من وجهة نظري ان التعديل على اسماء النماذج ليس من الامور التي تتكرر باستمرار وبالتالي اتوقف هنا اما اذا اردنا اعطاء المستخدم صلاحيات تعديل اسماء الكائنات فممكن استخدام الامر وانا ضد ذلك DoCmd.Rename ثم حينها نضع بعده امر تحديث اسم النموذج بمعرف الايدي الذي اشرنا اليه واتوقف هنا قالت العرب خير الزاد ما بلغك المحل تحياتي

استاذى ومعلمى عند تعديل اسم اى نموذج لا يظهر التعديل فى الجدول جزاك الله كل خير ويجعله فى ميزان الحسنات

تفضل أخي . 'Table1 حسب اسم الجدول لديك 'ID حسب اسم لديك DoCmd.SetWarnings False DoCmd.RunSQL "DELETE * FROM Table1" DoCmd.RunSQL "INSERT INTO Table1 (ID) VALUES (0)" DoCmd.RunSQL "DELETE * FROM Table1" Me.Requery Refresh

يا عمى @متقاعد هذا شيخ المعلمين

لا يسعني إلا ان أقول جزاك الله حيرا

الخطوة الاولى نظهر ملفات النظام ويهمنا الجدول MSysObjects نعمل استعلام ونحتاج الى حقلين فقط name وحقل type وفي خانة المعيار نضع الرقم -32768 لتكون جملة الاستعلام تساوي SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Type)=-32768)); ثم نعمل استعلام جديد مصدرة الاستعلام السابق او نحول الاستعلام السابق الى استعلام الحاق وتكون جملة الاستعلام تساوي INSERT INTO tblform ( nameform ) SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Name) Not In (SELECT tblform.nameform FROM tblform;)) AND ((MSysObjects.Type)=-32768)); وهنا تجد اننا استخدمنا معيار جديد عبارة استعلام فرعي لكي يلحق فقط اسماء النماذج الجديدة حتى لا يحصل تكرار لاسماء النماذج التي سبق الحاقها وايضا ممكن الاستغناء عن استعلام الالحاق بالكود وايضا ممكن تحويل الحقل في الجدول الى مربع تحرير وسرد ونجعل مصدرة كود الاستعلام الاول الملف مرفق مثال187.accdb

وطريقة سريعة لتحويل الجدول المرتبط لجدول محلي .. أن تضغط بيمين الماوس على الجدول ثم تختار Convert to Local Table 🙂

السلام عليكم و رحمة الله اجعل الكود هكذا Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Columns("A"), Target.Cells) Is Nothing Then UserForm1.Show 0 Else Exit Sub End If End Sub

وعليكم السلام ورحمه الله وبركاته امسح الكود الذي في الموضوع من حدث الشيت وضع هذا الكود في حدث الصفحه ثم اضغط على اي خليه ضغطتين وسوف تفتح الفورم عادي بدون مشاكل Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) kh_Show_UFormChang1.Show End Sub

السلام عليكم اخواني الاكارم برنامج بسيط للديون والسداد شاهد الفيديو على اليوتيوب لتتعرف على الية العمل وحمل البرنامج من صندوق الوصف اسفل الفيديو القروض والديون.accdb