Sharing Aplikasi Program Berbasis Microsoft Access Membuat Report dengan memaksimalkan fungsi DLookup - Sumiyanto

Membuat Report dengan memaksimalkan fungsi DLookup

Satu hal lagi, membuat report dengan memaksimalkan fungsi DLookup, sangat dianjurkan agar kita tidak terlalu banyak report yang notabene sama persis, tetapi hanya beberapa textbox, dan gambar yang seharusnya berbeda yang bisa diambil dari sebuah table dengan fungsi DLookup dan Criteria ini.

fungsi DLookup berdasarkan sebuah control di form

untuk nilai angka:
        DLookup("FieldName", "TableName", "Criteria = " & forms!FormName!ControlName)

untuk nilai string: (catatan kasih tanda apostrophe sebelum dan sesudah nilai)
        DLookup("FieldName", "TableName", "Criteria = '" & forms!FormName!ControlName & "'")

untuk nilai dates/time:

        DLookup("FieldName", "TableName", "Criteria = #" & forms!FormName!ControlName & "#")

Misalkan target yang diinginkan adalah membuat Button Command Print, dengan kriteria Kartu Hasil Studi Mahasiswa

IDKHS=4,

Nama=Roland,

Nama Sekolah=STIE IPWIJA

Private Sub Command27_Click()

On Error GoTo Err_Command27_Click

Dim stDocName As String

stDocName = "Rpt_KHS_Revisi"

DoCmd.OpenReport stDocName, acPreview, , "[IDKHS]=" & Me.IDKHS

Exit_Command27_Click:

Exit Sub

Err_Command27_Click:

MsgBox Err.Description

Resume Exit_Command27_Click



Kita Setting Report Rpt_KHS_Revisi dengan memaksimalkan fungsi DLookup dengan Criteria
  1. buat Control Image dengan Nama:ImageFrame1, Image:(None)
    • Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
      Me.ImageFrame1.Picture = Me.FotoLogo1
      End Sub
  2. menampilkan nama sekolah, alamat, no telp, no fax
    • =DLookUp("[NamaSekolah]","T_SekolahTinggi","NamaSekolah='" & Forms!T_KHS!NamaSekolah & "'")
    • =DLookUp("[Alamat]","T_SekolahTinggi","NamaSekolah='" & Forms!T_KHS!NamaSekolah & "'")
    • =DLookUp("[Phone]","T_SekolahTinggi","NamaSekolah='" & Forms!T_KHS!NamaSekolah & "'")
    • =DLookUp("[Fax]","T_SekolahTinggi","NamaSekolah='" & Forms!T_KHS!NamaSekolah & "'")
  3. buat textbox dengan nama: FotoLogo1 kemudian isi link data foto yang akan ditampilkan pada report header sesuai criteria & Setting Visible=No
    • =DLookUp("[Foto]","T_SekolahTinggi","NamaSekolah='" & Forms!T_KHS!NamaSekolah & "'")
  4. menampilkan Nama Ketua dan Jabatan
    • =DLookUp("[NamaKetua]","T_SekolahTinggi","NamaSekolah='" & Forms!T_KHS!NamaSekolah & "'")
    • =DLookUp("[Jabatan]","T_SekolahTinggi","NamaSekolah='" & Forms!T_KHS!NamaSekolah & "'")

    Ini adalah table T_SekolahTinggi sebagai sumber data fungsi DLookup yang kita pergunakan pada report KHS. Dan hasil akhir reportnya akan seperti ini.




Published Thursday, February 16, 2012 12:07 PM by Sumiyanto
Powered by Community Server (Commercial Edition), by Telligent Systems