شايب

نعم ممكن تصدر او تسورد جدول او كائن اكسس الصيغة العامة للاستيراد DoCmd.TransferDatabase acImport, "Microsoft Access", _ "C:\Users\Public\Northwind.accdb", acReport, "Monthly Sales Report", _ "Corporate Sales Report", False للتصدير DoCmd.TransferDatabase acExport, "Microsoft Access", _ "C:\Users\Public\Northwind.accdb", acReport, "Monthly Sales Report", _ "Corporate Sales Report", False مع تغيير مايلزم نوع القاعدة المسار نوع الكائن اسم الكائن اسم الكائن بعد التصدير او الاستيراد هذا الموضوع ممكن يفيدك شايب

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

كنت قد وضعت حل لمشكلة الدكتور فهد الاخير المتعلقة بالماوس ولكن ردك السابق جعلني اتوقف عن رفع الملف الشايب 🌹

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

اذا كان فهمي صحيح وانت ترغب ادخال المعلومات من حلال النموذج frm_name فمن الطبيعة انه لا يتم الحفظ صحيح ان النموذج مرتبط باستعلام ولكن كافة الحقول بالنموذج غير منضمة وفي العادة يكون ادخال بيانات الحقول غير المنضمة اما عن طريق استعلام الحاق او عن طريق التعامل مع مصدر السجلات recordset بينما في نموذجك لم تتعامل مع اي منهما وزر الامر حفظ لديك بدون اي حدث لذا النصيحة الاسهل استخدم حقول منضمة ودع الاكسس يساعدك --------- اعتذر عن التعديل ويعتبر الرد رفع للموضوع الشايب

الف مبروك اختيار موفق ومتوقع

بعد حفظ السجل ممكن والخاصية Dirty قد تغني اما بعد فتح سجل جديد فلن تستفيد الا اذا كانت الاوامر المطلوب تنفيذها مكتوبة قبل امر سجل جديد مثل تحميل قيمة بعض الحقول باستخدام مصفوفة لتجنب كتابتها او تكرار السجل او .... الى اخره

اذا كان النموذج مرتبط بمصدر بيانات فلا حاجة لامر حفظ وبمجرد الانتقال لسجل جديد او سابق وخلافه يحفظ الاكسس البيانات وهناك حالات معينة تكون اسنثناء

طبعا استخدام الاقواس بطريقة الاستاذ صحيح لكن اعتقد انه يمكن الاستغناء عن القوس الثاني

استخدام dsum مث الكي في العلاج اخر الحلول وانا اشرت اليه من ضمن مجموعة حلول وحيث يتضح انك مبتدئ فاعتقد حل الاخ جعفر هو الاسهل ولكن الحقيقة ربما الاستاذ جعفر مازال في جو الاجازة وايضا 😎

نعم صحيح هذه الطريقة تؤدي الغرض ولكن فيها تكرار لعمليات الحقول المحسوبة وبالتالي فان ولن نحتاج الى اعادة احتساب المحسوب شعور متبادل 🌹

اخونا شايب يعتقد ان VAT_AMOUNT_$ مصدره عمليه حسابية وليس من ضمن حقول مصدر النموذج وبالتالي لن تعمل دالة sum لذا اما ان تجعل كافة العمليات الحسابية في استعلام ويكون مصدر النموذج او تستخدم دالة dsum مع تحميل الدالة كل العملية الحسابية بمعيار الفاتوة لكون الدالة لا تقوم فقط بجمع قيمة حقل وانما نستطيع من خلالها جمع وطرح وضرب وقسمة عدة حقول او ان يكون حقل VAT_AMOUNT_$ ضمن حقول ويتم احتساب قيمتة في حدث بعد التحديث لاحد الحقول في النموذج واعتذر عن وضع مرفق اخيرا اليوم الموقع منور بزيادة

مع التقدير للاخ ابو فتحي 🌹 انا وضعت الرد السابق ولم انتبه الى ان المداخلة ليست من صاحب الموضوع وحيث يفترض بصاحب الموضوع متابعة موضوعه لذا اتوقف هنا

اعتقد ان طريقتك في بناء الجدول مخالفة لمفهوم قواعد البيانات العلائقية واقرب ما تكون للقواعد المسطحة بناء الجداول بشكل صحيح وانشاء العلاقات يغني عن رص الحقول بهذا الشكل وستجد ان رقم 255 حقل رقم كبير جدا وتبقى مشاركتي مجرد رأي من غير متخصص وندع الامر للخبراء الشايب

