ابوخليل

السؤال غير واضح نوعا ما فحسب فهمي للسؤال سأجيبك بنحو ما جاء في مشاركتي الاخيرة

ولماذا جدولين ؟ فقد ذكرت لك رأيي هنا ولكنك لم ترد ولم تناقش http://www.officena.net/ib/index.php?showtopic=60128

شكرا لكم : تم فصل الموضوع بعنوان جديد مستقل

ههههه .. ظريف .. واعذرني على هذه الغفلة والاجابة يسيرة وهي ان تضع كلمة المرور الخاصة بقاعدة الجداول داخل الكود الكود موجود في محرر نموذج البداية كالتالي : If CheckLinks("ضع كلمة المرور هنا") = False Then Call Quit End If

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

شكرا لكم تم تعديل العنوان

فقط قم بعمل حقل في جدول يأخذ قيمة اللون بدلا من المتغير vclr

وهي الطريقة التي استخدمها في اعمالي وحدة نمطية وكود للربط داخل النموذج انسخ الكود التالي والصقه في وحدة نمطية عامة Public Function CheckLinks(ByVal strDBPassword As String) 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)) <> "COMPAS" Then If Len(tdf.Connect) > 0 And tdf.Fields.Count = 0 Then If Len(strNewMDB) = 0 Then Call MsgBox("مطلوب قم بتحديده واختياره (اسم قاعدة الجداول لديك) ملف البيانات", vbCritical) Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .AllowMultiSelect = False .InitialFileName = CurrentDBFolder() .Filters.ADD "Access Database File (*.mdb)", "*.mdb", 1 .TITLE = "Select Back-End Data File" .ButtonName = "Link Tables" If .Show = False Then Exit Function Else strNewMDB = .SelectedItems(1) End If End With End If If (IsNull(strDBPassword) = True) Or (strDBPassword = "") Then tdf.Connect = ";DATABASE=" & strNewMDB Else tdf.Connect = ";DATABASE=" & strNewMDB & ";PWD=" & strDBPassword 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 Public Function CurrentDBFolder() As String Dim strPath As String strPath = CurrentDb.Name Do While Right$(strPath, 1) <> "\" strPath = Left$(strPath, Len(strPath) - 1) Loop CurrentDBFolder = strPath End Function ثم الصق الكود التالي في حدث التحميل لنموذج البداية On Error Resume Next If CheckLinks("") = False Then Call Quit End If Dim tdfs As DAO.TableDefs Dim tdf As TableDef Dim sSourceDB As String Dim sBackupDB As String Dim backDBName As String Set tdfs = CurrentDb.TableDefs Set tdf = tdfs(tdfs.Count - 1) sSourceDB = Right(tdf.Connect, Len(tdf.Connect) - 10) backDBName = Dir(Mid(tdf.Connect, 11)) sBackupDB = Mid(tdf.Connect, 11, Len(tdf.Connect) - (Len(backDBName) + 10)) ' وفي المثال تطبيق للمقال ملحوظة : اذا لم يعمل المثال على الوجه الأكمل انظر في المكتبات link_be.rar

لا فرق حيث ان اكسس يتعرف على نوع الكائن من اسمه فقط واليك ما طلبت من المقارنة بين المجموع الكلي ومجموع الفروع الرسالة للتنبيه فقط فقد يغفل المستخدم لذا جعلت الحدث في جميع الحقول يمكن الاكتفاء بحدث بعد التحديث للحقل الاخير فقط Database1-up3.rar

تم التعديل واجابة السؤال الثاني If Me.Check1 = -1 Then Me.FindDelivery.Visible = True Me.FindDelivery = Date Else Me.FindDelivery = "" Me.FindDelivery.Visible = False End If Database1-up2.rar

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

الآن فهمت العمل انظر التعديل لم اغير شيئا في اكوادك السابقة وانما عملت على فلترة البيانات حسب معايير الحقول الظاهرة في النموذج ، اعتمادا على استعلام وجدول مؤقت الآن سيظهر في جدول المفقودات فقط الارقام المفقودة وفق المعايير في النموذج الاقرارات الناقصة4.rar

حسب ما فهمت الاعداد محصورة بين 1 و 7 بناء على الحقول الثلاث التي ذكرتها انظر الآن لعل النتيجة صحيحة ايضا تم الالحاق الى الجدول الارقام المفقودة.rar

الدالة DlookUp هي السبب الرئيس في بطء عملية البحث اليك طريقة اخرى سيكون البحث الآن على الجميع ، لترى الفرق في الأداء فقط انقل الاستعلام والنموذج الى برنامجك ووافنا بالنتيجة الاقرارات الناقصة3.rar

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

تفضل آمل ان يحقق مطلبك Private Sub A_AfterUpdate() If (DLookup("B", "tbl1", "B=form!B")) Then MsgBox "هذا السجل مكرر " Undo End If End Sub Private Sub B_AfterUpdate() If Not IsNull(DLookup("A", "tbl1", "A=form!A")) Then MsgBox "هذا السجل مكرر " Undo End If End Sub NoDuplicates.rar

الحل يتم بأكثر من طريقة اسهل وأقوى طريقة هو ان تجعل الحقلين مفتاحين جرب ووافنا بالنتيجة تنبيه : لاختيار اكثر من مفتاح : اضغط زر كنترول من لوحة المفاتيح ثم حدد السجلات المطلوبة ثم انقر بالزر الايمن واختر المفتاح No Duplicates.rar

او يمكن النظر هنا رابط بشرح بسيط للفكرة http://www.officena.net/ib/index.php?showtopic=58882#entry376191

Private Sub عنصر_تحكم_علامة_جدولة0_Change() frm1.Requery frm2.Requery End Sub

تم التعديل والتطبيق على 3 حقول تجريبي3.rar

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

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

هلا بك اكثر اخوي رمهان وشكرا للمساعدة ومد يد العون وكلمة " اعتقد" هي على فرضية وجود حلول افضل والحقيقة ان الحل قدح في فكري وانا اكتب السؤال لذا وضعت الدوال المساعدة وانتظرت ما يقرب من الساعة ثم طرحت الجواب الدالة : Format([dateM];"ww") لوحدها تكفلت بالحل ، فأول يوم في الاسبوع هو الاحد افتراضيا ثم استخدمتها مرة اخرى كمعيار داخل الاستعلام مع استبدال التاريخ الظاهر بــ ()Date جميل .. لو كنت سأبحث عن او اعرض اسبوع معين خلال سنوات ولكني اريد الاسبوع الحالي فقط فلو فرضنا أن الاحد القادم داخل في سنة جديدة فسيكون رقمه 1 وفي الوقت نفسه سيكون المعيار 1

تفضل تم التعديل db4.rar