ابوخليل

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

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

تفضل هو في المنتدى

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

تمام يعني يظهر المستخدم الذي قام بالحذف وتاريخ الحذف

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

عليكم السلام تنحذف كذا بدون فعل فاعل ( اي امر حذف) غير وارد يوجد حلول كثيرة : 1- حماية قاعدة الجداول بكلمة مرور وعدم اتاحة فتحها مباشرة 2- عدم اتاحة الحذف للمستخدم الا بكلمة مرور ومن نموذج خاص ورسائل تأكيد الحذف 3- يمكنك تسجيل عمليات الحذف خاصة في جدول خاص وتاريخ الحذف

لا تصور معالج البحث هذا اذا مجموعة خيارات يجمعها اطار واحد او خيارات متفرقة .. يجب ان ترفق مثالا او صورة وعلى كل حال لو اعتبرنا الاطار اسمه Etar if Etar = 1 then me.chekBox= True else me.chekBox= false end if

في حدث بعد التحديث للحقل المعين اكتب : me.chekBox= True أو me.chekBox= -1 باعتبار chekBox هو اسم خانة الاختيار عندك

اعمل قاعدة بيانات جديدة ثم اجلب اليها جميع كائنات القاعدة القديمة

لن انتظر ردك فقد عدلت حسب الفكرة تفضل dbx2.mdb

انت لم تذكر هذا الشرط حفظك الله ورعاك يمكن ندخل شرط حقل no ويكون شرطين : 1- يساوي رقم التعامل ، 2- يكون يساوي رقم no او اكبر تمام كذا ؟

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

تفضل تم بعض التصرف حيث تم تغيير مسى الجدول والفورم كلمة sub محجوزة في اكسس dbx1.mdb

لم افهم اجابتك هل هي موافقة ؟ : الازرار في النموذج الرئيس وتتم على النموذج الفرعي ؟

عليكم السلام استعمل البحث فالمنتدى مليء بمثل هذه المواضيع

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

اعلانات الاعضاء هو المكان المناسب لو وضعت وسيلة اتصال من اجل يكون التعامل معك خارج مسؤولية المنتدى

Public Function CheckLinks() As Boolean On Error GoTo CheckLinksErr Dim tdf As TableDef Dim strNewMDB As String Dim fd As FileDialog For Each tdf In CurrentDb.TableDefs If UCase(Left(tdf.Name, 6)) <> "CROSGAD" Then If Len(tdf.Connect) > 0 And tdf.Fields.Count = 0 Then If Len(strNewMDB) = 0 Then MsgBox "لا يمكن الاتصال بقاعدة البيانات ، سيتم غلق البرنامج" DoCmd.Quit End If tdf.RefreshLink End If End If Next tdf CheckLinks = True CheckLinksDone: Exit Function CheckLinksErr: MsgBox "Error #" & err.Number & ": " & err.Description, vbCritical Resume CheckLinksDone End Function

هذا الكود يعمل في أكسس : If Month(Date()) = 1 Then DoCmd.OpenForm "form1" وهكذا ... ويمكن اختصاره ليشمل 12 شهر هكذا Private Sub zer1_Click() Dim stDocName As String Dim mnthNum As Integer mnthNum = Month(Date) stDocName = "form" & mnthNum DoCmd.OpenForm stDocName End Sub

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

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

لنفرض ان عنصر التحم للنموذج الفرعي 2 اسمه subfrm2 وأن النموذج الرئيس اسمه form1 اكتب السطر التالي بعد امر الحذف الموجود في الفرعي1 forms!form1!subfrm2.Requery

اعتقد انه يمكن ايضا ان يتم التغيير شهريا جرب تغيير السطر في الاقتباس اعلاه الى prtyr = DatePart("m", Date)

القيمة كثيرة يوجد مواقع ارخص ويمكنك ربط برنامجك بها حيث يوفرون لك كود الربط هذه واحدة منها http://www.kingsms.ws/loginForm/send