Merubah database
Office Access 2007 menjadi Office Access 2003
Cara merubah database yang dibuat
dengan Office Access 2007 menjadi Office Access 2003, adalah sebagai berikut:
- Pertama-tama buka dahulu database Aplikasi Gudang yang telah kita buat sebelumnya.
- Lalu klik Office Button disebelah kiri atas window Ms. Access, lalu klik Save As lalu klik Access 2002-2003Database.
- Setelah itu akan muncul dialog box Save As Ms Access, seperti gambar dibawah ini:
- Setelah itu berikan nama file tersebut, lalu klik save.
Merubah tampilan
Form yang sudah dibuat sebelumnya:
Tampilan aplikasi gudang yang telah kita buat sebelumnya,
saya rasa tidak terlalu bagus, hehehehe… jadi sebaiknya dirubah saja, caranya
sebagai berikut:
- Masuk dulu di aplikasi gudang yang telah kita buat sebelumnya (yang format database 2003)
- Lalu buka Form Input Data Barang yang telah kita buat sebelumnya (tampilan design view)
- Kemudian klik View dan pilih Layout View
- Setelah itu klik Auto Format di Ribbon Menu, perhatikan gambar berikut:
- Klik AutoFormat Wizard, lalu akan muncul dialog box untuk menentukan pilihan form kita yang baru, lalu pilih Northwind dan terakhir klik Ok.
- Untuk membuat tampilan Input Data Barang lebih keren lagi, hapus dulu button tambah data dan simpan data yang telah kita buat sebelumnya, lalu buat kembali kedua button tersebut seperti yang telah dijelaskan sebelumnya, lalu klik kanan pada form dan klik Build Event, setelah itu ketikkan kode berikut: Option Compare DatabasePrivate Sub Form_Load()Me.kode_barang.Enabled = FalseMe.nama_barang.Enabled = FalseMe.satuan.Enabled = FalseMe.kategori_barang.Enabled = FalseMe.Simpan_Data.Enabled = FalseMe.Data_Baru.SetFocusEnd SubPrivate Sub Data_Baru_Click()On Error GoTo Err_Data_Baru_ClickDoCmd.GoToRecord , , acNewRecMe.kode_barang.Enabled = TrueMe.nama_barang.Enabled = TrueMe.satuan.Enabled = TrueMe.kategori_barang.Enabled = TrueMe.Simpan_Data.Enabled = TrueMe.kode_barang.SetFocusMe.Data_Baru.Enabled = FalseExit_Data_Baru_Click:Exit SubErr_Data_Baru_Click:MsgBox Err.DescriptionResume Exit_Data_Baru_ClickEnd SubPrivate Sub Simpan_Data_Click()On Error GoTo Err_Simpan_Data_ClickDoCmd.RunCommand acCmdSaveRecordMe.kode_barang.Enabled = FalseMe.nama_barang.Enabled = FalseMe.satuan.Enabled = FalseMe.kategori_barang.Enabled = FalseMe.Data_Baru.Enabled = TrueMe.Data_Baru.SetFocusMe.Simpan_Data.Enabled = FalseExit_Simpan_Data_Click:Exit SubErr_Simpan_Data_Click:MsgBox Err.DescriptionResume Exit_Simpan_Data_Click
- Sehingga tampilan Form Input Data Barang akan menjadi seperti ini:
No comments:
Post a Comment