Я получаю сообщение об ошибке "Ошибка 2105 доступа во время выполнения вы не можете перейти к указанной записи"?Помогите мне, пожалуйста - PullRequest
Новая
       3

Я получаю сообщение об ошибке "Ошибка 2105 доступа во время выполнения вы не можете перейти к указанной записи"?Помогите мне, пожалуйста

2 голосов
/ 28 июня 2010 
 Private Sub cmd_New_Click()
    Dim Response%
    If Me.Dirty Then
        Response = MsgBox("Save changes to the job record?", vbYesNoCancel, scAppTitle)
        Select Case Response
        Case vbYes
            SendKeys "+{Enter}"
        Case vbNo
            Me.Undo
        Case vbCancel
            Exit Sub
        End Select
    End If

    cbo_SourceID.Requery


    DoCmd.GoToRecord acDataForm, Me.Name, acNewRec


    DoCmd.GoToControl CtlName(Me, 0)

End Sub

Набор записей из комментариев ниже 

SELECT tbl_Jobs.*,
 tbl_JobLocations.*,
 tbl_Invoices.*,
 tbl_Clients.client_ClientNumber,
 tbl_Clients.client_PrimaryContactID,
 tbl_Clients.client_Name,
 tbl_Clients.client_Address,
 tbl_Clients.client_Phone,
 [jobl_KeymapPage] & [jobl_KeymapGrid] AS qcalc_KMC,
 [client_City] & " " & [client_State] & " " &  [client_Zip] AS qcalc_ClientCSZ,
 [appr_FirstName] & " " & [appr_LastName] AS qcalc_ApprName,
 tbl_Appraisers.appr_Initials,
 tbl_Borrowers.bor_BorrowerName,
 tbl_Borrowers.bor_Address,
 tbl_Borrowers.bor_City,
 tbl_Borrowers.bor_State,
 tbl_Borrowers.bor_Zip,
 tbl_Borrowers.bor_Phone,
 tbl_Borrowers.bor_Fax,
 tbl_Borrowers.bor_Email,
 tbl_Borrowers.bor_Remarks,
 tbl_SaleSources.ssor_SourceDescription,
 tbl_Invoices.inv_RetainerInvoiceDate AS RetainerDate 
 FROM (tbl_Clients 
 INNER JOIN (tbl_Appraisers 
 RIGHT JOIN (((tbl_SaleSources 
 RIGHT JOIN tbl_Jobs 
      ON tbl_SaleSources.ssor_SourceID = tbl_Jobs.job_SaleSourceID) 
 LEFT JOIN tbl_Invoices 
      ON tbl_Jobs.job_JobNumber =tbl_Invoices.inv_JobNumber) 
 LEFT JOIN tbl_Borrowers 
      ON tbl_Jobs.job_JobNumber = tbl_Borrowers.bor_JobNumber) 
      ON tbl_Appraisers.appr_AppraiserID = tbl_Jobs.job_AppraiserID) 
      ON tbl_Clients.client_ClientID = tbl_Jobs.job_ClientID) 
 LEFT JOIN tbl_JobLocations 
      ON tbl_Jobs.job_JobNumber = tbl_JobLocations.jobl_JobNumber 
 ORDER BY tbl_Jobs.job_JobNumber;

1 Ответ

3 голосов
/ 28 июня 2010

Ваша форма и набор записей позволяют дополнения? Вы можете проверить это, посмотрев на панель навигации внизу формы, чтобы убедиться, что звезда (> *) затенена.

Чтобы открыть страницу свойств, измените форму в режиме конструктора и выберите в меню Вид-> Свойства.

Посмотрите на Разрешить дополнения, если это Нет, то это, вероятно, ответ. Измените его на Да и проверьте еще раз, можете ли вы обновить форму, если это не устранило проблему, тогда ...

Посмотрите на вкладку данных, вы увидите источник записи - это данные, на которых основана форма. Если это имя запроса, откройте запрос и посмотрите, можете ли вы добавить к нему строку. Если это строка sql (SELECT Stuff FROM table), вырежьте и вставьте ее как комментарий.

...