بانک اطلاعات اکسس

[fokker]

با سلام . دوستان عزیز من در ساخت قسمتی از بانک اطلاعاتی خودم با مشکل مواجه شدم خواهشا اگر کسی میتونه کمک کنه ممنون میشم.

در این بانک اطلاعاتی دو تا جستجو نوشتم که این عمل برای یکی جواب داد ولی در دومی پیغام خطا 3079 میده که به شرح زیر است
the specified field 'Tbl_karJozei.ID' could refer to more than one table listed in the from clause of your SQL statement.
در قسمت کد نویسی برای جستجو از کد زیر استفاده کردم :
()Private Sub makeQuery
On Error GoTo Err_makeQuery
Dim MyDB As DAO.Database
Dim qdef As DAO.QueryDef
Dim i As Integer
Dim strSQL As String
Dim strWhere As String
Dim strIN As String
Dim flgSelectAll As Boolean
Dim varItem As Variant
Set MyDB = CurrentDb()

_ & " ,strSQL = " SELECT Tbl_KarJozei.ID, Tbl_montajJozei.Id_jozei, Tbl_montajJozei.Id_montaj, Tbl_MontajDemontaj.ID
_ & " Tbl_MontajDemontaj.WT, Tbl_MontajDemontaj.AssemblyDisAssembly, Tbl_MontajDemontaj.Action , Tbl_KarJozei.Name "
_ & " FROM Tbl_MontajDemontaj INNER JOIN (Tbl_KarJozei INNER JOIN Tbl_montajJozei ON "
" Tbl_KarJozei.ID = Tbl_montajJozei.Id_jozei) ON Tbl_MontajDemontaj.ID = Tbl_montajJozei.Id_montaj "

For i = 0 To List34.ListCount - 1
If List34.Selected(i) Then
"," & (strIN = strIN & List34.Column(0, i
End If
Next i
"(" & (strWhere = " WHERE Tbl_KarJozei.ID in (" & Left(strIN, Len(strIN) - 1
strSQL = strSQL & strWhere
"MyDB.QueryDefs.Delete "query35
(Set qdef = MyDB.CreateQueryDef("query35", strSQL
DoCmd.OpenQuery "query35", acViewNormal
For Each varItem In Me.List34.ItemsSelected
Me.List34.Selected(varItem) = False
Next varItem
:Exit_makeQuery
Exit Sub
:Err_makeQuery
If err.Number = 5 Then
" "MsgBox
Resume Exit_makeQuery
Else

MsgBox err.Description
Resume Exit_makeQuery
End If
End sub