PDA

View Full Version : مقدار null در recordset



bani_hashemi
شنبه 02 اردیبهشت 1385, 12:12 عصر
سلام به همه
یک sql دارم که یک جدول را فراخوانی میکند مقدار فیلد یکی از رکوردها خالی است در هنگام اجرای ماژول وقتی به آن رکورد خالی میرسد در خط آبی خطای invalid use of null میدهد چکار کنم ؟

Function jam_name(code2 As Integer) As String
Dim data As Database
Dim table As Recordset
Dim ttext As String



Set data = CurrentDb
Set table = data.OpenRecordset("SELECT customer.code, customer.cus_name FROM customer ;")


ttext = ""
10 If table.EOF Then GoTo 100
If table!code <> code2 Then GoTo 20
If table!code = code2 Then

If ttext = "" Then
ttext = table!cus_name
Else
ttext = ttext & " &aelig; " & table!cus_name
End If
End If
20 table.MoveNext
GoTo 10
100 jam_name = ttext

mohammadgij
سه شنبه 05 اردیبهشت 1385, 14:08 عصر
ببین دوست عزیز شما یه متغر از نوع String رو نمی تونی با Null پر کنی. باید یا با یه شرط اگه خالی بود ازش رد شی با مقدار دیگه توش بریزی

به جای خط آب این بنویس . اگه خالی بود صفر به جاش می زنه
ttext = NZ(table!cus_name,0)

bani_hashemi
چهارشنبه 06 اردیبهشت 1385, 12:30 عصر
با تشکر فراوان:تشویق:

mohammadgij
چهارشنبه 06 اردیبهشت 1385, 13:23 عصر
خواهش می کنم امیدوارم بدردت خورده باشه