oke trimakasih banyak... masukan bapak sangat membantu
--- Pada Rab, 29/4/09, Murid Belajar Access <[email protected]> menulis: Dari: Murid Belajar Access <[email protected]> Topik: Re: [belajar-access] hasil tidak sesuai Kepada: [email protected] Tanggal: Rabu, 29 April, 2009, 1:59 PM 1. Yang aneh, field tanggal di tabel transaksi tipenya char, bukan datetime. 2. dirubah sedikit di : Private Sub Command9_Click( ) Dim i As Integer i = 0 Do vTgl = DateAdd("d", i, CDate(Format( Form_Form1. tglawal.Value, "mm/dd/yyyy" ))) --> --> formatnya harus dd-mmm-YYYY i = i + 1 strSQL = "INSERT INTO transaksi(IDkaryawa n ,Tanggal, Ket,notransaksi) VALUES (" & txtidkaryawan & ",'" & vTgl & "','" & Combo23 & "','" & Form_Form1.notransa ksi & "')" DoCmd.SetWarnings False DoCmd.RunSQL strSQL, True DoCmd.SetWarnings True Loop Until vTgl = CDate(Format( Form_Form1. tglakhir. Value, "mm/dd/yyyy" )) --> pake CDate, --> formatnya harus dd-mmm-YYYY List2.RowSource = "select karyawan.nama, transaksi.ket, transaksi.notransak si, min(transaksi. tanggal) as mulai, max(transaksi. tanggal) as sampai from karyawan,transaksi where karyawan.idkaryawan = transaksi.idkaryawa n and transaksi.idkaryawa n = '" & Form_Form1.txtidkar yawan & "' group by transaksi.idkaryawa n, transaksi.ket, transaksi.notransak si, karyawan.nama " Command31.Enabled = True 'hapus Command32.Enabled = True 'keluar Command33.Enabled = True 'batal Label13.Visible = False Label14.Visible = False tambahtransaksi. Enabled = True tambahtransaksi. SetFocus Command9.Enabled = False 'simpan End Sub 3. calendar on cliknya dirubah dikit: Private Sub Calendar2_DblClick( ) tglawal.Value = Format(Calendar2. Value, "dd-mmm-yyyy" ) --> formatnya harus dd-mmm-YYYY List2.Visible = True tglawal.SetFocus Calendar2.Visible = False End Sub Private Sub Calendar5_DblClick( ) tglakhir.Value = Format(Calendar5. Value, "dd-mmm-yyyy" )--> formatnya harus dd-mmm-YYYY List2.Visible = True tglakhir.SetFocus Calendar5.Visible = False End Sub 4. Untuk form laporan: Private Sub Form_Load() Form_LAPORAN. DATA.RowSource = "" --> gak usah pake row source dulu. End Sub Private Sub Calendar5_DblClick( ) DATA.Visible = True tglakhir.Value = Calendar5.Value tglakhir.SetFocus Calendar5.Visible = False --> gak usah pake row source dulu. End Sub 5. Row source dijalankan di Combo49 after update. udah tuh. jalan. salam, murid access - NRN CL ----- Original Message ----- From: GALIH PERSADHA To: belajar-access@ yahoogroups. com Sent: Wednesday, April 29, 2009 13:08 Subject: [belajar-access] hasil tidak sesuai maaf pak ini saya lampirkan file project dan databasenya (sql server 2000) mohon pencerahannya. disini looping nya kok nggak bisa berhenti yaaa. Lebih aman saat online. Upgrade ke Internet Explorer 8 baru dan lebih cepat yang dioptimalkan untuk Yahoo! agar Anda merasa lebih aman. Gratis. Dapatkan IE8 di sini! http://downloads.yahoo.com/id/internetexplorer/
