




بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
[*]كود لإلغاء عمل مفتاح Escالسلام عليكم ورحمة الله وبركاته
كود:
If KeyCode = 27 Then KeyCode = 0
[*]لعمل تكمله تلقائية في حقل معين
كود:
Is null
[*]كود لعمل رقم سرى للدخول لنموذج ما
كود:
If MsgBox(أكتب هنا العبارة ألتحضيريه اللتى يمكن للمستخدم الاختيار منها , _
vbCritical + vbYesNo, _
تحذير) = vbYes Then
If InputBox(أأكتب هنا العبارة اللتى تريد أن تظهر للمستخدم عند إدخال الرقم ) <> أكتب هنا الرقم السري المطلوب أستحدامه Then
DoCmd.Close
Else
DoCmd.OpenForm أكتب هنا أسم النموذج المراد فتحه
End If
End If
كود:
msgbox أكتب هنا نص الرسالة المطلوب عرضها
كود:
Inputbox أدخل هنا نص التلميح الذي يظهر للمستخدم
6- تصميم وحده نمطيه
يتم كتابه الوحدة النمطية على الشكل التالي
Function أسم التطبيق يكتب هنا للإستعانه به في طريقه التنفيذ
و بعد ذلك نضغط زر enter
فيظهر الشكل التالي
كود:
Function اسم التطبيق()
End Function
7- تنفيذ أو استخدام وحده نمطيه مصممه مسبقاً
نقوم بعمل زر أمر على النموذج المطلوب تنفيذ الوحدة النمطية به ثم اختير خصائص هذا الزر و منه اختيار خاصية عند النقر و نكتب بها
كود:
=أسم التطبيق()
...................... و شكراً
8- دالة avg & davg دالة المتوسط أو الوسيط الحسابي
تأخذ الشكل التالي :-
كود:
DAvg(Expr, Domain, Criteria)
و Domain تمثل قيمة نصية تعرف مجموعة السجلات التي تمثل المجال ، و يمكن أن تكون جدول أو استعلام
و Criteria قيمة خيارية ( قد توضع و قد لا توضع ) ، و هي معيار يوضع لتحديد مجال تطبيق الدالة
مثال :-
كود:
=DAvg([price], Orders, [product] = mouse)
9- دالة IF الدالة الشرطية
هي أحدى الدوال في أكسس و تستخدم في تحديد سلوك كائن ما في حالة تحقق شرط معين أو عدم تحققه
و تأخذ الصورة التالية :-
كود:
IF [الحقل المراد المقارنة منه] = أي شئ للمقارنة THEN
[الحقل المقارن ] = أي شئ يكون ناتج في حاله نجاح المقارنة أو بمعنى أصح في حاله تحقق شرط المقارنة
ELSE
[الحقل المقارن] = أي شئ في حاله عدم تحقق الشرط
END IF
10- للوصول إلى الأوامر الشائعة في محرر الفيجوال بيسك بـ أكسس **
بعد فتح محرر الكود( سواء عن طريه الوحدات النمطية أو من إجراء حدث لأي كائن بالنموذج) نكتب الكود التالي :-
Docmd
و بعدها نقطه(.) فتنسدل قائمه بالأوامر الشائعة مثل( تكبير& تصغير & فتح & إغلاق & ...............etc )
و بعدها نكمل باقي مستلزمات الأمر حسب التعليق الذي يظهر
11- لعمل قاعدة بيانات تصدر صوت معين في البداية
عن طريق إدراج كائن (sound wave ) في نموذج بدء التشغيل و تغير الخصائص التالية له
أ) في خاصية تمكين يتم تغييرها إلى نعم
ب) خاصية تنشيط تلقائي يتم تغييرها إلى جلب التركيز
كما يتم كتابة الكود التالي في خواص النموذج عند خاصية عند الفتح
كود:
DoCmd.GoToControl نكتب هنا أسم الكائن الغير منظم الموجود في خانة تسميه لخصائص الكائن
12- كود عمل نص تتغير ألوانه
في خصائص النموذج يتم كتابة الكود التالي في خاصية عند عداد الوقت :-
كود:
أسم الكائن المحتوى على النص.ForeColor = QBColor(Rnd * عدد الألوان من 2:15)
13- كود إغلاق النموذج الرئيسي عند فتح نموذج أخر
كود:
DoCmd.Close acForm, اسم نموذج العرض الذي تريد إغلاقه
14 – كود لتقليص النموذج حتى الإغلاق
1) يتم وضع هذا الكود في خاصية عداد الوقت للنموذج
كود قفل النموذج
كود:
Me.InsideHeight = Me.InsideHeight - 70
كود:
Me.InsideWidth = Me.InsideWidth - 50
كود:
If Me.InsideHeight <= 0 Then DoCmd.Close
كود:
Me.TimerInterval = 10
15 – كود عمل نص بمربع نص يظهر و يختفي بصفة مستمرة
كود:
Me! اسم مربع النص.Visible = Not ( اسم مربع النص.Visible)
16 – كود إغلاق نموذج عن طريق نموذج آخر
كود:
DoCmd.Close acForm, اسم النموذج المراد إغلاقه
17 - كود نص يظهر بألوان متغيرة
لتغيير لون الخط تلقائيا مكن السطر التالي
كود:
[اسم مربع العنوان].ForeColor = Timer() * 11233
وإذا رغبت في تغيير ألوان الخلفية مكن السطر التالي واجعل نمط الخلفية للتسمية عادي
كود:
[اسم مربع العنوان].BackColor = Timer() * 22233
18 – كود عمل نص يظهر بتتالي الأحرف ثم يختفي و يظهر مرة أخرى
كود تحريك العنوان
كود:
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 – كود عمل صوره تحرك بعرض النموذج
كود:
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 من منشئ البرامج اكتب
كود:
Private strText As String
كود:
strText = النص المراد ظهوره في عنوان النموذج
strText = Space(110) & strText
كود:
strText = Mid(strText, 2) & Left(strText, 1)
Me.Caption = strText
21 – كود إظهار رسالة تأكيد لأي حدث سواء قبل الحدث أو بعده الحدث
كود:
If MsgBox(أكتب هنا نص الرسالة للمستخدم, vbYesNo) = vbNo Then
Cancel = True
SendKeys {ESC}
Exit Sub
End If
22 – كود إلغاء رسائل أكسس التحذيرية عند النقر على زر الأمر
كود:
DoCmd.SetWarnings False
23 – كود وضع كلمة سر لفتح نموذج
كود:
On Error Resume Next
If InputBox (أدخل الكلمة السرية, العنوان) <> 123 Then
DoCmd.CancelEvent
Else
DoCmd.OpenForm أكتب هنا إسم النموذج
End If
24 – كود مع التكرار داخل حقل من الحقول في أكسيس
كود:
If (Eval(DLookUp([اسم الحقل],[اسم الجدول],[اسم الحقل] =form![اسم الحقل]) Is Not Null)) Then
Beep
MsgBox هذا الرقم مكرر لقد تم تسجيله من قبل في قاعدة البيانات هذه ؟ سيتم مسح الرقم
DoCmd.CancelEvent
Forms![اسم النموذج]![اسم الحقل] = Null
End If
SendKeys {f2}, False
25 – كود كتابة تاريخ الطباعة داخل مربع نص في التقرير
كود:
=تمت الطباعة بتاريخ & format(date();dd mmmm yyyy) & هـ
26 – كود عمل نموذج يفتح و يغلق بشكل ثلاثي الأبعاد
1) عند حدث التحميل للنموذج
كود:
Zoom I, Me, 500
كود:
Zoom O, Me, 500
كود:
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) أنشئ وحده نمطيه و ضع بها الكود
كود:
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
كود:
fSetAccessWindow SW_HIDE
كود:
fSetAccessWindow SW_SHOWNORMAL
28 – كود الانتقال لأول سجل
كود:
DoCmd.GoToRecord , , acFirst
29 – كود الانتقال للسجل التالي
كود:
DoCmd.GoToRecord , , acNext
30 – كود الانتقال للسجل السابق
كود:
DoCmd.GoToRecord , , acPrevious
31 – كود الانتقال للسجل
كود:
DoCmd.GoToRecord , , acLast
32 – كود إضافة سجل جديد
كود:
DoCmd.GoToRecord , , acNewRec
33 – كود حذف سجل
كود:
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
34 – كود حفظ سجل
كود:
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
35 – كود فتح نموذج ما
كود:
DoCmd.OpenForm اسم_النموذج
36 – كود إغلاق نموذج أو تقرير
كود:
DoCmd.Close
37 – كود فتح تقرير في وضع المعاينة
كود:
DoCmd.OpenReport اسم_التقرير, acPreview
37 – كود طباعة تقرير معين
كود:
DoCmd.OpenReport اسم_التقرير, acNormal