-->

تقنية ، إنترنت ، برامج ، إسلامية ، إقتصادية ، إجتماعية ، تعليمية ، رياضية

سُبْحَانَ اللَّهِ وَبِحَمْدِهِ ... سُبْحَانَ اللَّهِ العَظَيم

الأحد، 29 نوفمبر 2015

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


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

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  
 
جزى الله خيرا كل من ساهم فيه

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

ليست هناك تعليقات:

إرسال تعليق