ابوخليل

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

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

فقط قم بعمل حقل في جدول يأخذ قيمة اللون بدلا من المتغير 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

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

اعتقد اني توصلت لحل بناء على المعطيات المساعدة السابقة UData2.rar

السلام عليكم ورحمة الله وبركاته اخواني الأعزاء في المرفق جدول يحتوي على سجلات يتم ادخالها يوميا واريد من خلال الاستعلام عرض سجلات الاسبوع الحالي فقط على فرضية ان الاسبوع يبدأ بيوم الأحد وينتهي بيوم السبت زيادة ايضاح : في المرفق جدول يشتمل على سجلات تبدأ من يوم الجمعة 27 / 3 / 2015 وتنتهي بيوم السبت القادم 4 / 4 / 2015 المطلوب : 1- عرض السجلات من تاريخ الاحد في هذا الاسبوع 29 / 3 وحتى السبت القادم 4 / 4 فقط 2- وعلى فرضية انني قمت بتغيير تاريخ الكمبيوتر الى الأحد القادم ثم قمت بتسجيل جديد داخل الجدول بتاريخ الاحد القادم 5 / 4 / 2015 فأريد ان يعرض اليوم الجديد في الاسبوع الجديد فقط وهكذا ... مطلوب عرض بيانات أيام الأسبوع الحالي من 1 وحتى 7 من خلال استعلام دوال مساعدة: Weekday(date, [firstdayofweek]) لاستخراج رقم اليوم خلال الاسبوع Format([date1];"ww") لاستخراج رقم الاسبوع خلال السنة UData.rar

وعليكم السلام ابا محمد تفضل : استبد الكود الخاص بجلب الصورة بهذا On Error GoTo err_Form_Current Me.Student_Img.Picture = Application.CurrentProject.Path & "\Imags\" & Me.id & ".jpg" Exit Sub err_Form_Current: If Err.Number = 2220 Then Me.Student_Img.Picture = Application.CurrentProject.Path & "\Imags\NoPicture.jpg" End If