Cara Membuat Tombol Ascending dan Descending di Microsoft Access dengan VBA

Cara Membuat Tombol Ascending dan Descending di Microsoft Access dengan VBA

Misal Buatlah Satu Tombol, misal dengan nama Command87

Dan pada properties On_Click() tuliskan kode berikut:

Private Sub Command87_Click()

If Me.Command87.Caption = "Sort Descending" Then

Me.OrderBy = "[Nama Field Yang Mau Di Sort] DESC"

Me.OrderByOn = True

Me.Command87.Caption = "Sort Ascending"

Me.Command87.ForeColor = vbBlue

Else

Me.OrderBy = "[Nama Field Yang Mau Di Sort] ASC"

Me.OrderByOn = True

Me.Command87.Caption = "Sort Descending"

Me.Command87.ForeColor = vbRed

'DoCmd.SetOrderBy "[Title]" DESC, ""

End If

End Sub

Kami bergerak dalam pembuatan Website Kantor, Toko Online, MS Access Database, Desain Grafis (Corel Draw & Photoshop), Gambar Teknik, Video Maker, Penjualan Laptop & PC dan lain-lainya

Terimakasih Atas Kunjungan Anda.

Jasa Pembuatan Database Microsoft Access

Mahanila Engineering Group. Spesialis Dalam Pembuatan Database Microsoft Access

Promo Sampai Jun 2017 

Hubungi Kami:

Mahanila Das - Founder
0812-7740-3909  (HP dan  WA) 
0819-9109-9321 (HP) 

Susanti - Marketing Manager: 
0813-8014-2808 (HP)
0819-9108-4996 (HP dan WA) 

ini adalah contoh database yang dapat menyimpan ribuan Link ke Files atau Folder dan juga menyimpan Alamat Website

Contoh Desain Sertifikat Dengan Menggunakan Corel Draw.

Kode Script Sobat Disini

Mahanila Das - Director
0812-7740-3909  (HP dan  WA)
0819-9109-9321 (HP)
Marketing Manager: Susanti
HP
0813-8014-2808 (HP)
0819-9108-4996 (HP dan WA)

Mahanila Engineering Menerima:

Spanduk, Banner, Sertifikat, Poster, Cover Buku dan Majalah, Brosur, Kartu Nama, Undangan, Logo, Bros, Pin, Neon Box, Sticker, Database Ms Access, Website, Blog, Desain Rumah Tinggal, Konstruksi Bangunan

Hubungi:

Mahanila Das (I Wayan Mesra Ariyawan).

HP/WA 0812-7740-3909

Share Share

Read More

Cara Membuat Tombol Untuk Membuka Folder Lokasi Penyimpanan File Database Dengan VBA

Cara Membuat Tombol Untuk Membuka Folder Lokasi Penyimpanan File Database Dengan VBA

Langkahnya adalah:

Buatlah satu tombol misalnya dengan nama Command157.

Pada Properties on_click() tuliskan kode berikut:

Private Sub Command157_Click()

Application.FollowHyperlink CurrentProject.Path

End Sub

Kami bergerak dalam pembuatan Website Kantor, Toko Online, MS Access Database, Desain Grafis 

(Corel Draw & Photoshop), Gambar Teknik, Video Maker, Penjualan Laptop & PC dan lain-lainya

Terimakasih Atas Kunjungan Anda.

Jasa Pembuatan Database Microsoft Access

Mahanila Engineering Group. Spesialis Dalam Pembuatan Database Microsoft Access

Promo Sampai Jun 2017 

Hubungi Kami:

Mahanila Das - Founder
0812-7740-3909  (HP dan  WA) 
0819-9109-9321 (HP) 

Susanti - Marketing Manager: 
0813-8014-2808 (HP)
0819-9108-4996 (HP dan WA) 

ini adalah contoh database yang dapat menyimpan ribuan Link ke Files atau Folder dan juga menyimpan Alamat Website

Contoh Desain Sertifikat Dengan Menggunakan Corel Draw.

Mahanila Das - Director
0812-7740-3909  (HP dan  WA)
0819-9109-9321 (HP)
Marketing Manager: Susanti
HP
0813-8014-2808 (HP)
0819-9108-4996 (HP dan WA)

