Form Input 1

Membuat form input untuk mengupdate data ke database :

Option Compare Database
Private Sub Command12_Click()
DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
End Sub
Private Sub Command13_Click()
DoCmd.GoToRecord acDataForm, Me.Name, acNext
End Sub
Private Sub Command14_Click()
DoCmd.GoToRecord acDataForm, Me.Name, acPrevious
End Sub
Private Sub Command15_Click()
DoCmd.RunCommand acCmdDeleteRecord
End Sub

'Connection di mulai saat form di load
Private Sub Form_Load()
On Error Resume Next
Dim db As Database
Dim dbr As Recordset
Set db = CurrentDb
Set dbr = db.OpenRecordset("Select * from [Table_Roster" & Format(Date, "mmmm yyyy") & "]")
Set Me.Recordset = dbr
tnama.ControlSource = "nama"
tjabatan.ControlSource = "jabatan"
tdepartement.ControlSource = "departement"
tlevel.ControlSource = "level"
ttglmasuk.ControlSource = "tglmasuk"
ttglcuti.ControlSource = "tglcuti"
End Sub
Private Sub ttglmasuk_AfterUpdate()
ttglcuti = ttglmasuk + 70
End Sub