مشكلة فى ليست بوكس بحث تظهر رموز $1$

[basem said]

مرفق ملف للتوضيح يوجد يوزر فورم 8 للبحث وعندما اقوم ببحث يظر خانة المبلغ رموز ارجو الافادة ولكم جزيل الشكر

كل سنة وانت طيبين ويعود على الجميع بالخير

[الحسامي]

السلام عليكم

اخي باسم هناك سطر زائد في الكود وهو

ListBox1.List(V, 3) = q.Address

------------------------ اضافة اخرى يمكنك عدم التكرار في الكود واستخدم جمل التكرار اي الاسطر التالية

                    ListBox1.List(V, 0) = q.Offset(0, -1).Value

                    ListBox1.List(V, 1) = q.Offset(0, 0).Value

                    ListBox1.List(V, 2) = q.Offset(0, 1).Value

                    ListBox1.List(V, 3) = q.Offset(0, 2).Value

                    ListBox1.List(V, 4) = q.Offset(0, 3).Value

                    ListBox1.List(V, 5) = q.Offset(0, 4).Value

                    ListBox1.List(V, 6) = q.Offset(0, 5).Value

                    ListBox1.List(V, 7) = q.Offset(0, 6).Value

                    ListBox1.List(V, 8) = q.Offset(0, 7).Value

                    ListBox1.List(V, 9) = q.Offset(0, 8).Value

                    ListBox1.List(V, 10) = q.Offset(0, 9).Value

                    ListBox1.List(V, 11) = q.Offset(0, 10).Value

                    ListBox1.List(V, 12) = q.Offset(0, 11).Value

                    ListBox1.List(V, 13) = q.Offset(0, 12).Value

                    ListBox1.List(V, 14) = q.Offset(0, 13).Value

                    ListBox1.List(V, 15) = q.Offset(0, 14).Value

يمكنك كتابتها بصورة اخرة كالتالي

                    For I = 0 To 15

                     ListBox1.List(V, I) = q.Offset(0, I - 1).Value

                     Next

22.rar

[basem said]

مش عارف اقوال ليك ايه انا دائما تعبك معايا بجد والله الشكر لا يكفى

لا اجد كلمات تتناسب لمجهوداتك

الف شكر استاذ الحسامى