تركيز بعد البحث

ارجو المساعد من الاخت زهره

سيف3020 كتب:

ارجو المساعد من الاخت زهره

هل من مشرف في الموقع ولا ما في

معقول بلا حل

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

هل من الممكن تركز معي قليلا بارك الله بك

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

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

حسنا دعتا نلقي نظرة على مصدر النموذج لديك عند تحميل النموذج

Private Sub Form_Load()
Me.RecordSource = "ك12"
End Sub

اذن الجدول ( ك12 ) هو مصدر سجل النموذج والذي يفترض ان يكون به كل السجلات التي نريد ان نبحث فيها حسب الشروط الخاصة بدالة DLookup

ولهذا سنفتح الجدول الخاص بك وهو ( ك12 ) لنرى السجلات التي به

لاحظ معي بارك الله بك ان الجدول ( ك12 ) لا يوجد به سوى سجل واحد فقط حيث رقم الصادر الخاص به هو رقم 3

اي انه لا يوجد لديك في الجدول سجل برقم صادر 2720

ولهذا عندما نقوم بالنقر المزدوج على القائمة يبجث عن رقم الصادر 2720 ولا يجد شيء

اتمنى انك عرفت اين الخلل لديك !!!!

لذا يجب علينا اولا تعبئة السجلات المطلوبة في الجدول ( ك12 ) اولا ثم نقوم بعملية البحث عن ما نريده بهذه الطريقة

لاحظ معي الآن انه يوجد سجلين الأول برقم صادر 3 والثاني برقم صادر 2720 ولهذا عندما نقوم بالنقر المزدوج على القائمة سيتم عرض السجل المطلوب في النموذج حسب الكود التالي

Private Sub SearchList_DblClick(Cancel As Integer)
Dim rst As DAO.Recordset
    Dim strCriteria As String
    strCriteria = "[صادر] Like '*" & SearchList.Column(2) & "*'"
    Set rst = Me.RecordsetClone
    rst.FindFirst strCriteria
        Me.Bookmark = rst.Bookmark
    Set rst = Nothing
End Sub

za-برنامج-UP.rar

بالتوفيق

zahrah كتب:

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

هل من الممكن تركز معي قليلا بارك الله بك

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

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

حسنا دعتا نلقي نظرة على مصدر النموذج لديك عند تحميل النموذج

Private Sub Form_Load()
Me.RecordSource = "ك12"




End Sub

اذن الجدول ( ك12 ) هو مصدر سجل النموذج والذي يفترض ان يكون به كل السجلات التي نريد ان نبحث فيها حسب الشروط الخاصة بدالة DLookup

ولهذا سنفتح الجدول الخاص بك وهو ( ك12 ) لنرى السجلات التي به

لاحظ معي بارك الله بك ان الجدول ( ك12 ) لا يوجد به سوى سجل واحد فقط حيث رقم الصادر الخاص به هو رقم 3

اي انه لا يوجد لديك في الجدول سجل برقم صادر 2720

ولهذا عندما نقوم بالنقر المزدوج على القائمة يبجث عن رقم الصادر 2720 ولا يجد شيء

اتمنى انك عرفت اين الخلل لديك !!!!

لذا يجب علينا اولا تعبئة السجلات المطلوبة في الجدول ( ك12 ) اولا ثم نقوم بعملية البحث عن ما نريده بهذه الطريقة

لاحظ معي الآن انه يوجد سجلين الأول برقم صادر 3 والثاني برقم صادر 2720 ولهذا عندما نقوم بالنقر المزدوج على القائمة سيتم عرض السجل المطلوب في النموذج حسب الكود التالي

Private Sub SearchList_DblClick(Cancel As Integer)
Dim rst As DAO.Recordset
    Dim strCriteria As String
    strCriteria = "[صادر] Like '*" & SearchList.Column(2) & "*'"
    Set rst = Me.RecordsetClone
    rst.FindFirst strCriteria
        Me.Bookmark = rst.Bookmark
    Set rst = Nothing
End Sub

za-برنامج-UP.rar

بالتوفيق

شكرا جزيلا لكن يا اختي العزيزة

مصدر سجل البحث ليس ك12 انما هو يومية1

لكي معرفة ما هو المطلوب سوف اشرح نقاط

1. ادخال رقم كف الطلب ( على سبيل المثال 1 )

2. ادخال الرقم الوطني على سبيل المثال ادخال الرقم الوطني 9821029135 Enter (عندها يتم البحث بحثين في جدولين منفصلين الاول في جدول شخصي و يظهر لي في النموذج الرئيسي " قسم / رقم رخصة السوق/ الاسم " والثاني في جدول يومية1 ويظهر اسفل النموذج الرئيسي في جدول البحث عدد مرات التي تم ارسال الرخصة الى قسم الترخيص باختلاف يكون بين التاريخ ورقم الصادر يظهر سجل او اثنان او اكثر عنها يتم التركيز على السجل المطلوب اما يكون الاول او الثاني .....الخ اعن الضغط على السجل الاول يتم تحديث البيانات اعلاه لكن اذا تم الضغط على السجل الثاني في وهي المشكله يتم تحديث البيانات اعلاه على السجل الاول و المطلو يكون على الثاني )

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

صباح الخير على جميع

ارجو المتابعة

البرنامج

سيف3020 كتب:

ارجو المتابعة

البرنامج

ارجو المساعدة من الاخت زهره

سيف3020 كتب:

ارجو المساعدة من الاخت زهره

شكرا يا مشرفين تم الحل

t6 = DLookup("[التاريخ]", "يومية1", "[وطني]=[forms]![كفطلب]![t8]and[1]=[forms]![كفطلب]![T5]")