اكواد اكسس للفائدة

1. كود لإلغاء عمل مفتاح Esc
   
   Code:

   If KeyCode = 27 Then KeyCode = 0

   و ذلك في الإجراءات البر مجيه للنموذج و يكون في الجانب الأيسر form و في الجانب الأيمن الحدثkeydown مع مراعاة تغيير خاصية مفتاح العرض التمهيدي في خصائص النموذج من لا إلى نعم
2. لعمل تكمله تلقائية في حقل معين
   
   Code:

   Is null

   و يتم وضع الكود في خانة المعايير للحقل المطلوب في استعلام التحديد
3. كود لعمل رقم سرى للدخول لنموذج ما
   
   Code:

   If MsgBox(أكتب هنا العبارة ألتحضيريه اللتى يمكن للمستخدم الاختيار منها , _
   	vbCritical + vbYesNo, _
   	تحذير) = vbYes Then
   	If InputBox(أأكتب هنا العبارة اللتى تريد أن تظهر للمستخدم عند إدخال الرقم ) <> أكتب هنا الرقم السري المطلوب أستحدامه Then
   	DoCmd.Close
   	Else
   	DoCmd.OpenForm أكتب هنا أسم النموذج المراد فتحه
   	End If
   	End If

4. كود عرض مربع رسالة مع التحكم في محتواها
   
   Code:

   msgbox أكتب هنا نص الرسالة المطلوب عرضها

5. عرض نموذج لمربع إدخال بيانات
   
   Code:

     Inputbox أدخل هنا نص التلميح الذي يظهر للمستخدم

6- تصميم وحده نمطيه ************

يتم كتابه الوحدة النمطية على الشكل التالي
Function أسم التطبيق يكتب هنا للإستعانه به في طريقه التنفيذ
و بعد ذلك نضغط زر enter
فيظهر الشكل التالي

Code:

Function اسم التطبيق()

End Function

و يتم كتابه الأكواد المطلوب تنفيذها في المسافة بين function و end function ثم يتم حفظ الوحدة النمطية و إغلاق المحرر

7- تنفيذ أو استخدام وحده نمطيه مصممه مسبقاً

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

Code:

=أسم التطبيق()

ثم نحفظ العمل

...................... و شكراً

8- دالة avg & davg دالة المتوسط أو الوسيط الحسابي

تأخذ الشكل التالي :-

Code:

DAvg(Expr, Domain, Criteria)

حيث Expr تمثل قيمة نصية تعرف الحقل الذي يحوي البيانات الرقمية المطلوب الحصول علي متوسط لها
و Domain تمثل قيمة نصية تعرف مجموعة السجلات التي تمثل المجال ، و يمكن أن تكون جدول أو استعلام
و Criteria قيمة خيارية ( قد توضع و قد لا توضع ) ، و هي معيار يوضع لتحديد مجال تطبيق الدالة

مثال :-

Code:

=DAvg([price], Orders, [product] = mouse)

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

9- دالة IF الدالة الشرطية

هي أحدى الدوال في أكسس و تستخدم في تحديد سلوك كائن ما في حالة تحقق شرط معين أو عدم تحققه
و تأخذ الصورة التالية :-

Code:

IF [الحقل المراد المقارنة منه] = أي شئ للمقارنة THEN
[الحقل المقارن ] = أي شئ يكون ناتج في حاله نجاح المقارنة أو بمعنى أصح في حاله تحقق شرط المقارنة
ELSE
[الحقل المقارن] = أي شئ في حاله عدم تحقق الشرط
END IF

10- للوصول إلى الأوامر الشائعة في محرر الفيجوال بيسك بـ أكسس **

بعد فتح محرر الكود( سواء عن طريه الوحدات النمطية أو من إجراء حدث لأي كائن بالنموذج) نكتب الكود التالي :-
Docmd
و بعدها نقطه(.) فتنسدل قائمه بالأوامر الشائعة مثل( تكبير& تصغير & فتح & إغلاق & ...............etc )

