Formula VBA pada access

Kumpulan kode VBA pada access :

1. Untuk menampilkan data barang

Private Sub DataBarang_Click()
DoCmd.OpenForm "frmBarang"
DoCmd.GoToRecord , , acNewRec
Me.Refresh
DoCmd.Close acForm, Me.Name, acSaveYes
End Sub

2. Untuk menampilkan report Stock Barang

Private Sub LaporanStokBarangWPrice_Click()
DoCmd.OpenReport "rpStokBarang", acViewPreview
Me.Refresh
End Sub

3. Perintah keluar dari program access

Private Sub Keluar_Click()
If MsgBox("Apakah Anda Akan keluar...?", _
vbYesNo + vbdefaulbutton2 + vbQuestion, "Konfirmasi Keluar") = vbYes Then
    On Error Resume Next
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    DoCmd.CloseDatabase
    
Else
    On Error Resume Next
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End If
End Sub

4. Untuk menampilkan tabel Data Barang dengan menggunakan double klik, sekalian sort field nama secara ascending

Private Sub KodePemasok_DblClick(Cancel As Integer)
DoCmd.OpenTable "tbPemasok", acViewNormal
DoCmd.SetOrderBy "nama asc"
End Sub

5. Untuk menyembunyikan proses pada access, serta menutup query yg ingin ditutup.

Private Sub Simpan_Click()
'meng - off kan proses query
DoCmd.SetWarnings False

'menJALANkan query
DoCmd.OpenQuery "QPrintDTHDAppend", acViewNormal

'meNUTUP query
DoCmd.Close acQuery, "QPrintDTHDAppend"

'meng - ON kan proses query
DoCmd.SetWarnings True

End Sub

6. Untuk membuka file lain dengan menggunakan tombol (OpenFile)

Private Sub OpenFile_Click()

Application.FollowHyperlink "D:\1Zsnsn\SusuBarokah\20151008 Inventory .mdb", newwindow:=True

End Sub