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.



About Sumiyanto Surabaya

http://bajajbekas.wordpress.com/ berdiri sejak 7 Mei 2009. Termotivasi untuk menghabiskan stock barang tarikan dengan metode pemasaran yang konvensional memakan banyak pikiran, tenaga, dan dana untuk kampanye melalui media koran lokal yang hanya berdurasi 1-3 hari saja. Tidak cukup waktu untuk menghabiskan seluruh stock unit tarikan yang ada. Untuk alasan itulah media ini berdiri menjembatani bagi peminat motor khususnya bajaj untuk mendapatkan informasi yang tepat, tempat yang tepat, motor yang tepat. Tidak lebih. Dikelola oleh Sumiyanto, Goal Keeper Perusahaan Finance di Wilayah Jl. Jemur Andayani 50, Ruko Surya Inti Permata D 10-11, Surabaya, 031-72472523, 081 246 83700 https://cakyanto.wordpress.com/ Belajar tentang pemrograman database berbasis Ms Access

Posted on Februari 27, 2012, in Tutorial Ms Access and tagged , , . Bookmark the permalink. 2 Komentar.

  1. sy tertarik dengan tulisan bapak, n sy baru belajar access, tp sy ingin membuat laporan(report) yang disortir, sy mencoba menggunakan dlookup tapi gak berhasil, n sy mencoba dengan menggunakan combobox, dan combobox sy buat di form tersendiri misalnya FormCetak yg berisikan 3 combobox yaitu CmbThpel, CmbSmt, CmbKls. sy tidak bisa menghubungkan ke 3 combobox tersebut ke report. trimaksih sebelumnya n sy tunggu tanggapannya…

  2. Apakah Anda membutuhkan pinjaman mendesak? Jika ya hubungi kami di (excelservices.managementonline@gmail.com) untuk informasi lebih lanjut.

    Nama:
    Jumlah:
    Durasi:
    Pin Telepon:
    Negara:

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: