بعض الأكواد التي تهمك بالأكسس

فيما يلي بعض الأكواد التي تهمك  بالأكسس :

1- كود لإلغاء عمل مفتاح Esc

كود:

If KeyCode = 27 Then KeyCode = 0 

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


-------------------------------------------------------------------------------
2- لعمل تكمله تلقائية في حقل معين

كود:

Is null

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

---------------------------------------------------------------------------------
3- كود لعمل رقم سرى للدخول لنموذج ما

كود:

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

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

كود:

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

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

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

كود:

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

---------------------------------------------------------------------------------------
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 – كود الانتقال لأول سجل

كود:

On Error GoTo Err_First
'الاول

    DoCmd.GoToRecord , Parent.Name, acFirst

Exit_First:
    Exit Sub

Err_First:
    MsgBox Err.Description
    Resume Exit_First

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

كود:

On Error GoTo Err_Next

'التالي
    DoCmd.GoToRecord , Parent.Name, acNext

Exit_Next:
    Exit Sub

Err_Next:
    MsgBox Err.Description
    Resume Exit_Next

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

كود:

On Error GoTo Err_Previous
'السابق

    DoCmd.GoToRecord , Parent.Name, acPrevious

Exit_Previous:
    Exit Sub

Err_Previous:
    MsgBox Err.Description
    Resume Exit_Previous

------------------------------------------------------------------
31 – كود الانتقال للسجل الأخير

كود:

On Error GoTo Err_Last

'الاخير

    DoCmd.GoToRecord , Parent.Name, acLast

Exit_Last:
    Exit Sub

Err_Last:
    MsgBox Err.Description
    Resume Exit_Last

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

كود:

On Error GoTo Err_NewRec
'جديد
    DoCmd.GoToRecord , Parent.Name, acNewRec

Exit_Err_NewRec:
    Exit Sub

Err_NewRec:
    MsgBox Err.Description


    Resume Exit_Err_NewRec

----------------------------------------------------------------
33 – كود حذف سجل

كود:

  On Error GoTo Err_Delete
'حذف السجل في النموذج
Dim Rst
 
    If MsgBox("حذف السجل الحالي" & vbCrLf, vbYesNo + vbInformation, "تنبيه") = vbYes Then
        Set Rst = Me.Parent.Recordset
        If Not Rst.EOF Then
            Rst.Delete
        End If
        Set Rst = Nothing
    End If
Exit_Err_Delete:
    Exit Sub

Err_Delete:
    MsgBox Err.Description
    Resume Exit_Err_Delete

--------------------------------------------
34 – كود حفظ سجل

كود:

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

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

كود:

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

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

كود:

DoCmd.Close

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

كود:

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

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

كود:

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

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

38 – كود فتح استعلام في وضع المعاينة

كود:

DoCmd.OpenQuery اسم_الاستعلام, acNormal, acEdit

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


39 – كود إنهاء الأكسس والخروج منه نهائياً

كود:

DoCmd.Quit

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


40 – كود إصدار صوت (بيب) عند تنفيذ حدث معين

كود:

DoCmd.Beep

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

41 – كود إضافة ملف فلاش لنموذج1) يتم إدراج عنصر تحكم ActiveX و المسمى (Shockwave Flash Object)2) تم إضافة الكود التالي إلى حدث عند التحميل للنموذج

كود:

Me.اسم_كائن_اكتيف_اكس.Movie = مسار ملف الفلاش

ملحوظة :- يجب أن يكون امتداد ملف الفلاش  swf

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


42 – كود إظهار رسالة تأكيد للخروج

كود:

Dim x As Integer
x = MsgBox(هل أنت متأكد من الخروج النهائي, vbYesNo, خروج نهائي)
If x = vbYes Then
DoCmd.Quit
Else
Cancel = True
End If

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

43 – كود عمل تجميع لمحتوى مربع نص

كود:

=Sum([اسم الحقل المراد جمع محتوياته])

ملحوظة :- يتم تغيير خاصية ( نوع النموذج) إلى نماذج مستمرة كما يتم وضع مربع النص في جزء تذييل الصفحة فتة النموذج

----------------------------------------------------------------
44 – كود إجبار المستخدم على أن يملئ خانه حقل معينه

كود:

Is not null

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

45 – كود لإجبار المستخدم على إدخال كلمة أو حرف تبدأ نشئ نحدده نحن

كود:

Like الرقم أو الحرف الذي نبغي المستخدم يبدأ به & *

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

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


46 – كود لإجبار المستخدم على إدخال أرقام فقط في محتوى حقل معين

كود:

IsNumeric([اسم الحقل المراد إضافة خاصية رقم لمحتوياته]) = صواب

ملحوظة :- يتم كتابة هذا الكود في خانة خاصية قاعدة التحقق من الصجه للحقل المراد التطبيق عليه و يمكن أن نغير الخاصية من صواب إلى خطأ لإجبار المستخدم على إدخال قيمة نصيه فقط

