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