MyTetra Share
Делитесь знаниями!
Добавление_одной_записи в таблицу
16.03.2019
23:43
Раздел: !Закладки - VBA - Access

'============================================================

' Добавление_одной_записи в таблицу

'strAdd - строка для добавления

'oTbl - таблица для добавления

'strFldAddName - имя поля для добавления

'strFldCondition - имя поля условий

'strCondition - условие

'Fn_ = FnAddRecordInTbl(strAdd, oTbl, "PathBase", "NickBase", "ListPoint")

'DoCmd.RunSQL "UPDATE SystemLastSelectedPath SET SystemLastSelectedPath.PathBase = ""gкупкруеруеркр"" _

WHERE (((SystemLastSelectedPath.NickBase)=""ListPoint""));", -1

'------------------------------------------------------------

Function FnAddRecordInTbl(ByVal strAdd As Variant, _

ByVal oTbl As Object, _

ByVal strFldAddName As String, _

ByVal strFldCondition As String, _

ByVal strCondition As String) As Boolean

Dim strTblName As String: strTblName = oTbl.Name

Dim strSql As String


On Error GoTo FnAddRecordInTbl_Err

strSql = "UPDATE " & strTblName & " SET " & strTblName & "." & strFldAddName & " = """ & strAdd & _

""" WHERE (((" & strTblName & "." & strFldCondition & ")=""" & strCondition & """));"

DoCmd.RunSQL strSql, -1


FnAddRecordInTbl_Exit:

FnAddRecordInTbl = True

Exit Function


FnAddRecordInTbl_Err:

FnAddRecordInTbl = False

' MsgBox Error$

' Resume FnAddRecordInTbl_Exit

End Function

'============================================================

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования