kaser906 قام بنشر فبراير 13, 2017 مشاركة قام بنشر فبراير 13, 2017 السلام عليكم ورحمة الله وبركاتة بالمرفق مثال النموذج الاساسي tabl يحتوي على حقل الرصيد ويضم النموذج الفرعي Frm_Monthexchange والنموذج الفرعي tbl_kind اريد تصفية مربع التحرير والسرد في النموذج tbl_kind بحيث لايدرج ارقام الصنف المعروضة في نموذج Frm_Monthexchange فقمت بوضع معيار في استعلام مربع مصدر الصف كما بالصورة ارجو المساعدة في تصفية جميع tbl.rar رابط هذا التعليق شارك More sharing options...
husamwahab قام بنشر فبراير 14, 2017 مشاركة قام بنشر فبراير 14, 2017 تفضل اخي العزيز tblH.rar رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر فبراير 14, 2017 الكاتب مشاركة قام بنشر فبراير 14, 2017 2 ساعات مضت, husamwahab said: تفضل اخي العزيز tblH.rar الله يعطيك العافية اخي الكريم هذه الطريقة تستوجب مني الذهاب الى الجدول tbl_kind و وضع وتأشير الحقل asd أو ان اقوم بتحديث الحقل coodkindexchange في النموذج Frm_Monthexchange علماً النموذج فقط لعرض السجلات ولن تتم عليه اي اجراءات ما اريده ان تكون التصفية مباشرة بمجرد فتح النموذج رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 14, 2017 مشاركة قام بنشر فبراير 14, 2017 السلام عليكم تفضل ياسيدي ، الارقام الموجودة في النموذج الفرعي على اليمين ، لن تظهر في مربع التحرير والسرد في النموذج الفرعي على اليسار كلما تقوم بتحديث الحقل coodkindexchange في النموذج Frm_Monthexchange ، فيقوم بعمل مصدر بيانات لمربع التحرير والسرد coodkind في النموذج الفرعي الآخر tbl_kind : Private Sub coodkindexchange_AfterUpdate() On Error GoTo err_coodkindexchange_AfterUpdate DoCmd.RunCommand acCmdSaveRecord Dim rst As DAO.Recordset mySQL = "SELECT id, coodkind, Namekind" mySQL = mySQL & " FROM tbl_kind " Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If i = 1 Then mySQL = mySQL & "WHERE coodkind <> " & rst!coodkindexchange Else mySQL = mySQL & " And coodkind <> " & rst!coodkindexchange End If rst.MoveNext Next i 'Debug.Print mySQL Forms!tabl!tbl_kind.Form!coodkind.RowSource = mySQL Forms!tabl!tbl_kind.Form!coodkind.Requery rst.Close: Set rst = Nothing Exit Sub err_coodkindexchange_AfterUpdate: If Err.Number = 2455 Then Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub Private Sub Form_Current() Call coodkindexchange_AfterUpdate 'Me.N00 = [Forms]![tabl]![Totail] - Me.Total3 End Sub جعفر 581.tbl.accdb.zip 2 رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر فبراير 14, 2017 الكاتب مشاركة قام بنشر فبراير 14, 2017 2 ساعات مضت, jjafferr said: جعفر 581.tbl.accdb.zip استاذي ابو موسى بعد تطبيق الكود على البرنامج عندي مع تغيير بعض المسميات ظهر عندي هذا الخطا رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 14, 2017 مشاركة قام بنشر فبراير 14, 2017 وعليكم السلام هذه الرسالة معناها انك لم تقم بنسخ هذا السطر الى برنامجك: err_coodkindexchange_AfterUpdate: والذي يأتي بعد Exit Sub (كما هو في الكود الذي وضعته انا اعلاه) جعفر 2 رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر فبراير 14, 2017 الكاتب مشاركة قام بنشر فبراير 14, 2017 11 دقائق مضت, jjafferr said: وعليكم السلام هذه الرسالة معناها انك لم تقم بنسخ هذا السطر الى برنامجك: err_coodkindexchange_AfterUpdate: والذي يأتي بعد Exit Sub (كما هو في الكود الذي وضعته انا اعلاه) جعفر ماشاء الله تبارك الله عليك نسخة الكود كان السبب ما غيرت فيه المسمى الى الحقل الجديد الله يرحم والديك رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 14, 2017 مشاركة قام بنشر فبراير 14, 2017 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان