dezchilds
یک شنبه 19 دی 1389, 10:46 صبح
سلام برنامه من كار ميكنه ولي يه مشكلي هست اينكه وقتي ميخواد براي اولين بار ثبت كنه اگه ديتابيس خالي باشه ارور ميده !!! چطوري بايد اين مشكل رو حل كنيم و يه سوال ديگه اگه بخواهيم
تو ديتابيس طبق كد زير جست و جو كنيم چطوري ميشه رنج دوتا فيلد رو جست و جو كرد ؟
مثلآ از عدد 2 تا5
If Trim(txtrenge1.Text) = vbNullString Or Trim(txtrenge2.Text) = vbNullString Then
MsgBox "adad vared nashode ya eshtebah", vbInformation + vbMsgBoxRight, "khata"
Else
Adodc1.Refresh
Adodc1.Recordset.Find "az='" & Trim(txtrenge1.Text) &"'"
DataGrid1.SetFocus
End If
اين فقط يه تكس باكس رو تو ديتابيس جست و جو ميكنه و تو ديتا گريد فوكوس ميكنه حالا ميخوام تكس renge1 رو تا محدوده txtrenge2 جست و جو كنم چطوري ؟؟؟؟ هر چي ور رفتم نتونستم
ترو خدا اگه كسي ميدونه كمك كنه خيلي كارم گيره .
تو ديتابيس طبق كد زير جست و جو كنيم چطوري ميشه رنج دوتا فيلد رو جست و جو كرد ؟
مثلآ از عدد 2 تا5
If Trim(txtrenge1.Text) = vbNullString Or Trim(txtrenge2.Text) = vbNullString Then
MsgBox "adad vared nashode ya eshtebah", vbInformation + vbMsgBoxRight, "khata"
Else
Adodc1.Refresh
Adodc1.Recordset.Find "az='" & Trim(txtrenge1.Text) &"'"
DataGrid1.SetFocus
End If
اين فقط يه تكس باكس رو تو ديتابيس جست و جو ميكنه و تو ديتا گريد فوكوس ميكنه حالا ميخوام تكس renge1 رو تا محدوده txtrenge2 جست و جو كنم چطوري ؟؟؟؟ هر چي ور رفتم نتونستم
ترو خدا اگه كسي ميدونه كمك كنه خيلي كارم گيره .