SubForm Выберите строку и отредактируйте источник

У меня есть SubForm ("SubForm главного меню"), которая находится в MainForm ("Главное меню")... Я хочу выбрать строку в SubForm, а затем перетащить соответствующую строку в другую форму для редактирования.

У меня есть следующий код, но он не выполняет то, что я ожидаю:

Private Sub Form_Activate()
    Me.Requery
    If IsLoaded("Main Menu") Then
        If Forms![Main Menu]![Main Menu SubForm].Form.RecordsetClone.RecordCount > 0 Then
            DoCmd.GoToControl "txtWOrderID"
            DoCmd.FindRecord Forms![Main Menu]![Main Menu SubForm].Form![WOrderID]
        End If
    End If
End Sub

Я приложил ссылку на свою базу данных для справки, если это необходимо: Access Invoice System

2 ответа

Решение

Я закончил, заставляя это работать, делая это из Основной формы:

Private Sub btnViewWorkOrder_Click()
    DoCmd.OpenForm "Work Order", acNormal, , "[WOrderID] = '" & Forms![Main Menu]![txtWOrderID] & "'", acFormEdit, acDialog
End Sub

Я хотел бы сделать что-то вроде (и это aircode, поэтому он нуждается в настройке):

forms!WOrderID.RecordSource = "Select * from MyTable where WOrderID = " & me.txtWOrderID & ""
Forms!wOrderID.Refresh
Другие вопросы по тегам