Sunday 21 October 2012

Merubah Database Access 2007 menjadi Database Access 2003 & Merubah Tampilan Form yang sudah pernah dibuat sebelumnya (AutoFormat)


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:

  1. Pertama-tama buka dahulu database Aplikasi Gudang yang telah kita buat sebelumnya.
  2. Lalu klik Office Button disebelah kiri atas window Ms. Access, lalu klik Save As lalu klik Access 2002-2003Database.                                                                                                                                                                  
  3. Setelah itu akan muncul dialog box Save As Ms Access, seperti gambar dibawah ini:
  4. 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:

  1. Masuk dulu di aplikasi gudang yang telah kita buat sebelumnya (yang format database 2003)
  2.  Lalu buka Form Input Data Barang yang telah kita buat sebelumnya (tampilan design view)
  3. Kemudian klik View dan pilih Layout View                                             
  4. Setelah itu klik Auto Format di Ribbon Menu, perhatikan gambar berikut:
  5. Klik AutoFormat Wizard, lalu akan muncul dialog box untuk menentukan pilihan form kita yang baru,   lalu pilih Northwind dan terakhir klik Ok.
  6. 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 Database
    Private Sub Form_Load()
        Me.kode_barang.Enabled = False
        Me.nama_barang.Enabled = False
        Me.satuan.Enabled = False
        Me.kategori_barang.Enabled = False
        Me.Simpan_Data.Enabled = False
        Me.Data_Baru.SetFocus
    End Sub


    Private Sub Data_Baru_Click()
    On Error GoTo Err_Data_Baru_Click


        DoCmd.GoToRecord , , acNewRec
        Me.kode_barang.Enabled = True
        Me.nama_barang.Enabled = True
        Me.satuan.Enabled = True
        Me.kategori_barang.Enabled = True
        Me.Simpan_Data.Enabled = True
        Me.kode_barang.SetFocus
        Me.Data_Baru.Enabled = False

    Exit_Data_Baru_Click:
        Exit Sub

    Err_Data_Baru_Click:
        MsgBox Err.Description
        Resume Exit_Data_Baru_Click
       
    End Sub
    Private Sub Simpan_Data_Click()
    On Error GoTo Err_Simpan_Data_Click


        DoCmd.RunCommand acCmdSaveRecord
        Me.kode_barang.Enabled = False
        Me.nama_barang.Enabled = False
        Me.satuan.Enabled = False
        Me.kategori_barang.Enabled = False
        Me.Data_Baru.Enabled = True
        Me.Data_Baru.SetFocus
        Me.Simpan_Data.Enabled = False

    Exit_Simpan_Data_Click:
        Exit Sub

    Err_Simpan_Data_Click:
        MsgBox Err.Description
        Resume Exit_Simpan_Data_Click
       
    End Sub                   
  7. Sehingga tampilan Form Input Data Barang akan menjadi seperti ini:                                                                                                         

No comments:

Post a Comment