Senin, 28 Desember 2015

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


Jumat, 11 Desember 2015

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

Senin, 31 Agustus 2015

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


Minggu, 21 Juni 2015

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.

Kamis, 09 April 2015

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

Rabu, 08 April 2015

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

Selasa, 24 Februari 2015

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.


Sabtu, 14 Februari 2015

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...

Senin, 09 Februari 2015

Tipe data numer_decimal dalam Access

Pagi temen-temen.... lama nggak ngisi blog, kemarin saat membuat program dengan menggunakan Access, ternyata ada sedikit tantangan saat membuat form dengan menggunakan tipe data yang ada.

Masalahnya :
Saat kita menginput pada form data : 23,5 kenapa muncul di form adalah 24 ??

Jawaban :
Setelah searching kemana-mana didapat informasi sebagai berikut :
1. Buat tipe data number : decimal ( karena selain decimal kelihatannya tidak bisa ?), walaupun beresiko menambah memori ( 12 byte)
2. Ubah precesion dan scala nya dengan berpedoman sebagai berikut ( pikir sendiri logikanya)

Precision of a number adalah jumlah digit.

Scale of a number adalah jumlah digit setelah titik desimal.

Apa yang umumnya tersirat saat mengatur presisi dan skala definisi lapangan adalah bahwa mereka mewakili nilai maksimum.

Misalnya, bidang desimal didefinisikan dengan presisi = 5 dan skala = 2 akan memungkinkan nilai-nilai berikut:

123,45 (p = 5, s = 2)
12,34 (p = 4, s = 2)
12345 (p = 5, s = 0)
123,4 (p = 4, s = 1)
0 (p = 0, s = 0)
Nilai-nilai berikut ini tidak diijinkan atau akan menyebabkan kehilangan data:

12,345 (p = 5, s = 3) => bisa dipotong menjadi 12.35 (p = 4, s = 2)
1.234,56 (p = 6, s = 2) => bisa dipotong menjadi 1.234,6 (p = 5, s = 1)
123,456 (p = 6, s = 3) => bisa dipotong menjadi 123,46 (p = 5, s 2 =)
123.450 (p = 6, s = 0) => di luar jangkauan

dengan cara di atas, maka permasalahan bila kita ketik angka 23,5 agar tampil sesuai yang kita inginkan maka dibuat : type data decimal, dengan nilai p=4, s=2

Semoga tulisan ini membantu saya mengingat kasus yang lain & membantu pembaca sekalian.
Salam...