Mahanila Engineering Menerima:

Spanduk, Banner, Sertifikat, Poster, Cover Buku dan Majalah, Brosur, Kartu Nama, Undangan, Logo, Bros, Pin, Neon Box, Sticker, Database Ms Access, Website, Blog, Desain Rumah Tinggal, Konstruksi Bangunan

Hubungi:

Mahanila Das (I Wayan Mesra Ariyawan).

HP/WA 0812-7740-3909

Share Share

Read More

Cara Membuat Tombol Show/Hide Navigation Pane Pada Microsoft Access Dengan VBA

Cara Membuat Tombol Show/Hide 

Navigation Pane Pada Microsoft Access

Dengan VBA

Public Function ShowNavigationPane()

On Error GoTo ErrHandler

    DoCmd.SelectObject acTable, , True

Exit_ErrHandler:
    Exit Function
    
ErrHandler:
    MsgBox "Error " & Err.Number & " in ShowNavigationPane routine : " & Err.Description, vbOKOnly + vbCritical
    Resume Exit_ErrHandler

End Function
Public Function HideNavigationPane()

'CR modified v5263

On Error GoTo ErrHandler

    DoCmd.NavigateTo "acNavigationCategoryObjectType"
    DoCmd.RunCommand acCmdWindowHide
    
Exit_ErrHandler:
    Exit Function
    
ErrHandler:
    MsgBox "Error " & Err.Number & " in HideNavigationPane routine : " & Err.Description, vbOKOnly + vbCritical
    Resume Exit_ErrHandler

End Function
Private Sub ShowHideNavigationPane_Click()
On Error GoTo err_handler


Dim lngRed As Long, lngYellow As Long, lngWhite As Long

 lngRed = RGB(255, 0, 0)
'lngBlack = RGB(0, 0, 0)
 lngYellow = RGB(255, 255, 0)
 lngWhite = RGB(255, 255, 255)



    If Me.ShowHideNavigationPane.Caption = "Show Navigation Pane" Then

        'nav pane can only be shown if app window is visible

        ''cmdAppWindow.caption = "Show Application Window"
        ''cmdAppWindow_Click
    
    
    '-- tambahan password
    
    Dim strInput As String
    Dim strMsg As String
    
    Beep

    strMsg = "This form is used only by the ''Authorized'' people." & vbCrLf & vbLf & "Please enter the ''1234'' password to allow access."

    strInput = InputBox(Prompt:=strMsg, TITLE:="Special Password")

     If strInput = "1234" Then 'password is correct
        DoCmd.SelectObject acTable, , True
        ShowNavigationPane
    Else 'password is incorrect

        MsgBox "Incorrect Password!" & vbCrLf & vbLf & "You are not allowed access to the ''Table''.", vbCritical, "Invalid Password"
        Exit Sub
    End If
    
    '----  end of tambahan password
    
        ShowNavigationPane
        Me.ShowHideNavigationPane.Caption = "Hide Navigation Pane"
        Me.ShowHideNavigationPane.ForeColor = vbBlack
        DoCmd.Restore
    Else
        HideNavigationPane
        Me.ShowHideNavigationPane.Caption = "Show Navigation Pane"
        Me.ShowHideNavigationPane.ForeColor = vbRed
        DoCmd.Restore
    End If
    
Exit_Handler:
    Exit Sub

err_handler:
    Resume Exit_Handler

End Sub

Jasa Pembuatan Database Microsoft Access

Mahanila Engineering Group. Spesialis Dalam Pembuatan Database Microsoft Access

Promo Sampai Jun 2017 

Hubungi Kami:

Mahanila Das - Founder
0812-7740-3909  (HP dan  WA) 
0819-9109-9321 (HP) 

Susanti - Marketing Manager: 
0813-8014-2808 (HP)
0819-9108-4996 (HP dan WA) 

ini adalah contoh database yang dapat menyimpan ribuan Link ke Files atau Folder dan juga menyimpan Alamat Website

Contoh Desain Sertifikat Dengan Menggunakan Corel Draw.

