Yuk Belajar VB.NET Bersama-Sama ^^

Apakah Anda tahu bagaimana membuat satu kalimat menjadi banyak kalimat yang berbeda? Di sini saya akan memberikan sebuah fungsi tersebut agar sebuah kata/kalimat/paragraf bisa menjadi unik.

Biasanya teknik ini digunakan oleh para blogger kere atau malas. :)
Tidak perlu berlama-lama lagi, ini kodenya dalam bahasa VB.NET.

 Function GetRandomSequence(ByVal sample As String) As String
        GetRandomSequence = Nothing
        Try
            Static R As New Random
            Dim SB As New System.Text.StringBuilder
            Dim InSet As Boolean = False
            Dim Values As New List(Of List(Of String))
            Dim CurSet As New List(Of String)

            For i As Integer = 0 To sample.Length - 1
                Select Case sample.Substring(i, 1)
                    Case "{"
                        If Not InSet Then
                            If SB.Length > 0 Then
                                CurSet.Add(SB.ToString)
                                Values.Add(CurSet)
                                CurSet = New List(Of String)
                                SB.Clear()
                            End If

                            InSet = True
                        Else
                            ' Reached an Open Set Marker but we were ALREADY in a Set
                            Return "Duplicate Opening Marker Found: " & sample
                        End If

                    Case "}"
                        If InSet Then
                            If SB.Length > 0 Then
                                CurSet.AddRange(SB.ToString.Split("|"))
                                Values.Add(CurSet)
                                CurSet = New List(Of String)
                                SB.Clear()
                            Else
                                ' Reached a Close Set Marker but NOTHING was BETWEEN the Markers
                                Return "Empty Set Between Markers Found: " & sample
                            End If

                            InSet = False
                        Else
                            ' Reached a Close Set Marker but we were NOT in a Set
                            Return "Missing Opening Marker: " & sample
                        End If

                    Case Else
                        SB.Append(sample.Substring(i, 1))
                End Select
            Next

            If SB.Length > 0 Then
                If Not InSet Then
                    CurSet.Add(SB.ToString)
                    Values.Add(CurSet)
                Else
                    ' End of Sample Reached and Set was NOT closed
                    Return "Missing Closing Marker: " & sample
                End If
            End If

            Dim output As New List(Of String)
            For Each valueSet As List(Of String) In Values
                output.Add(valueSet(R.Next(0, valueSet.Count)))
            Next
            Return String.Join("", output.ToArray)
        Catch ex As Exception
            Debug.Print(Date.Now & " GetRandomSequence error " & ex.Message)
        End Try
    End Function

Cara pakainya, kalimat yang mau di spin katanya harus diapit oleh tanda { dan }. Jadi {kata 1|kata 2|kata 3|kata ...}.

Contohnya
Dijual {cepat|BU|Butuh Uang}, Rumah {LB:36m|Luas Bangunan 36m|Tipe 36} {LT:50m|luas tanah 50m} Harga {Murah|Nego|Bersahabat}

Nanti fungsi di atas bisa membuat variasi kalimat seperti di bawah ini:
- Dijual cepat, Rumah Tipe 36 LT:50m Harga Nego
- Dijual BU, Rumah LB:36m Luas tanah 50m Harga Murah
- Dijual Butuh Uang, Rumah Luas Bangunan 36m LT: 50m Harga bersahabat
- dst

OK sekarang ke bagian kedua. Bagaimana bila Anda ingin membuat kalimat tersebut lebih unik lagi? Salah satu caranya adalah dengan menambahkan tanda { dan } di dalam { dan }. Hal ini biasanya disebut dengan nested spin.

Contohnya
Dijual {cepat|BU|Butuh Uang}, Rumah {{LB|Luas Bangunan}:36{m|m2|meter persegi}|{LB|Luas Bangunan} 36{m|m2|meter persegi}|Tipe 36} {LT:50m|luas tanah 50m} Harga {Murah|Nego|Bersahabat}.

