كيفية التحقق من قيمة فارغة في الجدول؟

Question

باستخدام MS Access 2003

كيفية التحقق من قيمة فارغة في قاعدة بيانات Access؟

رمز بلدي.

Public Function DateToString(dte As Date) As String
Dim d As String
Dim m As String
Dim y As String
d = Day(dte)
m = Month(dte)
y = Year(dte)
If Len(d) = 1 Then d = "0" & d
If Len(m) = 1 Then m = "0" & m
DateToString = y & m & d
End Function


Public Function StringToDate(txt As String) As Date
Dim dte As String
dte = Left(txt, 4) & "-" & Mid(txt, 5, 2) & "-" & Right(txt, 2)
StringToDate = CDate(dte)
End Function




sql1 = "CREATE TABLE MOI (PreDate varchar(50))"
sql2 = "INSERT INTO MOI values('" & StringToDate(rsCardEvent1.Fields("PreDate"))  "')"

من الوظيفة أعلاه، أريد أن تحقق ما إذا لم تكن فارغة ثم لا حاجة التعليمات البرمجية الخاصة بي.

تحتاج مساعدة رمز 6.0 VB؟

Answer 1

للتحقق من NULL في حقل DataSet:

If IsNull(rs("colname")) Then 
  'Field contains a Null Value 
Else 
  'Field does 'not' contain a Null Value 
End If

للتحقق من سلسلة فارغة أو فارغة:

If (txt & "") = "" Then 
  ' txt is Null or empty
End If

Answer 2

إذا كان العنصر يأتي فعليا هو كسلسلة، فقم بذلك:

if not txt is vbNullString then
    ' code here
end if