Bung Tamrin, Mungkin bisa dicoba trik sbb: 1. Buat query dulu utk menghasilkan unique record di TBLBAN, jadi bisa diperoleh record utk tanggal terakhir saja (query1). 2. Buat query lagi utk menghubungkan tblprodi dg query1.
Salam, Haer On 9/6/07, tamrin_mm <[EMAIL PROTECTED]> wrote: > > Mas Haer ... ini sebanrnya adalah database ttg perguruan tinggi > Setiap Perguruan tinggi menentukan KD Prodinya masing2 di tempat > PT(Perguruan tinggi)_nya Masing2 nanti diDikti baru digabung Seluruh > PT yang memungkinkan akan adanya KDProdi yang sama. > > Tabel Databasenya Seperti Ini: > TBLPT(KDPT*;NamaPT;KOTAPT) > TBLPRODI(NO*;KDPRODI;NAMAPRODI;KDPT;JENJANG) > TBLBAN(No;SK;TGLUSUL;TGLAWAL;TGLAKHIR;NILAI) > Relasinya: TBLPT ke TBLPRODI(one to Many) dan TBLPRODI ke TBLBAN (One > to Many) > pada TBLBAN memuat ttg Riwayat Akreditasi Suatu Prodi jadi setiap > Prodi bisa memiliki Riwayat Akreditasi lebih dari satu record, nah > gimana Querinya supaya Data yang muncul adalah Data Prodi dengan > riwayat Akreditasi yang paling terakhir > > TBLPRODI Awalnya Primarykeynya ada 2 yaitu KDPT dan KDPRODI > Namun untuk proses edit suatu Prodi dengan menggunakan Tombol(Command) > Edit maka Perintah selectnya harus ada 2 kriteria yaitu KDPRodi dan > KDPT yang klo itu dipakai maka terjadi Error > Listing Command Editnya: > Private Sub CmdEdit_Click() > If Not IsEmpty(Me.FPRODISub!KDPRODI) Then > > If Not IsNull(Me.FPRODISub!KDPRODI) Then > DoCmd.OpenForm "PRODIdata", , , "KDPRODI=" & _ > Me.FPRODISub!NOURUTPRODI and "KDPT="Me.FPRODISub!KDPT, & _ > acFormEdit, acDialog > Me.Refresh > Else > MsgBox "tidak ada data prodi yang akan diedit", > vbInformation + vbOKOnly, "Coy" > On Error Resume Next > Me.Refresh > End If > Else > End If > End Sub > > Thanks atas waktunya,,,,,, > > > > > SPAM IS PROHIBITED > Yahoo! Groups Links > > > >
