الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تعطيل مفتاح Tab وعجلة الماوس

مغلق
بدأه ArcKive في 23 أكتوبر 2007 · 16 رد · 4,789 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الأخوة الأعزاء السلام عليكم ورحمة الله

ماهو الكود اللازم لتعطيل مفتاح tab والذي يقوم بالتنقل بين سجلات الجدول في النموذج؟ وما هو كود تعطيل عجلة الماوس؟

علماً بأنني وجدت كود لذلك (لتعطيل العجلة) في هذا المنتدى قبل فترة الا انني وبعد تجربته انا ونفر من أعضاء هذا المنتدى لم يقم بتنفيذ المطلوب.

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

سبحان اللّه وبحمده... سبحان الله العظيم

--------------------------------------------------

لا إله إلا الله عدد خلقه ورضى نفسه وزنة عرشه ومداد كلماته.. ملء السماوات وملء الأرض وملء مابينهما

وملء ماشاء من بعده..عدد الحركات والسكنات وعدد ماكان ومالم يكُن.. عدد أيام

الدنيا وعدد صفق الشجر وعدد رمل عالج ومثل زبد البحر.. وإلى أن يـــشاء الله رب

العالميـــن.

--------------------------------------------------

اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك كما لم يحمدك أحد من خلقك

إلى يوم الدّيـــن

[يمين]--------------------------------------------------

[/يمين]

وَممّا زادني شرَفاً وتيهاً.... دُخولي تحت قولكَ ياعبَادي

وَكدتُ بأخمصي أطأ الثُّريّا.... وأن صيّرت أَحمدَ لي نَبيّا

#2

اخي العزيز اهلا بك من جديد، في هذا الرابط حل للاخت زهرة اتمنى ان يكون هو المطلوب، لكن من المهم التقيد بخطواته حتى تصل للمطلوب..

ايقاف عجلة الماوس..

بالنسبة لمفتاح Tab اظن لو بحثت في المنتدى ستجد الكثير حول الموضوع، ولكن اقترح ان تبدا اولا بخصائص النموذج، اذا كانت الخانات او الحقول (وليس السجلات) قليلة، فاستخدم خاصية (Tab Stop) اي ايقاف علامة الجدولة وغيرها الى No او لا..

قد يكون هناك كود لكن ساحاول البحث اكثر واطلب منك انت تبحث انت ايضا للاستفادة..

اخوكم همام ...

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#3

أخي العزيز المهندس/ أبو عرقــــوب

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

قمت بتجربة خاصية tab stop لجميع الحقول في نموذج ما ولكنها للأسف لم تنجح، وكذلك بحثت في خصائص النموذج ولم أجد شيئاً ذا صلة، ولكنني وكما اقترحت سأبحث بالمنتدى مرة أخرى ، فمفتاح tab كما تعلم يقوم بنفس وظيفة مفاتيح record selectors، ولكن بعد المرور بجميع عناصر التحكم الموجودة بالنموذج.

أما بخصوص تعطيل عجلة الماوس فإن الموضوع الموجود بالرابط لم أمرّ عليه من قبل حقيـــقةً بل مررت بآخر كما ذكرت وسأقوم بالتجربة وأوافيك بالنتيجة.

أكرمك الله وزادك علمــاً

سبحان اللّه وبحمده... سبحان الله العظيم

--------------------------------------------------

لا إله إلا الله عدد خلقه ورضى نفسه وزنة عرشه ومداد كلماته.. ملء السماوات وملء الأرض وملء مابينهما

وملء ماشاء من بعده..عدد الحركات والسكنات وعدد ماكان ومالم يكُن.. عدد أيام

الدنيا وعدد صفق الشجر وعدد رمل عالج ومثل زبد البحر.. وإلى أن يـــشاء الله رب

العالميـــن.

--------------------------------------------------

اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك كما لم يحمدك أحد من خلقك

إلى يوم الدّيـــن

[يمين]--------------------------------------------------

[/يمين]

وَممّا زادني شرَفاً وتيهاً.... دُخولي تحت قولكَ ياعبَادي

وَكدتُ بأخمصي أطأ الثُّريّا.... وأن صيّرت أَحمدَ لي نَبيّا

#4

السلام عليكم

يستخدم الزر Tab لتنفيذ حدث التحرك الي التالي من الحقول الي اخر حقل ومن ثم التحرك الي السجل التالي وهكذا الي اخر سجل

