Cara Mudah Buat Progres Bar Acces

Wong Gaptex Nulis Konten Post di blog gratisan..!! 
Sebelum wong Ndeso membahas secara detail judul pada postingan, mari sejenak membaca pepatah do bawah ini :

~ Pepatah si Mbok ku Wong Ndeso ~

" Berbuatlah hal yang menyenangkan, mudahkan jalan rezeki untuk orang tersebut, Walau yang sebenarnya orang tersebut sudah mengambil sebagian jalan rezeki kita, banggalah dengan keadaan kita sekarang dan yakinlah bahwa apa yang ia lakukan terhadap diri kita menjadi pembuka do'a-do'a kita kepada tuhan yang maha ESA, yang akan memberikan kemudahan jalan rezeki yang lebih baik dari apa yang ia dapat hari ini " 

Kalimat si Mbok ku yang sampai saat ini saya selalu ingat. Pepatah tersebut menjadi panduan diri saya agar selalu berbuat kemudahan, memberikan jalan seluas-luasnya rezeki untuk orang lain. Kalimat pepatah itu juga mengajarkanku untuk selalu berusaha mencari jalan rezeki di pintu yang lain, selama hati kita ikhlas dan yakin, tuhan akan memberikan petunjuk jalan rezeki yang lebih baik.

  Mari fokus pada judul postingan yang keki nian..!! tapi sayang di sayang sudah banyak sekali web dan blog yang sudah membahasnya. Namun dalam tutorial ini saya membahasnya agak sedikit berbeda. 

Dimana saya akan menuturkan tahap demi tahap dengan menggunakan bahasa yang mudah di pahami, detail dan juga melampirkan printscreen/gambar pada saat proses pembuatannya. 

  Next Cuy..!! Bagi yang berprofesi menjadi orang kantoran mungkin tak heran pada saat membuka sebuah sofware atau aplikasi tertentu, melihat prosesing loading....pada saat membuka atau menutup aplikasi tersebut.

Singkat cerita wong gaptex mencari tahu...., adakah fasiltas loading...di Microsoft Office Acces 2010? ternyata di microsoft office itu sudah ada, hanya bagaimana caranya fasiltas prosesing loading... tersebut bisa dijalankan pada aplikasi yang mungkin anda membuatnya secara pribadi.

Tahap Pertama. Buatlah form untuk menu prosesing loading...tools atau peralatan yang digunakan pada pembuatan prosesing loading pada tutorial ini adalah sebagai berikut ini : Label, Rectangle dan 1 buah gambar.jpg. Klik Link Back DISINI jika belum paham tatacara pembuat form, namun jika sudah mengerti abaikan link tersebut.

a). Buatlah form sesuai pada gambar dibawah ini, saya jelaskan isi yang ada pada form tersebut : angka 1 adalah file gambar.jpg, angka 2 adalah label dan angka 3 adalah rectangle.

b). Pilih gambar.jpg >> property sheet >> tab menu >> pilih All, perhatikan gambar dibawah angka 1 dan 2. dimana saya merubah name pada gambar menjadi Box20.

c). Rectangle nya saya ubah juga name nya menjadi Box21. Lihat gambar yang saya tandai angka 2.

d). Label Yang awal name nya label di ganti menjadi label22 dengan caption Loading data....

e). Pilih view code, untuk mengisikan prosedure soucre code nya.

f). Perhatikan gambar di bawah, angka 1 adalah soucre code yang sudah saya buat untuk form dan angka 2 soucre code untuk module. jika anda ingin membuatnya sendiri soucre code tersebut bisa anda copy pada point.212.

Point. 212 Soucre Code Form

Option Compare Database
Option Explicit
Dim l As Long
Dim lbarlnth As Long

'Alter value below to change speed
Const Steplth = 120

Private Sub Form_load()
On Error GoTo Err_Form_Load

    lbarlnth = Me.Box21.Width - 2
l = 0

Exit_Form_Load:
   Exit Sub

Err_Form_Load:
    MsgBox Err.Description
    Resume Exit_Form_Load

End Sub

Private Sub Form_Timer()
On Error GoTo Err_Form_Timer