و بعدها نكمل باقي مستلزمات الأمر حسب التعليق الذي يظهر

11- لعمل قاعدة بيانات تصدر صوت معين في البداية

عن طريق إدراج كائن (sound wave ) في نموذج بدء التشغيل و تغير الخصائص التالية له

أ) في خاصية تمكين يتم تغييرها إلى نعم

ب) خاصية تنشيط تلقائي يتم تغييرها إلى جلب التركيز
كما يتم كتابة الكود التالي في خواص النموذج عند خاصية عند الفتح

Code:

DoCmd.GoToControl نكتب هنا أسم الكائن الغير منظم الموجود في خانة تسميه لخصائص الكائن

12- كود عمل نص تتغير ألوانه

في خصائص النموذج يتم كتابة الكود التالي في خاصية عند عداد الوقت :-

Code:

أسم الكائن المحتوى على النص.ForeColor = QBColor(Rnd * عدد الألوان من 2:15)

و في خاصية الفاصل الزمني لعداد الوقت يتم تحديد الفترة الزمنية ا لمرور التغيير

13- كود إغلاق النموذج الرئيسي عند فتح نموذج أخر

Code:

DoCmd.Close acForm, اسم نموذج العرض الذي تريد إغلاقه

14 – كود لتقليص النموذج حتى الإغلاق

1) يتم وضع هذا الكود في خاصية عداد الوقت للنموذج

كود قفل النموذج

Code:

 Me.InsideHeight = Me.InsideHeight - 70

السطر السابق يقوم بإنقاص الإرتفاع

Code:

Me.InsideWidth = Me.InsideWidth - 50

السطر السابق يقوم بإنقاص العرض

Code:

If Me.InsideHeight <= 0 Then DoCmd.Close

2) عمل زر أمر ووضع هذا الكود في حدث عند النقر

Code:

Me.TimerInterval = 10

15 – كود عمل نص بمربع نص يظهر و يختفي بصفة مستمرة

Code:

Me! اسم مربع النص.Visible = Not ( اسم مربع النص.Visible)

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

16 – كود إغلاق نموذج عن طريق نموذج آخر

Code:

DoCmd.Close acForm, اسم النموذج المراد إغلاقه

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

17 - كود نص يظهر بألوان متغيرة
لتغيير لون الخط تلقائيا مكن السطر التالي

Code:

[اسم مربع العنوان].ForeColor = Timer() * 11233

الرقم المضروب فيه ضع أي رقم بشرط أن لا يكون كبيراً جداً (يفضل أربع خانات فأقل).
وإذا رغبت في تغيير ألوان الخلفية مكن السطر التالي واجعل نمط الخلفية للتسمية عادي

Code:

[اسم مربع العنوان].BackColor = Timer() * 22233

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

18 – كود عمل نص يظهر بتتالي الأحرف ثم يختفي و يظهر مرة أخرى
كود تحريك العنوان

Code:

Const نص = النص المطلوب إدراجه في النموذج
Static عدد_الأحرف
If [اسم مربع العنوان].Caption = نص Then
عدد_الأحرف = 1
[اسم مربع العنوان].Caption = Left(نص, عدد_الأحرف)
Exit Sub
End If
عدد_الأحرف = عدد_الأحرف + 1
[اسم مربع العنوان].Caption = Left(نص, عدد_الأحرف)
Static يمين As Boolean
If [اسم مربع العنوان].Caption = نص And يمين = True Then
عدد_الأحرف = 1
[اسم مربع العنوان].Caption =
يمين = False
End If
If يمين = True Then
عدد_الأحرف = عدد_الأحرف + 1
[اسم مربع العنوان].TextAlign = 1
[اسم مربع العنوان].ForeColor = Timer() * 11233
[اسم مربع العنوان].Caption = Right(نص, عدد_الأحرف)
End If
If [اسم مربع العنوان].Caption = نص And يمين = False Then
عدد_الأحرف = 1
[اسم مربع العنوان].Caption =
يمين = True
End If
If يمين = False Then
عدد_الأحرف = عدد_الأحرف + 1
[اسم مربع العنوان].TextAlign = 3
[اسم مربع العنوان].Caption = Left(نص, عدد_الأحرف)
End If

