MS ACCESS MAILING LIST: RE: [Bulk] [belajar-access] Input data sekali klik [1 Attachment]

Sunday, December 9, 2012

RE: [Bulk] [belajar-access] Input data sekali klik [1 Attachment]

[Attachment(s) from Suryadi isu included below]

pa galih ini saya kirim contoh nya

semoga bisa membantu

suryadi

--- Pada Kam, 6/12/12, KuncaraYahoo <kuncara.arief@yahoo.co.id> menulis:

Dari: KuncaraYahoo <kuncara.arief@yahoo.co.id>
Judul: RE: [Bulk] [belajar-access] Input data sekali klik
Kepada: belajar-access@yahoogroups.com
Tanggal: Kamis, 6 Desember, 2012, 8:18 AM

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.