Posts filed under ‘Ms Access’

My Amazon Store

May 7, 2009 at 3:07 pm Leave a comment

Memilih Directory dng UserForm

Kadang kita perlu mengambil file dari directory tertentu dalam aplikation Excel. Kita dapat menggunakan method GetOpenFileName untuk mendisplay sebuah user dialog yang meminta sebuah file (file name), akan tetapi kita tidak diberi pilihan untuk mendisplay sebuah dialog box that yang menunjukkan hanya directory saja. Dalam tulisan ini saya mencobah menyajikan sebuah fungsi yang diberi nama AmbilDirektori yang akan menampilkan dialog box seperti di bawah ini dan menghasilkan string yang menunjukkan directory yang terpilih. Jika user anda mengklik cancel, maka fungsi ini akan menghasilkan string kosong (empty). Fungsi AmbilDirektori memerlukan satu argument, tapi tidak wajib (optional). Argumen ini adalah variable a string yang akan ditampilkan dalam dialog box. Jika argumen tidak disertakan maka dialog box menampilkan pesan Pilih folder.

AmbilDirektori function

Fungsi AmbilDirektori adalah sebagai berikut. Untuk menggunakannya cukup copykan ke module VBA. Sebagai alternatif ambil contoh disini

Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
’32-bit API declarations
Declare Function SHGetPathFromIDList Lib “shell32.dll” _
Alias “SHGetPathFromIDListA” (ByVal pidl As Long, ByVal pszPath As String) _
As Long
Declare Function SHBrowseForFolder Lib “shell32.dll” _
Alias “SHBrowseForFolderA” (lpBrowseInfo As BROWSEINFO) As Long
Sub UjiCoba()
Dim Msg As String
Msg = “Contoh: Pilih lokasi untuk backup.”
MsgBox AmbilDirektori(Msg)
End Sub
Function AmbilDirektori(Optional Msg) As String
Dim bInfo As BROWSEINFO
Dim path As String
Dim r As Long, x As Long, pos As Integer
bInfo.pidlRoot = 0&
If IsMissing(Msg) Then
bInfo.lpszTitle = “Pilih folder.”
Else
bInfo.lpszTitle = Msg
End If
bInfo.ulFlags = &H1
x = SHBrowseForFolder(bInfo)
path = Space$(512)
r = SHGetPathFromIDList(ByVal x, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
AmbilDirektori = Left(path, pos – 1)
Else
AmbilDirektori = “”
End If
End Function


Cara menggunakan fungsi AmbilDirektori

Berikut subrutin sederhana untuk memakai fungsi AmbilDirektori

Sub UjiCoba()

Dim Msg As String

Msg = ” Contoh: Pilih lokasi untuk backup!!”

MsgBox AmbilDirektori(Msg)

End Sub

March 9, 2009 at 12:51 pm Leave a comment

eBook on Ms Office VBA

Advancing Your Office 2007 Power: Using Visual Basic
By Greg Perry

You can automate many routine tasks that you perform with Office 2007’s products by recording your keystrokes and storing them in a macro. You can easily assign the macro to a keystroke such as Ctrl+Shift+F12 and Word or Excel will zip through your automated commands the moment you press the keys.
Recorded macro keystrokes have been around for years and many Office users are familiar with them. The only drawback is they are simple and don’t go the extra mile when you want something really automated.  Read more on Office2007withVisualBasic.pdf size : 206.65 KB

March 6, 2009 at 7:09 pm 1 comment

Using the NotInList event (combo)

The functionality of combo boxes can be extended significantly by adding a bit of code to the NotInList event which gets triggered when the LimitToList property is set to Yes and the user enters text that is not listed in the combo.

It can be made to add new records, change existing search fields, and so on. Your first line of code should be:

   DoCmd DoMenuItem A_FORMBAR, A_EDIT, A_UNDOFIELD, , A_MENU_VER20

You can then do what you like, because you have the new value that the user typed in to the NewData parameter and the original data is still available in the field. I generally open a modal form asking if the user wishes to add a new record or change the existing one, and then take appropriate action in the recordset.

The only trick is to end the NotInList subroutine with

   Response = DATA_ERRCONTINUE

This forces Access to ignore the error condition which originated the trigger for the NotInList subroutine.

This tip was supplied by aburkhol@compusmart.ab.ca (Armin Burkholder), May 16, 1995.

December 27, 2008 at 3:29 pm Leave a comment

Access Carry Over Data

Carry data over to new record

If a new record will be similar to the previous one, you may wish to automatically fill text boxes with that data for the user to edit. dBase provided a “carry” mechanism as early as the mid ’80s. Use a form’s BeforeInsert event to achieve this result in Access.

  1. Open the form in Design View.
  2. In the Properties Box, select the BeforeInsert event, and type the left square bracket. Access responds by filling in [Event Procedure].
  3. Click the “” button. Access responds by opening the code window.
  4. Between the Sub … and End Sub lines, enter:
Call CarryOver(Me)
  1. Save the form.
  2. In the Database window, select the Modules tab and choose New.
  3. Paste this code, and then save the module with a name such as basCarryOver:
Sub CarryOver(frm As Form)
On Error GoTo Err_CarryOver
' Purpose:  Carry the values over from the last record to a new one.
' Usage:   In a form's BeforeInsert event procedure, enter:
'                   Call CarryOver(Me)
' Notes:    This example limited to text boxes and combo boxes.
'           Text/combo boxes must have same Name as the fields they represent.
				
    Dim rst As DAO.Recordset
    Dim ctl As Control
    Dim i As Integer
    Set rst = frm.RecordsetClone
    If rst.RecordCount > 0 Then
        rst.MoveLast
        For i = 0 To frm.count - 1
            Set ctl = frm(i)
            If TypeOf ctl Is TextBox Then
                If Not IsNull(rst(ctl.Name)) Then
                    ctl = rst(ctl.Name)
                End If
            ElseIf TypeOf ctl Is ComboBox Then
                If Not IsNull(rst(ctl.Name)) Then
                    ctl = rst(ctl.Name)
                End If
            End If
        Next
    End If
Exit_CarryOver:
    Set rst = Nothing
    Exit Sub
Err_CarryOver:
    Select Case Err
    Case 2448         'Cannot assign a value
				
        Debug.Print "Value cannot be assigned to " & ctl.Name
        Resume Next
    Case 3265         'Name not found in this collection.
				
        Debug.Print "No matching field name found for " & ctl.Name
        Resume Next
    Case Else
        MsgBox "Carry-over values were not assigned, from " & ctl.Name & _
            ". Error #" & Err.Number & ": " & Err.Description, vbExclamation, "CarryOver()"
        Resume Exit_CarryOver
    End Select
End Sub

December 26, 2008 at 6:29 am 1 comment

Gambar di Form Access

Menjawab pertanyaan Puji Astuti – tentang: Posting Menampilkan Gambar Pada Form

Menampilkan Gambar/Foto/Image/Picture tanpa harus menyimpan dalam file database maka berikut saya lampirkan file TampilGambar.ZIP

Silahkan dibuka karena sumbernya dari mana-mana yang jelas Microsoft juga membahas hal ini di

ACC: How to Display Images in a Form or in a Report Without Storing the Images in a Table

Berikut cuplikan dari Microsoft Access Help dan Support:
“Sometimes it is not practical to store images in a Microsoft Access table. If you have a large number of images, or if each of your image files is large, the size of the Microsoft Access database file can rapidly increase. The following examples show you how to display Windows bitmap images on a Microsoft Access form and on a report without storing the images in a Microsoft Access table.”

Dan beberapa pakar Access juga membahas salah satunya Microsoft® Access Software & Utilities -Handling Images with Microsoft® Access

Jadi ada tiga macam cara mengelola gambar di Access yaitu:

1. Simpan sebagai gambar di OLE Field  – Store the image in an OLE field and use a bound object frame to display the image.

2. Simpan alamat path/dir dalam text field yang dapat digunakan sbg control image – Store the path to the image in a text field, using an image control to display the image.

3. Simpan sebagai BLOB dalam OLE Field – Store the image as a binary large object bitmap (BLOB) in an OLE field, extract the image when required and use an image control to display the image.

December 16, 2008 at 3:14 pm Leave a comment

Property Field Access

Berikut adalah penjelasan sederhada dari Inherritance Field Properties

  1. Description    akan menjadi statusbar text pada form
  2. Caption        akan menjadi label form. Pada datasheet akan menjadi judul kolom
  3. Default Value    Untuk menentukan nilai default
  4. Format        Untuk Mengatur penampilan data
  5. Input Mask    Untuk mengatur format data ketika dimasukkan
  6. Lookup        Untuk menentukan jenis control yang akan digunakan secara default
  7. Validation Rule    untuk menguji validitas data
  8. Validation Text    sebagai textmsg yang ditampilkan jika validation rule tidak terpenuhi/dilanggar.

September 13, 2008 at 6:47 am Leave a comment

MEMBUAT TEKS BERWARNA-WARNI

 

TEKS label yang berwarna adalah hal yang biasa, tetapi jika teks tersebut bisa beganti warna sendiri hingga tampak kelap-kelip, mungkin akan membuat kesan berbeda.

    Berikut ini adalah trik membuat efek warna-warni pada teks label:

  1. perhatikan Gambar.Katakanlah label teks tersebut bernama Label6.
  2. pada event timer interval isilah dengan nilai 200.
  3. pada event on timer, masukkan kode berikut:

 

Private sub form _timer

r=Int ((6 *rnd )+1)

Select case r

Case 1

    Me.label6.fore color = 255
Case 2

    Me.label6.fore color = 65535
Case 3

    Me.label6.fore color = 32768
Case 4

    Me.label6.fore color = 16711680
Case 5

    Me.label6.fore color = 16711808
Case Else

    Me.label6.fore color = 128
End Select

End Sub

Pada kode di atas kita menentukan angka random sebanyak 6. Terserah angka yang muncul, angka tersebut mewakili warna. Dengan demikian, teks Label6 akan terlihat berkelap-kerlip dengan warna yang berbeda..

September 13, 2008 at 6:42 am Leave a comment

MENENTUKAN TANGGAL AKHIR BULAN

 

     Berikut adalah sebuah ekspresi yang sederhana untuk mendapatkan hasil tanggal akhir bulan dengan fungsi dateadd pada Microsoft Access.

        Tgl_Akhirbulan =Dateadd(“m”,1,Dateserial(Year)(Date),Month(Date),1))-1

    Untuk mendapatkan tanggal akhir bulan pada bulan tertentu (bukan bulan dari tanggal sekarang ), ubahlah Date menjadi tanggal pada bulan yang dinginkan.

