Concatenate Column

مثال در سایت زیر دقیق بخوانید و اجرا کنید ( هر آنچه نمی دانید را در google سرچ کرده و با یادگیری از اکسس لذت ببرید

Concatenate-Column-Values-from-Multiple-Rows-into-a-Single-Column-with-Access

مثالی دیگر 

Public Function ConcatRelated(strField As String, _ strTable As String, _ Optional strWhere As String, _ Optional strOrderBy As String, _ Optional strSeparator = ", ") As Variant

Dim rs As DAO.Recordset

Dim rsMV As DAO.Recordset

'Multi-valued field recordset

Dim strSql As String

SQL statement'

Dim strOut As String

Output string to concatenate to'

Dim lngLen As Long

Length of string'

Dim bIsMultiValue As Boolean

Flag if strField is a multi-valued field'

Initialize to Null'

ConcatRelated = Null 

(Set rs = DBEngine(0)(0).OpenRecordset(strSql, dbOpenDynaset

(Determine if the requested field is multi-valued (Type is above 100'

(bIsMultiValue = (rs(0).Type > 100

Do While Not rs.EOF

If bIsMultiValue Then 

For multi-valued field, loop through the values'

Set rsMV = rs(0).Value

Do While Not rsMV.EOF

If Not IsNull(rsMV(0)) Then

strOut = strOut & rsMV(0) & strSeparator

End If

rsMV.MoveNext

Loop

Set rsMV = Nothing

ElseIf Not IsNull(rs(0)) Then

strOut = strOut & rs(0) & strSeparator

End If

rs.MoveNext

Loop

rs.Close

Clean up'

Set rsMV = Nothing

Set rs = Nothing

Exit Function 

For the example above, you could set the  ControlSource of a text box to

=

"ConcatRelated("OrderDate", "tblOrders","CompanyID

[CompanyID] & 

or in a query:

"SELECT CompanyName, ConcatRelated("OrderDate

([tblOrders", "CompanyID = " & [CompanyID",

FROM tblCompany

ماکزیمم یک گروپ در اکسل

بسیار ساده و کاربردی فقط یاد آوری کرده که کنترل شیفت اینتر را بعد از اتمام فرمول بفشارید 

تغییر نام و اضافه کردن دکمه

تغییر نام کامند باتن با تنظیم خاصیت Caption انجام میگیرد چه در Property Sheet و خاصیتی بنام کپشن در حالت دیزاین فرم چه در محیط VB اکسس ،  ولی ساخت دکمه ی جدید امکانپذیر نیست مگر اینکه فرم در حالت دیزاین بطور Hidden باز شده و با CreateControl و آرگومان هایش آنرا (  Left Right Width Height ) ایجاد کرد ولی اگر دیتابیس به ACCDE تبدیل شود چون دیزاین بسته میشود اینکار با عدم موفقیت روبرو خواهد شد مگر اینکه باتن هایی در فرم ایجاد و VISIBLE=FALSE شود و بعد زمان فشردن دکمه ی دیگر آن / آنها را با تنظیم کردن خاصیت VISIBLE به TRUE مشاهده نمود ، در ضمن خاصیت های Left یا Top هم میتواند نسبت به جابجایی آنها اقدام نماید