Do Until l >= lbarlnth
    Call RunProgressBar(l)
    l = l + Steplth
    Pause 0.01
Loop

Pause 2
DoCmd.Close acForm, Me.Name

Exit_Form_Timer:
   Exit Sub

Err_Form_Timer:
    MsgBox Err.Description
    Resume Exit_Form_Timer

End Sub

Point. 212 Soucre Code Module

Option Compare Database
Option Explicit

Function RunProgressBar(lLth As Long)

If IsLoaded("Loading") Then
    Forms!Loading!Box20.Width = lLth
End If

End Function

Function IsLoaded(ByVal strFormName As String) As Boolean
On Error GoTo Err_IsLoaded

    Const conObjStateClosed = 0
    Const conDesignView = 0

    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
        If Forms(strFormName).CurrentView <> conDesignView Then
            IsLoaded = True
        End If
    End If

Exit_IsLoaded:
   Exit Function

Err_IsLoaded:
    MsgBox Err.Description, , " Service Operations"
    Resume Exit_IsLoaded

End Function

Public Function Pause(NumberOfSeconds As Variant)
On Error GoTo Err_Pause
   
    Dim PauseTime As Variant, Start As Variant
   
    PauseTime = NumberOfSeconds
    Start = Timer
    Do While Timer < Start + PauseTime
    DoEvents
    Loop
   
Exit_Pause:
    Exit Function
   
Err_Pause:
    MsgBox Err.Number & " - " & Err.Description
    Resume Exit_Pause
   
End Function

Tahap Ke dua. Tatacara pembuatan form login yang nantikan untuk ujicoba prosesing loading yang sudah dibahas pada tahap pertama, dimana nanti nya jika user atau pengguna berhasil memasukkan user dan password yang sudah ditentukan, maka proses loading akan secara otomatis berjalan. 

a). Buatlah tabel di database berada didalam form loading data.., dalam manual ini saya buat name tabel nya Tuser dengan struktur seperti contoh pada gambar dibawah ini. Untuk tabel tersebut bisa juga anda membuatnya dari excel dan di import kedatabase tersebut atau bisa juga langsung pembuatan tabel nya di Microsoft acces nya. Klik link back DISINI jika belum mengerti benar tentang tatacara pembutan tabel dan import data. Jika sudah memahaminya abai link tersebut.

b). Tools dan peralatan untuk proses pembuatan menu login yang dibutuhkan sebagai berikut ini : TexsBox dan Button. Perhatikan gambar dibawah, property sheet >> All >> angka 1 dan 2 yang awalnya name nya texsbox saya rubah menjadi txtuser

c). Masih sama seperti gambar sebelumnya, namun yang tunjukkan texsbox dibawahnya, texsbox yang saya rubah name nya menjadi txtpwd.

d). Selanjutnya mengubah tombol Login, yang awalnya name commandbutton saya edit menjadi txtlogin dengan caption Login.

e). Masih sama seperti pada gambar diatas, ubahlah tombol commandbutton menjadi cmdexit dengan caption exit.

 

f). Jika sudah melakukan tahap demi tahap seperti yang sudah dijelaskan dari tahap pertama sampai dengan... secara benar, maka proses selanjutnya kita akan mengisikan soucre code untuk form kebutuhan login. Pilih view code.

g). Dibawah ini adalah view code yang sudah saya buat. Namun saya juga memyerta soucre code tersebut di point.212. jika anda mau membuatnya sendiri.

Point. 212. Soucre Code Form Login

Option Compare Database
Private Sub cmdlogin_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("select * from puser where username ='" & txtuser & _
"' and  password ='" & txtpas & "'", dbOpenDynaset)
If rs.RecordCount > 0 Then
pesan = MsgBox("Menuju Ke Menu Utama", vbOKOnly, "Sukses")
DoCmd.Close acForm, "login", acSaveNo
DoCmd.OpenForm "Loading"
Else
pesan = MsgBox("Pasword salah broo..., coba lagi", vbOKOnly, "Gagal")
End If
End Sub

Namun jika anda malas membuatnya, anda bisa mendownloadnya dan mempelajarinya. Link download File yang Sudah Jadi DISINI