تعارض الدورات التدريبية

للرفع رفع الله من قدره ...

للرفع رفع الله من قدركم ...

جرب هذا الاستعلام أخى الكريم

SELECT Q.id, Q.txtnam, Q.txtname2, Q.txtin, Q.txtmd, Q.txtdatef, Q.txtdatet, Q.txtnote
FROM [SELECT t_1.id, t_1.txtnam, t_1.txtname2, t_1.txtin, t_1.txtmd, t_1.txtdatef, t_1.txtdatet, t_1.txtnote FROM t_1 WHERE (((t_1.txtnam)=[forms]![f_1].[txtnam]))]. AS Q
WHERE (((Q.txtdatef)<=[forms]![f_1].[txtdatef]) AND ((Q.txtdatet)>=[forms]![f_1].[txtdatef])) OR (((Q.txtdatef)<=[forms]![f_1].[txtdatet]) AND ((Q.txtdatet)>=[forms]![f_1].[txtdatet])) OR (((Q.txtdatef)>=[forms]![f_1].[txtdatef]) AND ((Q.txtdatet)<=[forms]![f_1].[txtdatet]));

و هذه دالة كتبتها سريعا تؤدى نفس الغرض

يمكنك أن تجربها

Public Function Dawrah(EMPNAME As String, STARTDATE As Date, modah As Double) As Boolean

Dim STRSQL As String, ENDATE As Date
Dim RS As Recordset
ENDATE = DateAdd("D", modah - 1, STARTDATE)

STRSQL = "SELECT Q.* FROM (SELECT t_1.* FROM t_1 WHERE (((t_1.txtnam)='" & EMPNAME & "'))) AS Q " & _
"WHERE (((Q.txtdatef)<=#" & STARTDATE & "#) AND ((Q.txtdatet)>=#" & STARTDATE & "#)) " & _
"OR (((Q.txtdatef)<=#" & ENDATE & "#) AND ((Q.txtdatet)>=#" & ENDATE & "#)) " & _
"OR (((Q.txtdatef)>=#" & STARTDATE & "#) AND ((Q.txtdatet)<=#" & ENDATE & "#));"

Set RS = CurrentDb.OpenRecordset(STRSQL)
If RS.RecordCount > 0 Then
Dawrah = True
Else
Dawrah = False
End If

End Function

و لاستخدامها

If Dawrah(Me.txtnam, Me.txtdatef, Nz(Me.txtmd, 0)) Then
MsgBox "XXXXXX"
End If

اخي الكريم ابو يوسف .. شكرا لكن .. لم يعمل كما ينبغي ...

أنا عدلت المثال اختصارا ... وهذه صورة شرح للمطلوب ...

دورة دورات تدريب بين تاريخين2.rar

جرب اخى هذا التعديل

دورة دورات تدريب بين تاريخين.rar

أحسنت أخي الكريم ..

أنا توصلت على ما أعتقد إلى حل بطريقة أخرى .. شوف المثال وأفدني كرما على طريقتي صحيحة .

دورة دورات تدريب بين تاريخين3.rar

الشروط الموضوعة فى الدالة

لن تعطيك كل النتائج أخى

ممكن تشرح لي كيف لا تعطيني كل النتائج ؟

هذا هو كودك أخى

If DCount("[id]", "[t_1]", "[txtname]=[forms]![f_1]![txtname1] and [txtdatef]<=[forms]![f_1]![txtdatef] AND [txtdatet]>=[forms]![f_1]![txtdatef]") > 0 Then

الجزء الاول للاسم ليس به مشكلة

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

الجزء الثالث لتاريخ النهاية و به نفس المشكلة

لو لاحظت مثالى السابق ستجد اننى وضعت 3 احتمالات بالاستعلام حتى لا نستبعد اى نتائج موجودة

أصبح الأمر واضحا ..

بارك الله فيك وفي علمك ونفع الله بك ..

ولا أملك لك إلا الدعاء في ظهر الغيب .

جزاكم الله خيرااااااااا

اخوانى الافاضل وبارك الله لكم