تنبيه بعدم وجود سجل معين _ البحث في جدولين

[figo82eg]

ما اريده هو عند البحث عن عميل موجود بنموذج العملاء الحالين وغير موجود رقمه وموجود بنموذج العملاء السابقين تظهر رساله تتنبيه تفيد بأن رقم العميل غير موجود بالعملاء الحالين ولكن موجود بالعملاء السابقين            مثال العميل رقم 3 عند البحث عنه نجد انه غير موجود بالعملاء الحالين ولكن موجود بالعملاء السابقين  اريد ان تظهر رساله تفيد بأن العميل غير موجود بالحاليين ولكن موجود بالسابقين

ومرفق مثال توضيحى

New تطبيق Microsoft Office Access.rar

[ابوخليل]

تفضل

رسالة بثلاث احتمالات

Dim rs As DAO.Recordset
Dim rst As DAO.Recordset
Dim i, ii As Integer
Dim r As Boolean
Dim rr As Boolean
  Set rs = CurrentDb.OpenRecordset("data")
  Set rst = CurrentDb.OpenRecordset("out")
  rs.MoveLast
  rs.MoveFirst
 For i = 1 To rs.RecordCount
r = Nz(DLookup("crn", "data", "name1 ='" & Me.txtsearch & "'"), 0)
Next i
rst.MoveLast
  rst.MoveFirst
For ii = 1 To rst.RecordCount
rr = Nz(DLookup("crn", "out", "name1 ='" & Me.txtsearch & "'"), 0)
Next ii
If r = True And rr = True Then
MsgBox "العميل موجود ضمن الحاليين والسابقين"
ElseIf r = True And rr = False Then
MsgBox "العميل موجود ضمن الحاليين فقط"
ElseIf r = False And rr = True Then
MsgBox "العميل موجود ضمن السابقين فقط"
End If
Set rs = Nothing
Set rst = Nothing

 

البحث في جدولين.mdb

[figo82eg]

جزاك الله كل خير وجعله فى ميزان حسناتك وهو المطلوب فعلاً

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

[عاشق الرقي]

منذ ساعه, kanory said:

يا ملك يا أستاذنا ابوخليل

 

ماشاء الله تبارك الله مبدع وقليل في حقك 

 

[ابوخليل]

شكرا لك يا عاشق الرقي      وقريبا  ان شاء الله نراك من الخبراء المحترفين 

14 ساعات مضت, figo82eg said:

 فهل من حل لهذا المشكلة 

تفضل البحث يتم بسرعة فائقة

Dim rs As DAO.Recordset
Dim rst As DAO.Recordset
Dim r As Boolean
Dim rr As Boolean
On Error Resume Next
Set rs = CurrentDb.OpenRecordset("SELECT data.crn FROM data WHERE (((data.name1)=meyar()))")
Set rst = CurrentDb.OpenRecordset("SELECT out.crn FROM out WHERE (((out.name1)=meyar()))")
r = rs!crn
rr = rst!crn
MsgBox r & "-" & rr
If r = True And rr = True Then
MsgBox "العميل موجود ضمن الحاليين والسابقين"
ElseIf r = True And rr = False Then
MsgBox "العميل موجود ضمن الحاليين فقط"
ElseIf r = False And rr = True Then
MsgBox "العميل موجود ضمن السابقين فقط"
End If
rs.Close: Set rs = Nothing
rst.Close: Set rst = Nothing
End Sub

لاحظ وجود دالة في الوحدة النمطية العامة 

البحث في جدولين(select).mdb

[figo82eg]

جزاك الله عنا خير أخى الكريم أبو خليل وهو المطلوب