Mahanila Das - Director
0812-7740-3909  (HP dan  WA)
0819-9109-9321 (HP)
Marketing Manager: Susanti
HP
0813-8014-2808 (HP)
0819-9108-4996 (HP dan WA)

Mahanila Engineering Menerima:

Spanduk, Banner, Sertifikat, Poster, Cover Buku dan Majalah, Brosur, Kartu Nama, Undangan, Logo, Bros, Pin, Neon Box, Sticker, Database Ms Access, Website, Blog, Desain Rumah Tinggal, Konstruksi Bangunan

Hubungi:

Mahanila Das (I Wayan Mesra Ariyawan).

HP/WA 0812-7740-3909

Share Share

Read More

Cara Membuat Tombol Backup Database Microsoft Access Dengan VBA (Visual Basic For Application)

Cara Membuat Tombol Backup Database Microsoft Access Dengan VBA (Visual Basic For Application)

Catatan:

Database ini akan di Back-Up di Folder Yang sama dengan Database Anda Sekarang

Langkah-langkahnya sbb:

1. Buat Kotak Tombol Pada Form Anda. Misal dengan nama: "Command113"

2. Ketik Kode Berikut pada propertis On_Click()

Private Sub Command113_Click()

On Error GoTo Err_Command113_Click

Dim msgValue, Cancel As Integer

msgValue = MsgBox("Hello, want to Back Up? Choose:" _

& vbCr & "(1) Yes: if you Sure!" _

& vbCr & "(2) No: if you are Not SURE" _

, vbYesNo + vbQuestion, _

"Critical Information")

If msgValue = vbYes Then

MsgBox "Anda akan membackup data ke_:" _

& vbCr & Application.CurrentProject.Path

Call fMakeBackup

  

ElseIf msgValue = vbNo Then

' Do Nothing

End If

Cancel = True

    

Err_Command113_Click:

    MsgBox Err.Description

   'Resume Exit_Command113_Click

End Sub

'--- Tambahkan Function fMakeBackup ---

Function fMakeBackup() As Boolean

Dim sPath As String

    Dim RecordSt As Recordset

    Dim dBase As Database

    Dim stringSQL As String

    Dim doSQL As String

    Dim stDocName As String

    Dim rCnt As Integer

    Dim outputFileNameKu As String

       

    Dim Source As String

    Dim Target, Target1, Target2, Target3, Target4 As String

    Dim RetVal As Integer

    Source = CurrentDb.Name

   

Target = Application.CurrentProject.Path & "\BackUpDatabase2020_[" & Format(Now(), "ddd dd-mmm-yyyy hh mm AMPM") & "]" & ".accdb"

    Target1 = "BackUpDatabase2020" & Format(Date, "ddmmmyyyy") & " - " & Format(Time, "hh-mm") & ".accdb"

    

    

    

    ' Create the backup

   

 RetVal = 0

    Dim objFSO As Object

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    RetVal = objFSO.CopyFile(Source, Target, True)

    Set objFSO = Nothing

    

Beep

MsgBox "Backup was successful and saved @ " & Chr(13) & Chr(13) & Target & Chr(13) & Chr(13) & "The backup file name is " & Chr(13) & Chr(13) & Target1, vbInformation, "Backup Completed"

Application.FollowHyperlink CurrentProject.Path

End Function

Selamat Mencoba.

Hubungi W/A: 081277403909 jika ada pertanyaan lebih lanjut..

Mahanila Das - Director
0812-7740-3909  (HP dan  WA)
0819-9109-9321 (HP)
Marketing Manager: Susanti
HP
0813-8014-2808 (HP)
0819-9108-4996 (HP dan WA)

Mahanila Engineering Menerima:

Spanduk, Banner, Sertifikat, Poster, Cover Buku dan Majalah, Brosur, Kartu Nama, Undangan, Logo, Bros, Pin, Neon Box, Sticker, Database Ms Access, Website, Blog, Desain Rumah Tinggal, Konstruksi Bangunan

Hubungi:

Mahanila Das (I Wayan Mesra Ariyawan).

HP/WA 0812-7740-3909

Share Share

Read More