وذا قمت بتحديد سجل ثم الضغط المتتابع علي Tab سيتحرك عبر السجلات فقط الي السجل التالي.

لذلك اذا قمنا بإلغاء تنفيذ هذا الحدث عند امكانية استخدامه فلن يحدث اصلا وذلك باستخدام DoCmd.CancelEvent عند حدث KeyDown لجميع عناصر التحكم بالنموزج وكذلك النموزج نفسه .

مرفق مثال

بارك الله فيك مشرفنا همام وزادك علما

اخوكم فى الله

db2.rar

Microsoft Certified DataBase Administrator MCDBA

#5

الأخ ahamied السلام عليكم ورحمة الله.

فعلاً تم ايقاف المفتاح بنجاح بعد استخدام رقم الاسكي كود وبالتالي يمكن تعطيل اي مفتاح في لوحة المفاتيح كمفتاحي page up و page down الذان يقومان أيضاً بالتنقل بين السجلات بنفس الكود ولكن بعد تغيير رقم الاسكي للمفتاح المطلوب، اليـــس كذلـــك؟:

وهذا رابط لجدول الاسكي لمن يريد من الاخوة الاعضاء.

http://ascii-table.com/ascii.php

بارك الله فيك أخي ولا عدمتك أخاً عزيـــزاً

ArcKive

سبحان اللّه وبحمده... سبحان الله العظيم

--------------------------------------------------

لا إله إلا الله عدد خلقه ورضى نفسه وزنة عرشه ومداد كلماته.. ملء السماوات وملء الأرض وملء مابينهما

وملء ماشاء من بعده..عدد الحركات والسكنات وعدد ماكان ومالم يكُن.. عدد أيام

الدنيا وعدد صفق الشجر وعدد رمل عالج ومثل زبد البحر.. وإلى أن يـــشاء الله رب

العالميـــن.

--------------------------------------------------

اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك كما لم يحمدك أحد من خلقك

إلى يوم الدّيـــن

[يمين]--------------------------------------------------

[/يمين]

وَممّا زادني شرَفاً وتيهاً.... دُخولي تحت قولكَ ياعبَادي

وَكدتُ بأخمصي أطأ الثُّريّا.... وأن صيّرت أَحمدَ لي نَبيّا

#6

السلام عليكم

اخي الكريم بارك الله فيك علي الموقع الجميل ولكن عندنا فى المنتدي اجمل درس عن الاسكي

لاخونا الفاضل محمد فؤاد باشا /index.ph...=135939&hl=

اخوك فى الله

Microsoft Certified DataBase Administrator MCDBA

#7

أخي ahamied مرحباً بك من جديد..

والله فعلاً موضوع ضخم ووافي عن الآسكي والتشفير فجُزيـــتَ خيراً ولك منّــي الشكر والتقدير..

أخيـــك ArcKive

سبحان اللّه وبحمده... سبحان الله العظيم

--------------------------------------------------

لا إله إلا الله عدد خلقه ورضى نفسه وزنة عرشه ومداد كلماته.. ملء السماوات وملء الأرض وملء مابينهما

وملء ماشاء من بعده..عدد الحركات والسكنات وعدد ماكان ومالم يكُن.. عدد أيام

الدنيا وعدد صفق الشجر وعدد رمل عالج ومثل زبد البحر.. وإلى أن يـــشاء الله رب

العالميـــن.

--------------------------------------------------

اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك كما لم يحمدك أحد من خلقك

إلى يوم الدّيـــن

[يمين]--------------------------------------------------

[/يمين]

وَممّا زادني شرَفاً وتيهاً.... دُخولي تحت قولكَ ياعبَادي

وَكدتُ بأخمصي أطأ الثُّريّا.... وأن صيّرت أَحمدَ لي نَبيّا

#8

أخي ahamied

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

لي بعض الاستفسارات بخصوص مثالك المرفق أعلاه وهي كالآتـــي:

- عند تنفيذ الاجراء المعني بتعطيل عمل المفتاح tab عند الحدث KeyPressبدلاً عن KeyDown الموجود بمثالك لم يقم بالتنفيذ. لماذا؟ ثم مالفرق بين حدثي KeyDown و KeyPress ? الاجراء الذي اتحدث عنه موجود ادناه:

Private Sub txtUserName_KeyPress(KeyAscii As Integer)

If KeyAscii = 9 Then DoCmd.CancelEvent

End Sub

