کتاب آموزشی 200 پرسش و پاسخ از Access 2003 (تالیف: حبیب انگوران)

این کتاب جالب و مفید تالیف آقای حبیب انگوران است و شامل 200 پرسش و پاسخ کاربردی در مورد  Microsoft  Access 2003 میباشد.گروه فرساران پیشاپیش از زحمات ایشان در رابطه با تالیف مطالب مفیدشان کمال تشکر را داشته و برایشان آرزوی موفقیت میکنیم.و به عنوان قدردانی ﭘﻴﺶ ﮔﻔﺘﺎر مترجم را با هم مرور میکنیم :   

ﺍﻣﺮﻭﺯﻩ ﭘﻴﺸﺮﻓﺖ ﻋﻠﻢ ﻭ ﺻﻨﻌﺖ ﻭ ﺗﻜﻨﻮﻟﻮﮊﻱ ﺑﻄﻮﺭ ﭼﺸﻤﮕﻴﺮﻱ ﻫﻤﻪ ﺟﻮﺍﻧﺐ ﺯﻧﺪﮔﻲ ﺍﻓﺮﺍﺩ ﺭﺍ ﺗﺤﺖ ﺍﻟﺸﻌﺎﻉ ﻗـﺮﺍﺭ‬ ﺩﺍﺩﻩ ﺍﺳﺖ ﺑﻄﻮﺭﻳﻜﻪ ﻋﻼﻭﻩ ﺑﺮ ﺣﻀﻮﺭ ﺍﻳﻦ ﭘﻴﺸﺮﻓﺖ ﺩﺭ ﺯﻧﺪﮔﻲ ﺷﺨﺼﻲ ، ﺷﺮﻛﺘﻬﺎﻱ ﺑﺰﺭﮒ ﻭ ﻣﻮﺳﺴﺎﺕ ﻛﻮﭼﻚ‬ ‫ﻧﻴﺰ ﺑﺮﺍﻱ ﺑﻘﺎ ﻭ ﭘﺎﻳﺪﺍﺭﻱ ﺧﻮﺩ ﺁﻣﻮﺯﺵ ﻭ ﻳﺎﺩﮔﻴﺮﻱ ﺭﺍ ﺳﺮﻟﻮﺣﻪ ﻛﺎﺭ ﺧﻮﺩ ﻗﺮﺍﺭ ﺩﺍﺩﻧﺪ ﺍﺯ ﺍﻳﻦ ﺭﻭ ﺍﻓـﺮﺍﺩ ﻭ ﻛﺎﺭﻛﻨـﺎﻥ‬ ﻣﻮﺳﺴﺎﺕ ﻭ ﺷﺮﻛﺘﻬﺎ ﻧﻴﺰ ﻣﻲ ﺑﺎﻳﺴﺖ ﺟﻬﺖ ﺣﻔﻆ ﺍﻣﻨﻴﺖ ﺷﻐﻠﻲ ﺧﻮﺩ ﻭ ﺩﺭ ﺭﺍﺳﺘﺎﻱ ﺗﺤﻘﻖ ﺍﻫﺪﺍﻑ ﺷـﺮﻛﺘﻬﺎ ﺧـﻮﺩ ‫ﺭﺍ ﺑﻪ ﺍﺑﺰﺍﺭ ﻋﻠﻢ ﻭ ﺩﺍﻧﺶ ﻣﺠﻬﺰ ﻧﻤﺎﻳﻨﺪ .‬ ﺩﺭ ﺑﺴﻴﺎﺭﻱ ﺍﺯ ﺷﺮﻛﺘﻬﺎ ﮔﺬﺭﺍﻧﺪﻥ ﺩﻭﺭﻩ ﻫﺎﻱ ‪ ICDL‬ﺑﺮﺍﻱ ﻫﺮ ﻛﺎﺭﻣﻨﺪ ﺿﺮﻭﺭﻱ ﻣﻲ ﺑﺎﺷﺪ ﻭ ﺍﺯ ﺟﻤﻠـﻪ ﺩﻭﺭﻩ ﻫـﺎﺋﻲ‬ ‫ﻛﻪ ﺩﺭ ﺍﻳﻦ ﻣﻬﺎﺭﺕ ﺑﺎﻳﺪ ﮔﺬﺭﺍﻧﺪﻩ ﺷﻮﺩ ﺩﻭﺭﻩ ﺍﻛﺴﺲ ﻣﻲ ﺑﺎﺷﺪ ﻛﻪ ﺑﺎ ﺗﻮﺟﻪ ﺑﻪ ﻛﺎﺭﺑﺮﺩ ﺑﺴﻴﺎﺭ ﺯﻳﺎﺩ ﺍﻳﻦ ﻧـﺮﻡ ﺍﻓـﺰﺍﺭ‬ ‫ﺩﺭ ﻣﻜﺎﻧﻴﺰﻩ ﻧﻤﻮﺩﻥ ﻓﻌﺎﻟﻴﺘﻬﺎ ، ﺁﻣﻮﺯﺵ ﻛﺎﺭﺑﺮﺩﻱ ﺍﻳﻦ ﻧﺮﻡ ﺍﻓﺰﺍﺭ ﺭﺍ ﺑﻪ ﻫﻤﻪ ﺩﻭﺳـﺘﺪﺍﺭﺍﻥ ﻋﻠـﻮﻡ ﺗﻮﺻـﻴﻪ میکنم.
‫ﺩﺭ ﺍﻳﻦ ﻛﺘﺎﺏ ﺳﻌﻲ کرده ام ﺗﺎ ﻣﺸﻜﻼﺕ ﻭ ﺳﺆﺍﻻﺗﻲ ﻛﻪ ﻫﺮ ﻛﺎﺭﺑﺮ ﺍﺯ ﺯﻣﺎﻥ ﺁﺷﻨﺎﺋﻲ ﺑﺎ ﺍﻛﺴﺲ ﺗـﺎ ﺯﻣـﺎﻥ ﺍﺭﺍﺋـﻪ‬ ‫ﻳﻚ ﺑﺮﻧﺎﻣﻪ ﻛﺎﺭﺑﺮﺩﻱ ﺑﺎ ﺁﻥ ﻣﻮﺍﺟﻪ ﻣﻲ ﺷﻮﺩ ﺭﺍ ﺑﺼﻮﺭﺕ ﻋﺎﻣﻴﺎﻧﻪ ﻣﻄﺮﺡ ﻭ ﻳﻜـﻲ ﺍﺯ ﺳـﺎﺩﻩ ﺗـﺮﻳﻦ ﺭﻭﺵ ﺭﺍ ﺟﻬـﺖ ‫ﭘﺎﺳﺦ ﺍﻧﺘﺨﺎﺏ ﻧﻤﺎﻳد .‬‫ﺍﺯ ﻧﻜﺎﺕ ﺣﺎﺋﺰ ﺍﻫﻤﻴﺖ ﺍﻳﻦ ﺍﺳﺖ ﻛﻪ ﺑﺮﺧﻲ ﺍﺯ ﺍﻳﻦ ﭘﺮﺳﺸﻬﺎ ﻣﻤﻜﻦ ﺍﺳﺖ ﺑـﻪ ﺷـﻜﻠﻲ ﻛـﻪ‬ ﻣﻄﺮﺡ ﺷﺪﻩ ﻣﻮﺭﺩ ﻧﻴﺎﺯ ﺩﺍﻧﺸﺠﻮ ﻧﺒﺎﺷﺪ ﻭﻟﻲ ﺍﻳﺪﻩ ﺧﻮﺑﻲ ﺑﻪ ﺁﻧﻬﺎ ﻣﻲ ﺩﻫﺪ ﺗﺎ ﺍﺯ ﺍﻳﻦ ﻃﺮﻳﻖ ﺑﻪ ﺗﻌﻤﻴﻢ ﻳﺎﺩﮔﻴﺮﻱ ﻭ ﻧﺮﻡ ﺍﻓﺰﺍﺭﻫﺎﻱ ﻛﺎﺭﺑﺮﺩﻱ ﺑﭙﺮﺩﺍﺯﻧﺪ ﻭ ﻫﻤﭽﻨﻴﻦ ﺩﺭ ﺻﻮﺭﺕ ﺍﺳﺘﻔﺎﺩﻩ ﺍﺯ ﻭﺭﮊﻧﻬـﺎﻱ‬ ﺩﻳﮕﺮ ﻧﺮﻡ ﺍﻓﺰﺍﺭ ‪ Access‬ﺑﺎ ﻛﻤﻲ ﺩﻗﺖ ﻭ ﺗﻼﺵ ﻣﻲ ﺗﻮﺍﻧﻨﺪ ﺍﺯ ﻣﻄﺎﻟﺐ ﺍﻳﻦ ﻛﺘﺎﺏ ﺑﻬﺮﻩ ﻣﻨﺪ ﺷﻮﻧﺪ .‬ﺩﺭ ﺿﻤﻦ ﺑﺎ ﻓﺮﺍﮔﻴﺮﻱ ‪ VBA‬ﺭﺍﻩ ﺑﺮﺍﻱ ﺭﺳﻴﺪﻥ ﺑﻪ ﻣﻘﺼﺪ ﻫﻤﻮﺍﺭ ﻣﻲ ﮔﺮﺩﺩ.‬

   دانلود کتاب 200 پرسش و پاسخ کاربردی از Access

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

چگونگی بازیابی فایل های خراب شده در Excel

قطعا برای شما هم پیش آمده است که هنگام باز کردن یک فایل Excel با پیغام خطا مواجه شوید. مثلا:

Excel cannot open the file xyz.xlsx  because the file format or file extension in not valid. Verify that the file has not been corrupted and that file extension matches the format of the file.

و فایل excel شما باز نمی شود.

برای بازیابی و باز کردن اینگونه فایل ها، در اینجا برخی از تجربیات عملی فرساران را با شما به اشتراک می گذاریم.

     1- نام فایل و مسیر فایل را تغییر دهید.

دلیلش را نپرسید، اما این مورد در بسیاری از موارد کار کرده است. هم اسم فایل را تغییر دهید و هم فولدر آنرا .

     2- از Open & Recover خود Excel استفاده کنید.

 در Excel هنگام Open کردن یک فایل می توانید مانند شکل زیر، از Recover استفاده کنید. در خیلی از موارد این گزینه می تواند فایل را باز کند.

     3- محاسبات را خاموش کنید.

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

++++++++++++++++++++++

تغییر خودکار Format Cell سلولهای Excel

در Excel 2007  و  Excel 2010 در بسیاری از موارد کاربران هنگامی که فایلی را باز می کنند متوجه می شود که Format سلولهای آن از حالت تاریخ به عدد تغییر کرده است و یا کنار همه اعداد علامت $ تایپ شده است و طبیعتا با گزینه Format Cells آنرا تصحیح می کنند و بعد از Save کردن و باز کردن مجدد همان فایل بازهم با بهم ریختن Format سلولهای sheet مواجه می گردند.

علت این موضوع ربطی به Format Cells ندارد و ریشه آن در Style ها است .

شما در سربرگ (Home)  با گزینه ای به نام Cell Style روبرو می شوید که Style عبارت است از مجموعه ای از تنظیمات برای سلولها که تحت یک نام ذخیره می شوند.

هنگامیکه در یک فایل مرتبا از فایلهای دیگری Copy/Paste گردد این Style ها زیاد می شوند و Style ی به نام Normal نیز دچار تغییر در تنظیماتش می گردد.

برای تصحیح Normal روی آن R-click نمایید و گزینه Modify را بزنید و سپس با زدن گزینه Format  وارد پنجره Format Cell شده و از اینجا تنظیمات را انجام دهید بعنوان مثال گزینه Number را در حالت General قرار دهید.

با این کار مشکل بهم ریختن Format Cells حل می شود.

اما اگر شما با تعداد زیادی Style مواجه شدید باید تک تک آنها را پاک کنید و در برخی از موارد ده ها Style اضافی در فایل شما بوجود می آید که البته می توانید با استفاده از کد زیر آن Style های اضافی را پاک کنید:

• برای آشنایی با استفاه از این کد می توانید مقاله http://farsaran.ir/Excel_Programming_VBA_Macro را مشاهده نمایید
• برای آشنایی بیشتر با Style ها می توانید این فیلم را مشاهده نمایید: http://www.brainstorminc.com/microsoft-office-com-help.aspx?file=excel14%5F21

Public Sub ClearStyles()
' www.farsaran.ir
' By: Farshid Meidani

Dim st As Style
On Error Resume Next

              For Each st In ActiveWorkbook.Styles
              If Not st.BuiltIn Then st.Delete
Next st

End Sub

 ++++++++++++

نگهداری تغییرات ستونی از یک جدول Access

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

بدیهی است که ممکن است کسی یادش برود آپدیت کند، اشتباه کند یا تاریخ را اشتباه وارد نماید.

در Access 2007 ویژگی جدیدی اضافه شده است به نام Column History که دقیقا برای اینکار در نظر گرفته شده است.

در هنگام طراحی یک جدول باید Field ی از نوع Memo را اضافه کنید و سپس Append Only آنرا به حالت Yes تغییر دهید.

از این به بعد تمامی تغییرات این ستون را خواهید داشت. برای مشاهده تغییرات این ستون شما باید در جدول خود بر روی سلول مورد نظر Right Click کنید و سپس از Show Column History را انتخاب نمایید. تا پنجره ای مانند زیر ظاهر گردد:

برای نشان دادن تغییرات در Form ها یا Query ها شما باید با VBA یک Function جدید تعریف کنید. در ادامه شما این تابع را که از یکی از کتابهای مرجع Access انتخاب شده را مشاهده می نمایید:

Function modApp_ColumnHistory(strTableName As String, _
strColumnName As String, _
strKeyName As String, _
strKeyValue As Variant) As String

rem returns the memo history data
Dim strQueryString As String
strQueryString = "[" & strKeyName & "] = "
If Not IsNumeric(strKeyValue) Then
    rem this could be extended for other data types
    strQueryString = strQueryString & "'" & strKeyValue & "'"
    Else
    strQueryString = strQueryString & strKeyValue
End If

   modApp_ColumnHistory = Application.ColumnHistory(strTableName, _
    strColumnName, _
    strQueryString)

End Function

'

نحوه استفاده از این تابع  در Query/Form (در مثال زیر نام جدول ما tbl_www_farsaran_ir است و نام ستونی که تغییر داده شده است Budget)

 modApp_ColumnHistory("tbl_www_farsaran_ir","budget","id",[id])

  ++++++++++

ایجاد شماره سطر در اکسس توسط Query

کم نیستند کاربرانی که از فیلدهای AutoNumber که برای گذاشتن شماره سطر در Access استفاده می‌نمایند. و معمولا این کاربران این سوال را مطرح می کنند که چگونه می توان این فیلدها را Reset کرد تا "شماره سطر"! آنها درست شود.

این راه حل کاملا برای گذاشتن شماره سطر اشتباه است. شما می توانید ایجاد شماره سطر را با یکی از دو روش زیر با استفاده از Query در Access انجام دهید.

فرض شده است که شما جدولی به نام Customers دارید که در آن یک فیلد AutoNumber به نام ID موجود است. ( به کاربران تازه کار توصیه می شود که در تمامی جداول خود همواره یک فیلد با هر نام دلخواه مثلا ID داشته باشید که Primary key باشد و از نوع AutoNumber تا در اینگونه موارد بتوانید از آن کمک بگیرید):

SELECT (select count(*)+1 from customers as b where b.id FROM customers
 

SELECT DCount("*","customers","[id]<=" & [id]) AS RowNumber, *
FROM customers;
 

محدودیت های این روش‌ها: شماره سطر ها بر اساس ID تولید شده است یعنی اگر شما بخواهید Query خود را Sort کنید مثلا بر حسب نام مشتری این روش دیگر جوابگو نخواهد بود.

نکته: شما همواره می توانید به سادگی در Reportها شماره سطر را تولید نمایید. از لینک زیر جزئیات بیشتر را ببینید:

 +++++++++

چگونه ماکروی یک فایل Excel را فعال کنیم