هو كذا دوما في غالب طلباته مقصر في الشرح والايضاح ..
من شرحه الاخير اعتقد فهمت له
------------------------------------------------
استاذ عبدالقدوس لا يصلح تربط بين المفاتيح في الجدولين كعلاقة
تم تحقيق طلبك انظر المرفق
الحقل الذي اعتقد لا يمكن تكراره بين الاشخاص هو الرقم الخاص لذا اعتمدته في البحث والعد
Dim i1, i2 As Integer
Me.Form.Filter = "numt Like '" & textsearch & "'"
Me.Form.FilterOn = True
i1 = Nz(DCount("*", "tabl1", "numt = '" & textsearch & "'"), 0)
i2 = Nz(DCount("*", "tabl2", "numt = '" & textsearch & "'"), 0)
t1 = i1
t2 = i2
tt = i1 + i2
مثال2.rar