「データ保存」の編集履歴（バックアップ）一覧に戻る

データ保存 - (2008/04/29 (火) 18:06:00) のソース

*データ保存

**[DAO]
#highlight(linenumber,html){{
Dim DT As Date
Dim rsw1 As DAO.Recordset
Set rsw1 = CurrentDb.OpenRecordset("SELECT * FROM D_COLLATION", dbOpenDynaset)

DT = Now()
rsw1.AddNew
pubCOLLATION_ID = TBLID_INCL("D_COLLATION", "COLLATION_ID")
rsw1.Fields("COLLATION_ID") = pubCOLLATION_ID
rsw1.Fields("COL_WDATE") = Format(DT, "mm/dd/yyyy")
rsw1.Fields("COL_WTIME") = Format(DT, "hh:nn:ss")
rsw1.Fields("COL_EMPID") = pubEMPID
rsw1.Update
rsw1.Close
Set rsw1 = Nothing
}}

#highlight(linenumber,html){{
Public Function TBLID_INCL(TBLName As String, FLDName As String) As Long
'概要: テーブルのＩＤフィールドのカウントアップ

'/ テーブルかフィールド名が指定されているか
If IsNull(TBLName) = True Or IsNull(FLDName) = True Then
  MsgBox "There is no specification. ", vbExclamation, SOFTNAME
  Exit Function
End If

'/ レコード数確認
Select Case Nz(DCount("*", TBLName), 0)
Case 0          '// レコード数ゼロ
  TBLID_INCL = 1
Case Is > 0     '// レコード数ゼロより上
  TBLID_INCL = DMax(FLDName, TBLName) + 1
End Select

End Function
}}
-----




[[戻る>Access]]

&link_edit(text=Edit)