Можно ли все-таки определить текущую запись при работе в таблице??? РЕЧЬ НЕ О ФОРМЕ В РЕЖИМЕ ТАБЛИЦЫ !!!!!!!
Quick_yak 28.05.2001
От: Quick_yak 28.05.2001 12:10:44
Пример вызова:
Call GetSelection("имя таблицы")
Sub GetSelection(strTbl As String) 'имя таблицы Dim objDatasheet As Object, ctl As Control, strRec As String Const conNoActiveDatasheet = 2484 On Error GoTo GetSelection_Err
DoCmd.SelectObject acTable, strTbl Set objDatasheet = Screen.ActiveDatasheet strRec = "" For Each ctl In objDatasheet.Controls strRec = strRec & ctl.Name & " = " & ctl.Value & vbCrLf Next ctl MsgBox strRec 'Печатает строку из таблицы GetSelection_Bye: Exit Sub GetSelection_Err: If Err = conNoActiveDatasheet Then Resume GetSelection_Bye Else MsgBox Err.Description End If End Sub
Ваш коментарий будет первым