CARA MEMBUAT FORM JENIS KERUSAKAN MENGGUNAKAN VISUAL BASIC 6 1. Buka/Buat file database DBMOTOR.MDB 2. Buat struktur table, simpan dengan nama JENIS 3. Tutup program MS Access 4. Double klik file PRMOTOR.VBP untuk membuka project PRMOTOR 5. Klik menu Project => Add Form => Open untuk menambah form baru 6. Klik menu File => Save Form1 7. Ketik nama form JENIS, klik tombol Save 8. Klik propertie Name, ketik JENIS 9. Buat desain form Jenis Kerusakan 10. Ketik kode program di bawah ini Private Sub CMDHAPUS_Click() TBJENIS.Recordset.MoveFirst TBJENIS.Recordset.Find "NOJENIS='" & XNOJENIS.Text & "'" If TBJENIS.Recordset.EOF Then X = MsgBox("NOMOR JENIS " & XNOJENIS.Text & " TIDAK ADA !", vbOKOnly) Else X = MsgBox("DATA NOMOR JENIS " & XNOJENIS.Text & " MAU DIHAPUS !", vbYesNo) If X = vbYes Then TBJENIS.Recordset.Delete End If XNOJENIS.Text = "" XJENIS.Text = "...
