تصفية مربع تحرير وسرد في نموذج فرعي

[kaser906]

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

بالمرفق مثال

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

ويضم النموذج الفرعي 

Frm_Monthexchange

والنموذج الفرعي tbl_kind

اريد تصفية مربع التحرير والسرد في النموذج tbl_kind

بحيث لايدرج ارقام الصنف المعروضة في نموذج Frm_Monthexchange

فقمت بوضع معيار في استعلام مربع مصدر الصف كما بالصورة

ارجو المساعدة في تصفية جميع

tbl.rar

[husamwahab]

تفضل اخي العزيز

 

tblH.rar

[kaser906]

2 ساعات مضت, husamwahab said:

تفضل اخي العزيز

 

tblH.rar

الله  يعطيك العافية

اخي الكريم هذه الطريقة تستوجب مني الذهاب الى الجدول tbl_kind و وضع  وتأشير الحقل asd 

أو ان اقوم بتحديث الحقل coodkindexchange في النموذج Frm_Monthexchange

علماً النموذج فقط لعرض السجلات ولن تتم عليه اي اجراءات

ما اريده ان  تكون التصفية مباشرة بمجرد فتح النموذج

[jjafferr]

السلام عليكم

 

تفضل ياسيدي ، الارقام الموجودة في النموذج الفرعي على اليمين ، لن تظهر في مربع التحرير والسرد في النموذج الفرعي على اليسار

 

كلما تقوم بتحديث الحقل 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

[kaser906]

2 ساعات مضت, jjafferr said:

جعفر

581.tbl.accdb.zip

استاذي ابو موسى

بعد تطبيق  الكود على البرنامج عندي مع تغيير بعض المسميات  ظهر عندي هذا الخطا

[jjafferr]

وعليكم السلام

 

هذه الرسالة معناها انك لم تقم بنسخ هذا السطر الى برنامجك:

err_coodkindexchange_AfterUpdate:

 

والذي يأتي بعد Exit Sub (كما هو في الكود الذي وضعته انا اعلاه)

 

جعفر

[kaser906]

11 دقائق مضت, jjafferr said:

وعليكم السلام

 

هذه الرسالة معناها انك لم تقم بنسخ هذا السطر الى برنامجك:

err_coodkindexchange_AfterUpdate:

 

والذي يأتي بعد Exit Sub (كما هو في الكود الذي وضعته انا اعلاه)

 

جعفر

ماشاء الله تبارك الله  عليك

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

الله يرحم والديك

[jjafferr]