فتح النموذج المحدد

[jjafferr]

9 ساعات مضت, كرار صبري _ أبو جنى said:

 

يعني ( اين الخطأ في هذا الكود )

If DCount("*", "Table1", "[id]=" & Me![List0].Column(1) And "[namee]=" & Me![List0].Column(2)) > 0 Then

و اذا كان id متشابه للجداول الثلاثة ... 

 

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

 

الخطأ في الكود انك عاملت الحقل namee على اساس انه رقم ، بينما هو نص  

فيصبح الكود:

If DCount("*", "Table1", "[id]=" & Me![List0].Column(1) & " And [namee]='" & Me![List0].Column(2) & "'") >  Then

 

وفي نفس الوقت كانت هناك مشكله في مكان العلامة " للمعيار

لذا انا دائما اقسم الكود اى مجموعة اسطر ، سطر لكل معيار ، عليه هكذا تكون الاسطر:

A = "[id]=" & Me![List0].Column(1)
A = A & " And [namee]='" & Me![List0].Column(2) & "'"
 
If DCount("*", "Table1", A) >  Then

 

جعفر

[كرار صبري _ أبو جنى]

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

الخطأ في الكود انك عاملت الحقل namee على اساس انه رقم ، بينما هو نص  

دائما تفوتني هذه النقطة ... 

فيصبح الكود : 

Private Sub List0_DblClick(Cancel As Integer)
If DCount("*", "Table1", "[id]=" & Me![List0].Column(1) & " And [namee]='" & Me![List0].Column(2) & "'") > 0 Then
        DoCmd.OpenForm "Table1", , , "[id]=" & Me![List0].Column(1)
 
    ElseIf DCount("*", "Table11", "[id]=" & Me![List0].Column(1) & " And [namee]='" & Me![List0].Column(2) & "'") > 0 Then
        DoCmd.OpenForm "Table11", , , "[id]=" & Me![List0].Column(1)
        
    ElseIf DCount("*", "Table12", "[id]=" & Me![List0].Column(1) & " And [namee]='" & Me![List0].Column(2) & "'") > 0 Then
        DoCmd.OpenForm "Table12", , , "[id]=" & Me![List0].Column(1)
        
    End If
End Sub

 

[jjafferr]