ник: час
Public Function Zapis_v_Tablu_Puti(Strtbl As String, Znachenie As String, StrCritery As String)
' Запись в таблицу "PUTI_NASTROEK" пути к файлу
Dim MyCriteria As String
Dim MyRst As DAO.Recordset
On Error GoTo Zapis_v_Tablu_Puti_Error
Set MyRst = CurrentDb.OpenRecordset(Strtbl, dbOpenDynaset)
With MyRst
.MoveLast
.MoveFirst
.FindFirst StrCritery
If Not MyRst.NoMatch Then 'Если искомое найдено
.Edit
!Puti = Znachenie
.Update
End If
End With
MyRst.Close
On Error GoTo 0
Exit Function
Zapis_v_Tablu_Puti_Error:
Call Zapis_ERR("Modul_Tablic" & " процедура -> " & "Zapis_v_Tablu_Puti", Err.Number, Err.Description)
Err.Clear
End Function
|
опять забыл как это правильно написать через переменные
..............!Puti = Znachenie.................
что бы можно было виметь одну функцию и передавать в неё названия полей, таблиц
в виде аргументов функции, а то под каждое поле -свою функцию лепить не до фига ли будет...........