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 Bagian
status 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
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
__._,_.___
Posted by: Muhamad Safei <safeimuhamad@yahoo.com>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (1) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar