Persian Forum Network - Try to be a Professional / نرم افزار عمومي / Microsoft Office / نرم افزار / تكنیك‌های پیشرفته در اكسس / جدیدترین پست ها

تكنیك‌های پیشرفته در اكسس

fmh1 — سه شنبه 26 دی 1385 - 9:32 صبح

امیر عزیز من پست بالایی رو ادیت کردم و ازت معذرت میخوام ، شــــــــــاد باشید

تكنیك‌های پیشرفته در اكسس

sayanir — سه شنبه 26 دی 1385 - 7:27 صبح

فرهاد خان

اصلا بحث دلخوری نیست. شما هم می‌تونید، همون طور كه گفتی، با ذكر منبع ازمطلب استفاده كنی. تعجب من از تعجب شما نسبت به این بود كه "برای دریافتمقاله باید عضو سایت شویم ، پس شما از این طریق قصد دارین تعداد اعضای سایتتان را بالا ببرید ؟"

خوب این كاریه كه تقریبا همه می‌كنن. بالا بردن آمار بازدید و آمار اعضا یكی از اهداف فرعی (و بعضا اصلی) خیلی از سایت‌هاست.

به هر حال هدف اصلی سایان ارایه مطالب دست اول ترجمه شده به خوانندگان است.

به امید موفقیت هر دو طرف
مجله الكترونیكی سایان

تكنیك‌های پیشرفته در اكسس

fmh1 — دوشنبه 25 دی 1385 - 9:46 صبح

امیر جان دلخور نباش ، اگه راضی نباشی من پستم رو پاک میکنم

حالا من یکی از مطالب رو کپی کردم ، این همه مطلب خوب در سایت شما وجود داره !

ولی کپی از مطالب با ذکر منبع در قوانین سایت شما مجاز میباشد.

دوستان لطف کنن حتما در سایت sayan.ir ثبت نام کنن و از مطالب جالب این سایت استفاده کنن

تكنیك‌های پیشرفته در اكسس

sayanir — دوشنبه 25 دی 1385 - 7:57 صبح

بله دوست عزیز،

قصد ما ، مانند هر سایت دیگری، افزایش بازدیدكنندگان و اعضاست.امیدوارم این قضیه از نظر شما غیراخلاقی نباشد.

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

ممنون از اینكه به سایت ما سر زدید.

امیر سپهرام
www.sayan.ir

sayanir2007-01-15 05:29:48

تكنیك‌های پیشرفته در اكسس

fmh1 — چهار شنبه 20 دی 1385 - 8:23

strName =ctl.ControlSource

strPrefix ="chk"

strStatusText =AddSpacesToName(strName)

Case acListBox

strPrefix ="lst"

strName =ctl.ControlSource

strStatusText =AddSpacesToName(strName)

Case acComboBox

strPrefix ="cbo"

strName =ctl.ControlSource

strStatusText =AddSpacesToName(strName)

Case Else

strPrefix ="obj"

strName = ctl.Name

strStatusText =""

End Select

strName =UCase(Left(strName, 1)) & Mid(strName, 2)

' set the control's Nameproperty

ctl.Name = strPrefix& strName

' For data controls, settheir status bar text and

' tool tip textproperties.

strStatusText <> ""Then

ctl.StatusBarText =strStatusText

ctl.ControlTipText =strStatusText

End If

' Just for fun, reportthe RowSource property to

' user if control is thesort that has one.

If ctl.ControlType =acComboBox Then

strMsg = ctl.Name &vbCrLf & "SQL = " & ctl.RowSource

MsgBox strMsg,vbInformation, "List/Combo Property"

End If

DoCmd.Close acForm,sForm, acSavePrompt

Exit_Here:

Set ctl = Nothing

Set frm = Nothing

Exit Function

Err_Handler:

MsgBox Err.Description,vbExclamation, "Error"

Resume Next

End Function

كارهای بیشتری كهمی‌توان انجام داد

همان طور كهدر ابتدای این مقاله گفتم، برنامه‌های بیشتری جهتبهبود صفت‌های یك شی وجود دارند. معمولا، روش واضح و ساده است وكد بالا برای نیازهای شما كافی می‌باشد. گزارش‌ها، پرس‌وجوها[9] و حتی توابعدارای صفت‌هایی هستند كه ممكن است آنها را بخوانیدیا تنظیم كنید. بنابراین، دفعه بعد كه با یك كارترسناك روبه‌رو شدید، در مورد این كه چطور می‌توانیداشیا خود را بهبود ببخشید كمی فكر كنید.

[9] query

تكنیك‌های پیشرفته در اكسس

fmh1 — چهار شنبه 20 دی 1385 - 8:21

نكات جالب توجه فرم‌ها

كار با فرم‌هاهمانند كار با جدول‌ها است، با توجه به این نكته كه یك فرم شامل تعدادی صفتمتفاوت و مجموعه‌ای از اشیا متفاوت می‌باشد. در حالی كهجدول‌ها دارای فیلدها (ستون‌هایی) هستند، فرم‌ها شامل كنترل‌هامی‌باشند. البته كنترل‌ها نیز دارای صفت‌هایی هستندكه ممكن است خوانده یا تغییر داده شوند.

تغییر دادن كنترل‌هایفرم

پردازشیكه در این بخش بررسی می‌كنیم همانند مثالی است كهبالا بررسی كردیم، ولی به جای تنظیم شی TableDefبه مقدار"sales"یك شی Access.Form (به نام frmEmployees) به فرم ایجاد خواهیم كرد. به جای نگاه كردن به صفت‌های یكشی Field، بهبررسی صفت‌های شی كنترل می‌پردازیم. برخلاففیلدهای جدول، كنترل‌های فرم دارای انواع متفاوتی وبیان‌گر صفات متفاوتی می‌باشند. بنابراین، از صفت Form.ControlTypeاستفاده می‌كنیم تا در ادامه كار به ما كمك كند، بدون این كه خطاییایجاد نماید.

دراین مثال، می‌خواهیم عنوان‌های برچسب‌ها و متن نواروضعیت را برای محدود كردن كنترل‌ها تغییر دهیم. (درحالی كه متن نوار وضعیت را تنظیم می‌كنیم، می‌توانیمهم‌زمان متن tool tip را نیز تنظیم كنیم.) یكتغییر مفید دیگر می‌تواند نام‌گذاری مجددتمام كنترل‌ها با پیشوندهای معنی‌دار باشد؛ مانند txt برایفیلد متن، cbo برای ComboBox، و غیره. ویزارد فرم همواره برچسب‌ها را نام‌هایLabel1، Label2 و غیره نام‌گذاری می‌كند، كه برای یك برنامه‌نویسحرفه‌ای كمی ناخوشایند است. بنابراین، نام‌های جدیدیرا برای آنها انتخاب می‌كنم كه با عنوان كنترل هم‌خوانیبیشتری داشته باشند. تمام این اعمال در چند ثانیه به كمك كدزیر قابل انجام است:

Public FunctionModifyFormControls(ByVal sForm As String) As Boolean

On Error GoTo Err_Handler

Dim frm As Access.Form

Dim ctl As Access.Control

Dim strName As String

Dim strPrefix As String

Dim strStatusText AsString

Dim strMsg As String

' Begin by opening theform in design view, so it may be

' accessed by our Formobject variable.

DoCmd.OpenForm sForm,acDesign

Set frm = Forms(sForm)

' Loop through all thecontrols on the form, checking its type

to ' know how to proceed.(Labels don't have properties of a text box.)

For Each ctl Infrm.Controls

If Left(ctl.Name, 3) ="lbl" Then Stop

Select Casectl.ControlType

Case acLabel

strPrefix ="lbl"

strName =Replace(ctl.Caption, " ", "")

strStatusText =""

Case acTextBox

strPrefix ="txt"

strName =ctl.ControlSource

strStatusText =AddSpacesToName(strName)

Case acCheckBox

(ادامه كد درصفحه بعد)...

تكنیك‌های پیشرفته در اكسس

fmh1 — چهار شنبه 20 دی 1385 - 8:17

ستون توضیحات جدول راتنظیم كنید

براینمایش فرآیند تخصیص یك مقدار به یك صفت،مثالی از دنیای واقعی، كه ممكن است واقعا به آننیاز پیدا كنید، می‌آورم. در این مثال، صفت توضیحاتتمام فیلدهای جدول موردنظر به یك نسخه سازگار[7]از نام ستون تنظیم شده‌اند. توجه كنید كه در شكل زیر، هرفیلد جدول دارای صفت توضیحاتی است كه با نسخه‌ای ازنام ستون كه برای انسان خواناتر است، با فاصله‌هایی میان كلمات،تنظیم شده است. ممكن است این كار هنوز چندان پخته نباشد، ولی به هرحال یكی از قابلیت‌های بهبود دهنده من است.

به علاوه، ممكناست تغییر صفات جالب به نظر برسد، زیرا هنگامی كه ازویزارد برای ایجاد یك فرم از یك جدول استفادهمی‌كنید، اكسس از مقدار صفت توضیحات جهت به‌روزرسانیاتوماتیك متن نوار وضعیت (كه در مثال بعد آن را پیاده‌سازیخواهیم كرد) استفاده می‌كند. این كار "غذای سگ خودرا خوردن"[8] خواندهمی‌شود و مایكروسافت این كار را به خوبی انجام می‌دهد.بنابراین، اگر این كد را برای مجهز كردن هر فیلد بهتوضیحات به كار ببرید، این مقادیر در فرم‌هاییكه با ویزارد فرم ایجاد شده‌اند منتشر خواهند شد.

Public FunctionSetTableColumnDescriptions(sTable As String) As Boolean

On Error Resume Next

Dim dbs As DAO.Database

Dim tdf As DAO.TableDef

Dim fld As DAO.Field

Dim prp As DAO.Property

Dim strValue As String

Dim strOut As String

Set dbs = CurrentDb

Set tdf =dbs.TableDefs(sTable)

' Loop through all thefields (columns)

For Each fld Intdf.Fields

' Grab the field name andadd spaces to make it human readable

strValue = fld.Name

' See the AddSpacesToNamefunction below. (see download file)

strValue =AddSpacesToName(strValue)

' Attempt to read and setthe property

Iffld.Properties("Description") = "" Then

fld.Properties("Description")= strValue

End If

' If the property didn'texist, there will have been an error and

' it needs to be added.

If Err.Number = 0 Then

' No problem. Propertyexisted and the value was set.

ElseIf Err.Number = 3270Then

' This error means theproperty was not found.

' We need to create it.

Err.Clear

Set prp = fld.CreateProperty("Description",dbText, strValue)

fld.Properties.Append prp

If Err.Number <> 0Then

MsgBox Err.Description,vbExclamation, "Error"

End If

Else

' Not sure what the errorwas. Report to user.

MsgBox Err.Description,vbExclamation, "Error"

End If

Set prp = Nothing

Set tdf = Nothing

Set dbs = Nothing

End Function

در اینمثال ترفندی نهفته است، زیرا هنگامی كه مقدار اولیه‌ایبرای توضیحات در نظر گرفته نشده باشد، در واقع صفت اصلا وجود ندارد[بنابراین، نمی‌توان مقداری به آن نسبت داد. -ویراستار]. چندی پیشمثالی در گروه خبری دیدم كه از مثال فوق بسیار جالب‌تربود، ولی در عین حال با همین روش كار می‌كرد. باروشی ساده صفت را مقداردهی می‌كند و اگر خطایی باشماره 3270 رخ دهد، آنگاه متوجه می‌شوید كه نیاز به ایجادصفت می‌باشد.

برایایجاد یك صفت، باید هنگام ایجاد شی صفت متد Field.CreatePropertyرا فراخوانی كنید و سپس به روش گفته شده آن را به مجموعه Field.Propertiesاضافه كنید. من از تابعی اضافه استفاده می‌كنم كه كد آن درهیچ جای این مقاله آورده نشده است، اما در فایل این مقاله وجوددارد.

[7] adapted

[8] ترجمه eating your own dogfood می‌باشد.این اصطلاح بیشتر برای شركت‌هایی استفاده می‌شود كه از محصولات تولیدی خودشاناستفاده می‌كنند.(به علت تنوع محصولات یا امكانات تمام كارها را با محصولات خودشانانجام می‌دهند) - ویراستار

تكنیك‌های پیشرفته در اكسس

fmh1 — چهار شنبه 20 دی 1385 - 8:15

برایتخصیص شی TableDef، از دستور SET به همان صورت كه در كد زیر نشان داده شده است، استفادهمی‌شود. از آن جایی كه در این مثال روی صفتخاصی بحث نمی‌كنیم، یك حلقه ForEach برایچرخیدن روی تمام صفات و گزارش‌دهی روی نام و مقدار آنها ایجادشده است. متغیر رشته strOut برای ساختن لیست به كار برده می‌شود ونتایج نهایی در یك كادر پیام[6]قرار داده شده و به عنوان خروجی تابع نشان داده می‌شود.

Public FunctionListTableProperties(ByVal sTable As String) As String

On Error GoTo Err_Handler

Dim dbs As DAO.Database

Dim tdf As DAO.TableDef

Dim prp As DAO.Property

Dim strProp As String

Dim strOut As String

DoCmd.Hourglass True

Set dbs = CurrentDb

strOut = sTable &vbCrLf & String(40, "-") & vbCrLf

Set tdf =dbs.TableDefs(sTable)

For Each prp Intdf.Properties

If prp.Name ="NameMap" Or prp.Name = "GUID" Then

' Do nothing for these...they return funky data

Else

' Output the propertyname and value where value exists

If prp.Value <>"" Then

strOut = strOut &prp.Name & " = " & prp.Value & vbCrLf

End If

ListTableProperties =strOut

MsgBox strOut

' -------------- SampleOutput --------------

'PrintListTableProperties("authors")

'authors

'----------------------------------------

'Name = authors

'Updatable = True

'DateCreated = 3/8/2006 7:14:56 AM

'LastUpdated = 9/6/2006 1:28:49 PM

'Attributes = 0

'RecordCount = 23

'Orientation = 0

'OrderByOn = False

'DefaultView = 2

' -------------- SampleOutput --------------

Exit_Here:

Set tdf = Nothing

Set dbs = Nothing

DoCmd.Hourglass False

Exit Function

Err_Handler:

MsgBox Err.Description,vbExclamation, "Error"

Resume Exit_Here

End Function

توجه كنیدكه در این كد هر صفتی كه مقدار تخصیص‌یافته ندارد حذف شدهاست. بنابراین، صفات دیگری از جدول را می‌توان مد نظر قرار داد.برخی از این صفات می‌توانند ویرایش شوند وبرخی نمی‌توانند. به عنوان مثال، نمی‌توانید تاریخایجاد یك جدول را به‌سادگی با تخصیص مجدد مقدار به صفت آنتغییر دهید. ولی می‌توانید صفات Orientation و OrderByOn را به‌سادگیبا تخصیصمقادیری جدید به آنها تغییر دهید.

[6] message box

تكنیك‌های پیشرفته در اكسس

fmh1 — چهار شنبه 20 دی 1385 - 8:10

چكیده:

دربرنامه‌نویسی MS Access به میزان زیادی می‌توان از امكان ویزارد استفادهنمود. محیط راحت و سریع این نرم‌افزار معمولا باعث می‌شود كهبرنامه‌نویسان بسیاری از ویژگی‌های تعبیه شده برای یك جدول یا یك فرم رانادیده بگیرد و از قدرتی كه این ویژگی‌ها می‌توانند برای یك برنامه‌نویسحرفه‌ای ایجاد كنند، غافل بماند.
كلید واژه:

MS Access, programming, Object, enhancifier

مقاله حاضر نشانخواهد می‌دهد كه چگونه باید به خصوصیات اشیا متفاوتمایكروسافت اكسس[1]از طریق كد VBA دسترسی پیدا كرد و تغییراتی را درآنها اعمال نمود. بنابراین، در این مقاله به ایجاد یك بهبوددهنده برای اكسس می‌پردازیم. غلط‌یاب املایی برنامه ورد[2] به من می‌گوید كه هیچپیشنهاد املایی‌ای برای این كلمه [منظور كلمه enhancifier استكه در عنوان مقاله استفاده شده است. - ویراستار] وجود ندارد، ولی منبیشتر و بیشتر به این كلمه علاقه‌مند می‌شوم، اگراین كلمه متداول شود، می‌تواند یكی از لغات زبانانگلیسی شود. (امیدوارم كه كاخ سفید این سایترا تحت نظر داشته باشد. اگر رییس جمهور بوش در سخنرانی بعدی خود از اینكلمه استفاده كند، افتخارش نصیب من خواهد شد!)[3]

از آنجایی كه برنامه‌های بسیاری برای پیاده‌سازیاین عمل می‌تواند وجود داشته باشد، نمی‌توانم تمام آنها راتوضیح دهم، ولی با یادگیری اصول و كمی تمرین،می‌توانید هنگام برخورد با این نوع خصوصیات اصول گفته شدهرا به كار گیرید. برای به‌كارگیری این تكنیكباید مراحل زیر را طی كنید:

1. درون جدول sales از پایگاه نمونه Pub و لیست خصوصیاتش بگردید.

2. درون فیلدهای جدول sales بگردید و برایهر یك توضیحی بنویسید.

3. درون كنترل‌های فرم بگردی وخصوصیت RowSource كنترل Combo box را بخوانید.

4. درون كنترل‌های فرم بگردیدو برای هر كدام status bar و متن جایگزین قرار بدهید.

دریافتفایل استفاده شده در مقاله

از كار با جداول لذت ببرید

برای پیونددوباره جداول، باید درون مجموعه TableDefs (مجموعه‌ای شاملتعاریف تمامی جدول‌هایی كه در پایگاه داده خوددارید) بچرخید، صفت اتصال[4] آنهارا تنظیم كنید و مقدار اولیه‌ای به متد RefreshLinkتمام اشیا بدهید.

خصوصیات جدول‌ها را لیست كنید

ابتدا، بهبررسی كد لازم برای پیاده‌سازی یك حلقه روی صفات تمامجدول‌ها می‌پردازیم. تابع ListTableProperties نام جدولی را از پایگاه داده بهعنوان پارامتر ورودی دریافت می‌كند. (برای رعایت اختصار،این مثال كدی را كه وجود جدول مورد نظر را بررسی می‌كند، شاملنمی‌شود.) برای این كه بتوانید صفات را بررسی كنید،باید یك شی صفت، یك شی تعریف جدول[5] و یك شیپایگاه داده ایجاد كنید.

برخیكاربران حرفه‌ای اكسس ممكن است انتساب شی پایگاه داده را فراموش كنند و تنها از CurrentDb() كه شی dbs شماست استفاده كنند، ولی من با نمونه‌هایی كهبه این صورت ایجاد می‌شود مشكل دارم، بنابراینهمیشه یك شی سطح بالای پایگاه داده ایجادمی‌كنم و هنگامی كه كار تمام شد آن را از بین می‌برم.

[1] Microsoft Access

[2] Word

[3] اشاره به این مطلب است كه جورج بوش در سخنرانی‌هایشبه دفعات از كلمات نادرست و غیرمصطلح استفاده كرده است. - ویراستار

[4] Connect Property

[5] TableDef object

تكنیك‌های پیشرفته در اكسس

fmh1 — چهار شنبه 20 دی 1385 - 8:08

سلام

با اجازه من میخوام مطالب رو اینجا کپی کنم تا دوستان راحتتر استفاده کنن !

منبع مطالب پایین : www.sayan.ir
fmh12007-01-16 06:58:30

تكنیك‌های پیشرفته در اكسس

sayanir — چهار شنبه 20 دی 1385 - 3:25

یك مقاله عالی برای كسانی كه از اكسس انتظارات بیشتری دارند:

http://www.sayan.ir/ViewArticle.aspx?ArticleID=147

نظرتون چیه؟