Bila Anda memakai fungsi di atas, maka tidak akan berhasil dan akan keluar pesan error:
Duplicate Opening Marker Found

Lalu bagaimana cara menyiasatinya?

Gunakan kode di bawah ini, tetapi kode ini tidak memusingkan soal performa ya..

Imports System.Text.RegularExpressions
Private rand As New Random()

Function RandomReplacement(ByVal m As Match) As String
        Dim matchedText As String = m.Value.Substring(1, m.Value.Length - 2) ' Skip { and }
        Dim delimiter() As Char = {"|"c}
        Dim choices() As String = matchedText.Split(delimiter)
        Dim randomIndex As Integer = rand.Next(choices.Length)

        Return choices(randomIndex)
End Function

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim pattern As String = "\{[^{}]*\}"  ' Any set of braces that do not contain other braces
Dim m As Match = Regex.Match(TextBox1.Text, pattern)
Dim result As String = TextBox1.Text


While m.Success
  result = Regex.Replace(result, pattern, AddressOf RandomReplacement)
  m = Regex.Match(result, pattern)
End While
 
Label1.Text = result

End Sub

Kode kedua, memakai fungsi regex untuk memanipulasi string. Nanti kalau ada waktu saya akan membahas tentang regex ini. Jadi sampai jumpa di artikel berikutnya.

Apakah anda pernah membuat program dari VB.NET lalu program tersebut tiba-tiba freeze / not responding dikarenakan program tersebut sedang memproses sebuah task?

Di sinilah thread harus digunakan agar kita bisa memonitor proses pekerjaan sekaligus membuat program kita lebih baik.

Dalam VB.NET ada beberapa cara menggunakan threading. Tapi hal yang paling mudah adalah menggunakan salah satu komponen dari VB.NET dari background worker.

Dengan menggunakan background worker kita dengan mudah membuat, membatalkan, dan melihat proses sebuah thread.

Pertama masukan komponen background worker ke project.

bw1.RunWorkerAsync()

Untuk proses yang akan dijalankan oleh background worker, masukan kodenya di prosedur Do_Work.

Private Sub bw1_DoWork(sender As Object, e As ComponentModel.DoWorkEventArgs) Handles bw1.DoWork
'letakan kode anda di sini
If bw1.CancellationPending Then
       bw1.ReportProgress(CInt(100 * i / jumlahproses))
       Exit For
End If
End Sub

Anda bisa membuat prosedur ini dengan cara mengklik dua kali komponen background worker-nya.

Untuk melacak prosesnya masukan kode di bawah ini di dalam prosedur ProgressChanged

Private Sub bw1_ProgressChanged(sender As Object, e As ComponentModel.ProgressChangedEventArgs) Handles bw1.ProgressChanged
        Me.pb.Value = e.ProgressPercentage
        Me.Text = "Progress (" & e.ProgressPercentage.ToString & "% complete)"
End Sub

pb yang saya tulis itu adalah komponen progressbar yang saya beri nama pb dengan maximum valuenya 100.

Bila telah selesai seluruh tugas maka secara otomatis RunWorkerCompleted akan dieksekusi.

  Private Sub bw1_RunWorkerCompleted(sender As Object, e As ComponentModel.RunWorkerCompletedEventArgs) Handles bw1.RunWorkerCompleted
        pb.Value = 0
End Sub

Tapi ketika bekerja dengan komponen background worker ini, ternyata kita tidak bisa memperbaharui tampilan pada komponen pada form. Contohnya anda tidak dapat melakukan hal seperti di bawah ini pada program anda.

Private Sub bw1_DoWork(sender As Object, e As ComponentModel.DoWorkEventArgs) Handles bw1.DoWork
    i += 1
    label1.text = i
End Sub

Intinya anda bisa melakukan proses yang tidak melibatkan proses layout. Tapi kadang-kadang hal ini bisa menjadi masalah.

