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,,,,,,
