ник: час
Sub MSFlex_Save()
Dim db_file As String
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
' Путь к базе данных
db_file = App.Path
If Right$(db_file, 1) <> "\" Then db_file = db_file & "\"
db_file = db_file & "books.mdb"
' Open соединение
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & db_file & ";" & _
"Persist Security Info=False"
conn.Open
Set rst = New ADODB.Recordset
' выбираем строку из rst
rst.Open "SELECT * FROM Books Where( Books.Title ='" & Me!MSFlexGrid1.TextMatrix(Me!MSFlexGrid1.Row, 0) & "')", conn, adOpenKeyset, adLockOptimistic
' запись изменений в rst
rst(MSFlexGrid1.TextMatrix(0, Me!MSFlexGrid1.Col)).Value = Me!txtEdit
rst.Update
rst.Close
conn.Close
End Sub
|
Теперь проблема - куда это событие вешать
Повесил на нажатие Enter
А вдруг не нажмуть
=============================
Нашлось местечко - потеря фокуса полем ввода