Lalu bagaimana cara agar kita bisa melakukan update ketika proses pada DoWork berjalan? Kita harus menambahkan sebuah prosedur untuk merefresh tampilan. Kodenya adalah seperti di bawah ini.

Delegate Sub perbaharuiTampilannya(nilai As Integer)

Private Sub perbaharuiTampilan(nilai As Integer)
        If Me.InvokeRequired Then
            Me.Invoke(New perbaharuiTampilannya(AddressOf perbaharuiTampilan), nilai)
        Else
            label1.text = nilai
        End If
End Sub

Private Sub bw1_DoWork(sender As Object, e As ComponentModel.DoWorkEventArgs) Handles bw1.DoWork
        
        For i=0 to 10
           'panggil kode ini untuk mengupdate proses
           bw1.ReportProgress(CInt(100 * i / 10))

           'silakan panggil nama prosedurnya ketika akan mengupdate
           perbaharuiTampilan(i)
           Threading.Thread.Sleep(1000)
        Next i

End Sub

Dengan kode di atas maka merefresh tampilan tidak akan menjadi masalah.

Untuk membatalkan proses thread ini, silakan panggil metode CancelAsync.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Button1.Text = "Start" Then
            Button1.Text = "Cancel"
            bw1.RunWorkerAsync()
        ElseIf Button1.Text = "Cancel" Then
            Button1.Text = "Start"
            bw1.CancelAsync()
        End If
End Sub

Sebagai contoh saya telah membuat form dengan beberapa komponen di dalamnya,

Kodenya adalah seperti berikut ini.

Public Class Form1

    Private Sub bw1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bw1.DoWork

        For i = 0 To 10
            'panggil kode ini untuk mengupdate proses
            bw1.ReportProgress(CInt(100 * i / 10))

            'silakan panggil nama prosedurnya ketika akan mengupdate
            perbaharuiTampilan(i)
            Threading.Thread.Sleep(1000)

            If bw1.CancellationPending Then
                bw1.ReportProgress(CInt(100 * i / 10))
                Exit For
            End If
        Next i

     
    End Sub

    Private Sub bw1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles bw1.ProgressChanged
        Me.pb.Value = e.ProgressPercentage
        Me.Text = "Progress (" & e.ProgressPercentage.ToString & "% complete)"
    End Sub

    Private Sub bw1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bw1.RunWorkerCompleted
        MsgBox("Done")
        Button1.Text = "Start"
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Button1.Text = "Start" Then
            Button1.Text = "Cancel"
            bw1.RunWorkerAsync()
        ElseIf Button1.Text = "Cancel" Then
            Button1.Text = "Start"
            bw1.CancelAsync()
        End If

    End Sub

    Delegate Sub perbaharuiTampilannya(nilai As Integer)

    Private Sub perbaharuiTampilan(nilai As Integer)
        If Me.InvokeRequired Then
            Me.Invoke(New perbaharuiTampilannya(AddressOf perbaharuiTampilan), nilai)
        Else
            label1.text = nilai
        End If
    End Sub
End Class

Semoga artikel kali ini berguna bila anda ingin menggunakan thread dengan cara mudah.

Kadangkala kita harus mengelola data yang mempunyai format JSON. Tidak mudah memang untuk mengolahnya karena biasanya kalau bagi yang baru berurusan dengan JSON, pusing rasanya. Apalagi di MSDN VB.NET, dokumentasinya tidak terlalu banyak.

Dalam pemograman PHP, ada sebuah fungsi untuk menguraikan data dari JSON ini, tapi bagaimana dengan VB.NET?

Menurut rumornya, VB.NET juga menyediakan fungsi ini tapi banyak kekurangannya. Saya tidak akan membahas kekurangannya karena saya rasa yang terpenting, tugas yang berikan pada kamu untuk mengelola data JSON selesai.

Kali ini saya akan memberikan kode bagaimana menguraikan JSON dengan menggunakan Newtonsoft library. Silakan lihat cara menginstal library ini ke VB.NET di sini.

Salah satu keuntungan dari Newtonsoft ini adalah anda akan dimudahkan untuk membereskan data dengan format JSON. Perhatikan contoh berikut ini.

Dim jsontext As String = "{"meta":{"code":200},"data":[{"username":"wallsticker_mv","bio":"wallstiker murah\nlokasi jakarta\nno cancel\nmaaf bila bertanya di IG tidak respont\nfor order:\nsms:0858 1723 1088\nline  :wallstiker_mv","website":"","profile_picture":"http:\/\/photos-c.ak.instagram.com\/hphotos-ak-xap1\/928032_1482822948662954_433465877_a.jpg","full_name":"","id":"1520060215"}]}"

Dim readingJson = Newtonsoft.Json.Linq.JObject.Parse(jsontext)
dim meta, username, bio as String

With readingJson           
    meta = .Item("meta")("code").ToString 'akan menghasilkan nilai 200
    username = .Item("data")("username").ToString 'akan menghasilkan nilai wallsticker_mv
    bio = .Item("data")("id").ToString 'akan menghasilkan nilai 1520060215
End With

Yup semudah dan sesederhana itu kode untuk mengolah data JSON dengan menggunakan Newtonsoft library. :D

Intinya kamu harus mengerti format JSON itu sendiri. Ketika kamu ingin menemukan pola JSON yang dipakai, berikan breakline pada setiap data JSON agar mudah dibaca.

{"meta":{"code":200},

"data":[
{"username":"wallsticker_mv",
"bio":"wallstiker murah\nlokasi jakarta\nno cancel\nmaaf bila bertanya di IG tidak respont\nfor order:\nsms:0858 1723 1088\nline  :wallstiker_mv",
"website":"",
"profile_picture":"http:\/\/facebook.com\/hphotos-ak-xap1\/928032_1482822948662954_433465877_a.jpg",
"full_name":"",
"id":"1520060215"}]
}

Gunakan notepad++ agar memudahkan kamu untuk melihat polanya.

Apakah sudah masalahnya di sini?

Belum teman. Kode di atas tidak bisa digunakan mengakses JSON yang memiliki penutup '[' dan ']'. JSON juga bisa dibuat dengan menggunakan format array jadi kode VB NETnya juga harus memakai array. Jadi kalau kamu menemukan kode JSON dengan kode '[' dan ']', silakan gunakan kode di bawah ini.

Dim jsontext as String = "{"meta":{"code":200},"data":[{"username":"wallsticker_mv","bio":"wallstiker murah\nlokasi jakarta\nno cancel\nmaaf bila bertanya di IG tidak respont\nfor order:\nsms:0858 1723 1088\nline  :wallstiker_mv","website":"","profile_picture":"http:\/\/facebook.com\/hphotos-ak-xap1\/928032_1482822948662954_433465877_a.jpg","full_name":"","id":"1520060215"}]}"
Dim readingJson = Newtonsoft.Json.Linq.JObject.Parse(jsontext)
MsgBox("User ID for this user is " & readingJson.SelectToken("data[0].id").ToString)

Coba lihat, dalam kode diatas saya menggunakan index untuk mengakses nilai yang ada di braket '[' dan ']'.
Mudah-mudahan kamu tidak kesulitan ketika berurusan dengan JSON.

Oke saya akhiri saja sampai di sini. Kalau ada pertanyaan silakan beri komentar di bawah ini. Sampai jumpa di artikel berikutnya.

Seperti yang kita ketahui bahwa tabel pada VB.NET menyimpan banyak fitur yang bisa kita pakai dan salah satunya adalah dengan menambahkan menu ketika DataGridView tersebut mendapatkan event klik kanan dari mouse.

