javad 2010
شنبه 30 مرداد 1389, 15:37 عصر
سلام
یک مشکلی برای من در فرم اکسس پیش آمده و می خواهم باتوجه به کد محصول گرفته شده از list box 0 مقدار zکه تاریخ ساخت محصول است رادر مثال زیر در لیست باکس چاپ نمایم. ولی ارور 6014 می ده .باید چی کارکنم تا در لیست باکس چاپ بشه؟اگه برنامه را اجرا نمایید و درستش را به من بگویید ممنون می شوم.لطفا سریعتر پاسخ دهید.
Private Sub Command4_Click()
Dim db As Database
Dim tb_to As Recordset
Set db = CurrentDb
Set tb_to = db.OpenRecordset("tb-tolid")
For i = 1 To tb_to.RecordCount
If Text0.Value = tb_to.Fields("id mahsul").Value Then
z=tb_to.field("name mahsul")
List 3.AddItem (z)
End If
End If
Next
End Sub
یک مشکلی برای من در فرم اکسس پیش آمده و می خواهم باتوجه به کد محصول گرفته شده از list box 0 مقدار zکه تاریخ ساخت محصول است رادر مثال زیر در لیست باکس چاپ نمایم. ولی ارور 6014 می ده .باید چی کارکنم تا در لیست باکس چاپ بشه؟اگه برنامه را اجرا نمایید و درستش را به من بگویید ممنون می شوم.لطفا سریعتر پاسخ دهید.
Private Sub Command4_Click()
Dim db As Database
Dim tb_to As Recordset
Set db = CurrentDb
Set tb_to = db.OpenRecordset("tb-tolid")
For i = 1 To tb_to.RecordCount
If Text0.Value = tb_to.Fields("id mahsul").Value Then
z=tb_to.field("name mahsul")
List 3.AddItem (z)
End If
End If
Next
End Sub