آموزش فیلتر داده ها بر مبنای چند محدودیت اختیاری و نمایش در لیست باکس

[~M*E*H*D*I~]

تنها ترفند به کار رفته در فایل همین بوده که خدمت شما ارائه شد

[4017]

تنها ترفند به کار رفته در فایل همین بوده که خدمت شما ارائه شد

بله كاملا درسته. بايد ستونها رو جابجا كنم
ممنون از صبر و وقتي كه برام گذاشتين

[generalsamad]

سلام دوستان
اولین باره فرم میسازم
ایراد این فرم چیه؟
خطاش اینه

Sub subfilter(srtfill As String)
rsReserve.Filter = srtfill
End Sub

[khakzad]

سلام
میشه بفرمایید این فرم چکار میکنه و مشکل کجاست؟
این کدی که گذاشتید که خطا نیست.
بفرمایید در اجرای کدوم قسمت روی این کد خطا میده

[generalsamad]

این فرم عمل جستجو رو انجام میده
هر کدوم از فیلداش پر بشه باید تو جدول جستجو کنه و مشخصات فیلد پر شده رو در لیست باکس بیاره
طبق راهنمائی های ~M*E*H*D*I~ جلو رفتم اما چون بار اولم هست فرم میسازم جواب نداد.

[generalsamad]

مشکلی که داشتم حل شد
حواسم نبود اسم تکست باکس ها رو با سرستونها عوض کنم

[generalsamad]

با سلام
دوستان من میخوام برای جستجوی این فرم شرط بذارم
شرطی که میخوام بذارم اینه که مثلا اگه در فیلد نام تایپ کرد علی توی جدول هر نامی که علی توش باشه مثل محمد علی یا علی یار باشه رو تو لیست باکس بیاره
برای نام خانوادگی هم همینطور
دستور sql رو بلدم ولی نمیدونم چه جور باید تو این فرم استفادش کرد

[COLOR=#666666][FONT=Tahoma]where name,family like '*" & str & "*'[/FONT][/COLOR]

شاید هم اشتباه باشه
دوستان هر کس میتونه کمک کنه
ممنون

[ozviat83]

کمک

با سلام خسته نباشید
اگر امکان تمام قسمت های این کد را برام توضیح بدید ممنون میشم
تو اینترنت هر چی گشتم چیزی پیدا نکردم
راستش میخواهم با همین کدهایی که دادید که فیلتر درست کنم با این تفاوت که تعداد ستون ها و ردیف های بیشتری داره
Private Sub filllistbox()

Dim I As Integer, J As Integer

With ListBox1

.BoundColumn = 1
.ColumnCount = rsReserve.Fields.Count
.ColumnHeads = False
.ColumnWidths = ""
.ControlSource = ""
.RowSource = ""
.Clear
I = 0

If Not rsReserve.BOF Then rsReserve.MoveFirst
If rsReserve.EOF = True Then
MsgBox "this record nor exist"
End If
Do Until rsReserve.EOF
I = I + 1
.AddItem
For J = 1 To .ColumnCount
.List(I - 1, J - 1) = rsReserve.Fields(J - 1).Value
Next J
rsReserve.MoveNext
Loop
End With

[~M*E*H*D*I~]

با سلام خسته نباشید
اگر امکان تمام قسمت های این کد را برام توضیح بدید ممنون میشم
تو اینترنت هر چی گشتم چیزی پیدا نکردم
راستش میخواهم با همین کدهایی که دادید که فیلتر درست کنم با این تفاوت که تعداد ستون ها و ردیف های بیشتری داره
Private Sub filllistbox()

Dim I As Integer, J As Integer

With ListBox1

.BoundColumn = 1
.ColumnCount = rsReserve.Fields.Count
.ColumnHeads = False
.ColumnWidths = ""
.ControlSource = ""
.RowSource = ""
.Clear
I = 0

If Not rsReserve.BOF Then rsReserve.MoveFirst
If rsReserve.EOF = True Then
MsgBox "this record nor exist"
End If
Do Until rsReserve.EOF
I = I + 1
.AddItem
For J = 1 To .ColumnCount
.List(I - 1, J - 1) = rsReserve.Fields(J - 1).Value
Next J
rsReserve.MoveNext
Loop
End With

مباحثی که در این کدها مطرح شده مربوط به ADO هست که خودش یک مبحث مفصل و طولانیه ، برای فیلتر با تعدا بیشتر ستون نیازی به دستکاری کدها نیست کافیه به نکته زیر عمل کنید

هر تکست باکس می بایست نام ستون متناظر خود در شیت اکسل را به اضافه حروف flt در پایان آن داشته باشد به عنوان مثال ستون نام در شیت به fname نامگذاری شده است پس تکست باکس آن را با fnameflt نام گذاری کنید.

[ozviat83]

این کار را کردم ولی به ارور میده که مربوط به خط
List(I - 1, J - 1) = rsReserve.Fields(J - 1).Value
هست

[ozviat83]

این کار را کردم ولی به ارور میده که مربوط به خط
List(I - 1, J - 1) = rsReserve.Fields(J - 1).Value
هست

[ozviat83]

کمـــــــــــــــــــــــ ــــــــــــــــک

کمـــــــــــــــــــــــــــــــــــــــک
این کار را کردم ولی به ارور میده که مربوط به خط
List(I - 1, J - 1) = rsReserve.Fields(J - 1).Value
هست

الان همون فایل را پیوست کردن تا ببینید
لطفا کمکم کنید

[ozviat83]

datafilter(1) -.xlsm
تو این فایل که پیوست زدم ستون آخر را ضافه کردم که هنگامی که میخوام فیلتر را اعمال کنم ارور میده

[javad_khosravi]

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

[iranweld]

با سلام

راه اول با استفاده از Advance fillter یک لیست بدون تکرار از لیست خود ایجاد کنید و سپس آنها را به کمبوباکس ارتباط دهید

Private Sub UserForm_Initialize()

Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
    Application.CutCopyMode = False
    Range("A1:A" & Z1).AdvancedFilter Action:=xlFilterInPlace, Unique:=False
    Range("A1:A" & Z1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "B1"), Unique:=True
        
        Z2 = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row
        
        For I = 2 To Z2
        
        ComboBox1.AddItem Range("B" & I)
        
        Next

End Sub 

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