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

MultilevelSort query pada Access

               Suatu ketika saya sedang membuat query dengan menggunakan Microsoft Access saya mengalami kesulitan  untuk menerapkan beberapa macam/ sekaligus sorting sesuai urutan yang saya inginkan. ( dalam excel melakukan multiple sort sesuai dengan yang kita inginkan sangatlah mudah).

               Misalnya, jika kita memiliki sebuah meja penuh pelanggan dan alamat mereka, Anda mungkin memilih untuk pertama mengurutkan catatan kota, kemudian lebih lanjut mengurutkan mereka berdasarkan abjad dengan nama terakhir.

Cara Print bolak-balik MS Word dan Power Point- Booklet

             Saat ini, sumber materi kuliah amatlah banyak, bisa dari dosen, google dll. Sedangkan belajar online (membaca lewat komputer) tidaklah nyaman. Kadang-kadang untuk lebih memahami materi pengajaran kita print. 

            Namun bila kita print maka akan membutuhkan jumlah kertas yang banyak, 

Dulu saya menggunakan kertas bekas yang masih ada lembaran kertas kosong pada satu sisinya, namun efeknya : 

1. Kadang saya kurang menghargai materi tersebut, karena dari kertas bekas

2. Kadang kita lupa membuang materi tersebut karena di asumsikan kertas bekas sungguhan.

3. Berat bila diangkut kemana-mana

Trik mengubah tahun pada excel

Langsung aja.... mengubahnya dengan : =DATE(YEAR(B7)+2;MONTH(B7);DAY(B7))
dimana mungkin di beberapa komputer ; --> ,
logika berfikirnya adalah dalam bahasa inggris format tanggal adalah Tahun-Bulan-Tanggal, jadi kita bisa mengubah tanggal dengan rumus di atas juga
terima kasih

Menampilkan Nama hari pada excel

Kadang-kadang kita menginginkan menampilkan nama hari dari suatu tanggal, adapun caranya di excel adalah dengan menggunakan formula : =TEXT(WEEKDAY(C7);"DDDD")

demikian cara singkatnya
Terima kasih

Export hasil query data di access 2007 ke file excel 2013 dengan menggunakan modul

Kali ini saya akan membahas tentang bagaimana cara mengeksport data dari hasil query pada access 2007 menjadi file excel 2013.
Setelah mencari dimana-mana akhirnya ketemu juga caranya, adappun langkah - langkahnya adalah sebagai berikut :
1. Buatlah button pada form access dengan nama : ExportExcel
2. Buat event on click pada button tersebut :
   
Private Sub ExportExcel_Click()

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "vwJualDetailHarian", "D:\Mail to\SparePart\" & Format(Date, "yyyyMMdd") & " Historical Spare part out Pool3" & ".xls", True

End Sub

yang mempunyai makna : export lah data dari query : vwJualDetailHarian ke dalam folder : D:\Mail to\SparePart\ dengan menggunakan nama diawali tanggal hari ini ( tahun_bulan_hari) diakhiri dengan Historical Spare part out Pool3 dengan format .xls

catatan :
a. Kita dapat mengexport data sesuai hasil olahan query yang kita inginkan, dengan sedikit memberikan perintah misalnya kita ingin mengexport data pada tanggal - tanggal tertentu dengan terlebih dulu memberikan parameter pada query kita vwJualDetailHarian ( misal : [Tanggal Diminta (tgl/bln)]  ) sehingga event yang ada menjadi :

Private Sub ExportExcel_Click()

DoCmd.OpenQuery "vwJualDetailHarian"
DoCmd.Close acQuery, "vwJualDetailHarian"

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "vwJualDetailHarian", "D:\Mail to\SparePart\" & Format(Date, "yyyyMMdd") & " Historical Spare part out Pool3" & ".xls", True

End Sub

b. Yang masih saya tidak ketahui bahwa kenapa saat kita klik button tersebut muncul permintaan mengisikan tanggal yang diminta sebanyak 2 kali ??. --> ketik aja tanggal yang sama. ini bisa diterapkan sesuai dengan parameter yang kita inginkan.

b. Yang perlu di ingat bahwa bila akan membuka file tersebut muncul peringatan bahwa file akan dibuka dengan format yang lain, klik aja yes.

Demikian solusi yang telah saya dapatkan hari ini, semoga membantu.

Menggunakan perhitungan selisih waktu dan menentukan hari pada tanggal tertentu pada access

Dalam membuat script pada Modul di access kadang-kadang kita ingin mencari selisih antara dua tanggal dari tanggal yang telah ditentukan dengan tanggal sekarang.