Caranya mudah, yang penting anda sudah memasukan objek DataGridView dan ContentMenuStript, lalu masukan kode di bawah ini pada event CellMouseClick pada DataGridView yang anda pakai.

Private Sub DataGridView1_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles tblData.CellMouseClick
        
         'pastikan DataGridView1 tersebut sudah ada datanya dan baris dalam DataGridView1 sudah terpilih
         If DataGridView1.RowCount > 0 AndAlso e.RowIndex > -1 Then
            If e.Button = Windows.Forms.MouseButtons.Right Then
                ContentMenuStrip1.Show(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y)
            End If
        End If
    End Sub

Tabel merupakan salah satu komponen yang sangat berguna dalam menampilkan data. Adakalanya mengharuskan kita mengambil data dari DataGridView tersebut ke sebuah format yang berbeda seperti CSV.

Berikut script untuk mengexport data dari DataGridView ke CSV.

Private Sub exportCSV()
        'test to see if the DataGridView has any rows
        If tblData.RowCount > 0 Then
            Dim value As String = ""
            Dim dr As New DataGridViewRow()
            Dim swOut As New StreamWriter("d:\test.csv")

            'write header rows to csv
            For i As Integer = 0 To tblData.Columns.Count - 1
                If i > 0 Then
                    swOut.Write(",")
                End If
                swOut.Write(tblData.Columns(i).HeaderText)
            Next

            swOut.WriteLine()

            'write DataGridView rows to csv
            For j As Integer = 0 To tblData.Rows.Count - 1
                If j > 0 Then
                    swOut.WriteLine()
                End If

                dr = tblData.Rows(j)

                For i As Integer = 0 To tblData.Columns.Count - 1
                    If i > 0 Then
                        swOut.Write(",")
                    End If

                    value = dr.Cells(i).Value.ToString()
                    'replace comma's with spaces
                    value = value.Replace(","c, " "c)
                    'replace embedded newlines with spaces
                    value = value.Replace(Environment.NewLine, " ")

                    swOut.Write(value)
                Next
            Next
            swOut.Close()
        End If
End Sub

JSON (JavaScript Object Notation) merupakan salah satu cara untuk menampilkan data seperti XML tapi lebih ringan karena tidak memerlukan tag seperti pada XML.

Nah kali ini saya mendapatkan tantangan bagaimana cara mengelola data yang mempunyai format JSON. Terus terang sih agak pusing bacanya karena seringkali data JSON yang diberikan tidak ada breakline.

{
"employees": [
{ "firstName":"John" , "lastName":"Doe" }, 
{ "firstName":"Anna" , "lastName":"Smith" }, 
{ "firstName":"Peter" , "lastName":"Jones" }
]
}

Terus setelah itu saya mencarinya di Google dan banyak banget yang menyarankan memakai library JSON.NET.

Walaupun pada versi .NET terbaru, Microsoftnya sudah menyediakan fitur tersebut tapi menurut komentar yang saya baca dan pembuatnya bilang, JSON.NET ini lebih cepat dalam memprosesnya daripada bawaannya Microsoft.

Saya memakai Visual Basic Express 2010 ketika akan mencobanya. Penggunanya diharuskan memasukan library tersebut ke VB.NET.

Setelah saya menunduh file JSON memakai link di atas dan akan menjalankan program bernama NuGet, saya mendapatkan masalah seperti ini:

Package restore is disabled by default. To give consent, open the Visual Studio Options dialog, click on Package Manager node and check 'Allow NuGet to download missing packages during build.' You can also give consent by setting the environment variable 'EnableNuGetPackageRestore' to 'true'.

Yang jadi masalah adalah ketika saya akan menginstallnya VB express, tidak ada Visual Studio Options. Kalau untuk versi pro, secara default pilihan ini memang ada.

Lalu saya juga mencoba menginstall NuGet package manager dengan mengakses menu pada VB.NET
Tools » Extension Manager.



