「データ保存」の編集履歴(バックアップ)一覧はこちら
データ保存 - (2008/04/29 (火) 17:57:04) の最新版との変更点
追加された行は緑色になります。
削除された行は赤色になります。
*データ保存
**[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
'概要: テーブルのIDフィールドのカウントアップ
'/ テーブルかフィールド名が指定されているか
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)
*データ保存
**[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
'概要: テーブルのIDフィールドのカウントアップ
'/ テーブルかフィールド名が指定されているか
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)