ايران ويج

سلام من در يک پروژه از اين کد براي سرچ کردن استفاده مي کنم وقتي تمام فيلدهاي ذخيره شده در اکسس يعني فيلد ها

پر باشند اين کد کار مي کند اما اگر بعضي از فيلدها در جدول خالي بماند ديگر کد ايرور مي دهد

مثلا اگر ما يک فيلد نام و يک فيلد فاميل داشته باشيم مي خواهيم بر اساس نام جستجو کند

بايد حتما هم نام پر باشد هم فاميل وگرنه اين کد کار نمي کند

Private Sub KewlButtons1_Click()
If Text1 = "" Then GoTo 2
If Adodc1.Recordset.EOF = True Then
GoTo 2
Else
Adodc1.Recordset.MoveFirst
3 If Adodc1.Recordset.EOF = True Then
GoTo 2
Else
If Adodc1.Recordset.Fields(0).Value = Text1 Then
Text1 = Adodc1.Recordset.Fields(0).Value
Text2 = Adodc1.Recordset.Fields(1).Value
Text3 = Adodc1.Recordset.Fields(2).Value
Else
Adodc1.Recordset.MoveNext
GoTo 3
End If
End If
End If
2 End Sub

سلام
شما روش غلطی رو برای جستجو بکار بردید اینکار بسیار زمانبره
بهتره از دستورات SQL برای جستجو استفاده کنید مثلا اينجوري .
SELECT * FROM TABLE1 WHERE nam LIKE('" & Text1 & "%')"

شاید بجای استفاده از مساوی از توابع دیگر استفاده کنی خطا نده :
Instr
قبلا در بارشون نوشتم تو این لینک یک نگاه بنداز :
http://forum.iranvig.com/showthread.php?tid=3674

na man in code tanha balad am

hala mikham az hamin rah ham pish bebaram

project man ham table hast

age mishe in code ro baram dorost koni mamnmon misham

salam
age mikhai pishraft koni ravesh karet ro avaz kon.age az ravesh behzad nemikay estefade koni az ravesh find estefade kon.
Adodc1.Recordset.Find "body= '" & Text1.Text & "' "
if Adodc1.Recordset.EOF = True Then
msgbox"na item"
else
Text2 = Adodc1.Recordset.Fields(1).Value
Text3 = Adodc1.Recordset.Fields(2).Value
end if
in jori soratet kheili bala mire.
darzemn mituni bain ravesh az dataenviroment ham estefade koni