Training MS Access - Basic & Programming (29-30 Agustus 2015)

Seperti sudah menjadi tradisi, training 2 hari yang langsung membahas materi Basic dan dilanjutkan materi Programming ternyata lebih menarik minat calon peserta. Kini RumahAccess.com kembali mengadakan training MS Access model tersebut karena permintaan yang masuk sudah cukup banyak. Training yang diadakan RumahAccess.com memang dilaksanakan untuk komunitas, jadi berdasarkan permintaan yang masuk. Jika sudah cukup banyak calon peserta, maka training bisa diadakan.

Untuk dapat mengikuti training calon peserta cukup mengirimkan email ke: training@RumahAccess.com dengan mencantumkan data: (1) Nama Lengkap (2) Alamat Lengkap (3) Pekerjaan/Jabatan (4) Perusahaan/Instansi (5) Nomor Kontak / HP.
Email akan dibalas oleh Admin Training berisi petunjuk/langkah selanjutnya.

Training yang diadakan kali ini masih sama dengan program training sebelumnya, yaitu materi MS Access (Basic) dan MS Access (Programming). Kedua materi ini diminati oleh peminat database yang belum mengenal atau menggunakan MS Access, atau mereka yang sudah menggunakan MS Access dan ingin mengakselerasi proses belajarnya sehingga lebih cepat bisa menggunakan MS Access dan membuat aplikasi database.

Kelebihan dalam mengikuti training dibandingkan dengan belajar sendiri melalui buku atau tutorial (apalagi yang didapat dari media online) adalah kesempatan untuk bertemu langsung dengan trainer sehingga trainer bisa melihat keterbatasan peserta atau yang menjadi hambatannya dalam belajar, dan trainer bisa langsung menunjukkan cara jitu untuk mengatasinya.

Adapun keterangan lebih lengkap mengenai materi training bisa dilihat di link berikut ini:
- Microsoft Access - Basic
- Microsoft Access - Programming

Apakah saya perlu mengambil kedua materi sekaligus atau salah satu saja? Disediakannya kedua materi (Basic dan programming) secara berurutan (langsung 2 hari/Sabtu-Minggu) karena umumnya peserta menghendaki seperti itu (jadi yang dari luar kota bisa sekaligus datangnya) dan agar belajarnya langsung berlanjut. Namun demikian, peserta bisa juga mengambil salah satu materi sesuai dengan kebutuhannya.

Materi MS Access - Basic membahas dasar-dasar database dan pengenalan MS Access. Dasar-dasar database SANGAT diperlukan karena yang diolah adalah data atau database. Kesalahan atau kekurangmengertian dalam hal database ini akan menyulitkan di dalam pengembangan aplikasi database.

Pengenalan MS Access yang baik dan tepat SANGAT diperlukan karena kita tidak perlu mengenal dan menguasai semua komponen MS Access, tetapi cukup komponen yang umumnya diperlukan dan bagaimana cara menggunakannya dengan tepat. Hal ini akan sangat menghemat waktu dalam menggunakan MS Access.

Materi MS Access - Programming adalah lanjutan dari materi MS Access - Basic, dimana pada materi ini dibahas lebih mendalam objek-objek aplikasi sehingga bisa membuat aplikasi database yang baik dan benar. Banyaknya porsi latihan akan membuat peserta menjadi tidak sekadar TAHU tetapi BISA membuat aplikasi database.

Saya tidak bisa mengikuti training pada jadwal yang ini, apakah ada jadwal lain?
Seperti diutarakan di atas, penentuan jadwal adalah berdasarkan jumlah calon peserta yang sudah mengirim email pendaftaran. Jadi RumahAccess.com tidak bisa membuat jadwal yang pasti. Solusi bagi mereka yang ingin menentukan jadwal training sendiri adalah melalui "in-house" training. Informasinya bisa ditanyakan melalui email ke: training@RumahAccess.com

Siapakah Haer Talib (trainer pada jadwal ini)? Silahkan dilihat di blog: http://haer.RumahAccess.com

Kapan saya bisa mengirim email pendaftaran? Sekarang juga, karena semakin cepat akan menentukan anda mendapatkan seat (karena terbatas 10 orang peserta agar training lebih efektif).

Apakah saya bisa membawa "case" yang sedang saya hadapi? Silahkan, anda bisa bertanya kepada trainer bagaimana solusinya.

Semoga bermanfaat!

Pelaksanaan Training MS Access - Basic & Programming (23-24 Mei 2015)

Berikut ini foto-foto pelaksanaan training MS Access - Basic (Sabtu, 23 Mei 2015) dan MS Access - Programming (Minggu, 24 Mei 2015) di RumahAccess, dengan trainer Bp. Haer Talib, Access MVP. Foto-foto ini dan yang lainnya bisa dilihat juga di Facebook.com/RumahAccess




Pelaksanaan Training MS Access - Basic & Programming (14-15 Feb 2015)

Berikut ini foto-foto pelaksanaan training MS Access - Basic (Sabtu, 14 Feb 2015) dan MS Access - Programming (Minggu, 15 Feb 2015) di RumahAccess, dengan trainer Bp. Haer Talib, Access MVP. Foto-foto ini dan yang lainnya bisa dilihat juga di Facebook.com/RumahAccess






Pelaksanaan Training MS Access, 29-30 Nopember 2014

Alhamdulillah, Training MS Access (Basic dan Progrraming) telah berhasil dilaksanakan pada tanggal 29-30 Nopember 2014. Jumlah peserta melebihi kuota, bahkan ada yang terpaksa ditolak karena keterbatasan tempat dan efektivitas pelatihan. Kali ini peserta berasal dari berbagai perusahaan, organisasi, hingga pengusaha.

Berikut ini beberapa foto pelaksanaan training. Foto dengan ukuran yang lebih besar dapat dilihat di halaman Facebook RumahAccess.
















Pelaksanaan training kali ini merupakan yang terakhir di tahun 2014. Mudah-mudahan kita bisa melaksanan dengan lebih baik lagi di tahun-tahun yang akan datang.
Pendaftaran training tetap bisa dilakukan dengan mengirim email ke: training@RumahAccess.com agar bisa dicatat dan dimasukkan ke jadwal training berikutnya. Materi dan tata cara pendaftaran bisa dilihat di halaman Training.

Membuat modul terbilang pada form

Oleh : Sumiyanto Surabaya
1.       Buat modulTerbilang copy paste dari module tersebut: ­­­­­­­­­
module tebilang
module terbilang
Public Function Terbilang(ByVal MyNumber, ByVal vMataUang)
    Dim MataUang As String, cMataUang As String
    Dim Rupiah, sen, Temp
    Dim DecimalPlace, Count
    ReDim Place(9) As String
    Dim a As Long
  
    cMataUang = vMataUang
    If cMataUang = "IDR" Then
        MataUang = " rupiah"
    ElseIf cMataUang = "USD" Then
        MataUang = " dolar"
    ElseIf cMataUang = "JPY" Then
        MataUang = " yen"
    ElseIf cMataUang = "SGD" Then
        MataUang = " dolar singapura"
    ElseIf cMataUang = "GBP" Then
        MataUang = " poundsterling"
    ElseIf cMataUang = "EUR" Then
        MataUang = " euro"
    Else
        MataUang = " "
    End If
  
    Place(2) = " ribu"
    Place(3) = " juta"
    Place(4) = " milyar"
    Place(5) = " trilyun"
    ' String representation of amount.
    MyNumber = Trim(Str(MyNumber))
    ' Position of decimal place 0 if none.
    DecimalPlace = InStr(MyNumber, ".")
    ' Convert sen and set MyNumber to dollar amount.
    If DecimalPlace > 0 Then
        sen = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
        MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    End If
    Count = 1
    Do While MyNumber <> ""
        Temp = GetHundreds(Right(MyNumber, 3))
        If Temp <> "" Then Rupiah = Temp & Place(Count) & Rupiah
        If Left(Trim(Rupiah), 9) = "Satu Ribu" Then
            Rupiah = " Seribu" & Mid(Rupiah, 11)
        End If
        If Len(MyNumber) > 3 Then
            MyNumber = Left(MyNumber, Len(MyNumber) - 3)
        Else
            MyNumber = ""
        End If
        Count = Count + 1
    Loop
    Select Case Rupiah
        Case ""
            Rupiah = "nol"
        Case Else
            Rupiah = Rupiah
    End Select
    Select Case sen
        Case ""
            sen = "" ' dan nol sen"
        Case Else
            sen = " koma" & sen
    End Select
    Terbilang = Trim(Rupiah & sen & MataUang)
End Function

' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
    Dim Result As String
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3)
    ' Convert the hundreds place.
    If Mid(MyNumber, 1, 1) <> "0" Then
        If Mid(MyNumber, 1, 1) = "1" Then
            Result = " seratus"
            Else
            Result = GetDigit(Mid(MyNumber, 1, 1)) & " ratus"
        End If
    End If
    ' Convert the tens and ones place.
    If Mid(MyNumber, 2, 1) <> "0" Then
        Result = Result & GetTens(Mid(MyNumber, 2))
    Else
        Result = Result & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = Result
End Function

' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
    Dim Result As String
    Result = ""          ' Null out the temporary function value.
    If Val(Left(TensText, 1)) = 1 Then   ' If value between 10-19...
        Select Case Val(TensText)
            Case 10: Result = " sepuluh"
            Case 11: Result = " sebelas"
            Case 12: Result = " dua belas"
            Case 13: Result = " tiga belas"
            Case 14: Result = " empat belas"
            Case 15: Result = " lima belas"
            Case 16: Result = " enam belas"
            Case 17: Result = " tujuh belas"
            Case 18: Result = " delapan belas"
            Case 19: Result = " sembilan belas"
            Case Else
        End Select
    Else                                 ' If value between 20-99...
        Select Case Val(Left(TensText, 1))
            Case 2: Result = " dua puluh"
            Case 3: Result = " tiga puluh"
            Case 4: Result = " empat puluh"
            Case 5: Result = " lima puluh"
            Case 6: Result = " enam puluh"
            Case 7: Result = " tujuh puluh"
            Case 8: Result = " delapan puluh"
            Case 9: Result = " sembilan puluh"
            Case Else
        End Select
        Result = Result & GetDigit(Right(TensText, 1))  ' Retrieve ones place.
    End If
    GetTens = Result
End Function

' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
    Select Case Val(Digit)
        Case 1: GetDigit = " satu"
        Case 2: GetDigit = " dua"
        Case 3: GetDigit = " tiga"
        Case 4: GetDigit = " empat"
        Case 5: GetDigit = " lima"
        Case 6: GetDigit = " enam"
        Case 7: GetDigit = " tujuh"
        Case 8: GetDigit = " delapan"
        Case 9: GetDigit = " sembilan"
        Case Else: GetDigit = ""
    End Select
End Function
2.       Buat textbox :
buat textbox
buat text box
a.       txtMataUang
b.      txtAngka
c.       txtTerbilang

3.       untuk memudahkan skenarionya diatas saya buat jenis mata uang model combo box, dengan mata uang IDR, USD, JPY, SGD, GBP, EUR.
Form Terbilang
Form Terbilang
4.       Buat event after update pada txtAngka:

Private Sub txtAngka_AfterUpdate()
txtTerbilang = terbilang([txtAngka], [txtMataUang])
End Sub

Ini memang sering ditanyakan, semoga tidak bosan. Lebih baik Anda buat sendiri dari awal, sehingga mengerti alurnya, dari pada instant. Semoga bermanfaat