cara pakai:
IDAnggota=1
tglAwal="1-jan-2009"
tglAkhir="6-jan-2009"
stKet="Cuti"
fInsert IDAnggota,tglAwal,tglAkhir,stKet
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Function fInsertTgl(ByVal IDAnggota As Integer, ByVal tglAwal As Date, ByVal
tglAkhir As Date, ByVal stKet As String)
On Error GoTo salah
Dim i As Integer
i = 0
Do
vTgl = DateAdd("d", i, tglAwal)
i = i + 1
strSQL = "INSERT INTO tblContoh(IDAnggota,Tanggal,Keterangan) VALUES ("
& IDAnggota & ",'" & Format(vTgl, "dd-mmm-yyyy") & "','" & stKet & "')"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL, True
DoCmd.SetWarnings True
Loop Until vTgl = tglAkhir
keluar:
Exit Function
salah:
Debug.Print Err.Description
Resume keluar
End Function
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
salam,
murid access - CL
----- Original Message -----
From: GALIH PERSADHA
To: [email protected]
Sent: Tuesday, April 28, 2009 10:05
Subject: [belajar-access] cara membuat perualangan
bagaimana cara membuat perulangan untuk insert data berdasarkan tanggal awal
dan akhir
misal :
a mengajukan cuti mulai 01/01/09 s/d 10/01/09
maka dengan memasukkan tanggal awal dan akhir lalu mengisi keterangan dengan
"cuti"
maka akan didapatkan hasil insert perulangan yang isinya adalah idanggota,
tanggal cuti, keterangan ("cuti").
harapan yang masuk ke database :
idanggota tanggal keterangan
1 01/01/09 cuti
1 02/01/09 cuti
1 03/01/09 cuti
1 04/01/09 cuti
1 05/01/09 cuti
1 06/01/09 cuti
dan seterusnya sampai tanggal alhir
terima kasih atas pencerahannya
