درخواست کمک

[vahidnewtoon]

سلام اشکال کد زیر چه که خطای ذیل رو نشون میده
Public Function fAppendDogNames(intOwnermob1 As Integer) As String
Dim intNoOfDogs As Integer, strNames As String

intNoOfDogs = DCount("*", "tblord", "[mob1]=" & intOwnermob1)

If intNoOfDogs = 1 Then
fAppendDogNames = DLookup("[CodProducts]", "tblord", "[mob1]=" & intOwnermob1)
Exit Function
Else
Dim MyDB As DAO.Database, MyRS As DAO.Recordset
Set MyDB = CurrentDb()
Set MyRS = MyDB.OpenRecordset("Select * From tblord Where [mob1]=" & intOwnermob1, dbOpenSnapshot)
MyRS.MoveFirst
Do While Not MyRS.EOF
If Len(strNames) = 0 Then
strNames = MyRS![CodProducts]
Else
strNames = strNames & " " & MyRS![CodProducts]
End If
MyRS.MoveNext
Loop
fAppendDogNames = strNames
End If

MyRS.Close
Set MyRS = Nothing
End Function

[kherad001]

درود ... چونکه توی هر دو جدول mob1 ایجاد شده، زمانی که mob1 رو می نویسید، اکسس نمی دونه به کدوم یکی اشاره می کنید، به خاطر همین فکر می کنم اگر اسم جدول رو قبل از فیلد بنویسید مشکل حل بشه ...

[vahidnewtoon]

درود ... چونکه توی هر دو جدول mob1 ایجاد شده، زمانی که mob1 رو می نویسید، اکسس نمی دونه به کدوم یکی اشاره می کنید، به خاطر همین فکر می کنم اگر اسم جدول رو قبل از فیلد بنویسید مشکل حل بشه ...

سلامی دوباره این کار رو کردم ولی حالا پیام ذیل رو میده149736

[kherad001]

احتمالا بخاطر Expression زیرش این خطا رو می گیری یا Group by بزارش یا از توابع تجمعی استفاده کن