Di sana saya ketikan kata NuGet dan akhirnya saya mendapatkan installer untuk NuGet.



Yang jadi masalah bagaimana memasukan library JSON.NETnya karena menurut tutorial yang saya dapat, setelah menginstall NuGet, kita bisa install JSON.NET melalui NuGet Package Installer.

Begitu pula bagaimana mengakses NuGet Package Installer selain dari Visual Studio Options?

Setelah beberapa jam mencari cara bagaimana cara menginstallnya di VB Express, ternyata seperti yang ada di dokumentasi NuGet, NuGet Package Installer itu tidak bisa di install dalam VB 2010 Express.

For Visual Studio 2010, NuGet is available through the Visual Studio Extension Manager. The extension can be installed into the Professional, Premium, and Ultimate editions. Additionally, the extension can be installed into Visual Web Developer 2010 Express.

Setelah mencari lagi ternyata kita bisa membuka project VB di dalam VWD 2010 Express agar library ini dapat dipakai di dalam project.

Awalnya saya tidak menginstall VWD 2010 Express karena saya jarang memakainya tapi mau tidak mau saya harus menginstall VWD 2010 Express agar bisa menggunakan JSON.NET.

Beberapa menit telah berlalu dan akhirnya VWD 2010 Express telah terinstall. Seperti cara diatas saya mencoba kembali menginstall NuGet Package Installer melalui Tools » Extension Manager

Ternyata ketika mengetikan kata NuGet, hasilnya didapat memang berbeda. NuGet yang saya dapatkan adalah NuGet Package Manager, bukan NuGet Packager.


Langkah -langkah setelah NuGet Package Manager terinstall adalah
1. Merestart VWD 2010 Express.
2. Buka project VB ke dalam VWD 2010 Express.
3. Klik kanan pada Solution Explorer lalu pilih Manage NuGet Packages...


4. Akhir paket JSON.NET siap diinstal. :)


5. Save project lalu buka kembali memakai Visual Basic Express 2010.

Sebenarnya ada 1 lagi caranya memasukan JSON.NET langsung dari Visual Basic Express 2010 tanpa memakai VWD 2010 Express.

Caranya adalah sebagai berikut:
1. Buka project lalu klik kanan nama project dalam Solution Explorer.
2. Pilih Add Reference...
3. Pada tab Browse cari Newtonsoft.Json.dll
4. Klik OK untuk memasukan library JSON.NET

Semoga tutorial ini berguna bagi anda yang ingin menggunakan JSON.NET library.

Apa itu kode ASCII? Kalau dari Wikipedia sih kepanjangannya adalah American Standard Code for Information Interchange. Kalau mau tahu lebih jauh tentang apa itu ASCII silakan klik di sini. (Tenang pakai bahasa Indonesia kok dengan EDY)

Terus apa gunanya ASCII?

Yang saya tahu kode ASCII ini digunakan pada saat membuat program. Contoh gampangnya:

» Bagaimana caranya kita memasukan fungsi "enter" / "Del" secara programming tetapi fungsi "enter" / "Del" itu sendiri tidak ada simbolnya?

Pada saya mau membuat program dengan menggunakan MS Access 2007, saya menemukan sebuah kendala ketika akan memasukan sebuah data ke database.

Seluruh syntax sudah saya selidiki dengan benar, tapi tetap saja program tersebut mengeluarkan syntax error. Ini adalah salah satu hal yang paling menyebalkan dan menggembirakan.

Kenapa?

Dimulai dari alasan mengapa menyebalkan: Itu karena sudah diutak atik sedemikian rupa tapi tetap saja pesan errornya itu masih ada. Lalu setelah beberapa waktu mencarinya melalui Google, hasilnya tetap saja nihil.

Kenapa menggembirakan? Itu karena permasalahan yang baru saja dialami di atas telah mendapatkan solusinya.