September 13, 2008 at 6:32 am 1 comment

Menampilkan Gambar Pada Form

MENAMPILKAN GAMBAR PADA FORM Access

 

Pada dasarnya, Microsoft access bisa menyimpan data berupa gambar dalam database yaitu menggunakan file bertipe OLE object.akan tetapi pada kenyataannya,menampilkan

Gambar yang disimpan tersebut pada form tidak selalu bisa dilakukan. Acces kadang-kadang hanya menampilkan gambar icon, atau nama pathnya. Jika kita mengkorvensi

Format gambar ke windows Bitmap sekalipun, sebelum disimpan ke database, data tersebut adakalanya masih tidak bisa ditampilkan.

Trik untuk menampilkan gambar tersebut, yang ternyata tidak mengggunakan kontrol yang seharusnya (yaitu bond object frame). Melainkan kontrol image yang sebenarnya untuk memasang field image.

Berikut adalah tata cara menampilakan data gambar yang sesuai dengan record-record pada database.

  1. Pada tabel hapuslah field yang menyimpan data gambar(field berupa OLE Object) karena kita TIDAK menyimpan data gambartersebut dalam database
  2. Buatlah sebuah data field untuk menampung data path (alamat dan nama) file gambar.ini berarti,file-file gambar yang diperlukan record disimpan di luar database, didalam folder atau direktori tertentu pada harddisk lokal maupun lokasi tertentu di dalam jaringan.
  3. Untuk menampilkan gambar pada form, tambahkan sebuah kontrol image. Ketika di-prompt untuk memilih sebuah gambar pilihlah sebuah file gambar seadanya.control image harus berisi sebuah file gambar,dan jika anda menghapus kembali alamat file gambar pada properti picture(misalnya dengan niat untuk mengkosongkannya),kontrol image akan terhapus dari form.
  4. Pada event current form masukkan kode berikut:

    Private Sub Form current ()

    On Error Resume Next

    If Not IsNull (Me. FileGambar)Then

    Me. Image4picture =Me.FileGambar

    Else

    Me. Image4picture=”c:\dummy.jpg

    End if

    End sub

 

Pada kode di atas, Field FileGambar Yang akan ditampilkan. Control Image 4 adalah kontrol untuk menampilkan gambar, Dan file “c:\dummy.jpg” adalah file gambar yang akan ditampilkan jika field FileGambar pada current record tidak mempunyai isi.

September 13, 2008 at 6:20 am 10 comments

Older Posts


Enter your email address to subscribe to this blog and receive notifications of new posts by email.

Join 13 other followers

Blog Stats

  • 75,991 hits

Twitter Updates

  • @KAI121 kalau sudah reservasi dan membayar bagaimana caranya mengubah orang yang akan berangkat? 3 days ago
  • Ya Allah, jangan Engkau biarkan orang-orang berbuat anarki. Jadikan semua pihak bersabar dan menahan diri #pilpress2014 2 weeks ago
  • Ya Allah, saya hanya beribadah kepada-Mu, dan hanya memohon pertolongan kepada-Mu. Jadikanlah sejuk damai di Indonesia setelah Pilpres ini. 2 weeks ago
  • Rencana cuti 16 Jun 14 - 20 Jun 14, ngantar anak Augustrindy ke Universitas Brawijaya Malang Undangan SNMPTN 2014 1 month ago

Iklan


Follow

Get every new post delivered to your Inbox.