データ保存 - へたれちっぷ。

データ保存

[DAO]

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
 

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
 

---

戻る

Edit