Nah bagi kamu yang mendapatkan error yang aneh padahal penulisan dan field pada databasenya sudah benar maka coba untuk melihat sebuah susunan keyword yang memang dilarang digunakan untuk dijadikan sebuah nama field database pada MS Access.

Jangan sampai permasalahan ini berlarut-larut menghantui! Ini list keywordnya

-A
    ADD
    ALL
    Alphanumeric
    ALTER
    AND
    ANY
    Application
    AS
    ASC
    Assistant
    AUTOINCREMENT
    Avg
-B
    BETWEEN
    BINARY
    BIT
    BOOLEAN
    BY
    BYTE
-C
    CHAR, CHARACTER
    COLUMN
    CompactDatabase
    CONSTRAINT
    Container
    Count
    COUNTER
    CREATE
    CreateDatabase
    CreateField
    CreateGroup
    CreateIndex
    CreateObject
    CreateProperty
    CreateRelation
    CreateTableDef
    CreateUser
    CreateWorkspace
    CURRENCY
    CurrentUser
-D
    DATABASE
    DATE
    DATETIME
    DELETE
    DESC
    Description
    DISALLOW
    DISTINCT
    DISTINCTROW
    Document
    DOUBLE
    DROP
-E
    Echo
    Else
    End
    Eqv
    Error
    EXISTS
    Exit
-F
    FALSE
    Field, Fields
    FillCache
    FLOAT, FLOAT4, FLOAT8
    FOREIGN
    Form, Forms
    FROM
    Full
    FUNCTION
-G
    GENERAL
    GetObject
    GetOption
    GotoPage
    GROUP
    GROUP BY
    GUID
-H
    HAVING
-I
    Idle
    IEEEDOUBLE, IEEESINGLE
    If
    IGNORE
    Imp
    IN
    INDEX
    Index, Indexes
    INNER
    INSERT
    InsertText
    INT, INTEGER, INTEGER1, INTEGER2, INTEGER4
    INTO
    IS
-J
    JOIN
-K
    KEY
-L
    LastModified
    LEFT
    Level
    Like
    LOGICAL, LOGICAL1
    LONG, LONGBINARY, LONGTEXT
-M
    Macro
    Match
    Max, Min, Mod
    MEMO
    Module
    MONEY
    Move
-N
    NAME
    NewPassword
    NO
    Not
    Note
    NULL
    NUMBER, NUMERIC
-O
    Object
    OLEOBJECT
    OFF
    ON
    OpenRecordset
    OPTION
    OR
    ORDER
    Orientation
    Outer
    OWNERACCESS
-P
    Parameter
    PARAMETERS
    Partial
    PERCENT
    PIVOT
    PRIMARY
    PROCEDURE
    Property
-Q
    Queries
    Query
    Quit
-R
    REAL
    Recalc
    Recordset
    REFERENCES
    Refresh
    RefreshLink
    RegisterDatabase
    Relation
    Repaint
    RepairDatabase
    Report
    Reports
    Requery
    RIGHT
-S
    SCREEN
    SECTION
    SELECT
    SET
    SetFocus
    SetOption
    SHORT
    SINGLE
    SMALLINT
    SOME
    SQL
    StDev, StDevP
    STRING
    Sum
-T
    TABLE
    TableDef, TableDefs
    TableID
    TEXT
    TIME, TIMESTAMP
    TOP
    TRANSFORM
    TRUE
    Type
-U
    UNION
    UNIQUE
    UPDATE
    USER
-V
    VALUE
    VALUES
    Var, VarP
    VARBINARY, VARCHAR
    VERSION
-W
    WHERE
    WITH
    Workspace
-X
    Xor
-Y
    Year
    YES
    YESNO

Sampai saat artikel ini ditulis, hal ini hanya berlaku untuk beberapa versi MS Access seperti di bawah ini:
» Microsoft Access 2002 Standard Edition
» Microsoft Office Access 2003
» Microsoft Office Access 2007