mr steev قام بنشر فبراير 10, 2019 مشاركة قام بنشر فبراير 10, 2019 (معدل) السلام عليكم قاعدة البيانات المرفقة هي عبارة عن أجندة يومية المطلوب عند تحريك عجلة الماوس التنقل بالصفحات لقد قمت بوضع الكود المناسب لكن لدي مشكلة هي عملية البحث عن السجلات المرتبطة بتاريخ اليوم المراد عرض الأحداث (العمليات) فيه المطلوب تصحيح الكود ليصبح مناسبا عندما أقوم بتحريك عجلة الماوس للأعلى والأسفل Memo Calendar.mdb تم تعديل فبراير 10, 2019 بواسطه mr steev رابط هذا التعليق شارك More sharing options...
mr steev قام بنشر فبراير 10, 2019 الكاتب مشاركة قام بنشر فبراير 10, 2019 (معدل) لا تنسونا جزاكم الله خيرا تم تعديل فبراير 10, 2019 بواسطه mr steev رابط هذا التعليق شارك More sharing options...
عبد الله قدور قام بنشر فبراير 11, 2019 مشاركة قام بنشر فبراير 11, 2019 السلام عليكم قمت بتجربة سريعة فوصلت الى هذا الكود ينتقل الى السجل السابق فقط Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) Count = 1 If Page = True Then DoCmd.GoToRecord , , acNext ElseIf Page = False Then DoCmd.GoToRecord , , acPrevious End If End Sub رابط هذا التعليق شارك More sharing options...
mr steev قام بنشر فبراير 11, 2019 الكاتب مشاركة قام بنشر فبراير 11, 2019 شكرا لمحاولتك أستاذ عبد الله قدور في قاعدة البيانات لدي التنقل بالسجلات هو من نوع آخر السجلات ليست سجلات متتالية إنما التنقل سيكون حسب التاريخ لذلك عند تجربة الكود المكتوب من قبلك على قاعدة البيانات لدي لم تنجح فكرته في هذه القاعده نأمل من الأعضاء مشاركتنا في حل هذه المسألة رابط هذا التعليق شارك More sharing options...
mr steev قام بنشر فبراير 11, 2019 الكاتب مشاركة قام بنشر فبراير 11, 2019 السلام عليكم أليس هناك من يساعدنا وجزاكم الله عنا خيرا رابط هذا التعليق شارك More sharing options...
mr steev قام بنشر فبراير 12, 2019 الكاتب مشاركة قام بنشر فبراير 12, 2019 السلام عليكم أليس هناك إجابة لهذا اليوم؟ رابط هذا التعليق شارك More sharing options...
mr steev قام بنشر فبراير 13, 2019 الكاتب مشاركة قام بنشر فبراير 13, 2019 السلام عليكم أتوقع أني قمت بحل المسألة والحمد لله ما رأي الخبراء بهذا الكود Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) On Error GoTo Err_Form_MouseWheel If Not Me.Dirty Then If (Count < 0) Then Me.txtDate = DateAdd("d", -1, Me.txtDate) Dim StrSQL As String StrSQL = "SELECT * FROM tblAgenda WHERE (((DayDate)=Forms![frmCalendarMain]![txtDate]))" Me.Form.RecordSource = StrSQL ElseIf (Count > 0) Then Me.txtDate = DateAdd("d", 1, Me.txtDate) SendKeys "{F5}" End If Else MsgBox "The record has changed. Save the current record before moving to another record." End If Exit_Form_MouseWheel: Exit Sub Err_Form_MouseWheel: MsgBox Err.Description Resume Exit_Form_MouseWheel End Sub Memo Calendar.mdb رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان