سلام...
توضیح دادن سوالم یکم سخته... سوالمو با عکس تو ضمیمه توضیح میدم و با کد زیر...
تو عکس زیر یه کمبو دیتا داریم در سمت راست با عنوان نام درس و یه کمبو دیتا دیگه داریم با نام مشخصه...
سوالم اینه که چطوری میشه درسی رو که در کمبو درس انتخاب میکنیم کدش تو جدول مشخصه انتخاب بشه و مشخصه های ا ون درس خاص بیاد...
حالا من تو کد نویسی کدی که تو تکس 6 نوشته میشه یعنی همون کد درس رو تو جدول مشخصه دارم جستجو میکنم چطوری و چه دستوری بدم که mcode(کد مشخصهای) اون درس رو برام بریزه تو کمبو 10 که همون کمبو مشخصه است...
Private Sub DataCombo1_Click(Area As Integer)
On Error Resume Next
DataEnvironment1.rsCommand3.Filter = ("lname= '" + DataCombo1.Text + "' ")
Text6.Text = DataEnvironment1.rsCommand3.Fields("lcode")
Text(0).Text = DataEnvironment1.rsCommand3.Fields("ltunit")
Set db = OpenDatabase(App.path & "\bank.mdb")
Set rs = db.OpenRecordset("moshakhase", dbOpenDynaset)
s = Text6.Text
s = "lcode='" + s + "'"
rs.FindFirst s
If rs.NoMatch Then
MsgBox ("n")
Else
DataCombo9.ListField = DataEnvironment1.rsCommand5.Fields("mcode")
End If
End Sub
این خطی که قرمز است رو مشکل دارم دستورش اجرا نمیشه....جای این چی باید بزارم...
پاسخ با نقل قول
نوشته شده توسط barnamejoo
