VBAを使用してアクセステーブルにステートメントを挿入

Question

私は現在自分の作品のために出席フォームを作成しています。私はMS Accessを使用しています。 私は挿入機能に問題があります。

私は挿入クエリで少し失われています。ログインボタンが完了しました。私は必要なのログアウトボタンなので、どこCurrentDay = Me.txtTodayとNID = me.txtNID

クエリは、この「tblLoginに挿入します（ExpectedTimeout）の値（txtTimeから 値）のようになります以下

はところで、私のログインコードです：。

Private Sub btnTimeIn_Click() 
Dim tme As String 
Dim test1 As Date 'variable for logintime 
Dim test2 As Date 'var for expected timein 
Dim test3 As Date 'var for time difference 

'tme = Time 
'txtTime.Value = tme 

'test1 = tme 
'test2 = txtExpected 

'test3 = test1 - test2 
'txtRemarks.Value = test3 

Dim db As Database 
Dim rec As Recordset 

Set db = CurrentDb 
Set rec = db.OpenRecordset("Select * from tblLogin") 

rec.AddNew 
rec("CurrentDay") = Me.txtToday 
rec("UserName") = Me.cboUname.Column(1) 
rec("NID") = Me.txtNID 
rec("Function") = Me.txtFunction 
rec("Shiftdays") = Me.txtShift 
rec("LoginTime") = Me.txtTime 
rec("MinutesLate") = Me.txtLate 
rec.Update 

Set rec = Nothing 
Set db = Nothing 

MsgBox ("Logged In") 

End Sub 

Answer 1

あなたが実際に新しいレコードを挿入すると、ログインで作成された既存のレコードをしませ更新するように見えますので、Doループに包まれたレコードセット.Editモードを使用することを検討し、 Ifステートメント：