data

Dim akademik As Database

Dim Tbmahasiswa As Recordset

Private Sub cmdkeluar_Click()

End

End Sub
Private Sub CmbCari_Click()

CmbCari.Clear

Tbmahasiswa.Seek "=", CmbCari.Text

If Not Tbmahasiswa.NoMatch Then

Masknpm.Text = Tbmahasiswa!npm

Txtnama.Text = Tbmahasiswa!Nama

txtalamat.Text = Tbmahasiswa!Alamat

Cmbjenkel.Text = Tbmahasiswa!Jenkel

cmbjurusan.Text = Tbmahasiswa!Jurusan

cmbjenjang.Text = Tbmahasiswa!Jenjang

txtthn_masuk.Text = Tbmahasiswa!Thn_masuk

CmbCari.Visible = False

Masknpm.SetFocus

End If

End Sub

Private Sub CmbCari_DropDown()

Tbmahasiswa.MoveFirst

While Not Tbmahasiswa.EOF

CmbCari.AddItem Tbmahasiswa!npm

Tbmahasiswa.MoveNext

Wend
End Sub
Private Sub Cmdcaridata_Click()

CmbCari.Visible = True

End Sub
Private Sub cmdlihatdata_Click()

Tbmahasiswa.Visible = False

mnutabel_Click

End Sub
Private Sub cmdsimpan_Click()

Dim p As String

If (Masknpm.Text = "") Then

p = MsgBox("Npm harus diisi", vbOKOnly)

Masknpm.SetFocus

Exit Sub

End If
If (Txtnama.Text = "") Then

p = MsgBox("Nama harus diisi", vbOKOnly)

Txtnama.SetFocus

Exit Sub

End If
If (txtalamat.Text = "") Then

p = MsgBox("Alamat Jangan dikosongkan", vbOKOnly)

txtalamat.SetFocus

Exit Sub

End If
If (Cmbjenkel.Text = "") Then

p = MsgBox("Jenis kelamin Jangan dikosongkan", vbOKOnly)

Cmbjenelk.SetFocus

Exit Sub

End If
If (cmbjurusan.Text = "") Then

p = MsgBox("Jurusan kelamin Jangan dikosongkan", vbOKOnly)

cmbjurusan.SetFocus

Exit Sub

End If
If (cmbjenjang.Text = "") Then

p = MsgBox("Jenjang Jangan dikosongkan", vbOKOnly)

cmbjenjang.SetFocus

Exit Sub

End If
If (txtthn_masuk.Text = "") Then

p = MsgBox("Tahun masuk Jangan dikosongkan", vbOKOnly)

txtthn_masuk.SetFocus

Exit Sub

End If

Tbmahasiswa.Seek "=", Masknpm.Text

If Not (Tbmahasiswa.NoMatch) Then

p = MsgBox("Data Sudah Ada", vbOKOnly + vbInformation, "Pesan Progremer") Masknpm.SetFocus

Else

Tbmahasiswa.AddNew

Tbmahasiswa!npm = Masknpm.Text

Tbmahasiswa!Nama = Txtnama.Text

Tbmahasiswa!Alamat = txtalamat.Text

Tbmahasiswa!Jenkel = Cmbjenkel.Text

Tbmahasiswa!Jurusan = cmbjurusan.Text

Tbmahasiswa!Jenjang = cmbjenjang.Text

Tbmahasiswa!Thn_masuk =txtthn_masuk.Text

Tbmahasiswa.Update

Tbmahasiswa.Refresh

End If

End Sub
Private Sub Command1_Click()

Rptmahasiswa.Show

End Sub
Private Sub Form_Load()

Set akademik = OpenDatabase(App.Path & "\Akademik.mdb")

Set Tbmahasiswa = akademik.OpenRecordset("tbmahasiswa")

Tbmahasiswa.Index = "idx_npm"
Tabmahasiswa.Visible = False

'tbMahasiswa.Visible = False
Cmbjenkel.AddItem "Pria"

Cmbjenkel.AddItem "Wanita"
cmbjurusan.AddItem "TI"

cmbjurusan.AddItem "SI"

cmbjurusan.AddItem "MI"

cmbjurusan.AddItem "KA"

cmbjurusan.AddItem "TK"
cmbjenjang.AddItem "D1"

cmbjenjang.AddItem "D2"

cmbjenjang.AddItem "D3"

cmbjenjang.AddItem "S1"

End Sub

Private Sub mnukeluar_Click()

End

End Sub
Private Sub mnumahasiswa_Click()

Tabmahasiswa.Visible = True

End Sub
Private Sub mnutabel_Click()

Tabmahasiswa.Visible = True
End Sub

Private Sub cmdproses_Click()

Dim TanggalA, tanggalB As Date

Dim hr, bl As Double

Dim UsiaTH, usiabl, usiahr, pesan

TanggalA = DTPicker1.Value

tanggalB = DTPicker2.Value

If (tanggalB <= TanggalA) Then

pesan = MsgBox("batas perhitungan tanggal harus lebih besar dari tanggal lahir", vbCritical, "PERINGATAN")

Else

UsiaTH = DateDiff("yyyy", TanggalA, tanggalB)

Textth.Text = UsiaTH

usiabl = DateDiff("m", TanggalA, tanggalB)

bl = usiabl Mod 12

Textbl.Text = bl

usiahr = DateDiff("d", TanggalA, tanggalB)

hr = usiahr Mod 31

Texthr.Text = hr

End If

End Sub

Private Sub cmdtutup_Click()

Unload Me

End Sub

Private Sub DTPicker1_Change()

Dim Tanggal As Date

Dim Angkahari

Dim hari

nhari = Array("", "MINGGU", "SENIN", "SELASA", "RABU", "KAMIS", "JUMAT", "SABTU")

Tanggal = DTPicker1.Value

Angkahari = DatePart("w", Tanggal, vbSunday)

hari = nhari(Angkahari)

lbllahir.Caption = hari

End Sub