فصل ۱۱ — Function سفارشی، SalesTax و PCase

Function داخلی Access در VBA هم قابل استفاده است. Function سفارشی Public در Standard Module مانند Function داخلی در Query، Form، Report و Code قابل فراخوانی است.

SalesTax

Public Function SalesTax(AnyNum As Currency) As Currency
   SalesTax = AnyNum * 0.065
End Function

Argument داخل Parentheses تعریف می‌شود و Type خروجی بعد از Parentheses می‌آید. مقدار نهایی با Assignment به نام Function برگردانده می‌شود. متن منبع نرخ را 6.75% توصیف می‌کند اما Code از 0.065 استفاده می‌کند؛ اختلاف خود منبع حفظ شده است.

PCase

StrConv با vbProperCase برای متن عمومی مناسب است اما McDonald، MacDonald و P.O. را کامل اصلاح نمی‌کند. PCase ابتدا StrConv را اجرا و سپس با Left/Mid/UCase استثناها را اصلاح می‌کند.

Public Function PCase(AnyText As String) As String
   Dim FixedText As String
   FixedText = StrConv(AnyText, vbProperCase)
   If Left(FixedText, 2) = "Mc" Then FixedText = Left(FixedText, 2) + UCase(Mid(FixedText, 3, 1)) + Mid(FixedText, 4)
   If Left(FixedText, 3) = "Mac" Then FixedText = Left(FixedText, 3) + UCase(Mid(FixedText, 4, 1)) + Mid(FixedText, 5)
   If Left(FixedText, 4) = "P.o." Then FixedText = "P.O." + Mid(FixedText, 5)
   PCase = FixedText
End Function

Update Query

PCase می‌تواند در Update To برای Fieldهای FirstName، LastName، Company و Address استفاده شود: PCase([FieldName]). نویسنده توصیه می‌کند ابتدا روی Copy Table آزمایش شود.

شکل‌ها و عناصر بصری این بخش