figo82eg قام بنشر يونيو 4 مشاركة قام بنشر يونيو 4 ارجو من حضرتكم المساعدة حيث لدى قاعدة بيانات استخدم هذا الكود لتشغيل عجلة الماوس ولكن يقابلنى مشكلة هى عند تحديث اى بيانات على السجل وعند استخدام عجلة الماوس للأمام وللخلف لا يقوم البرنامج بحفظ اى تعديل ولابد من الضغط على زر حفظ . مع اننى كنت استخدم قاعدة البيانات على اوفيس ٢٠٠٣ وعند تحديث اى بيانات على السجل اقوم بتحريك عجلة الماوس يحفظ السجل والكود هو : If (Count < 0) And (Me.CurrentRecord > 1) Then DoCmd.GoToRecord , , acPrevious ElseIf (Count > 0) And (Me.CurrentRecord <= Me.Recordset.RecordCount) Then DoCmd.GoToRecord , , acNext End if فهل هناك حل رابط هذا التعليق شارك More sharing options...
أفضل إجابة M.Abd Allah قام بنشر يونيو 4 أفضل إجابة مشاركة قام بنشر يونيو 4 وعليكم السلام ورحمه الله وبركاته اخي جرب الكود ده وقولي النتيجه Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) On Error GoTo ErrorHandler ' حفظ السجل الحالي قبل التنقل إلى السجل التالي أو السابق If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord End If ' التنقل بين السجلات باستخدام عجلة الماوس If (Count < 0) And (Me.CurrentRecord > 1) Then DoCmd.GoToRecord , , acPrevious ElseIf (Count > 0) And (Me.CurrentRecord < Me.Recordset.RecordCount) Then DoCmd.GoToRecord , , acNext End If Exit Sub ErrorHandler: MsgBox "An error occurred: " & Err.Description, vbCritical End Sub رابط هذا التعليق شارك More sharing options...
figo82eg قام بنشر يونيو 5 الكاتب مشاركة قام بنشر يونيو 5 بارك الله فيك وجعل علمك فى ميزان حسناتك هو المطلوب 1 رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 5 مشاركة قام بنشر يونيو 5 الله امين وإياكم تحت امرك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان