ریختن یک فیلد در آرایه

[IMANAZADI]

با سلام
یک جدول داریم شامل یک فیلد عددی از نوع Integer بنام age
در کدنویسی vba چطوری میتونم مثلا فیلدهای که بزرگتر از 15 هستند رو بخونم و در یک آرایه بریزم

[Abbas Amiri]

با سلام
یک جدول داریم شامل یک فیلد عددی از نوع Integer بنام age
در کدنویسی vba چطوری میتونم مثلا فیلدهای که بزرگتر از 15 هستند رو بخونم و در یک آرایه بریزم

شما می تونید مقادیر مورد نظر رو در یک کوئری هم بدست بیارید .
تابع زیر با پارامترهای نام جدول ونام فیلد مقادیر بزرگتر از 15 را در قالب یک آرایه برمی گرداند .
میتونید آنرا به یک متغیر واریانت منتسب کنید



Function GetFieldValuesInArray(TableName As String, FieldName As String)
Dim rs As Recordset, arr() As Integer, i As Integer
Set rs = CurrentDb.OpenRecordset("SELECT " & FieldName & " FROM " & TableName & " WHERE " & FieldName & " > 15")
rs.MoveLast: rs.MoveFirst
ReDim arr(rs.RecordCount - 1)
Do Until rs.EOF
arr(i) = rs(0)
i = i + 1
rs.MoveNext
Loop
GetFieldValuesInArray = arr
End Function
مثال:
myVar = GetFieldValuesInArray("MyTableName", "MyFieldName")

[IMANAZADI]

با تشکر از شما
دوست گرامی کار این دو کد چیه ؟

rs.MoveLast
rs.MoveFirst


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

[Abbas Amiri]

با تشکر از شما
دوست گرامی کار این دو کد چیه ؟

rs.MoveLast
rs.MoveFirst


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

سلام

اول بعد از خط سوم یک خط اضافه کنید :

If rs.RecordCount=0 then Exit Function
چون در صورت عدم وجود رکورد درجدول باعث RunTime Error میشه .

در مورد سوال تان قبل وبعد از کدهای فوق عبارت Debug.Print rs.RecordCount رو تایپ کنید و بعد از صدا زدن تابع ببینید در Immediate Window چه مقادیری چاپ می شود .
معمولا اولین مقدار یک است و دومی تعداد واقعی رکوردها .

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