ارتباط با MSFlex

[iran2008]

سلام
بازم مزاحم شدم که از کمک هاي خوبتون استفاده کنم :

من ميخوام توي اين سورس وقتي يه شماره اي توي Text1 نوشته ميشه اگه اون شماره درون جدول MSFlex هستش ، پس بطور خودکار مشخصات مربوطه ديگه اش رو توي Text2 , Text3 هم نشون بده .
اگر هم نيست بزنه مثلا : ناشناخته


اینم از سورس من (http://irbosat.persiangig.com/VB6/Flex.rar)
--------
( اين سورس براي دو رديف اوليش فقط با کدي که نوشتم درست کار ميکنه و مشکلي نداره )
البته ناگفته نمونه که خودم ميتونم يه جورايي حلش کنم . اما براي موقعي که تعداد رديف هاي جدول MSFlex کم باشه و تازه متن رديف هاش کم و زياد نشوند . يعني همون تعداد رديف هاش ثابت هست .

اما اصل کار من همينجاست که ممکنه تعداد رديف هاي جدول MSFlex زياد باشه و ممکنه رديف هايي کم يا اضافه بشوند .
براي همين منم ميخوام که يه جوري به يه کد ثابت بشه همه متن هاي توي تکست باکس ها رو کنترل کرد.
طوري که لازم نباشه مثلا براي 100 رديف جدول کد نوشت . بلکه يه کد براي همه .



مرسي
ميدونم که بازم با کمک هاي خوبتون کارم راه ميافته .

[iran2008]

خواهشمندم یکی محبت کنه و کمکم کنه ... خیلی احتیاج به این کمک شما دارم ...

کارم گیره ..

[xman_dj]

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

[iran2008]

سلام دوست عزيز
ممنون از جوابت
محبت کردي
من همين کاري که کردي رو مد نظرم بود . مرسي.

ببين من توي برنامه اصليم طبق همين کاراريي که خودت انجام دادي منم انجام دادم . اما وقتي متني توي Text1 مينويسم بلافاصله اين پيغام مياد :


http://www.freeimagehosting.net/uploads/213f6de81a.jpg

اينم کدهاش و خط پيغام :



http://www.freeimagehosting.net/uploads/c8ae000920.jpg





Private Sub Text1_Change()
With Moshtarakin.MF
If Conn.State = 1 Then Conn.Close
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "\Moshtarakin\Moshtarakin.mdb"
rst.Open "SELECT * FROM Moshtarakin", Conn, adOpenStatic, adLockOptimistic
rst.MoveFirst
For i = 1 To rst.RecordCount
If rst!Call = Text1.Text Then
Text2.Text = .TextMatrix(i, 1)
Text3.Text = .TextMatrix(i, 2)
Text4.Text = .TextMatrix(i, 3)
Text5.Text = .TextMatrix(i, 4)
Text6.Text = .TextMatrix(i, 7)
Text7.Text = .TextMatrix(i, 8)
Text8.Text = .TextMatrix(i, 9)
Text9.Text = .TextMatrix(i, 10)
Exit Sub
End If
rst.MoveNext
Next i
Text5 = "ناشناخته"
End With
Me.Visible = True
End Sub

[xman_dj]

دقيقا نمي دونم ولي احتمالا تو پايگاه داده فيلدي به نام call نداري