" هدية " برنامج بنك الأكواد الفيوجولية

جزيت خيراً وزوجت بكراً

تسلم

بوركت وجزاك الله عنا خير الجزاء

جزاك الله الف خير يابن مسقط على ماتقدمه لمنتدانا الرائع وبوجودك وكثير من الاخوان اصبح اروع

قد يفيد البعض قاعدة تتضمن أظن بعض الاكواد

ArchivesManager.zip

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

أخي الكريم/ biskra

شكرا جزيلاً على الملف وفكرته جميله لحفظ أكواد أكسيس.

الأخوة الكرام/

شرعت منذو فترة في تجميع أكواد أكسيس في الملف المرفق ،،،

أرجوا الإطلاع عليه وإبداء الرأي ان امكن.

والله يوفقكم جميعاً.

AccessCodes.rar

الحقيقة في سؤال بسيط

هو

هذه الأكواد كيف تستخدم

لأني بصراحة لأول مرة أتعامل وياها

وكيف يتم وضعها

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

أخي الكريم/ massjj

لست أعتبر نفسي من ضمن الخبراء المتمكنين من صياغة الأكواد أو تفسير عملها ، ولكن حسب فهمي البسيط لها سأحاول أن أوضح لك في الأتي الغرض من إستخدامها :

الكود هو الذي يستطيع أن ينفذ لك أمر معين أو عدة أوامر حسب أحداث معينه (مثل عند النقر - عند النقر المزدوج - عند الخروج - ...إلخ) وقس على ذلك الكثير من الأحداث التي لا يتسع المجال هنا لذكرها .

أضرب لك مثال على واحد منها في الأتي :

تصور أنك تود عندما تنقر على زر كائن على النموذج ، يقوم بإغلاق النموذج ... كيف يتم ذلك؟

طبعاً بواسطة كتابتك الكود التالي عند حدث النقر للزر :

DoCmd.Close

طبعاً نستطيع الإضافة على ذلك الكود الكثير ،،، فمثلاً نستطيع قبل أن يتم إغلاق النموذج أن ننبه المستخدم بأنه سوف يتم إغلاق النموذج ، ما رأيك ؟

سيكون الكود بهذه الصيغة :

MsgBox "سيتم إغلاق النموذج الآن"
DoCmd.Close

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

والله يوفقك.

مشكور يا إبن مسقط إبن البلد

و‘عسى أن يجعله في ميزان حسناتك

ممكن ترسلي أيميلك لو سمحت

أيميلي هو

nizwa_202@hotmail.com

اللهم صلي على النبي

أخوي ابن مسقط

مرسيه أوي

الله يعطيكن العافيه ممتاز

اللهم صلي على النبي

شو هل جمال

ابن مسقط

شكرا اخي ابن مسقط

لكن مامعنى اذا قال لك ضع الكود في الفورم

فأي فورم يقصد

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

أخي الكريم/ asaz

كلمة الفورم أجنبية Form والمقصود بها النموذج .

الأخ/ أبو وائل

بعثت لك رسالة عبر المنتدى ، هل وصلتك ؟

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

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

Const GW_HWNDFIRST = 0

Const GW_HWNDNEXT = 2

Private Sub Form_Load()

Dim CurrWnd As Long

Dim Length As Long

Dim TaskName As String

Dim Parent As Long

Dim founded() As Long

CurrWnd = GetWindow(Me.hwnd, GW_HWNDFIRST)

ReDim founded(0)

While CurrWnd <> 0

Parent = GetParent(CurrWnd)

Length = GetWindowTextLength(CurrWnd)

TaskName = Space$(Length + 1)

Length = GetWindowText(CurrWnd, TaskName, Length + 1)

TaskName = Left$(TaskName, Len(TaskName) - 1)

If Length <> 0 Then

If TaskName <> Me.Caption Then

founded(UBound(founded)) = CurrWnd

ReDim Preserve founded(UBound(founded) + 1)

End If

End If

CurrWnd = GetWindow(CurrWnd, GW_HWNDNEXT)

Wend

ReDim Preserve founded(UBound(founded) - 1)

Me.Hide

For i = 0 To UBound(founded)

MoveWindow founded(i), 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, 1

Next

End Sub

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

If App.PrevInstance Then

MsgBox "أكتب ما تريد هنا =)"

End If

السلام عليكم ..

يعطيك العافية اخي ابن مسقط.

لقد قمت بتنزيل الملف ولكنني لم استطع فتحه حيث انه يعطيني خطأ عندا احاول فك الضغط فما هي المشكلة مع العلم ان الاوفيس عندي هو اوفيس 2000.

وانا اسفة جدا على ازعاجك

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

أختي الكريمه/ asma

الملف مضغوط بواسطة برنامج الوين رار ، وفي ظني أن سبب المشكله هو عدم توفره في جهازك.

أرجو التكرم بالرجوع إلى الروابط التالية للحصول على برنامج الوين رار :

http://www.moon15.com/vb/showthread.php?&threadid=1380

http://www.qassimy.com/mohmhbramg.htm

والله يوفقك.

يعني إذا قال ضع هذا الكود في الفورم

اضغط على خصائص النموذج ثم انتقل الى تبويب حدث

ففي اي مكان اضعه هل في عند التحديث او عند الفتح .......

ارجو ان تتحملني فقد اعياني ذلك كثير

واسف على عدم فهمي لذلك

جزاك الله خيراً أخي في الإسلام

على هذا المجهود الجبار

اللهم أسكنا فسيح جنانك

مشكور جداااااااااااااااا

مشكور أخوي على التوضيح الرائع

وكتبها في موازين حسناتك

مشكووور وجزاك الله خيراً