- الاستفسار الثاني : لم يلزم في المثال اعلاه انهاء جملة الــ if بــ end if، ولكن اذا تمت كتابة الحدث المشروط وهو DoCmd.Cancel في السطر التالي أي ليس في نفس سطر جملة الــ if فإن انهاء جملة الــ if بــ end if تصبح مطلوبة وذلك كما في المثال ادناه:

Private Sub txtUserName_KeyPress(KeyAscii As Integer)

If KeyAscii = 9 Then

DoCmd.CancelEvent

end if

End Sub

مالسبــــــب في ذلــــــك؟

- الاستفسار الأخير: مالفرق بين DoCmd.Cancel و Cancel = True ومتى يتم استخدام الثانية؟

بارك الله فيـــك وفي جميع الأخوة أعضاء ومشرفي المنتـــــدى وفي جميع أمّة نبيّنا محمد صلى الله عليه وسلم.

سبحان اللّه وبحمده... سبحان الله العظيم

--------------------------------------------------

لا إله إلا الله عدد خلقه ورضى نفسه وزنة عرشه ومداد كلماته.. ملء السماوات وملء الأرض وملء مابينهما

وملء ماشاء من بعده..عدد الحركات والسكنات وعدد ماكان ومالم يكُن.. عدد أيام

الدنيا وعدد صفق الشجر وعدد رمل عالج ومثل زبد البحر.. وإلى أن يـــشاء الله رب

العالميـــن.

--------------------------------------------------

اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك كما لم يحمدك أحد من خلقك

إلى يوم الدّيـــن

[يمين]--------------------------------------------------

[/يمين]

وَممّا زادني شرَفاً وتيهاً.... دُخولي تحت قولكَ ياعبَادي

وَكدتُ بأخمصي أطأ الثُّريّا.... وأن صيّرت أَحمدَ لي نَبيّا

#9

السلام عليكم اخي الكريم

الاستفسارات :

1-الفرق بين KeyPress و KeyDown

من تعريف مايكروسوفت للحدث KeyPress بنعرف الفرق

The KeyPress event occurs when a user presses and releases a key

يعني يتم هذا الحدث يحدث بعد الضغط ثم تحرير الزر ...... يعني لو قمت بالضغط علي انتر ولم تترك الزر لن يتم هذا الحدث

ومع الزر TAb يتم تنفيذ حدث التنقل بمجرد الضغط وقبل التحرير

اما KeyDown فتعريفه كالتالي :

The KeyDown event occurs when a user presses a key while a form or control has the focus

يعني الحدث يتم اثناء الضغط علي الزر وقبل الانتقال الي عنصر تحكم اخر.... هنا يعمل دور ال Tab

2- اذا كان الحدث بعد If حدث واحد فانت لا تحتاج الي تعدد اسطر IF وطالما ان جملة If بدأت وانتهت فى نفس السطر فان الفيجوال يفهم انتهاء IF

3-كل ما يأتي بعد DoCmd هو امر ... Command ---- اما cancel = True هنا cancel خاصية وليست امر

وفعلا انا لم استخدم cancel = true قبل كده .

اخوك فى الله

Microsoft Certified DataBase Administrator MCDBA

#10

أخي العزيز ahamied

السلام عليكم مجدّداً وأشكرك جزيل الشكر على ردك السريـــع

أي نعم، حــــدث keyPress لا يقوم بالتنفيذ الا بعد تحريــــر المفتاح، ولكن حتى بعد تحريره لا يقوم بتنفيذ المطلوب.!!!!

الاستفسار الأخير: أريد ايقاف عجلة الماوس بواسطة اعلان متغير من النوع CMouseWheel كما يلي:

Private WithEvents clsMouseWheel As CMouseWheel

وذلك في الجزء المُخصّص لإعلان المتغيرات General

ولكنه لا يظهر من ضمن قائمة انواع المتغيرات والتي تظهر تلقائياً بعد كلمة As والضغط على Space في لوحة المفاتيح.

قمتُ بتصحيح جميع الــ references من قائمة tools ظنّا مني أن احد المراجع مفقود.

فما السبب في رأيك؟؟

أكثرتُ من السؤال فبارك الله فيـــك على سعة صدرك

سبحان اللّه وبحمده... سبحان الله العظيم

--------------------------------------------------

لا إله إلا الله عدد خلقه ورضى نفسه وزنة عرشه ومداد كلماته.. ملء السماوات وملء الأرض وملء مابينهما

وملء ماشاء من بعده..عدد الحركات والسكنات وعدد ماكان ومالم يكُن.. عدد أيام

