برجاء الاهتمام برنامج للشقق الفندقية

ابوساس كتب:

السلام عليكم ورحمة الله وبركاته

بعد التحية برجاء الاهتمام

هذا المرفق يحتوي علي جزء من برنامج لادارة غرف مفروشة , حيث يوجد تاريخ بداية العقد ونهاية العقد فالمراد هو ان لا نسمح ان تأجر الشقة مرتين خلال نفس الفترة من بداية العقد حتي نهاية العقد واذا حدث تظهر رسالة تجبر المستخدم لتغير التاريخ او تخطره بتغير التاريخ ،

توضيح اكثر يمكن للشقة الواحدة ان تأجر اكثر من مرة في تواريخ مختلفة تجربة.zip

الله يبارك فيكم محدش لسه رد عليا لو سمحتم يأهل الخبرة دلوني بسرعة

تفضل اخى

التعديل المطلوب

تم تعديل اسماء الحقول و الالجداول الى الانجليزية

Private Sub datecome_AfterUpdate()
If Len(Nz(Me.datecome, "")) = 0 Then Exit Sub
Dim m
m = DCount("id", "3okod", "datecome <=#" & Me.datecome & "# and datego >=#" & Me.datecome & "# and shaka_no =" & Me.shaka_no)
If m > 0 Then
MsgBox "ãÍÌæÒÉ"
Me.datego.SetFocus
Me.datecome.SetFocus
Me.datecome = ""
End If

End Sub

Private Sub datego_AfterUpdate()
If Len(Nz(Me.datego, "")) = 0 Then Exit Sub
Dim m
m = DCount("id", "3okod", "datecome <=#" & Me.datego & "# and datego >=#" & Me.datego & "# and shaka_no =" & Me.shaka_no)
If m > 0 Then
MsgBox "ãÍÌæÒÉ"
Me.datecome.SetFocus
Me.datego.SetFocus
Me.datego = ""
End If

End Sub

Private Sub datego_GotFocus()
If Len(Nz(Me.datecome, "")) = 0 Then Me.datecome.SetFocus

End Sub

تجربة.rar

الله يبارك فيك , فعلا انت راجل محترم جدا ، وكنت واثق ان حضرتك الي هتجواب عليها وان شاء الله كدا شوية والبرنامج يكون خلص ، شكرا ليك الاستاذ الفاضل (mrnooo2000)