التنقل بالسجلات عند تحريك عجلة الماوس

[mr steev]

السلام عليكم

قاعدة البيانات المرفقة هي عبارة عن أجندة يومية

المطلوب عند تحريك عجلة الماوس التنقل بالصفحات لقد قمت بوضع الكود المناسب 

لكن لدي مشكلة هي عملية البحث عن السجلات المرتبطة بتاريخ اليوم المراد عرض الأحداث (العمليات) فيه

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

 

 

 

 

Memo Calendar.mdb

تم تعديل فبراير 10, 2019 بواسطه mr steev

[mr steev]

لا تنسونا

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

تم تعديل فبراير 10, 2019 بواسطه mr steev

[عبد الله قدور]

السلام عليكم

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

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

 

[mr steev]

شكرا لمحاولتك أستاذ عبد الله قدور

في قاعدة البيانات لدي التنقل بالسجلات هو من نوع آخر السجلات ليست سجلات متتالية إنما التنقل سيكون حسب التاريخ

لذلك عند تجربة الكود المكتوب من قبلك على قاعدة البيانات لدي لم تنجح فكرته في هذه القاعده

نأمل من الأعضاء مشاركتنا في حل هذه المسألة

[mr steev]

السلام عليكم

أليس هناك من يساعدنا وجزاكم الله عنا خيرا

[mr steev]

السلام عليكم

أليس هناك إجابة لهذا اليوم؟

[mr steev]

السلام عليكم

أتوقع أني قمت بحل المسألة والحمد لله

ما رأي الخبراء بهذا الكود

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