جستجو رکوردهادر اکسس

[mr_esmaily]

سلام
فرض کنید که یک بانک اکسس داریم که می خوایم رکورد هایی که در فیلد تاریخ (Date) اونها یک تاریخ معیین است رو در یک لیست باکس نمایش بدیم و با بقیه رکورد ها کاری نداشته باشیم.
باچه کدی میشه این کاروکرد؟ :wink:
البته تمام اطلاعات اون رکورد: نام ، نام خانوادگی و...

[روح اله معینی زاده]

سلام دوست گرامی

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

your_SQL_like_this = "SELECT * FROM mytable WHERE fieldDate = '" & _
favoriteDate & "'"

کد مربوط به ثبت در listbox

list1.AddItem "field1" & " " & "field2" & " " & "field3"

فقط توجه داشته باشی که به جای field1 و ... باید فیلدهات رو بذاری. البته خودت می دونی که این عمل باید توی یه حلقه انجام بشه تا وقتی که کل رکوردهات نوشته بشه. :oops:

از مابقی دوستان هم می خوام که چند ستونی رو بنویسن. من هم خودم علاقه مندم که اون رو یاد بگیرم.

با احترام- خدانگهدار.

[A.Noor]

با سلام

این روش قبلا در همین سایت بصورت مقاله مطرح شده :




Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const LB_SETTABSTOPS = &H192


Public Function SetLBTabStops(LB As Object, ParamArray TabStops()) As Boolean

Dim alTabStops() As Long
Dim lCtr As Long
Dim lColumns As Long
Dim lRet As Long

On Error GoTo errorhandler:

ReDim alTabStops(UBound(TabStops)) As Long

For lCtr = 0 To UBound(TabStops)
alTabStops(lCtr) = TabStops(lCtr)
Next

lColumns = UBound(alTabStops) + 1

lRet = SendMessage(LB.hwnd, LB_SETTABSTOPS, lColumns, alTabStops(0))
SetLBTabStops = (lRet = 0)

Exit Function

errorhandler:
SetLBTabStops = False

End Function


در فرم مورد نظر

Call SetLBTabStops(MyListName, 100, 175, 230)

در موقع پر کردن لیست هم


MyListName.AddItem field1 & vbTab & field2 & vbTab & field3