Re: [belajar-access] hasil tidak sesuai

[Murid Belajar Access]

 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(IDkaryawan ,Tanggal, Ket,notransaksi) 
VALUES (" & txtidkaryawan & ",'" & vTgl & "','" & Combo23 & "','" & 
Form_Form1.notransaksi & "')"
       
        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.notransaksi, 
min(transaksi.tanggal) as mulai, max(transaksi.tanggal) as sampai from 
karyawan,transaksi where karyawan.idkaryawan = transaksi.idkaryawan and 
transaksi.idkaryawan = '" & Form_Form1.txtidkaryawan & "' group by 
transaksi.idkaryawan, transaksi.ket, transaksi.notransaksi, 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.