ник: Ivanko_011
Private Sub Form_Load()
Set frm = Me.Form
FormLoade
End Sub
Public Sub FormLoade()
Dim strSQL_P As String
strSQL_P = frm.Name
Dim rst_E As Recordset
'OpenCid присваивается в ленточной форме OpenCid = Me![CID]
Set rst_E = dbs.OpenRecordset("SELECT " & strSQL_P & ".* FROM " & strSQL_P & " WHERE (((" & strSQL_P & ".CID)=" & OpenCid & "))", dbOpenDynaset)
rst_E.Edit
Set frm.Recordset = rst_E
Exit Sub
rst_E.Edit запись для других пользователей не блокирует