كيفية التحقق من قيمة فارغة في الجدول؟
-
23-08-2019 - |
سؤال
باستخدام 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؟
المحلول
للتحقق من 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
نصائح أخرى
إذا كان العنصر يأتي فعليا هو كسلسلة، فقم بذلك:
if not txt is vbNullString then
' code here
end if
لا تنتمي إلى StackOverflow