Dim i As Integer, jmlIsi As Integer
Dim tglisi As Date, strSQL As String
jmlIsi = DateDiff("d", Me.Tgl1, Me.Tgl2) + 1
For i = 1 To jmlIsi
DoCmd.SetWarnings False
If i = 1 Then
tglisi = Tgl1
DoCmd.RunSQL "Insert into Table1(IDKar,tgl) Values(" & Me.IDKar & ",#" & tglisi & "#)"
Else
tglisi = DateAdd("d", i - 1, Tgl1)
DoCmd.RunSQL "Insert into Table1(IDKar,tgl) Values(" & Me.IDKar & ",#" & tglisi & "#)"
End If
Next
DoCmd.SetWarnings True
Script diatas bisa ditaro di command button, dengan parameter 3 textbox
- Tgl1
- Tgl2
- IDKar
Mudah-mudah bisa membantu..
Terima Kasih
From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com] On Behalf Of GALIH PERSADHA
Sent: 06 Desember 2012 13:40
To: belajar-access@yahoogroups.com
Subject: [Bulk] [belajar-access] Input data sekali klik
Mohon bantuan para suhu,
Bagaimana cara input data tanggal pada sebuah form dengan 1 kali klik.
Contoh :
Tanggal Awal : 01/01/2012
Tanggal Akhir : 05/01/2012
IDKaryawan : 207
dengan meng klik sebuah tombol maka akan menginsert ke dalam table :
IDKaryawan Tanggal
207 01/01/2012
207 02/01/2012
207 03/01/2012
207 04/01/2012
207 05/01/2012
terima kasih atas bantuannya.
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (2) |
No comments:
Post a Comment