ACCESS FEED: Re: [belajar-access] loopingnya gak jalan..minta pencerahan

Kamis, 21 Agustus 2014

Re: [belajar-access] loopingnya gak jalan..minta pencerahan

Muhamad Safei ...,

Sepertinya overflow berasal dari

For i = Me!Tawal To (Me!Takhir + 1) Step 1
'bla-bla
Next i

Pengalaman saya, dalam hal menentukan selisih hari, saya memakai metode DateDiff. Bila sudah saya temukan selisih harinya, saya tambahkan hari hari berikutnya menggunakan DateAdd. Ini contoh scriptnya:

Option Explicit
Function for_date()
Dim xx As Variant

xx = CInt(Left(CStr(DateSerial(2012, 1, 2)), 2))
xx = Replace(xx, "/", "")
If CInt(xx) <= 2 Then
for_date = "yyyy/mm/dd"
Else
for_date = "mm/dd/yyyy"
End If
End Function
Private Sub Command4_Click()
Dim aa As Variant
Dim i, s As Integer

If aw <> "" And ak <> "" Then
s = DateDiff("d", Format(aw, for_date), Format(ak, for_date))
aa = ""
For i = 0 To s
aa = aa & "insert into table (field1) values " _
& "(" & Format(DateAdd("d", i, Format(aw, for_date))) & ")" & vbCrLf
Next i
hasil.Caption = ""
hasil.Caption = aa

End If
End Sub

Semoga bisa membantu dan memberi semangat.

Hariyanto (Surabaya)

--------------------------------------------
On Fri, 22/8/14, 'Muhamad Safei safeimuhamad@yahoo.com [belajar-access]' belajar-access@yahoogroups.com [belajar-access] <belajar-access@stage.yahoogroups.com> wrote:

Subject: [belajar-access] loopingnya gak jalan..minta pencerahan
To: belajar-access@yahoogroups.com
Date: Friday, 22 August, 2014, 9:21 AM

Slamat pagi semunya...semoga
dalam keaadan sehat wal af'at...
sy
mau tanya tentang looping....
sya
memiliki 2
table..katakanlah table Karyawan dan Absensi...
TableKaryawan

TableAbsensi
Nik
NIK
Nama
Nama
Bagian
Bagianstatus
Periode
TMK
Tanggal

Keterangan

Nah
saya membuat Form pengisian Periode seperti dibawah ini:

----------------------------------------------------------
Form Periode

Bulan
   : [    Agustustus 2014 ]Tanggal Awal :
[   01/08/2014    ]    Tanggal Akhir :
[ 15/08/2014   ]

[__Generate__]----------------------------------------------------------
Harpan
yang diinginkan sbg berikut :
Ketika
kita generate pada form periode..1.semua
data nik,nama,bagian
pd tableKaryawan d
masukan kedalam tableAbsensi.2.Data
Periode dan tanggal pd TableAbsensi diupdate
sesuai periode pada Form
Periode Diatas..
Sy
Sudah Buat Sprti dibawah ini..Hasilnya..keluar notifikasi
"overFlow"" kira2 kenapa
ya?? mhn pencerahannya..

Private Sub
Command35_Click()
On Error GoTo errH
Dim rs As Recordset,
s As String, i As Integer

For i = Me!Tawal To (Me!Takhir +
1) Step 1


    s =
"INSERT INTO tblHasil ( NIK, Nama, Bagian )SELECT
tblMstKaryawan.NIK, tblMstKaryawan.Nama,
tblMstKaryawan.Bagian FROM tblMstKaryawan WHERE
(((tblMstKaryawan.Status_kawin)=True));"
    Set rs =
db.OpenRecordset(s)
    s = "UPDATE tblHasil
SET WHERE (((tblHasil.PeriodeId)='" & Me!PID
& "');"
    Set rs =
db.OpenRecordset(s)
    s = "UPDATE tblhasil
SET WHERE(((tblHasil.Tanggal)='" & Format(i,
"dd/mm/yyyy") & "');"
    Set rs =
db.OpenRecordset(s)
Exit For
MsgBox " Generate
Berhasil"
Next i

Exit Sub
errH:
   MsgBox Error$
   Exit Sub
   Resume
End Sub

Terimakasih
Sebelumnya