jjafferr قام بنشر أبريل 5, 2016 قام بنشر أبريل 5, 2016 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 جعفر 2
كرار صبري _ أبو جنى قام بنشر أبريل 5, 2016 قام بنشر أبريل 5, 2016 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.