Contoh Kasus Input Data NPM

Mengisi data Kode Jurusan dan Kode Fakultas secara otomatis setelah user mengisi data Nomor Pokok Mahasiswa (NPM).
Tabel-data yang digunakan:

Tabel MAHASISWA : NPM, NAMA, KODE_FAKULTAS, KODE_JURUSAN
Tabel JURUSAN : KODE_JURUSAN, JURUSAN, KODE_FAKULTAS, KODE_JENJANG
Tabel FAKULTAS : KODE_FAKULTAS, FAKULTAS
Tabel JENJANG : KODE_JENJANG, JENJANG

Contoh Input:
NPM = 0911011001
Keterangan digit:
1 s.d 2 = Tahun Masuk (09)
3 = Kode Jenjang (1=S1)
4 = Kode Fakultas (1=Ekonomi)
5 sd. 7 = Kode Jurusan (011=Manajemen)
8 sd. 10= Nomor urut mahasiswa pada jurusan tersebut.
Pada saat user mengisi NPM, Jurusan dan Fakultas akan terisi secara otomatis, dengan merujuk ke tabel Jurusan dan Fakultas.
Berikut adalah gambar relasi antar tabel dari database:

Untuk keperluan input data seperti contoh kasus di atas kita membuat form Mahasiswa dengan 4 buah text box yaitu NPM, NAMA, KODE_FAKULTAS dan KODE_JURUSAN. Berikut adalah gambar form MAHASISWA:

Pada form ini kode fakultas dan kode jurusan akan terisi secara otomatis setelah NPM diisi. Untuk menjalankan proses ini maka diperlukan script sbb:
Private Sub NPM_AfterUpdate()
Dim kd_jurusan As String, kd_fakultas As String
kd_jurusan = Left(Right(Me.NPM.Value, 6), 3)
kd_fakultas = Left(Right(Me.NPM.Value, 7), 1)
Me.KODE_FAKULTAS.Value = kd_fakultas
Me.KODE_JURUSAN.Value = kd_jurusan
End Sub
Data variabel kd_jurusan dan kd_fakultas diambil dari data NPM yang dientry oleh user. Sedangkan untuk data KODE_JENJANG, data diambil dari tabel JURUSAN melalui relasi tabel antara tabel MAHASISWA dengan tabel JURUSAN.

DOWNLOAD CONTOH FILE PROGRAM