Setelah mencari kemana-mana akhirnya saya temukan caranya ( sumber : http://www.pctools.com/guides/scripting/id/23/?act=reference) yaitu :

Date () - Mengembalikan Sistem Tanggal saat ini

Date () berfungsi mengembalikan tanggal dari ke jam sistem.

DateAdd () - Mengubah Tanggal oleh Ditentukan Waktu Interval

DateAdd () berfungsi memungkinkan kita untuk mengubah tanggal dengan menambahkan atau mengurangi dengan interval waktu tertentu. Misalnya, menghitung tanggal 9 hari yang lalu.

DateDiff () - Menghitung Perbedaan Antara Dua Tanggal

DateDiff () digunakan untuk membandingkan dua tanggal dan menghitung periode antara mereka dalam beberapa hari, bulan, tahun, jam, menit atau detik.

Contoh control sourse pada access : =DateDiff("d";[TanggalPO];Now()) artinya hitunglah selisih hari dari tanggal field ( Name : TanggalPO) dengan waktu sekarang, 

note : pemakaian " ; " bisa digantikan dengan " , " menyesuaikan dengan setting regional

DatePart () - Menentukan Bagian Tertentu dari Tanggal Mengingat

DatePart () digunakan untuk menentukan bagian tertentu dari tanggal tertentu, misalnya hari dalam seminggu atau sebulan tahun.

DateSerial () - Membuat Tanggal Variabel dari Hari, Bulan dan Tahun

DateSerial () untuk menciptakan variabel tanggal dari dipasok hari, bulan dan / atau parameter tahun.

Datevalue () - Membuat Tanggal dari Terformat Tanggal String

Datevalue () menciptakan variabel tanggal dari tanggal yang disediakan diformat (dan / atau waktu) string.

Day() - Tentukan Hari dari Tanggal

Day() digunakan untuk menentukan hari dari tanggal variabel atau format string

FormatDateTime () - Membuat Terformat Tanggal String

FormatDateTime () untuk menciptakan format string tanggal / waktu dari tanggal yang disediakan.

Hour() - Menentukan Jam dari Tanggal / Waktu

Hour() digunakan untuk menentukan jam dari tanggal / variabel waktu atau format string.

Minute() - Tentukan menit dari Tanggal / Waktu

Minute() digunakan untuk menentukan jumlah menit dari tanggal / variabel waktu atau format string.

Month() - Tentukan Bulan dari Tanggal

Month() digunakan untuk menentukan bulan dari tanggal variabel atau format string.

MonthName () - Menciptakan string yang menunjukkan bulan tertentu

MonthName () berfungsi merepresentasi string dari nama untuk bulan tertentu, misalnya Januari ... Desember.

Now() - Mengembalikan tanggal dan waktu

Now() mengembalikan fungsi tanggal dan waktu sesuai dengan pengaturan tanggal sistem komputer host dan waktu.

Second() - Tentukan Detik dari Tanggal / Waktu

Second() digunakan untuk menentukan jumlah detik dari tanggal / variabel waktu atau format string.

Time() - Mengembalikan waktu sistem saat ini

Time() mengembalikan fungsi waktu saat ini sesuai dengan pengaturan waktu sistem komputer host.

Timer () - Mengembalikan jumlah detik sejak tengah malam

Timer () mengembalikan fungsi jumlah detik yang telah berlalu sejak 00:00 (tengah malam).

TimeSerial () - Membuat waktu dari Jam, Menit dan Detik

TimeSerial () fungsi menciptakan tanggal varian untuk waktu yang ditentukan dengan menggunakan jam, menit dan detik.

TIMEVALUE () - Membuat waktu dari waktu string yang diformat

TIMEVALUE () menciptakan varian tanggal yang berisi waktu dari yang disediakan format waktu string.

WeekDay() - Menentukan hari kerja dari tanggal

Weekday () adalah fungsi yang digunakan untuk menentukan hari kerja dari tanggal variabel atau format string.

WeekdayName () - Menciptakan string yang menunjukkan hari kerja yang ditentukan

WeekdayName () mengembalikan fungsi representasi string dari nama untuk hari kerja tertentu, misalnya Senin ... Minggu.

contoh pada source code: =WeekdayName(Weekday([TanggalPO];0)) artinya mencari hari pada field TanggalPO dengan nilau awal minggu sebagai 0.

Year() - Menentukan tahun dari tanggal

Year() adalah fungsi yang digunakan untuk menentukan tahun sejak tanggal variabel yang disediakan atau format string.

Semoga sedikit ini bisa membantu...