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 & " æ " & table!cus_name
End If
End If
20 table.MoveNext
GoTo 10
100 jam_name = ttext
یک 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 & " æ " & table!cus_name
End If
End If
20 table.MoveNext
GoTo 10
100 jam_name = ttext