فعال سازي یا غیرفعال سازي كليد شيفت ( shift ) در هنگام بازكردن بانك اطلاعات اكسس

طراحان بانک اطلاعاتی اکسس بعد از کامل کردن پروژه برای جلوگیری از دسترسی کاربران به محیط طراحی اکسس و انجام تغییرات در آن اقدام به غیر فعال کردن کلید شیفت ( Shift ) می نماید .
بعد از بستن دکمه شیفت ( shift ) هیچ راهی برای دسترسی به محیط طراحی اکسس وجود نخواهد داشت ، لذا بایستی قبل از بستن دکمه شیفت ( shift ) یک کپی از بانک اطلاعات تهیه گردد .
اینجانب نرم افزاری تهیه نموده ام که با کمک این نرم افزار می توانید دکمه (Shift) را غیر فعال و یا فعال نمایید .

لینک داونلود نرم افزار Allow Bypass Key در MS Access

آموزش نحوه نصب توابع هجری شمسی و عدد به حروف در Excel , Access

Excel

این مجموعه به صورت یک Add-Ins برای اکسل طراحی شده است و به سادگی نصب می‌گردد، با استفاده از این توابع شما می‌توانید با تاریخ هجری شمسی کار کنید:

• اختلاف بین دو تاریخ را بدست آورید
• تاریخ میلادی را به شمسی و برعکس تبدیل کنید
• عدد را به حروف تبدیل نمایید و ...

این مجموعه به صورت دو فایل ارائه می‌گردد که می‌توانید آنها را از لینک زیر دریافت نمایید:

ابزارهای زبان فارسی برای اکسل

Access

تاریخ هجری شمسی در اکسس به صورت پیش فرض وجود ندارد و بسیاری از کاربران و طراحان با این مشکل مواجه هستند.
مجموعه ای توسط فرساران حدود دو سال پیش برای تاریخ شمسی و تبدیل عدد به حروف در اکسل منتشر شد که با استقبال بسیار گسترده ای مواجه گردید و بسیاری از کاربران خواهان استفاده از این مجموعه در اکسس بودند ، بنابراین توضیحات نحوه استفاده از این توابع برای اکسس در وبلاگ فرساران قرار داده شد و در حال حاضر سری جدید توابع هجری شمسی با تغییراتی در اکسس برای کاربران به صورت رایگان قابل دانلود می باشد.

ابتدا فایلهای برنامه تاریخ را از لینک زیر دریافت نمایید و آنها را از حالت Zip شده در آورید که بعد از اینکار شش فایل برنامه نویسی به زبان ویژوال بیسیک و یک فایل راهنمای توابع به صورت PDF خواهید داشت که باید فایهای برنامه نویسی شده را وارد اکسس کنید.

ابزارهای زبان فارسی برای اکسس

منبع (http://www.farsaran.ir)

تبدیل Query به String

گاهی اوقات در ساخت گزارشات لازم می شود که یک ستون را به صورت افقی نمایش دهید ، یا ستونی را می خواهید به حالت String یکجا داشته باشید . تابعی که نوشته ام از شما Query و یک Char می گیرد سپس اولین ستون را با Char گرفته شده به هم متصل می نماید.
ورودی

QToStr(“Select [Name] from Personnel”,”-“)

جدول Select

ALI

HAMID

REZA

MOHAMMAD

خروجی

(ALI-HAMID-REZA-MOHAMMAD)

Public Function QToStr(Query As String, Char As String) As String
Dim Rec As ADODB.Recordset
Set Rec = New ADODB.Recordset
Dim Str As String
Dim count As Integer
Dim I As Integer
I = 1
Rec.Open Query, CurrentProject.Connection, adOpenDynamic, adLockBatchOptimistic
count = Rec.RecordCount
If count > 0 Then
Str = "( "
Else
Str = "رکوردی وجود ندارد"
End If
While Rec.EOF = False
Str = Str + CStr(Rec.Fields(0))
Rec.MoveNext
I = I + 1
If I <= count Then 
Str = Str + Char 
Else
Str = Str + " ) " 
End If 
Wend 
QToStr = Str 
End Function