مشکل با فیلدهای Null

[atenaa]

چه طوری میشه فهمید که فیلد من در جدول مقداری نداره و null است .من هم با این دستور امتحان کردم
rst.fields("myfld ")=Null
و هم با
rst.fields("myfld ")=""l
نتیجه ای نگرفتم
باید بگم rst هم recordset منه و یک سوال دیگه اونم اینکه اگه فیلدی در table خالی باشه چرا نمیشه مقدارش رو در textbox ریخت
یعنی اینکه فیلد من خالی ولی من این موضوع رو چک نکردم و با این دستور مقدار اون رو در یک تکست باکس می ریزم
(Text5.Text = rst.Fields(myfld
ولی این ارور رو می ده
invalid use of Null
ممنون میشم اگه کمک کنید

[__siavash__]

شما وقتی میخوای اطلاعاتی رو از دیتابیس بخونی یا تو دیتابیس وارد کنی بهتره از این دو تابع استفاده کنی
چون اگه تو دیتابیس مقدار فیلدی NULL باشه تکست باکس نمیتونه اونو نشون بده
این برای وقتی که میخوای ار دیتابیس بخونی.


Public Function Field2Str(vntField As Variant) As String
If IsNull(vntField) Then
Field2Str = ""
Else
Field2Str = Trim$(CStr(vntField))
End If
End Function

به این صورت :


Field2Str(Recordset1!Date)

اینم برای وارد کردن اطلاعات تو دیتابیس.


Public Function Str2Field(strValue As String) As Variant
If strValue = "" Then
Str2Field = Null
Else
Str2Field = strValue
End If
End Function

[atenaa]

ممنون بابت کمکتون
من تکست باکس هام و با این کدها به فیلدهام متصل کردم و فیلدهای null رو هم نشون میده
Set Text.DataSource = rst
Text.DataField = "myfld"
بابت تابعی هم که زحمتش و کشیدید و نوشتید خیلی ممنون لطف کردید