0

https://msdn.microsoft.com/en-us/vba/access-vba/articles/form-recordset-property-access

このリンクはまさに​​私が必要としているものですが、それをたどった後でも、サブフォームのデータを更新できません。それらを ADO データ ソースにバインドし、開くとデータは正しく表示されますが、サブフォームの基になるデータを変更すると、メイン フォームを閉じて再度開くまで表示されません。

Private Sub Form_Open(Cancel As Integer) 'Subform code fires when main form opens.
    Dim ADOcnn10 As ADODB.Connection
    Dim ADOstr10 As String
    ADOstr10 = "Provider='Microsoft.Access.OLEDB.10.0';Persist Security Info=False;Data Source=C:\data\Data.accdb;User ID=Admin;Data Provider=Microsoft.ACE.OLEDB.12.0"
    Set ADOcnn10 = New ADODB.Connection
    ADOcnn10.Open ADOstr10

    Dim ADOrst10 As ADODB.Recordset
    Set ADOrst10 = New ADODB.Recordset
    ADOrst10.Open "SELECT * FROM tblTemp", ADOcnn10, adOpenKeyset, adLockOptimistic
    Set Me.Recordset = ADOrst10
    Forms(0).RecordSource = Forms(0).RecordSource
End Sub
4

1 に答える 1