الدنيا وعدد صفق الشجر وعدد رمل عالج ومثل زبد البحر.. وإلى أن يـــشاء الله رب

العالميـــن.

--------------------------------------------------

اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك كما لم يحمدك أحد من خلقك

إلى يوم الدّيـــن

[يمين]--------------------------------------------------

[/يمين]

وَممّا زادني شرَفاً وتيهاً.... دُخولي تحت قولكَ ياعبَادي

وَكدتُ بأخمصي أطأ الثُّريّا.... وأن صيّرت أَحمدَ لي نَبيّا

#11

السلام عليكم اخي الكريم

1 - قبل تحرير زر ال tab يتم تنفيذ امر التحرك فمنطقي ان امر الحرك سيتم بعد الضغط.

2- ماذا تقصد بـ CMouseWheel او clsMouseWheel ؟؟

اخوك فى الله

Microsoft Certified DataBase Administrator MCDBA

#12

مرحباً بك عزيـــزي ahamied

الآن فهمت النقطة المُتعلّـــقة بالــ KeyPress.

أمّا الـ CMouseWheel فالموضوع متعلق بتعطيل عجلة الماوس، وإجراءاته كالآتي:

Option Compare Database

Option Explicit

Private WithEvents clsMouseWheel As CMouseWheel

..........................................................................

......

Private Sub Form_Load()

Set clsMouseWheel = New CMouseWheel

Set clsMouseWheel.Form = Me

clsMouseWheel.SubClassHookForm

End Sub

................................................................................

Private Sub Form_Close()

clsMouseWheel.SubClassUnHookForm

Set clsMouseWheel.Form = Nothing

Set clsMouseWheel = Nothing

End Sub

................................................................................

Private Sub clsMouseWheel_MouseWheel(Cancel As Integer)

MsgBox "You cant use the mouse wheel."

Cancel = True

End Sub

ولكن في الجزء المتعلق بالإعلان عن المتغير clsMouseWheel "وذلك في أول إجراء" لا يظهر لي من ضمن المتغيرات التي تظهر في قئمة المتغيرات. يعني زي لما تيجي تعلن عن متغير من النوع integer، مش لما تكتب مثلا dim z as integer تقوم تظهر لك قائمة من انواع المتغيرات تختار منها نوع المتغير المطلوب وفي هذه الحالة integer ثم تختاره من القائمة.. ولكن بالنسبة للمتغير المعلن عنه اعلاه وهو clsMouseWheel والذي مفترض أنه من النوع CMouseWheel فإن الــ CMouseWheel لا يظهر من ضمن قائمة المتغيرات والتي تظهر بعد كتابة كلمة As ثم مفتاح space. الموضوع برمّـــته مقتبس من موضوع مشابه للاستاذة زهرة وهو متعلق بذات الموضوع، وقد استفسرت على ذات الرابط حتى اتجنب فتح موضوع جديد مشابه له ولكن لم يتم الرد علــيّ..

للأسف لم اجد الرابط ولكن البرنامج المعني - الخاص بالاستاذة زهرة - في المرفقات.

أرجو أن أكون قد وفقت في ايصال استفساري وكثّر الله من أمثالك.

_________________.rar

سبحان اللّه وبحمده... سبحان الله العظيم

--------------------------------------------------

لا إله إلا الله عدد خلقه ورضى نفسه وزنة عرشه ومداد كلماته.. ملء السماوات وملء الأرض وملء مابينهما

وملء ماشاء من بعده..عدد الحركات والسكنات وعدد ماكان ومالم يكُن.. عدد أيام

الدنيا وعدد صفق الشجر وعدد رمل عالج ومثل زبد البحر.. وإلى أن يـــشاء الله رب

العالميـــن.

--------------------------------------------------

اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك كما لم يحمدك أحد من خلقك

إلى يوم الدّيـــن

[يمين]--------------------------------------------------

[/يمين]

وَممّا زادني شرَفاً وتيهاً.... دُخولي تحت قولكَ ياعبَادي

وَكدتُ بأخمصي أطأ الثُّريّا.... وأن صيّرت أَحمدَ لي نَبيّا

#13

اخي الفاضل أحمد

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

بارك الله فيك على هذا المجهود الطيب

اخي الفاضل ArcKive

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