يتم وضع هذا الكود في خاصية عداد الوقت للنموذج

19 – كود عمل صوره تحرك بعرض النموذج

Code:

If Me.InsideWidth < اسم_الصوره.Left _
Or اسم_الصوره.Width = عرض_الصورة / 3 _
Or اسم_الصوره.Width = (عرض_الصورة / 3) * 2 Then
If اسم_الصوره.Width = (عرض_الصورة / 3) * 2 Then
اسم_الصوره.Left = 0
اسم_الصوره.Width = عرض_الصورة
Exit Sub
End If
اسم_الصوره.Left = 0
If اسم_الصوره.Width = عرض_الصورة / 3 Then اسم_الصوره.Width = اسم_الصوره.Width * 2
If اسم_الصوره.Width = عرض_الصورة Then اسم_الصوره.Width = عرض_الصورة / 3
Else
اسم_الصوره.Left = اسم_الصوره.Left + 100
عرض_الصورة = اسم_الصوره.Width
End If

توضع في حدث عداد الوقت للنموذج
ملحوظة :- (اسم_الصوره) يعوض عنها باسم الصوره الموجود في النموذج

20 - كود عمل نص متحرك لاسم النموذج
1) عند الخصائص العامة general من منشئ البرامج اكتب

Code:

Private strText As String

2) عند حدث عند التحميل اكتب

Code:

strText = النص المراد ظهوره في عنوان النموذج
strText = Space(110) & strText

3) عند حدث عند عداد الوقت أكتب

Code:

strText = Mid(strText, 2) & Left(strText, 1)
Me.Caption = strText

21 – كود إظهار رسالة تأكيد لأي حدث سواء قبل الحدث أو بعده الحدث

Code:

If MsgBox(أكتب هنا نص الرسالة للمستخدم, vbYesNo) = vbNo Then
Cancel = True
SendKeys {ESC}
Exit Sub
End If

يتم إضافة هذا الكود عندما نريد إظهار رسالة تأكيد للمستخدم عند حدث معين

22 – كود إلغاء رسائل أكسس التحذيرية عند النقر على زر الأمر

Code:

DoCmd.SetWarnings False

و يوضع هذا الكود في حدث عند النقر لزر الأمر

23 – كود وضع كلمة سر لفتح نموذج

Code:

On Error Resume Next
If InputBox (أدخل الكلمة السرية, العنوان) <> 123 Then
DoCmd.CancelEvent
Else
DoCmd.OpenForm أكتب هنا إسم النموذج
End If

يوضع هذا الكود في اى حدث ينتج عنه فتح للنموذج المطلوب

24 – كود مع التكرار داخل حقل من الحقول في أكسيس

Code:

If (Eval(DLookUp([اسم الحقل],[اسم الجدول],[اسم الحقل] =form![اسم الحقل]) Is Not Null)) Then
Beep
MsgBox هذا الرقم مكرر لقد تم تسجيله من قبل في قاعدة البيانات هذه ؟ سيتم مسح الرقم
DoCmd.CancelEvent
Forms![اسم النموذج]![اسم الحقل] = Null
End If
SendKeys {f2}, False

يتم إضافة هذا الكود في خصائص الحقل المراد منع التكرار فيه حدث بعد التحديث

25 – كود كتابة تاريخ الطباعة داخل مربع نص في التقرير

Code:

=تمت الطباعة بتاريخ & format(date();dd mmmm yyyy) & هـ

يتم إضافة خذا الكود في خصائص مربع النص المراد ضمن خاصية مصدر عنصر التحكم

26 – كود عمل نموذج يفتح و يغلق بشكل ثلاثي الأبعاد
1) عند حدث التحميل للنموذج

