نوشته شده توسط
reza_1199
سلام و عرض ادب خدمت دوستان و اساتید برجسته
دوستان در نمونه پیوستی می خواستم اطلاعات یک جدول رو که یکی از فیلدهاش تاریخ است به صورت تیزر وار درون یک تکست باکس بروی فرم نمایش بده البته فیلدهایی که برابر با تاریخ جاری سیستم هست یه مقدار کدهایی براش نوشتم ولی متاسفانه ایراد گرفت ممنون میشم اساتید یه نگاهی بندازن . سپاس
سلام
خطا بخاطر استفاده از تک کوتیشن در فیلد عددی تاریخ و نوشتن Text2 بصورت Text2.Text میباشد .
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT * from personal WHERE (d=" & Text0 & ")")
Do While Not rst.EOF
Text2 = Text2 & rst!eb & vbNewLine
rst.MoveNext
Loop
rst.Close
db.Close