بخصوص استفسارك عن احداث ايقاف عجلة الماوس فإنها في السابق كانت تتم بواسطة مكتبة خارجية DLL وتم الإستغناء عنها بوضع وحده نمطيه تدعى basSubClassWindow

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
	(ByVal hwnd As Long, _
	ByVal nIndex As Long, _
	ByVal dwNewLong As Long) As Long

Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" _
	(ByVal lpPrevWndFunc As Long, _
	 ByVal hwnd As Long, _
	 ByVal msg As Long, _
	 ByVal wParam As Long, _
	 ByVal lParam As Long) As Long


Public Const GWL_WNDPROC = -4
Public Const WM_MouseWheel = &H20A
Public lpPrevWndProc As Long
Public CMouse As CMouseWheel

Public Function WindowProc(ByVal hwnd As Long, _
	ByVal uMsg As Long, _
	ByVal wParam As Long, _
	ByVal lParam As Long) As Long
	Select Case uMsg
		Case WM_MouseWheel
			CMouse.FireMouseWheel
			If CMouse.MouseWheelCancel = False Then
				WindowProc = CallWindowProc(lpPrevWndProc, hwnd, uMsg, wParam, lParam)
			End If

		Case Else
		   WindowProc = CallWindowProc(lpPrevWndProc, hwnd, uMsg, wParam, lParam)
	End Select
End Function

ووحدة نمطية فرعيه من نوع Calss تدعى CMouseWheel

Private frm As Access.Form
Private intCancel As Integer
Public Event MouseWheel(Cancel As Integer)

Public Property Set Form(frmIn As Access.Form)
	Set frm = frmIn
End Property

Public Property Get MouseWheelCancel() As Integer
	MouseWheelCancel = intCancel
End Property

Public Sub SubClassHookForm()
	lpPrevWndProc = SetWindowLong(frm.hwnd, GWL_WNDPROC, AddressOf WindowProc)
	  Set CMouse = Me
   End Sub

Public Sub SubClassUnHookForm()
	Call SetWindowLong(frm.hwnd, GWL_WNDPROC, lpPrevWndProc)
End Sub

Public Sub FireMouseWheel()
	RaiseEvent MouseWheel(intCancel)
End Sub

فكما تلاحظ من التعليمات الموجوده في الأكواد ان هذه التعليمات خاصة بدوال API وليس لها علاقة بدوال برنامج الأكسيس لأنه يتم استدعاء عدة مقابض سواء لنافذة النموذج او أحداث الماوس في وقت معين عند تنفيذ اي اجراء والإجراء هنا هو تحريك عجلة الماوس ثم يتم استدعاء هذه الوحدات من خلال النموذج عند حدث التحميل وعند حدث الإغلاق بهذه الطريقة

1. يتم استدعاء حدث الماوس في بداية تصريحات النموذج

Private WithEvents clsMouseWheel As CMouseWheel

لو تلاحظ هنا اننا استدعينا الوحدة النمطية الفرعية CMouseWheel التي من نوع Class عند الأحداث

2. عند حدث التحميل للنموذج نضع هذا الكود

Private Sub Form_Load()
	Set clsMouseWheel = New CMouseWheel
	Set clsMouseWheel.Form = Me
	clsMouseWheel.SubClassHookForm
End Sub

في هذا الكود نجد ان السطر الأول منه نطلب منه ان يتم وضع اجراء الوحدة النمطية clsMouseWheel مساوية لحدث جديد عند تحريك عجلة الماوس

وفي السطر الثاني نطلب منه ان يضع ايضا اجراء الوحدة النمطية clsMouseWheel الخاصة بالنموذج form مساويا لأسم النموذج الخاص بنا فصرحنا عنه بـ ME

واخيرا يتم استدعاء مقبض النموذج وفي هذه اللحظة تم احكام السيطرة على عجلة الماوس في النموذج فلا يتم تحريكها وإن تم تحريك عجلة الماوس فسيتم تفجير الحدث FireMouseWheel والذي منه تظهر الرسالة التي تخبرك بعدم امكانية تحريك الماوس .

طبعا لن نجعل الماوس معلقة بهذا الشكل فلابد لنا من انهاء هذه العملية وذلك من خلال حدث عند اغلاق النموذج وبذلك يتم تحرير الماوس وتستطيع استخدامها في مكان آخر من البرنامج ولهذا سيكون شكل الكود عند الإغلاق بهذا الشكل

Private Sub Form_Close()
	clsMouseWheel.SubClassUnHookForm
	Set clsMouseWheel.Form = Nothing
	Set clsMouseWheel = Nothing
