منتديات مرح ليبيا

هذه الدوال يستخدمها المحاسبون ومن لهم إهتمام بأمور المحاسبة

: ( PMT , PV , FV , RATE ,DDB, SLN ,SYD ) وهي



تقوم هذه الدالة بحساب الدفعة الدورية لتسديد قرض 0 : PMT الدالة
مثال:
Const ENDPERIOD = 0, BEGINPERIOD = 1 ' When payments are
made.
Const MB_YESNO = 4 ' Define Yes/No buttons.
Const ID_NO = 7 ' Define No as a response.
NL = Chr(13) & Chr(10) ' Define newline.
TB = Chr(9) ' Define tab.
Fmt = "###,###,##0.00" ' Define money format.
fVal = 0 ' Usually 0 for a loan.
pval = InputBox("؟ ("كم المبلغ الذي تود اقتراضه
APR = InputBox(" ("معدل الفائدة السنوية؟ كم
If APR > 1 Then APR = APR / 100 ' Ensure proper form.
TotPmts = InputBox("؟ ("كم المبلغ الذي سيدفع كقسط شهري
paytype = MsgBox("؟ هل الدفع في نهاية الشهر ", MB_YESNO, " ("استفسار
If paytype = ID_NO Then paytype = BEGINPERIOD Else paytype
= ENDPERIOD
payment = Abs(-Pmt(APR / 12, TotPmts, pval, fVal,
paytype))
Msg = " مبلغ القسط الشهري = " & Format(payment, Fmt)
Msg = Msg & NL & " " هل تود رؤية قائمة بالدفعات
Msg = Msg & "؟ "والفائدة في كل فترة
MakeChart = MsgBox(Msg, MB_YESNO, " استفسار ") ' See if chart
is desired.
If MakeChart <> ID_NO Then
If TotPmts > 20 Then MsgBox " "سنظهر لك 20 فترة فقط .", , "ملحوظة
Msg = " الدفعة الأصل الفائدة الشهر " & NL
For period = 1 To TotPmts
If period > 20 Then Exit For ' Only show first 25.
P = PPmt(APR / 12, period, TotPmts, -pval, fVal, paytype)
P = (Int((P + 0.005) * 100) / 100) ' Round principal.
I = payment - P
I = (Int((I + 0.005) * 100) / 100) ' Round interest.
Msg = Msg & period & TB & Format(payment, Fmt)
Msg = Msg & TB & Format(P, Fmt) & TB & Format(I, Fmt) & NL
Next period
MsgBox Msg, , " قائمة الدفعات " ' Display amortization table.
End If
وهذا مثال أخر قد يكون أوضح ومفهوم أفضل من سابقه
Dim العملية_الحسابة As Variant
Const نهاية_الشهر = 0, بداية_الشهر = 1
FVal = txt1
If 1< النسبة then النسبة = النسبة / 12
الجواب =PMT ( عدد_الأقساط , _ المبلغ , النسبة / 12 , FVal, (وقت_الدفع
حيث:
النسبة : مربع نص يتم فيه إدخال نسبة الفائدة السنوية
عددالأقساط : هي عدد الأشهر التي يستغرقها المدين في الدفع حتى ينهي الدين
المبلغ : هو مجموع الدين أي المبلغ الأجمالي
القيمة المستقبلية FVAL :
وقت_الدف : هي رقم يعرف متى يتم الدفع فالرقم " 1 " يعني دفع القسط أول الشهر والرقم " 0 " يعني بأن
الدفع يكون نهاية الشهر
------------------------------------------------
: FV الدالة
تقوم هذه الدالة بحساب القيمة المستقبلية لمبلغ معين يراد إيداعه على دفعات 0
تأخذ هذه الدالة الشكل التالي:
FV(rate , nper , pmt , pv , due )
حيث:
معدل الفائدة rate :
المدة ( عدد الدفعات( nper :
مقدار الدفعة 1000 ) أو 2000 أو 000000 الخ( pmt :
القيمة المستقبلية أو الرصيد بعد أخر فترة يتم الرصد فيها pv :
رقم يوضح هل يتم إدخار المبلغ في أول الشهر أو أخر الشهر والرقم 1 يعني أول كل شهر due :
مثال على ذلك:
Const ENDPERIOD = 0, BEGINPERIOD = 1 ' When payments are
made.
Const MB_YESNO = 4 ' Define Yes/No buttons.
Const ID_NO = 7 ' Define No as a response.
Fmt = "###,###,##0.00" ' Define money format.
payment = InputBox(" ("تود ادخاره شهرياً ؟ كم المبلغ الذي
APR = InputBox("؟ ("ماهي الفائدة السنوية
If APR > 1 Then APR = APR / 100 ' Ensure proper form.
TotPmts = InputBox(" ("التي ستدخر فيها ؟ ماعدد الأشهر
paytype = MsgBox("؟ هل الدفع في بداية الشهر ", MB_YESNO, " ("استفسار
If paytype = ID_NO Then paytype = BEGINPERIOD Else paytype
= ENDPERIOD
pval = InputBox("؟ ("كم المبلغ الذي ستدخره الآن
fVal = fv(APR / 12, TotPmts, -payment, -pval, paytype)
MsgBox " مجمل ادخارك = " & Format(fVal, Fmt) & ".", , " "النتيجة
----------------------------------------------
: nper الدالة
هذه الدالة تعطيك كم شهراً سوف تستغرق لكي تسدد مبلغ معين
title = " "الجواب
Const ENDPERIOD = 0, BEGINPERIOD = 1 ' When payments are
made.
Const MB_YESNO = 4 ' Define Yes/No buttons.
Const ID_NO = 7 ' Define No as a response.
fVal = 0 ' Usually 0 for a loan.
pval = InputBox(" ("قيمة الدين ؟ كم
APR = InputBox("؟ ("كم معدل الفائدة السنوية
If APR > 1 Then APR = APR / 100 ' Ensure proper form.
payment = InputBox(" ("تستطيع تقسيطه شهرياً ؟ كم المبلغ الذي
paytype = MsgBox("؟ هل الدفع في نهاية الشهر ", MB_YESNO)
If paytype = ID_NO Then paytype = BEGINPERIOD Else paytype
= ENDPERIOD
TotPmts = nper(APR / 12, -payment, pval, fVal, paytype)
If Int(TotPmts) <> TotPmts Then TotPmts = Int(TotPmts) + 1
Msg = " سوف تأخذ " & TotPmts & " ". شهراً لإنهاء الدين
MsgBox Msg, , title
---------------------------------------------- --
: IPmt الدالة
هذه الدالة تعطي نسبةالفوائد السنوية 0
Const ENDPERIOD = 0, BEGINPERIOD = 1 ' When payments are
made.
Const MB_YESNO = 4 ' Define Yes/No buttons.
Const ID_NO = 7 ' Define No as a response.
fVal = 0 ' Usually 0 for a loan.
Fmt = "###,###,##0.00" ' Define money format.
pval = InputBox("؟ ("كم المبلغ الذي تود اقتراضه
APR = InputBox(" ("السنوية؟ كم نسبةالفائدة
If APR > 1 Then APR = APR / 100 ' Ensure proper form.
TotPmts = InputBox("؟ ("كم المبلغ الذي تستطيع تقسيطه شهرياً
paytype = MsgBox("؟ هل الدفع في بداية الشهر ", MB_YESNO, " ("استفسار
If paytype = ID_NO Then paytype = BEGINPERIOD Else paytype
= ENDPERIOD
For period = 1 To TotPmts ' Total all interest.
IntPmt = IPmt(APR / 12, period, TotPmts, -pval, fVal,
paytype)
TotInt = TotInt + IntPmt
Next period
Msg = " سوف تدفع مبلغ = " & Format(TotInt, Fmt)
Msg = Msg & " ".كفائدة على هذا المبلغ
MsgBox Msg, , " النتيجة " ' Display results.
: SYD الدالة
تستخدم هذه الدالة في حساب قيمة إهلاك الأصول الثابته ويكون قسط الإهلاك السنوي لهذه الدالة عالياً في
السنوات الأولى من عمر الأصل عنه في السنوات الأخيرة 0
مثال توضيحي:
txt5 = SYD(txt1, txt2, txt3, txt4)
حيث
مربع نص يعرض ناتج الداله txt5 :
الدالة SYD :
مربع نص يتم فيه إدخال ثمن الشراء Txt1 :
Txt2 : مربع نص يتم فيه إدخال قيمة الأصل المتوقعة في نهاية المدة
العمر الإفتراضي للسلعة Txt3 :
سنة معينة تحسب فيها القيمة Txt4 :
------------------------------------------------------
SLN الدالة
تستخدم هذه الدالة لحساب الخط المستقيم لانخفاض قيمة ملكية معينة خلال فترة دورة زمنية معينة أي قسط
الإهلاك السنوي الثابت الأصل 0
مثال توضيحي:
txt5 = SLN(txt1, txt2, txt3)
حيث
مربع نص يعرض ناتج الداله txt5 :
الدالة SYD :
مربع نص يتم فيه إدخال ثمن الشراء Txt1 :
مربع نص يتم فيه إدخال قيمة الأصل المتوقعة في نهاية المدة Txt2 :
العمر الإفتراضي للسلعة Txt3 :
سنة معينة تحسب فيها القيمة Txt4 :
-----------------------------------------------------------------
DDB: الدالة
تستخدم هذه الدال في حساب قيمة إهلاك الأصول الثابته بطريقة الإستهلاك المتناقص وكما هو معروف في علم
المحاسبة أن قسط الإهلاك طبقاً لهذه الطريقة يكون عالياً في السنوات الأولى من عمر الأصل الثابت 0
مثال توضيحي:
txt5 = DDB(txt1, txt2, txt3, txt4)
حيث
مربع نص يعرض ناتج الداله txt5 :
الدالة SYD :
مربع نص يتم فيه إدخال ثمن الشراء Txt1 :
مربع نص يتم فيه إدخال قيمة الأصل المتوقعة في نهاية المدة Txt2 :
العمر الإفتراضي للسلعة Txt3 :
سنة معينة تحسب فيها القيمة Txt4 :

------------------------------------------------------------------
Sin : الدالة
تحدد هذه الدالة قيمة جيب زاوية معينة
مثال:
Fmt = "0.00000"
Pi = 4 * Atn(1) ' Calculate Pi.
Degrees = InputBox(" الزاوية بالدرجات: 0 ادخل ") ' Specify angle.
Radians = Degrees * (Pi / 180) ' Convert to radians.
Sine = Sin(Radians) ' Calculate sine.
MsgBox " الزاوية جيب = " & Format(Sine, Fmt), , " "الجواب
: Cos الدالة
تستخدم هذه الدالة لحساب قيمة جيب تمام أي زاوية
مثل:
Fmt = "0.00000"
Pi = 4 * Atn(1) ' Calculate Pi.
Degrees = InputBox(" الزاوية بالدرجات : 0 أدخل ") ' Specify angle.
Radians = Degrees * (Pi / 180) ' Convert to radians.
Cosine = Cos(Radians) ' Calculate sine.
MsgBox " تمام الزاوية جيب = " & Format(Cosine, Fmt), , " "الجواب
دوال سلاسل البيانات
تستخدم هذه الدوال لتعامل مع سلاسل البيانات وهي على النحو التالي:
: Format الدالة
اسم الحقل , "شكل التنسيق المراد(" = Format ( الحقل أو مربع النص المراد تنسيقه
مثال على ذلك التاريخ التالي:
TxtDate = Format ( Now , " yyyy/mm/dd ")
1422/11/ هذا التنسيق يعرض التاريخ الهجري في تنسيق كالتالي: 11
التنسيق التالي يعرض اسم اليوم بدلا من الرقم
TxtDate = Format ( Now , " yyyy/mm/dddd ")
1422/ فهو يعرض التاريخ الهجري كالتالي : السبت 11
ويمكن تنسيق البيانات بأشكال مختلفه كما نريد 0
: instr الدالة
هذه الدالة تعيد رقم يدل على ترتيب عبارة داخل عبارة أخرى مثل:
?instr( " (" علي ", " ل
الناتج هو الرقم " 2 " لأن حرف اللام هو الحرف الثاني في ترتيب حروف اسم علي
" Lcase " الدالة
تقوم هذه الدالة بتحويل سلسلة حروف كبيرة إلى حروف صغيرة
مثال:
Lcase$ ( "ALY ")
aly تصبح هكذا
" Ucase " الدالة
هذه الدالة تحول سلسلة حروف صغيرة إلى حروف كبيرة 0
مثال:
Ucase أو Ucase$ ( " aly ")
ALY تصبح الجملة هكذا
" Left " الدالة
تعيد هذه الدالة مجموعة من الحروف الموجودة في سلسلة بدءاً من الشمال بالعدد المطلوب :مثال
txtName2 = Left(txtName1, 3)
فإذا كان مربع الاسم يحتوي على اسم جمعه فسوف تعود الدالة ب " عود " وتضعها في مربع النص المسمى "
TxtName2 "
RIHT$ " أو " RIHT الدالة
تعيد هذه الدالة مجموعة من الحروف الموجودة في سلسلة بدءاً من اليمين بالعدد المطلوب: مثال
txtName2 = RIHT (txtName1, 3)
فإذا كان مربع الاسم يحتوي على اسم جمعه فسوف تعود الدالة ب "جمعه " وتضعها في مربع النص المسمى "
TxtName2 "
MID$ " وا " Mid الدالة
تعيد هذه الدالة جزء من السلسة سواء بيانات حرفيه أو رقمية بالطول وإبتداء من الموقع المحدد : مثال
TxtName2= MID(TxtName1,5,4)
يحتوي على " العالمية" " txtName فإذا كان الاسم الموجود في مربع النص المسمى " 1
فسوف تكون نتيجة الدالة هي " لمية "
" وإذا كان مربع النص يحتوي على رقم مثل" 1234567 " سوف يكون ناتج الدالة هو " 567
Len$ " و " Len الدالة
تعيد هذه الدالة عدد الحروف الموجودة في السلسلة
مثال:
TxtName2= Len(TxtName1,5,4)
يحتوي على " العالمية" " txtName فإذا كان الاسم الموجود في مربع النص المسمى " 1
فسوف تكون نتيجة الدالة هي " 8 " أي عدد حروف كلمة العالمية
RTRIM$ " و " Rtrim الدالة
تقوم هذه الدالة بحذف الفراغات الموجودة في جهة يمين السلسلة
مثال
TxtName2= Rtrim(TxtName1)
سوف تزيل هذه الدالة الفراغات الموجودة جهة اليمنى من الاسم
LTRIM$ " و Ltrim ألدالة
تقوم هذه الدالة بحذف الفراغات الموجودة في جهةاليسرى السلسلة
مثال
TxtName2= Rtrim(TxtName1,5,4)
سوف تزيل هذه الدالة الفراغات الموجودة جهة اليمنى من الاسم
Trim$ " و " Trim الدالة
تقوم هذه الدالة بحذف الفراغات الموجودة في الجهة اليسرى واليمنى من السلسة
مثال:
TxtName2TRIM(TxtName1)
هنا سوف تقوم بحذف الفراغات الموجودة يمين ويسار الاسم
Space$ " و " Space الدالة
تقوم هذه الدالة بوضع مسافة بين كلمتين محددتين بحسب الرقم المسجل
مثال:
جمعه " " + Space ( "عريفه " + ( 2
النتيجة هي جعل مسافة بين الاسمين هكذا " جمعه عريفه " أمر بمعنى عليك أيها الجهاز بعد كتابة اسم جمعه
أن تنقر المفتاح سبيس بالعدد المحدد وهو نقرتين بدليل 2 الموجودة في الكود
String $ " و " String الدالة
تقوم هذه الدالة بتكرار سلسلة بالعدد المحدد
مثال:
String( ج" , 5 ")[/code]
ناتج هذا الكود هو ج ج ج ج ج
الدالة " ASC "
الدالة بتحويل حرف أو مجموعة حروف إلى القيم الأسكي لها 0 تقوم هذه
مثل
[code2]ASC( " A ")
ناتج هذا التعبير هو 65
وتستخدم هذه الدالة لمعرفة الرقم المقابل للحروف الموجودة على لوحة المفاتيح
CHR$ " و " CHR الدالة
هذه الدالة هي عكس السابقة مثال:
[code]Chr(65)
A ناتج هذا التعبير هو
" Strcomp " الدالة
تقارن هذه الدالة بين سلسلتين لتحدد هل هما متساويتين ثم تعيد رقماً بنتيجة المقارنة
مثال
txt3 = StrComp(txt1, txt2)
فإذا كان Txt وتضع النتيجة في مربع النص 3 Txt و 2 Txt سوف تقارن الدالة بين محتوى مربعي النص 1
مربع النص الأول يحتوي على اسم " مرح " ومربع النص الثاني على اسم "مرح" عندها تكون قيمة مربع النص

الدالة Sin


تحدد هذه الدالة قيمة جيب زاوية معينة
مثال:
Fmt = "0.00000"
Pi = 4 * Atn(1) ' Calculate Pi.
Degrees = InputBox(" الزاوية بالدرجات: 0 ادخل ") ' Specify angle.
Radians = Degrees * (Pi / 180) ' Convert to radians.
Sine = Sin(Radians) ' Calculate sine.
MsgBox " الزاوية جيب = " & Format(Sine, Fmt), , " "الجواب
: Cos الدالة
تستخدم هذه الدالة لحساب قيمة جيب تمام أي زاوية
مثل:
Fmt = "0.00000"
Pi = 4 * Atn(1) ' Calculate Pi.
Degrees = InputBox(" الزاوية بالدرجات : 0 أدخل ") ' Specify angle.
Radians = Degrees * (Pi / 180) ' Convert to radians.
Cosine = Cos(Radians) ' Calculate sine.
MsgBox " تمام الزاوية جيب = " & Format(Cosine, Fmt), , " "الجواب

غد انشاء الله
دوال سلاسل البيانات

دوال المجال التجميعية
Domain aggregate Function

سبق وأن تم وضع أمثلة عن تلك الدوال في المنتدى ولكن لا مانع من شرحها مرة أخرى لتعم الفائدة
(( Dmax _Dmin _Dsum _Dcount _Dlookup _Dlast *دوال المجال التجميعية هي
Dfirst _ Davg _DstDev _Dvar
تستخدم هذه الدوال عادة في استخراج بيانات إحصائية مثل المجموع والمتوسط الحسابي وأعلى قيمة وأقل قيمة
وعمل مقرانات بين بيانات معينه ومن وجهة نظري وهذا رأيي الشخص أن هذا الدوال هامة جداً ولا غنى لأي
مبرمج أكسيس وأرجو أن أوفق في شرحها 0
: Dmax الدالة
وظيفتها : استخراج أعلى قيمة في حقل معين في جدول معين
X =Dmax( " [Ord] ","tblOrders ","[bnk_Name]='Arabi '")
والمسجلة في جدول العملاء المسمى Ord هذا المثال يعطينا أعلى قيمة موجودة في حقل الرصيد المسمى
بشرط أن يكونون عملاء البنك العربي فقط مع إهمال بقية البنوك المسجلة في الجدول 0 Orders
X = DAvg ( " [Ord] ","tblOrders ","[bnk_Name]='Arabi '")
والمسجلة في جدول Ord هذا المثال يعطينا المتوسط الحسابي الأرصدة الموجودة في حقل الرصيد المسمى
بشرط أن يكونون عملاء البنك العربي فقط مع إهمال بقية البنوك المسجلة في Orders العملاء المسمى
الجدول 0
X = DCount ( " [Ord] ","tblOrders ","[bnk_Name]='Arabi '")
والمسجلة في جدول Ord هذا المثال يعطينا مجموع العملاء الذين لهم أرصدة مسجلة في حقل الرصيد المسمى
بشرط أن يكونون عملاء البنك العربي فقط مع إهمال بقية البنوك المسجلة في Orders العملاء المسمى
الجدول 0
X = DLast ( " [Ord] ","tblOrders ","[bnk_Name]='Arabi '")
والمسجلة في جدول العملاء Ord هذا المثال يعطينا أخر عميل أدخل له رصيد في حقل الرصيد المسمى
بشرط أن يكونون عملاء البنك العربي فقط مع إهمال بقية البنوك المسجلة في الجدول 0 Orders المسمى
X = DLookup ( " [Ord] ","tblOrders ","[bnk_Name]='Arabi
'")
Ord هذا تستخدم غالباً في البحث وفي مثالنا هذا فهيا تعطي أول رصيد مسجل في حقل الرصيد المسمى
بشرط أن يكونون عملاء البنك العربي فقط مع إهمال بقية Orders والمسجلة في جدول العملاء المسمى
البنوك المسجلة في الجدول وعند الرغبة في عرض رصيد مرتبط برقم العميل نضيف لها شرط أخر وهو " اسم
النموذج وراسم مربع النص الذي يعرض رقم العميل على النموذج 0
X = DMin ( " [Ord] ","tblOrders ","[bnk_Name]='Arabi '")
والمسجلة في جدول العملاء المسمى Ord هذا المثال يعطينا أقل قيمة موجودة في حقل الرصيد المسمى
بشرط أن يكونون عملاء البنك العربي فقط مع إهمال بقية البنوك المسجلة في الجدول 0 Orders
X = DStDev ( " [Ord] ","tblOrders ","[bnk_Name]='Arabi '")
والمسجلة في جدول Ord هذا المثال يعطينا الإنحراف المعياري للرصيد الموجود في حقل الرصيد المسمى
بشرط أن يكونون عملاء البنك العربي فقط مع إهمال بقية البنوك المسجلة في Orders العملاء المسمى
الجدول 0
X = DSum ( " [Ord] ","tblOrders ","[bnk_Name]='Arabi '")
والمسجلة في جدول العملاء المسمى Ord هذا المثال يعطينا مجموع الأرصدة المدخلة في حقل الرصيد المسمى
بشرط أن يكونون عملاء البنك العربي فقط مع إهمال بقية البنوك المسجلة في الجدول 0 Orders
X = DVar ( " [Ord] ","tblOrders ","[bnk_Name]='Arabi '")
والمسجلة في جدول العملاء المسمى Ord هذا المثال يعطينا تباين الأرصدة في حقل الرصيد المسمى
بشرط أن يكونون عملاء البنك العربي فقط مع إهمال بقية البنوك المسجلة في الجدول 0 Orders
X = DSum ( " [Ord] ","tblOrders")
والمسجلة في جدول العملاء Ord هذا المثال يعطينا مجموع الأرصدة لجميع البنوك في حقل الرصيد المسمى
Orders المسمى 0
وبالإمكان إضافة شروط على الدوال مثل عرض أرصدة بنك معين خلال فترة وذلك بإضافة العبارة التاليه مثلاً
txtd = DMax(" [Ord] ", "orders", "[bnk_Name]=' الرياض 'And
[Date]Between [forms]![FrmOrders]![TxtDate1]And
[forms]![frmOrders]![txtDate2")
والمسجلة في جدول العملاء المسمى Ord هذا المثال يعطينا أعلى قيمة موجودة في حقل الرصيد المسمى
بشرط أن يكونون عملاء البنك العربي فقط مع إهمال بقية البنوك المسجلة في الجدول وعلى أن Orders
تكون الأرصدة المسجلة بين التاريخين المسجلين في مربعي النص الموجودين على النموذج وهما
ففي هذه الحالة تقوم الدالة بالبحث عن أعلى رصيد مسجل في الجدول في TxttDate و 2 TxtDate1
البنك العربي للفترة الواقعة بين التاريخين المسجلين في حقلي البحث من تاريخ إلى تاريخ على النموذج وهذان
مربعي نص ليس لهما مصدر وإنما للبحث فقط وتعتمد المقارنة على حقل في الجدول يتم فيه تسجيل تاريخ
إدخال الرصيد للبنك 0
يمكن تعديل الدالة بما يتناسب مع المطلوب 0
( ) Now المزيد من التوضيح عن الدالة
. (y)
لكي تزيد الفائدة أود إضافة الأتي-:
ينتج الوقت في صورة 24 ساعة ، أي أن الساعة 3:15 عصراً على ( ) Time في حالة استخدام دالة
فإن الوقت يظهر بتنسيق 12 ساعة مضافاً إليها رمز م أو ص ( ) Now الصورة 15:15 أما مع الدالة
PM أو AM أقصد
كما رأيتم يوجد في أكسيس 9دوال وهي:
1 - دوال التاريخ والوقت 0
2 - دوال التحويلات 0
3 - الدوال الماليه 0
4 - الدوال الرياضية وحساب المثلثات 0
5 - دوال سلاسل البيانات 0
6 - دوال المجال التجميعية 0
7 - دوال التحقق من أنواع البيانات
8 - دوال المدخلات والمخرجات 0
9 - دوال أخرى متنوعة 0
80 دالة فرعية ولا بد من شرح الدوال الأساية وفوائدها = وكل دالة تتفرع إلى دوال فرعية والدوال ال 9

الطريقة الثانية :
___
المطلوب : آرائكم أين من الطريقتين نتبع 0
إضافة بسيطة في دوال التاريخ والوقت:
أن الأخيرة تعيد التاريخ فقط. DATE() تعيد التاريخ والوقت والفرق بينها وبين دالة NOW() الدالة
تعيد تاريخ هجري بهذا الشكل: DATE$
10-15-1422
شهر-يوم-سنة
تعيد الوقت محذوفاً منه رمز صباحا (ص (أو مساء (م( Time$
يمكن بواسطته الاضافة أو الانقاص من التاريخ أمثلة: DateAdd الدالة
DateAdd("m", 2, (Date))
المثال السابق يعيد لنا تاريخ بعد إضافة شهرين الى الشهر الحالي.
DateAdd("m", -2, (Date ))
المثال السابق يعيد لنا تاريخ بعد انقاص شهرين من الشهر الحالي
غد انشاء الله
قاعدة التحقق من الصحة ونص التحقق من الصحة

قاعدة التحقق من الصحة ونص التحقق من الصحة
الوظیفة:
لتحديد متطلبات البیانات التي تم إدخالھا إلى سجل ValidationRule يمكنك استخدام الخاصیة
يمكنك استخدام ، ValidationRule أو حقل أو عنصر تحكم. عند إدخال بیانات تخالف الإعداد
لتحديد الرسالة التي يتم عرضھا للمستخدم. Validation**** الخاصیة
شروط:
لا يمكن أن يحتوي التعبیر على:
2- دالات معرفة من قبل المستخدم.
يسمح بدالات المجال (، (Dsum – Dlookup – Dcount …) 3- دالات المجالات التجمیعیة
التجمیعیة فقط للتحقق من الصحة على مستوى النموذج(
(Sum – Min – Max ….) 4- الدالات التجمیعیة
Eval . 5- دالة
CurrentUser . 6- أسلوب
7- مراجع إلى النماذج أو الاستعلامات أو الجداول.
8- بالإضافة إلى ذلك، لا يمكن أن تحتوي قواعد التحقق من صحة الحقل على مراجع إلى
حقول أخرى. أما بالنسبة لقواعد التحقق من الصحة على مستوى السجلات، يمكن أن تتضمن
التعبیرات مراجع إلى حقول في ھذا الجدول.

بسم الله الرحمن الرحيم
اليوم نبدا انشاء الله
س+ج
[س كیف أمنع المستخدم من ترك الحقل فارغاً ؟]
ج: يوجد طريقتين:
1 - في خاصية مطلوب للحقل اختر نعم.
2 - في خاصية قاعدة التحقق من الصحة اكتب:
Is Not Null
وإذا أردت أن تظهر رسالة محددة للمستخدم فاكتب نص الرسالة في خاصية نص التحقق من الصحة.
س 2: كیف أجعل نص التحقق من الصحة يظھر في عدة أسطر بدلا من سطر
واحد ؟
لبدء سطر جديد. Ctrl+Enter ج: بعد كتابة السطر الأول اضغط
س 3: كیف أجل المستخدم يدخل بیانات محددة بین رقم ورقم آخر مثل الأرقام
؟ بین 7 و 20
ج: في قاعدة التحقق من الصحة اكتب:
>=7 And <=20
وإذا أردت ظهور رسالة عند مخالفة القاعدة ضع نص الرسالة في خاصية نص التحقق من الصحة.
طريقة أخرى ولكن تنفع في حالة كون مجال الأرقام صغير حتى لاتضطر لكتابة سلسلة طويلة من الأرقام ،
مثال يجب أن يكون الإدخال 1،16،3،88
In (1;16;3;88)
س 4: كیف أجعل الكلمة التي يبدأ بھا ھي حرف الباء دائما ؟
ج: في قاعدة التحقق من الصحة اكتب:
Like " "*" & "ب
س 5: لدي حقل نصي ولكني أريد أن أجبر المستخدم على إدخال بیانات رقمیه
فیه ، كیف أفعل ذلك ؟
ج: في قاعدة التحقق من الصحة اكتب:
IsNumeric([ نفس الحقل])=صواب اسم
س 6: لدي حقل تاريخ أريد أن يكون الإدخال بتاريخ أكبر من تاريخ الیوم ؟
ج: في قاعدة التحقق من الصحة اكتب:
>Date()
س 7 :في برنامجي حقل تاريخ أريد من المستخدم توحید الیوم في كل الأشھر
بمعنى أن يدخل تاريخ الیوم ھو 25 من كل شھر فھل يمكن ذلك ؟
ج: في قاعدة التحقق من الصحة اكتب:
Day([ حقل التاريخ])= 25 اسم
وإذا أردت شهر محدد فاكتب:
Month([ الحقل])= 1 اسم
وإذا أردت سنة محددة فاكتب:
Year([ الحقل])= 1422 اسم
س 8: أريد من المستخدم اختیار خیار من ثلاثة خیارات نصیة مثل:
"أصغر" و "أكبر" و "كبیر" فكیف أفعل ذلك ؟
ج: في قاعدة التحقق من الصحة اكتب:
In (" ("أصغر";"أكبر";"كبير
س 9: كیف أجعل المستخدم يدخل قیمة موجبة فب الحقل دائما ؟
ج: في قاعدة التحقق من الصحة أكتب:
>0
؟ س 10 :ماھي الطريق لمنع المستخدم من إدخال أرقام معینة مثل 4،6،64
ج: في قاعدة التحقق من الصحة اكتب:
<>4 And <>6 And <>64
س 11 : كیف أجعل المستخدم يدخل أرقام زوجیه فقط في حقل رقمي ؟
ج: في قاعدة التحقق من الصحة اكتب:
الحقل الرقمي اسم] ] Mod 2=0
س 12 : وإذا أردت أعداد فردية فقط فما القاعدة ؟
ج: في قاعدة التحقق من الصحة اكتب:
الحقل الرقمي اسم] ] Mod 2<>0
س 13 : كیف أجبر المستخدم على إدخال أكثر من حرفین في حقل نصي ؟
ج: في خاصية قاعدة التحقق من الصحة اكتب:
Len([ 1<([جديد
س 14 :لقد فمھت طريقة قاعدة التحقق من الصحة لحقل واحد ولكن ھل يصح
وضع القاعدة في خاصیة قاعدة التحقق للجدول ولیس للحقل ؟ وھل يصح
العكس ؟
ج: نعم ولكن عادة ماتستعمل قاعدة التحقق من الصحة للجدول في حالة ارتباط القيم بأكثر من حقل واحد انظر
ما يأتي ، وأما العكس فلايصح.
س 15 : ما أريده ھو أن تعمل القاعدة فقط إذا كان حقل آخر يساوي قیمة معینة
، مثال : لدي حقل تاريخ وحقل نصي إذا كان التاريخ أكبر من يوم 15 من الشھر
فالقیمة في حقل النص لابد أن تكون متأخر ؟
ج: أظهر خصائص الجدول ، وفي خاصية التحقق من الصحة للجدول اكتب:
IIf(Day([ ([اسم حقل النص]="متأخر";[اسم حقل النص]; 15 =<([حقل التاريخ اسم
س 16 :عندي جدول فیه حقلین نصیین أريد من المستخدم إذا ترك أحد الحقلین
فارغ أن لايترك الحقل الثاني فارغ بمعنى لابد أن يكتب قیمة في أحد الحقلین ؟
ج: أظهر خصائص الجدول ، وفي خاصية التحقق من الصحة للجدول اكتب:
IIf(IsNull([ الحقل 1 ]);Not IsNull([ الحقل 2 ]);Not IsNull([ (([الحقل 1

غد انشاء الله
س+ج
الخاصیةInputMask قناع الإدخال

الخاصیةInputMaالوظیفة:



لجعل إدخال البیانات أكثر سھولة وللتحكم في القیم InputMask يمكنك استخدام الخاصیة
التي يمكن أن يدخلھا المستخدمون في عنصر تحكم مربع النص.
س 1: ماھي الطريقة التي أجعل المستخدم يدخل 4 أرقام في حقل رقم
الھاتف أجبارياً وبدون مسافات أو أي أحرف أخرى ؟
ج: في خاصية قناع الإدخال ضع:
0000
س 2 :وإذا أردت أن أسمح بالمسافات أو ترك بعض الحقل فارغا بشرط أن
لايزيد الإدخال عن 4 حروف ؟
ج: في خاصية قناع الإدخال ضع:
9999
س 3 :لقد حاولت بما ذكرته لي في الجواب السابق أن أضع بین الأرقام علامة
+ وعلامة – ولكن لم استطع فما ھي الطريقة في ذلك ؟
ج: في خاصية قناع الإدخال ضع:
####
س 4 :ماسبق ھو في الأرقام ، ولكن كیف أجعل المستخدم يدخل أربعة حروف
ولايسمح له بكتابة أقل من ذلك ؟
ج: في خاصية قناع الإدخال ضع:
LLLL
كبير ولايصح صغيراً. L يجب أن يكتب حرف
س 5: ھذا واضح ، فما الطريقة لجعل إدخال الأحرف اختیارياً ؟
ج: في خاصية قناع الإدخال ضع:
????
س 6 :لكن لم تخبرني ھل يمكن في الحالتین السابقتین أن يدخل المستخدم
أرقاماً مع الحروف ؟
ج: لا.
س 7: إذن ما الطريقة إن احتجت لذلك ، ما أقصده أن يكون الإدخال حروف أو
أرقام أو كلاھما ولكن إجباريا وعدد الأحرف أربعة ؟
ج: في خاصية قناع الإدخال ضع:
AAAA
كبيراً. A يجب أن تكتب حرف
س 8: وإن أردت ما سبق اختیارياً ؟
ج: في خاصية قناع الإدخال ضع:
aaaa
س 9 :لكنه لم يسمح لي بإدخال مسافات في طريقة السؤال السابع ، ما أريده
أن يكون الإدخال إجباريا يسمح بالأرقام والحروف والمسافات ؟
ج: في خاصية قناع الإدخال ضع:
&&&&
س 10 :وإن أردت السابق ولكن اختیارياً ؟
ج: في خاصية قناع الإدخال ضع:
CCCC
س 11 :عندي حقل نصي أسجل فیه كلمة سر ، وأريد أن تظھر الأحرف على
شكل نجمة فما الطريقة ؟
ج: في خاصية قناع الإدخال ضع:
Password
س 12 :كیف أجعل الحروف المدخلة دائما كبیرة بواسطة قناع الإدخال ؟
ج: في خاصية قناع الإدخال ضع:
>ثم بقية القناع ، مثال:
'*>LLL*'
س 13 :وإذا أردت الحروف صغیرة في كل الحقل ؟
ج: في خاصية قناع الإدخال ضع:
>ثم بقية القناع ، مثال:
<LLL
س 14 : وإذا أردت القناع بعض الأحرف صغیرة وبعضھا كبیرة كیف أفعل ؟
ج: في خاصية قناع الإدخال ضع:
>ثم بقية القناع ثم < ثم بقية القناع مثال:
>LLL<LLLLL
س 15 : كیف استطیع أن أغیر الحرف النائب الافتراضي _ الى حرف أو رمز آخر ؟

ج: في آخر القناع ضع الحرف النائب مكرراً ، مثال:
لوضع = كحرف نائب اكتب:
*>LL00000*\-0000;=;=

س 16 :أريد بعض الأمثلة على قناع الإدخال ؟
ج :
قناع الإدخال أمثلة القيم تعريف
(000) 000-0000 (206) 555-0248
(999) 999-9999! (206) 555-0248
( ) 555-0248
(000) AAA-AAAA (206) 555-TELE
#999 -20
2000
>L????L?000L0 GREENGR339M3
MAY R 452B7
>L0L 0L0 T2F 8M4
00000-9999 98115-
98115-3007
>L<?????????????? Maria
Pierre
ISBN 0-&&&&&&&&&-0 ISBN 1-55615-507-7
ISBN 0-13-964262-5
>LL00000-0000 DB51392-0493
sk قناع الإدخال