بالنموذج عند الضغط ان يتم الانتقال الي السجل التالي "حسب نوع المستند"

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

تحية طيبة يا أخ/ المحاسب الجديد ..

اولا: اطلعت على الملف المرفق وهو عبارة عن نموذج مرتبط بنموذج فرعي

ثانيا : توجد ملاحظة وهي عنصر التحكم الذي تريد الاختيار منه يجب ان يكون غير منظم.. لماذا؟

الجواب:- حتى لا يتم التعديل على البيانات .. فمن غير المنطقي ربط حقل بمصدر عنصر التحكم والبحث من خلاله :wacko: ..

ثالثا: تم اضافة عنصر تحكم غير منظم وتم تسميته list

رابعا :تم اضافة هذا الكود لعنصر التحكم list عند اجراء حدث (بعد التحديث) كالآتي:-

اقتباس

Private Sub list_AfterUpdate()

Dim srCH As String

srCH = "*" & list & "*"

If Not (list = "") Then

Me.Filter = "DcType like '" & srCH & "'"

Me.FilterOn = True

Else

Me.FilterOn = False

End If

End Sub

ترجمه ع السريع :

Dim srCH = تصريح باستخدام المتغير كنص

list = اسم عنصر التحكم الغير منظم

DcType=اسم الحقل نوع المستند الذي تم تغيير اسمه من الجدول الرئيسي لتسهيل البرمجة ..

filterOn = عامل التصفيه true تشغيل وfalse تعطيل ..

وسلامتك يا سيدي المحاسب ع فكرة 10 * 10 = كم؟؟

بشوفك صاحي معاي ولا نمت :D

ومرفق التعديل

مشكاة

DocType_UP.rar

شكرا جزيلا اخي Mishkat ibrahim

و100 هي الاجابة وانا صاحي معاك ، وربنا يعطيك كل ما تتمني وزيادة وتسلم ايدك

و100 شكر

نادر محمد