مشکلی که داشتم حل شد
حواسم نبود اسم تکست باکس ها رو با سرستونها عوض کنم
مشکلی که داشتم حل شد
حواسم نبود اسم تکست باکس ها رو با سرستونها عوض کنم
با سلام
دوستان من میخوام برای جستجوی این فرم شرط بذارم
شرطی که میخوام بذارم اینه که مثلا اگه در فیلد نام تایپ کرد علی توی جدول هر نامی که علی توش باشه مثل محمد علی یا علی یار باشه رو تو لیست باکس بیاره
برای نام خانوادگی هم همینطور
دستور sql رو بلدم ولی نمیدونم چه جور باید تو این فرم استفادش کرد
شاید هم اشتباه باشهکد:where name,family like '*" & str & "*'
دوستان هر کس میتونه کمک کنه
ممنون
با سلام خسته نباشید
اگر امکان تمام قسمت های این کد را برام توضیح بدید ممنون میشم
تو اینترنت هر چی گشتم چیزی پیدا نکردم
راستش میخواهم با همین کدهایی که دادید که فیلتر درست کنم با این تفاوت که تعداد ستون ها و ردیف های بیشتری داره
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 نام گذاری کنید.
این کار را کردم ولی به ارور میده که مربوط به خط
List(I - 1, J - 1) = rsReserve.Fields(J - 1).Value
هست
ویرایش توسط ozviat83 : 2015/01/31 در ساعت 13:51 دلیل:اضافه کردن پیوست
این کار را کردم ولی به ارور میده که مربوط به خط
List(I - 1, J - 1) = rsReserve.Fields(J - 1).Value
هست
کمـــــــــــــــــــــــ ــــــــــــــــک
این کار را کردم ولی به ارور میده که مربوط به خط
List(I - 1, J - 1) = rsReserve.Fields(J - 1).Value
هست
الان همون فایل را پیوست کردن تا ببینید
لطفا کمکم کنید
datafilter(1) -.xlsm
تو این فایل که پیوست زدم ستون آخر را ضافه کردم که هنگامی که میخوام فیلتر را اعمال کنم ارور میده
سلام ببخشید میخواستم سلولهای تکراری از یک ستون رو در commbobox بدون حذف اون سلول ها انجام بدم و سلولهای خال انتخاب شده هم در کمبو باکس نمایش داده نشه همانند تکراری ها.ممنون میشم راهنماییم کنین.
با سلام
راه اول با استفاده از Advance fillter یک لیست بدون تکرار از لیست خود ایجاد کنید و سپس آنها را به کمبوباکس ارتباط دهید
راه دوم با استفاده از Collection یک لیست بدون تکرار و خالی در حافظه ایجاد کنید و سپس به کمبوباکس ارتباط دهیدکد PHP:
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
ویرایش توسط iranweld : 2016/10/04 در ساعت 18:58
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)