Mostafa Elmahmoudy

اكثر من رائع بارك الله فيك

مشكور استاذنا و معلمنا

بارك الله فيكم افادنى كثيراً

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

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

الطريقة دى ممتازة و انا باشكرك يا اخى

جرب الطريقة دى و بالتوفيق

جرب كدة المرة دى كان فى مشكلة فى النسخ و اللصق انشىء هذه الوحدة النمطية بإسم mod_Mouse_Wheel Public Function DoMouseWheel(frm As Form, lngCount As Long) As Integer On Error Resume Next Dim strMsg As String If (Val(SysCmd(acSysCmdAccessVer)) >= 12#) And (frm.CurrentView = 1) And (lngCount <> 0&) Then RunCommand acCmdSaveRecord RunCommand IIf(lngCount < 0&, acCmdRecordsGoToPrevious, acCmdRecordsGoToNext) DoMouseWheel = Sgn(lngCount) End If DoCmd.CancelEvent Response = False End Function ثم ضع هذا الكود فى التقرير على حدث on Mouse Wheel Call DoMouseWheel(Me, Count) و بالتوفيق انشاء الله

اين القاعدة

ربما معه مشكلة فى وضع الكود فى محرر الاكواد فهذه الطريقة اسهل قليلا بالنسبة للمبتدئين اللى مثلى

الاخ العزيز فى قائمة الـ PROPERTY SHEET حول الاختيار shortcut menu الى yes كما هو موضح بالصورة و بالتوفيق

خد الحل الاخ العزيز ابا جودى برجاء التكرم بفتح التليفون للتمكن من التواصل معك

جرب القاعدة دى بس لازم يكون الميل اللى هاتبعت منه Gmail و انشاء الله تكون هى اللى بتدور عليها بالتوفيق send mail.rar

انشىء هذه الوحدة النمطية بإسم mod_Mouse_Wheel Option Compare Database Public Function DoMouseWheel(frm As Form, lngCount As Long) As Integer On Error Resume Next Dim strMsg As String If (Val(SysCmd(acSysCmdAccessVer)) >= 12#) And (frm.CurrentView = 1) And (lngCount <> 0&) Then RunCommand acCmdSaveRecord RunCommand IIf(lngCount < 0&, acCmdRecordsGoToPrevious, acCmdRecordsGoToNext) DoMouseWheel = Sgn(lngCount) End If DoCmd.CancelEvent Response = False End Function ثم ضع هذا الكود فى التقرير على حدث on Mouse Wheel Private Sub Report_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) 'Call DoMouseWheel(Me, Count) End Sub و بالتوفيق انشاء الله

شكرا فكرة رائعة جداً