الموضوع: شرح Access كنز اكواد للاكسيس
عرض مشاركة واحدة
  #1  
قديم 05-20-2021, 09:18 PM
الصورة الرمزية admin
admin 
✯ ادارة المنتدى ✯
 
تاريخ التسجيل: Mar 2021
الدولة: مصر
المشاركات: 733
معدل تقييم المستوى: 10
admin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to behold


2 كنز اكواد للاكسيس

 


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

السلام عليكم ورحمة الله وبركاته
[*]كود لإلغاء عمل مفتاح Esc
كود:
If KeyCode = 27 Then KeyCode = 0
و ذلك في الإجراءات البر مجيه للنموذج و يكون في الجانب الأيسر form و في الجانب الأيمن الحدثkeydown مع مراعاة تغيير خاصية مفتاح العرض التمهيدي في خصائص النموذج من لا إلى نعم[*]لعمل تكمله تلقائية في حقل معين
كود:
Is null
و يتم وضع الكود في خانة المعايير للحقل المطلوب في استعلام التحديد[*]كود لعمل رقم سرى للدخول لنموذج ما
كود:
If MsgBox(أكتب هنا العبارة ألتحضيريه اللتى يمكن للمستخدم الاختيار منها , _
vbCritical + vbYesNo, _
تحذير) = vbYes Then
If InputBox(أأكتب هنا العبارة اللتى تريد أن تظهر للمستخدم عند إدخال الرقم ) <> أكتب هنا الرقم السري المطلوب أستحدامه Then
DoCmd.Close
Else
DoCmd.OpenForm أكتب هنا أسم النموذج المراد فتحه
End If
End If
[*]كود عرض مربع رسالة مع التحكم في محتواها
كود:
msgbox أكتب هنا نص الرسالة المطلوب عرضها
[*]عرض نموذج لمربع إدخال بيانات
كود:
 Inputbox أدخل هنا نص التلميح الذي يظهر للمستخدم
[/LIST] 6- تصميم وحده نمطيه

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

كود:
Function اسم التطبيق()

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

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

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

كود:
=أسم التطبيق()
ثم نحفظ العمل

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

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

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

مثال :-
كود:
=DAvg([price], Orders, [product] = mouse)
و يوضح المثال السابق أن المطلوب هو متوسط (حقل) الأسعار في (جدول) الطلبيات بشرط كون المنتج (السجلات المطلوب عمل الدالة عليها) هو 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
2) عمل زر أمر ووضع هذا الكود في حدث عند النقر
كود:
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
2) عند حدث عند التحميل اكتب
كود:
strText = النص المراد ظهوره في عنوان النموذج
strText = Space(110) & strText
3) عند حدث عند عداد الوقت أكتب
كود:
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
2) عند حدث الإغلاق للنموذج
كود:
Zoom O, Me, 500
3) إضافة الوحدة النمطية ألتاليه
كود:
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
2 ) ضع زر أمر و في خاصية حدث عند النقر ضع الكود(زر اضهار)
كود:
fSetAccessWindow SW_HIDE
3 ) ضع زر أمر و في خاصية حدث عند النقر ضع الكود (زر إخفاء )
كود:
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






الموضوع الأصلي : كنز اكواد للاكسيس || الكاتب : admin || المصدر : منتدى مجمع التطوير

 


التوقيع

رد مع اقتباس