Code:

Zoom I, Me, 500

2) عند حدث الإغلاق للنموذج

Code:

Zoom O, Me, 500

3) إضافة الوحدة النمطية ألتاليه

Code:

Option Compare Database
Option Explicit
Public Declare Function GetWindowRect Lib user32 (ByVal hwnd As Long, lpRect As RECT) As Long
Public Declare Function GetDC Lib user32 (ByVal hwnd As Long) As Long
Public Declare Function ReleaseDC Lib user32 (ByVal hwnd As Long, ByVal hdc As Long) As Long
Public Declare Function Rectangle Lib gdi32 (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Sub Zoom(Mode As String, TheForm As Form, Steps As Integer)
On Error Resume Next
Dim D As RECT
Dim iWidth As Integer
Dim iHeight As Integer
Dim lScreen As Long
Dim X, Y, Cx, Cy As Integer
GetWindowRect TheForm.hwnd, D
iWidth = D.Right - D.Left
iHeight = D.Bottom - D.Top
lScreen = GetDC(0)
If Mode = I Then
Dim I
For I = 1 To Steps
X = D.Left + iWidth * (1 - I / Steps) / 2
Y = D.Top + iHeight * (1 - I / Steps) / 2
Cx = D.Left + iWidth * (1 + I / Steps) / 2
Cy = D.Top + iHeight * (1 + I / Steps) / 2
Rectangle lScreen, X, Y, Cx, Cy
Next I
End If
If Mode = O Then
For I = Steps To 1 Step -1
X = D.Left + iWidth * (1 - I / Steps) / 2
Y = D.Top + iHeight * (1 - I / Steps) / 2
Cx = D.Left + iWidth * (1 + I / Steps) / 2
Cy = D.Top + iHeight * (1 + I / Steps) / 2
Rectangle lScreen, X, Y, Cx, Cy
Next I
End If
ReleaseDC 0, lScreen
End Sub

27 – كود إخفاء نافذة الاكسس

1) أنشئ وحده نمطيه و ضع بها الكود

Code:

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib user32 _
Alias ShowWindow (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm
If Err <> 0 Then no Activeform
If nCmdShow = SW_HIDE Then
MsgBox Cannot hide Access unless _
& a form is on screen
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
Else
If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox Cannot minimize Access with _
& (loForm.Caption + ) _
& form on screen
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox Cannot hide Access with _
& (loForm.Caption + ) _
& form on screen
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
End If
fSetAccessWindow = (loX <> 0)
End Function

2 ) ضع زر أمر و في خاصية حدث عند النقر ضع الكود(زر اضهار)

Code:

fSetAccessWindow SW_HIDE

3 ) ضع زر أمر و في خاصية حدث عند النقر ضع الكود (زر إخفاء )

Code:

fSetAccessWindow SW_SHOWNORMAL

غير خاصية منبثق في النموذج إلى نعم & و خاصية مشروط إلى نعم

28 – كود الانتقال لأول سجل

Code:

DoCmd.GoToRecord , , acFirst

29 – كود الانتقال للسجل التالي

Code:

DoCmd.GoToRecord , , acNext

30 – كود الانتقال للسجل السابق

Code:

DoCmd.GoToRecord , , acPrevious

31 – كود الانتقال للسجل

Code:

DoCmd.GoToRecord , , acLast

32 – كود إضافة سجل جديد

Code:

DoCmd.GoToRecord , , acNewRec

33 – كود حذف سجل

Code:

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

34 – كود حفظ سجل

Code:

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

35 – كود فتح نموذج ما

Code:

DoCmd.OpenForm اسم_النموذج

36 – كود إغلاق نموذج أو تقرير

Code:

DoCmd.Close

37 – كود فتح تقرير في وضع المعاينة

Code:

DoCmd.OpenReport اسم_التقرير, acPreview

37 – كود طباعة تقرير معين

Code:

DoCmd.OpenReport اسم_التقرير, acNormal