-------------------------------------------------------------------------
47 – كود لإجبار المستخدم على الإدخال بتاريخ أكبر من تاريخ اليوم الحالي

كود:

>Date()

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

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

48 – كود إجبار المستخدم على توحيد اليوم أو الشهر أو السنة في كل الأشهر بمعنى أن يدخل تاريخ اليوم هو x من كل شهر

كود:

Day([اسم حقل التاريخ ]) =X لليوم
Month ([اسم حقل التاريخ ]) =X للشهر
Year ([اسم حقل التاريخ ]) =X للسنة

ملحوظة :- يتم كتابة هذا الكود في خانة خاصية قاعدة التحقق من الصجه للحقل المراد التطبيق عليه حيث X قيمة رقم يوم التاريخ المراد إدخاله

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

49 – كود إجبار المستخدم على إدخال رقم موجب في حقل معين

كود:

>0

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

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

50 – كود إجبار المستخدم على عدم إدخال أرقام أو كلمات أو رموز معينه في حقل معين

كود:

<>X And <>Y And <>Z

حيث ( Y , X , Z ) هي الأرقام أو الرموز أو الكلمات المطلوب من المستخدم عدم إدخالهاملحوظة :- يتم كتابة هذا الكود في خانة خاصية قاعدة التحقق من الصجه للحقل المراد التطبيق عليه

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

51 – كود لإجبار المستخدم على إدخال أرقام زوجية فقط في حقل معين

كود:

[اسم الحقل الرقمي] Mod 2=0

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

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

52 - كود لإجبار المستخدم على إدخال أرقام فردية فقط في حقل معين

كود:

[اسم الحقل الرقمي] Mod 2<>0

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

 -------------------------------------------------------------------------
53 – كود لإجبار المستخدم على إدخال أكثر من حرفين في حقل نصي

كود:

Len([اسم الحقل الرقمي ] ) > 1

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

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

54 – كود إجبار المستخدم إذا ترك أحد الحقلين فارغ أن لا يترك الحقل الثاني فارغ بمعنى لابد أن يكتب قيمة في أحد الحقلين

كود:

IIf(IsNull([الحقل1]);Not IsNull([الحقل2]);Not IsNull([الحقل1]))

ملحوظة :- يتم كتابة هذا الكود في خانة خاصية قاعدة التحقق من الصجه (للجدول) المراد التطبيق عليه

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

كود إذا كان الحقل فارغا :

 في حال كان أحد الحقول فارغة لن ينتقل إلى سجل جديد وسيفيد  برسالة تنبيه ,,, وإن كانت جميع الحقول بها قيم سيتم الانتقال إلى سجل جديد ،  والشرح  التالي بالكود يوضح ذلك .

كود:

 

'الكود يتحدث إذا كان حقل الايدي فارغ
If IsNull(Me![id]) = True Then
' يتم عرض رسالة تفيد بأن الحقل فارغ
MsgBox " عفواً أخي الكريم حقل الآيدي  " & " [ " & " !!! " & " ] " & "فارغ", vbCritical, "تنبيه"
' تثبيت المؤشر في الحقل الفارغ نفسه
id.SetFocus
' أخرى يتبع إلى الباقي
Else
If IsNull(Me![اسم المشترك]) = True Then
MsgBox " عفواً أخي الكريم حقل اسم المشترك  " & " [ " & " !!! " & " ] " & "فارغ", vbCritical, "تنبيه"
Me.اسم_المشترك.SetFocus
Else
If IsNull(Me![رقم الهاتف]) = True Then
MsgBox " عفواً أخي الكريم حقل رقم الهاتف  " & " [ " & " !!! " & " ] " & "فارغ", vbCritical, "تنبيه"
Me.رقم_الهاتف.SetFocus
Else
If IsNull(Me![البريد الالكتروني]) = True Then
MsgBox " عفواً أخي الكريم حقل البريد الألكتروني " & " [ " & " !!! " & " ] " & "فارغ", vbCritical, "تنبيه"
Me.البريد_الالكتروني.SetFocus
Else
DoCmd.GoToRecord , , acNewRec
End If: End If: End If: End If:

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

 

كود تشغيل أكثر من إستعلام  للحذف :
 لا يمكن حذف البيانات من جميع الجداول باستعمال استعلام واحد ، لذا يجب عمل استعلام حذف مستقل بكل جدول ، وفي الكود تقوم بتشغيل الاستعلامات واحدة خلف الاخرى ، هكذا:

 

كود:

لا تعرض رسالة حذف البيانات التحذيرية 

docmd.setwarnings false

 

الآن نشغل جميع استعلامات الحذف

 docmd.openquery "qry_1" 

docmd.openquery "qry_2" 

docmd.openquery "qry_3" 

 الآن اعرض جميع الرسائل التحذيرية

 docmd.setwarnings true


 

 

جزى الله خيرا كل من ساهم فيه

المصدر: مملكة الأكسس