مع ان السؤال موجه للاخ ابو خليفة ولكن سوف اضع مشاركة ربما ينتفع بها احدهم وسوف اتحدث عن طريقة واحدة Dim txPassword As String txPassword = Me.tx_pas.Value Dim DB As DAO.Database Set DB = DBEngine.OpenDatabase(Name:=txtName, Options:=False, ReadOnly:=False, Connect:=";PWD=" & txPassword) يمكن وضعها قبل امر التصدير هنا استخدمت متغير نصي لكلمة المرور لكوني انفذ الامر عن طريق نموذج واستخدم مربع نص لادخال الكلمة اما لو اكتفينا بادخال كلمة المرور عن طريق الكود مباشرة فيمكن استخدام الثوابت بدلل من المتغيرات او الابقاء على المتغير Const txPassword = "كلمة المرور" ايضا في السطر الرابع Name:=txtName هذا مربع نص يحتوي على مسار قاعدة البيانات ويمكن كتابة اسم القاعدة والمسار مباشرة اخيرا تطبيق الامر على مثالي السابق ووضعت زري امر واحد للتصدير لقاعدة مفتوحة والاخر لقاعدة مشفرة بكلمة مرور ويمكن دمج الامرين في زر واحد ولكني اكتفي بهذا Database23(1).accdb

مشاركة مع الاخ @kkhalifa1960 بداية الاكسس يتيح عملها بدون الحاجة الى اكواد عن طريق استعلام الحاق ويتيح الحاق بيانات من جدول الى اخر في قاعدة اخرى وكذلك الحال يتيح امكانية انشاء جدول في قاعدة اخرى "البنية والبيانات او البنية فقط" بالنسبة لمشاركة الاخ خليفة ممكن اجراء تعديل بسيط من خلال انشاء نموذج يتم من خلاله اختيار مسار قاعدة البيانات وعمل قائمة لاختيار متعدد ليمكن تصدير جدول او اكثر بامر واحد -------------- اخيرا عند الله تجتمع الخصوم Database23.accdb

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

بسبب وضع اكود في حدث عند التركيز لعدد من حقول النموذج الرئيسي لم اقراء هذه الاكواد لمعرفة عملها وانما قمت بايقافها وانتهت المشكلة هذا ليس الحل وانما بيان سبب المشكلة شايب

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

مشاركة مع الاخ محمد ممكن ايضا عمل دالة تقوم بالمطلوب دون الحاجة الى استخدام دالة iif وما يتطلب من تكرارها وتكرار الشرط والنتيجة عند التحقق وعدم التحقق نعمل وحدة نضع فيها الامر Public Function n_fld(id As Integer) As String Dim rst As DAO.Recordset Dim fld As Field Dim t As String Set rst = CurrentDb.OpenRecordset("Select * From [صف خامس] Where [م1]= " & id) For Each fld In rst.Fields If fld.Type <> acTextBox Then If fld.Value = -1 Then t = t & " " & fld.Name End If End If Next n_fld = Replace(t, "تظلم", "") rst.Close End Function ويتم الاستدعاء في الاستعلام n_fld([م1]) والنتيجة ممكن تحسينها وكتابة التسميات بشكل افضل لتكون اكثر وضوح ولكن للاسف مالي مزاج

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

ايضا من ضمن الاخطاء التي تسهل على المتسلل الدخول بشكل غير شرعي اولا: اهمال تحويل القاعدة الى ملف تنفيذي والاكتفاء احيانا بوضع كلمة مرور على محرر الاكواد وهذه الكلمة يمكن كسرها باكثر من طريقة عن طريق اي محرر برامج او من خلال قاعدة بيانات اخرى او عن طريق ملف تنفيذي يتم كتابته لهذا الغرض ثانيا: عدم استخدام امر معالجة الاخطاء وهنا يستطيع المخترق الدخول لمحرر الاكواد باستخدام امر يعطي نتيجة يعتبرها البرنامج خطأ ومن ثم يتم التلاعب بالكود ويسمح للمخترق بالدخول وطريقة الحصول على الخطأ كانت في السابق الخطوة الاولى التي يستخدمها الكراكر لكسر حماية البرامج ومن ثم عمل ملف تنفيذي "كراك" لتسجيل البرنامج شايب

الاخ @دروب مبرمج كفاني عناء الحديث عنها احسنت وهناك حلول اخرى منها استخدام متغيرين نصيين واستبدال علامة التنصيص ' اثناء اسناد قيمة المتغيرات هذه الكلمات ليست هي السبب في الولوج وانما طريقة كتابتها بهذا الشكل اعتقد اننا على دروب الاحتفال بخبير جديد الشايب

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

يمكن الوصول للنتيجة بدون استخدام دوال تجميع المجال وخصوصا ان الخبراء ينصحون بتجنب استخدامها في الاستعلام وللوصول للنتيجة عن طريق العلاقات النتيجة في استعلام q_1 EXAMPLE2000.mdb