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