「データ保存」の編集履歴（バックアップ）一覧はこちら

データ保存 - (2008/04/29 (火) 17:41:52) の１つ前との変更点

追加された行は緑色になります。

削除された行は赤色になります。

*データ保存

**[DAO]

>&tt(){Dim DT&tAs Date}
>&tt(){Dim rsw1 As DAO.Recordset}
>&tt(){Set rsw1 = CurrentDb.OpenRecordset("SELECT * FROM D_COLLATION", dbOpenDynaset)}
>&tt(){}
>&tt(){DT = Now()}
>&tt(){rsw1.AddNew}
>&tt(){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

>Public Function TBLID_INCL(TBLName As String, FLDName As String) As Long
>'概要: テーブルのＩＤフィールドのカウントアップ
>
>'/ テーブルかフィールド名が指定されているか
>If None(TBLName) = True Or None(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)