[belajar-access] inno setup

----- Original Message -----
From: "zackie" <bambalid@gmail.com>
To: "millis belajar access" <belajar-access@yahoogroups.com>
Sent: Friday, February 12, 2010 10:44 PM
Subject: [belajar-access] inno setup

Bapak Aksan.....
Saya bikin postingan baru tapi masih berkaitan dg inno setup, supaya
reply-reply-nya tidak panjang, belum lagi ditambah source codenya.
Mohon saya jangan dipanggil 'dan/komandan' saya malu Bapak. Saya sama dengan
warga millis lainnya yg ingin belajar mendalami access dengan ' Ngangsu
Kawruh' kepada Bapak moderators juga sharing pengalaman dg seluruh warga
millis disini

Membaca 2 email terakhir dari Bapak rasanya tidaklah pantas kalo saya tidak
mengimplementasikan semua penjelasan2 tsb.
Saya juga sudah coba bikin satu paket setup/installer dg inno setup file2 yg
terdiri dari:
1. Access 2003 Runtime ( ACCESSRT.MSI & ACCESSRT.CAB )
2. Billing.mdb

Setelah Compile terbentuk sebuah file SETUP.EXE kemudian saya install, lalu
beberapa step konfirmasi form muncul dan hanya tinggal klik 'next-next' saja
sampai form konfirmasi finish. Lalu secara otomatis dilanjutkan dg instalasi
Access 2003 Runtime. Selesai instalasi terbentuk 1 shortcut billing.mdb pada
desktop juga pada group menu start-program-billing-billing.mdb. Selesai
sampai disini user tinggal memilih menjalankan program billing.mdb dari
desktop atau group menu

source code inno setup sbb:

[Setup]
AppName=billing
AppVerName=My Program 1.5

[belajar-access] lookup

----- Original Message -----
From: "Maulana" <maulana_pup@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Monday, February 08, 2010 8:04 AM
Subject: Re: [belajar-access] lookup

Trims banyak P.Aksan ats pembahasan2nya
tapi maaf saya belum sempat pelajari soalnya
ada sdikit hambatan untuk konsen k topik ini, istri sy sdang sakit
jadi saya harus konsen k rumah sakit bolak balik
jadinya ngga sempat nengok2 e-mail, dan ini baru ada waktu sempat untuk cek
dan pastinya akan saya dalami...

Maulana

----- Original Message -----
From: Aksan Kurdin
To: belajar-access@yahoogroups.com
Sent: Friday, February 05, 2010 4:20 PM
Subject: Re: [belajar-access] lookup

Ok, P. Maulana

Sekarang kita membahas form lookupnya sendiri.

Secara sederhana, lookup untuk nomor dokumen bisa saja diwakili oleh combo
box:

combo box tersebut di set row sourcenya ke query: qs_IndentOutstanding
Ini adalah cara yang paling mudah dan cepat pembuatannya. Jika data indent
masih sedikit, loading form po tidak akan lama, tetapi jika data indent
sudah lama, maka untuk membuka form po membutuhkan selesainya dulu
qs_IndentOutstanding menarik data saat loading form, barulah form po di
display di layar.

cara berikutnya adalah membuat satu form lookup sendiri. karena berdiri
sendiri, maka proses loading qs_IndentOutstanding hanya pada form lookup ini
sendiri, sehingga form po tidak terpengaruh.

Ok ....

Form lookup yang saya buat adalah memberikan satu form header sebagai
dasar operasi pencarian, dan satu kontrol sub form unbound sebagai list
detail yang akan di cari.
form unbound ini nanti bisa diisi dari berbagai sub form lookup, sesuai
dengan kebutuhan. Misalnya lookup customer, lookup barang, lookup suplier,
lookup outstanding, dlsb.

Berikut desain form frm_lookup:

see, semua unbound.

ok mari kita bahas isi kode form lookup. di bagian deklarasi saya
memerlukan kode seperti berikut:

Option Compare Database
Option Explicit

Private mbol_Select As Boolean
Private mbol_CanClose As Boolean

form adalah class. maka saya sebut dua variabel di atas sebagai property
form frm_lookup.
mbol_select menandakan apakah kita telah menekan tombol select di form
(menjatuhkan pilihan)
mbol_canclose saya perlukan agar form bisa saya kontrol tidak bisa ditutup
oleh tombol silang, ctrl-f4, atau ctrl-w.
ingat, form ini kalau sudah dijatuhkan pilihan, akan di hide, bukan
ditutup, agar nilai2 yang kita butuhkan bisa kita ambil dari modul lain.

selanjutnya saya memerlukan satu property read write SelectOk. Berikut
deklarasinya:

Property Get SelectOk() As Boolean
SelectOk = mbol_Select
End Property

Property Let SelectOk(vData As Boolean)
mbol_Select = vData
mbol_CanClose = True

[belajar-access] lookup

----- Original Message -----
From: "Aksan Kurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Friday, February 05, 2010 4:06 PM
Subject: Re: [belajar-access] lookup

> Dear P. Maulana,
>
> Saya akan menyambung penjelasan kemarin, jadi tidak merujuk pada query
> yang anda kirim ini.
> Kita mulai dari form order/PO yang kosong:
>
>
> Setelah semua field header kita isi, maka saat mengisi textbox indent
> no, kita diberi kesempatan untuk memasukkan nomor indent yang akan
diorder.
> Cara pengisian bisa dengan mengklik tombol lookup (bernama
> cmdIndentLookup), atau langsung mengisi di textbox kalau P. Maulana
> ingat nomor indent yang belum di order tersebut.
> Jika lupa, tidak mengapa, ketik saja sembarang, nanti oleh program akan
> dikeluarkan form lookup ke nomor indent yang available.
>
>
>
>
> Event yang diperlukan oleh form ini adalah menangkap klik button :
>
> Private Sub cmdIndentLookup_Click()
> LookupIndent
> End Sub
>
> dan event after update pengisian dari Indent No textbox:
>
> Private Sub IndentNo_AfterUpdate()
> Dim rs As ADODB.Recordset
> Dim frm As Form
> On Error GoTo errHandle

[belajar-access] Bagaimana cara menyembunyikan Database Window?

----- Original Message -----
From: "Aksan Kurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Friday, February 05, 2010 8:31 AM
Subject: Re: [belajar-access] Bagaimana cara menyembunyikan Database Window?

> Malu ketahuan bikinnya dari access
> :)
>
> Tapi untuk komersialisasi access, memang wajib interface-nya yang
> inopatip dan kreatip.
>
>
> aksan kurdin
>
> On 2/5/2010 8:22 AM, Murid Belajar Access wrote:
> >
> >
> > http://www.mvps.org/access/api/api0019.htm
> > <http://www.mvps.org/access/api/api0019.htm>
> >
> > silahkan lihat di link di atas.
> > Kayaknya ini sudah jadi kebutuhan untuk 'menyembunyikan' access
windownya.
> > Dan yang terlihat hanya form-formnya.
> > Gaya VB deh...
> >
> > Salam hangat dan jabat erat,
> > MBA
> >

[belajar-access] memunculkan merk dan type pc di form [1 Attachment]

----- Original Message -----
From: "Belajar Office" <belajaroffice@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Friday, February 05, 2010 10:07 AM
Subject: Re: [belajar-access] memunculkan merk dan type pc di form [1
Attachment]

Bpk barangkali ini bisa jadi sample VBA WMI dari blog Access Tips
http://accesstips.wordpress.com/

Thank's
----- Original Message -----
From: Aksan Kurdin
To: belajar-access@yahoogroups.com
Sent: Friday, February 05, 2010 9:10 AM
Subject: Re: [belajar-access] memunculkan merk dan type pc di form

Mantap, tinggal aplikasi jadi yang sudah implementasi nih, kalau ada yang
mau menyumbang ....
:)

aksan kurdin

On 2/5/2010 8:58 AM, hasimnurhsm@yahoo.com wrote:

Thank mas. Edy. sudah bisa, buat teman yang belum bisa dan ingin
mencoba, ini contoh:
dari source aslinya ada sedikit yg sy rubah dan tambahkan:

Private Sub Command26_Click()
On Error Resume Next
Dim strComputer As String
Dim objWMIService As Object
Dim colItems As Object
Dim objItem As Object

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_BaseBoard", , 48)
For Each objItem In colItems
Debug.Print "Caption: " & objItem.Caption
Debug.Print "ConfigOptions: " & objItem.ConfigOptions
Debug.Print "CreationClassName: " &