End Sub

تذكر جيدا انه عند استخدام دوال الـ API وهي الخاصة بإتصال مكونات الكمبيوتر بالكود والتحكم بها برمجيا فإنك لا تتعامل معها كباقي دوال الأكسيس الجاهزة في الـ VBA لأن دوال API يتم كتابتها يدويا وليست من ضمن دوال الـ VBA

#14

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

MouseWheel

اقتباس
Prevent Use of the Mouse Wheel to Scroll Through Records in a Form

BlockInput

اقتباس
The BlockInput function blocks keyboard and mouse input events from reaching applications.

#15

بارك الله فيك اخي بن العيد

نعم هذه الطريقة المستخدمه بواسطة مكتبة ActiveX DLL عن طريق الفيجول بيسك 6 بحيث يتم جمع اكواد basSubClassWindow.bas, CMouseWheel.cls, and MouseWheel.vbp في ملف واحد MouseWheel.dll ولكن هذه الطريقة لاقت صعوبات من قبل المستخدمين حيث انه لزاما عليهم ان يقوموا بإرفاق الملف وبتسجيل المكتبة MouseWheel.dll اولا في الـ System32 ومن ثم استدعاؤه بالكود ولهذا اختصرنا عليهم كل هذه الإجراءات وقمنا بوضعها مباشرة في محرر الفيجول بيسك للتطبيقات الخاص بالأكسيس VBA مباشرة وبدون الحاجة الى اي ملف خارجي .

#16

بسم الله الرحمن الرحيم

بارك الله فيكم اخواني

#17

الأخت الفاضلة/ زهرة

الأخ الفاضل/ ahamied

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

بعد إنشاء الوحدة النمطية الأولى المُســــمّاة بــ basSubClassWindow وإنشاء الوحدة النمطية الثانية والتي من النوع class وهي CMouseWheel وبعد استدعاء حدث الماوس في بداية تصريحات النموذج وبعد وضع الكود اللازم في حدثي تحميل النموذج وإغلاقه وبكل أسف لم تتوقف عجلة الماوس من التحرك جيـــــئةً وذهاباً بين سجلات النموذج. قمتُ بكل ماسبق ذكره في النموذج الرئيسي للبرنامج اعتقادا منّي أنّه ينطبق عليــــه وعلـــى بقية النماذج، ولمزيد من التأكد قمت باستدعاء حدث الماوس وكتابة الكود اللازم في حدثي التحميل والاغلاق في نموذج فرعي آخر اسمه frmCirculation ولم تتوقف العجلة كذلك.

وهل يكفي القيام بما ذكر في النموذج الرئيسي فقط ليشمل بقية النماذج بالبرنامج أم القيام بذلك لكل نموذج على حدة؟

على العموم قمـــــتُ برفع قاعدة البيانات خاصّتــــي والمُتَحدّث عنها أعلاه في المرفقات حتى يتسنّى لكم مشكورين ومُقدّرةٌ جهودكم بالإطّلاع عليــــها، وهي - أي القاعدة - عبارة عن تصور أولي لنظام مخزون أحبار طابعات تحت التجربة لمدة شهر انقضى منه حوالي ثلاثة أسابيع ولم تظهر به أي مشاكل والحمد لله ماعدا مشكلة عجلة الماوس، فور انتهاء الفترة التجريبيـــة سأقوم برفعه للمنتدى وذلك إن كان في العمـــر بقيــــــّة.

Inkjet.rar

سبحان اللّه وبحمده... سبحان الله العظيم

--------------------------------------------------

لا إله إلا الله عدد خلقه ورضى نفسه وزنة عرشه ومداد كلماته.. ملء السماوات وملء الأرض وملء مابينهما

وملء ماشاء من بعده..عدد الحركات والسكنات وعدد ماكان ومالم يكُن.. عدد أيام

الدنيا وعدد صفق الشجر وعدد رمل عالج ومثل زبد البحر.. وإلى أن يـــشاء الله رب

العالميـــن.

--------------------------------------------------

اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك كما لم يحمدك أحد من خلقك

إلى يوم الدّيـــن

[يمين]--------------------------------------------------

[/يمين]

وَممّا زادني شرَفاً وتيهاً.... دُخولي تحت قولكَ ياعبَادي

وَكدتُ بأخمصي أطأ الثُّريّا.... وأن صيّرت أَحمدَ لي نَبيّا

هذا الموضوع مغلق.

مواضيع مشابهة