Expression Builder Access 2007

Berikut Syntax expression builder yg sering dipakai :

1. Untuk menampilkan Nama Bulan :

NamaBulanAja: MonthName ( month[TanggalBulanTahun]; true )

note : tanda ; untuk beberapa setting bisa jadi berganti ,



2. Untuk menampilkan Tanggal :

TglAja: Day([TanggalBulanTahun])


3. Untuk menampilkan Tahun :

TahunAja: Year([TanggalBulanTahun])
atau
TahunAja: Year(#1/12/2015#)



4. Untuk menghitung selisih hari terhadap hari ini :

SelisihHari: DateDiff("d";[TglInput];Date())

dimana d : untuk selisih hari
[TglInput] : Tanggal Awal
Date() : tanggal hari ini


untuk sementara itu saja dulu, bila ada perkembangan dan tambahan ilmu akan saya share....


terima kasih

Menghitung selisih waktu pada access

Bagaimana Anda menghitung perbedaan antara bidang / waktu dua tanggal, seperti jam kerja antara jam-start dan jam-finish?

Gunakan DateDiff () untuk menghitung waktu yang telah berlalu. Ia mengembalikan seluruh nomor saja, jadi jika Anda ingin jam dan fraksi satu jam, Anda harus bekerja dalam beberapa menit. Jika Anda ingin menit dan detik, Anda harus mendapatkan perbedaan dalam hitungan detik.

Dalam Query untuk menghitung selisih waktu antara waktu finish (WF) dengan waktu start (WS) dilakukan dengan cara :

Menghitung dalam satuan :
Hari : DateDiff ("d";(WS);(WF))
Jam : DateDiff ("h";(WS);(WF))
Menit : DateDiff ("n";(WS);(WF))
Detik : DateDiff ("s";(WS);(WF))

--> perhatikan separator ; dalam beberapa setting bisa dalam bentuk ,

Untuk menampilkan nilai ini sebagai jam dan menit pada laporan Anda, gunakan kotak teks dengan ini Pengendalian Sumber:

    = ((WS)-(WF)) \ 60 & Format (((WS)-(WF)) Mod 60; "\: 00")

Formula ini menggunakan:
* operator pembagian integer (\) daripada divisi biasa (/), hanya seluruh jam;
* operator Mod untuk mendapatkan kiri atas menit setelah membagi dengan 60;
* Format () fungsi untuk menampilkan menit sebagai dua digit dengan usus literal.

Jangan menggunakan rumus langsung dalam query jika Anda ingin untuk jumlah waktu; nilai itu menghasilkan hanya sepotong teks.

sementara ini saja yg bisa saya sampaikan, atas perhatiannya saya ucapkan banyak terima kasih

Sumber : http://allenbrowne.com/casu-13.html

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