[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: " &

[belajar-access] memunculkan computername dan username pc di form

----- Original Message -----
From: <hasimnurhsm@yahoo.com>
To: <belajar-access@yahoogroups.com>
Sent: Thursday, February 04, 2010 9:46 AM
Subject: Re: [belajar-access] memunculkan computername dan username pc di
form

Private Sub Form_Load()
NAMAKOMPUTER = Environ$("computername")
NAMALOGIN = Environ$("username")
End Sub

Silahkan ditaruh di Event On Load Form,buat dua control bertype textbox:

1, NAMAKOMPUTER untuk nama komputer
2, NAMALOGIN untuk nama login

salam

Nurhasim

--- On Wed, 2/3/10, imam <imammukhlasin@yahoo.com> wrote:

From: imam <imammukhlasin@yahoo.com>
Subject: [belajar-access] memunculkan computername dan username pc di form
To: belajar-access@yahoogroups.com
Date: Wednesday, February 3, 2010, 6:01 PM

mohon bantuan gimana cara memunculkan computername dan username pc di
form?

[belajar-access] memunculkan computername dan username pc di form

----- Original Message -----
From: "Murid Belajar Access" <murid.belajaraccess@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Thursday, February 04, 2010 9:16 AM
Subject: RE: [belajar-access] memunculkan computername dan username pc di
form

> Buat textbox txtNamaKomputer. Isikan di controlsourcenya.
> =Environ("COMPUTERNAME")
> Buat textbox txtNamaUser. Isikan di controlsourcenya. =Environ("USERNAME")
>
>
> -----Original Message-----
> From: belajar-access@yahoogroups.com
[mailto:belajar-access@yahoogroups.com]
> On Behalf Of imam
> Sent: Thursday, February 04, 2010 09:02 AM
> To: belajar-access@yahoogroups.com
> Subject: [belajar-access] memunculkan computername dan username pc di form
>
> mohon bantuan gimana cara memunculkan computername dan username pc di
form?

[belajar-access] Combo Box

----- Original Message -----
From: "edi rosadi" <edirosadie@yahoo.com.sg>
To: <belajar-access@yahoogroups.com>
Sent: Thursday, February 04, 2010 6:03 PM
Subject: RE: [belajar-access] Combo Box

Private Sub Combo2_GotFocus()
Me.Combo2.Dropdown
End Sub

Salam,

Edi Rosadi

[belajar-access] Re: QUERY APPEND BIKIN MUMET

----- Original Message -----
From: "Murid Belajar Access" <murid.belajaraccess@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Thursday, February 04, 2010 8:22 PM
Subject: RE: [belajar-access] Re: QUERY APPEND BIKIN MUMET

> Asumsi: tanggal bertambah hari sebesar I. dimulai dengan hari ini (Date())
>
> Data dimasukkan ke field TglUrutan, tipe data dAtetime
>
>
>
> Docmd.runsql "INSERT INTO DATAKU (TglUrutan) VALUES (#" &
> DateAdd("dd",I,Date()) & "#)",true
>
>
>
>
>
> Salam hangat dan jabat erat,
>
> MBA
>

[belajar-access] Fwd: mengambil path dan nama file

----- Original Message -----
From: "Didin Susiandani" <ds05376@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Thursday, February 04, 2010 5:01 PM
Subject: [belajar-access] Fwd: mengambil path dan nama file

> Dear Pak Mba..
> Setelah berkali-kali ganti key word,
> berikut coding yang saya dapatkan dari hasil penelusuran si mbah
Google...:
>
>
> Private Sub Command2_Click()
> Dim fd As FileDialog
> Set fd = Application.FileDialog(msoFileDialogFilePicker)
> With fd
> .Title = "Goleki file...."
> .Filters.Add "Excel File", "*.xls"
> .FilterIndex = 2
> .AllowMultiSelect = False
> .InitialFileName = CurrentProject.Path
> result = .Show
> If (result <> 0) Then
> Me!txt_path = Trim(.SelectedItems.Item(1))
> End If
> End With
> End Sub
>
> Salam hangat dan jabat erat, ( Nyontek Mode on )
> Didin s
>

[belajar-access] Re: stock awal bulan

----- Original Message -----
From: "Yugo Gautomo" <milist@sentrasolusi.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Thursday, February 04, 2010 1:22 AM
Subject: [belajar-access] Re: stock awal bulan

> Kalau saya biasanya membuat table tambahan khusus report pak,
> biar querynya tidak terlalu berat, dan saya memanfaatkan store procedure
di sql server.
>
> 1. saya buat table ReportHPP
> fieldnya product_id, month, qty_awal, price_awal, qty_beli, price_beli,
qty_jual, price_jual, qty_akhr, price_akhir.
>
> table ini diinput saat button transaksi di save, selain insert kedalam
table detail pembelian atau penjualan, dia juga update ke table Report hpp
ini.
>
> kalau di sp, begitu table detail pembelian atau penjualan di insert, maka
akan otomatis update table report hpp.
>
> mengenai harga, lebih baik menggunakan sistem LIFO, begitu harga berubah,
kita save perubahannya ke dalam table laporan ini.
>
> saat awal bulan kita harus create record untuk semua product_id, dengan
value qty_awal dan price_awal = qty_akhir & price akhir.
> Memang kelihatannya redundant, tapi saya lebih memikirkan efektifitas dan
kemudahan query reporting.
>
> Karena pengalaman saya apabila yang querynya sampai lebih dari 3 lapis
akan memakan resource yang banyak dan pusing yang amat sangat.
>
> Kalau hanya untuk report bulan berjalan, sebaiknya tambahkan saja
field-field report tsb kedalam table Master Product / Item.
>
> demikian semoga membantu.
>
> Untuk yang report stock obat, memang lebih baik menggunakan query yang
diberikan oleh pak Aksa
>
> Wassalam.
>
>
> --- In belajar-access@yahoogroups.com, Aksan Kurdin <aksan.kurdin@...>
wrote:
> >
> > Dear P. Yugo, P. Afrizal,
> > Senang sekali semakin banyak solusi alternatif yang hendak ditawarkan.
> > Silakan download dari message:
> > http://tech.groups.yahoo.com/group/belajar-access/message/24849
> > Kita sangat menunggu solusi dari P. Yugo .....
> >
> > Aksan Kurdin
> >
> > On 2/3/2010 2:40 AM, Yugo Gautomo wrote:
> > >
> > > Boleh kirim file accessnya pak dalam format Access 2003.
> > > Saya akan coba bantu sesempatnya pak.
> > >
> > > kalau untuk update otomatis mungkin bisa dicoba cara ini
> > >
> > > UPDATE stokawal VALUE (SELECT stokakhir WHERE Product_id = 'xxx')
> > > WHERE PRODUCT_ID = 'xxx'
> > >
> > > 'xxx' itu sama dengan parameter yang rekursif, jadi harusnya taruh di
> > > program
> > > Regards,
> > >
> > > Yugo

[belajar-access] Format Tanggal

----- Original Message -----
From: "Murid Belajar Access" <murid.belajaraccess@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Thursday, February 04, 2010 1:56 AM
Subject: FW: [belajar-access] Format Tanggal

> RTFM = Read The Fine Manual.
>
> Ini ditaruh di mana ya?
> Format tanggal itu defaultnya memang dalam format m/d/yyyy
>
> Format-format untuk dipakai di query / form / report
>
> Format(#6/1/2010#,"dd-mm-yyyy") --> menghasilkan 06-01-2010
> Format(#6/1/2010#,"dd/mm/yyyy") --> menghasilkan 06/01/2010
>
> Bahkan anda bisa langsung menuliskan formatnya di properties table, query,
> textbox.
> Atau pada statemen sqlnya.
>
> Beberapa contoh dari :
> http://msdn.microsoft.com/en-us/library/aa443998%28VS.60%29.aspx
>

[belajar-access] Arti dan Fungsi

----- Original Message -----
From: "Belajar Office" <belajaroffice@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Tuesday, February 02, 2010 9:42 AM
Subject: Re: [belajar-access] Arti dan Fungsi

Bpk, Public dibuat agar suatu variable dapat digunakan di semua procedure
atau module yang ada didalam file Access. Function merupakan procedure untuk
menghasilkan suatu nilai. Private dibuat agar suatu variable dapat digunakan
hanya didalam satu module, tetapi tidak dapat digunakan didalam module yang
lain. Class module digunakan untuk membuat suatu fungsi serta definisi untuk
sebuah object baru, dan class module ini terdiri atas dua bagian, yaitu
class module yang disimpan didalam object form dan report, serta class
module yang disimpan didalam module.

Thank's
----- Original Message -----
From: end_chuzt
To: belajar-access@yahoogroups.com
Sent: Tuesday, February 02, 2010 9:18 AM
Subject: [belajar-access] Arti dan Fungsi

Dear all
Mohon bantuan bagi rekan2 yg mengetahui arti dan fungsinya secara umum
dari
Public
Function
Private sub
ClassModul
Saya akan coba membuat bahan ajar untuk sebuah tempat kursus tapi tdk
mengetahui secara jelas apa arti dan fungsi dari istilah diatas.. Tks
sebelum dan sesudahnya.

[belajar-access] Report di filter ...

----- Original Message -----
From: "nadhif_fakhri" <nadhif_fakhri@yahoo.co.uk>
To: "Sumiyanto -" <belajar-access@yahoogroups.com>
Sent: Tuesday, February 02, 2010 9:02 AM
Subject: Re[2]: [belajar-access] Report di filter ...

> Makasih atas penjelasannya sekarang sudah bisa nih ....
> semoga allah membalas semuanya amiiin
>
> S> Design View Report nya, Property sheet report >On No Data isikan :
>
> S> Private Sub Report_NoData(Cancel As Integer)
> S> MsgBox "Isi Dong No ID nya yang benar...!!", vbCritical, "Warning"
> S> Cancel = True
> S> End Sub
>
> S> mungkin warning report ini yang dimaksud..
>
> S> Sumiyanto
>

[belajar-access] memberi warna cell dengan kondisi tertentu menggunakan operator logika if

----- Original Message -----
From: "Sumiyanto -" <sumiyanto@yahoo.com>
To: <belajar-access@yahoogroups.com>
Sent: Monday, February 01, 2010 10:27 AM
Subject: Re: [belajar-access] memberi warna cell dengan kondisi tertentu
menggunakan operator logika if

ini kalo di access :
1. Buka file LaporanAnda.mdb, dan buka object Report.
2. Buka dengan mode Design View,
3. Arahkan kursor pada textbox yang Nilai mau dirubah warnanya, Pilih sub
menu Conditional Formatting
4. Muncul kotak dialog Conditional Formatting. Isikan pada Condition1. Field
Value Is, kemudian Less than, nilainya isikan 2000
format huruf dengan warna merah dengan cara memilih warna pada ikon format
warna, lalu tekan tombol Add

5. Sekarang kita tambah kondisinya dengan diantara Rp2001 hingga Rp3000
dengan warna biru. Caranya tekan tombol Add, akan muncul satu baris format
baru.
Isikan Field Value, kemudian pilih between, isikan angka 2001 dan 3000 dan
pilih warna biru dengan memilih ikon warna huruf
6. Jangan lupa di save dan coba jalankan.

Sumiyanto

--- On Mon, 2/1/10, ajx i dont care <ajx_pure_punk@yahoo.com> wrote:

From: ajx i dont care <ajx_pure_punk@yahoo.com>
Subject: [belajar-access] memberi warna cell dengan kondisi tertentu
menggunakan operator logika if
To: belajar-access@yahoogroups.com
Date: Monday, February 1, 2010, 9:31 AM

Maaf, kalau mungkin masalah ini pernah ditanyakan. Namun saya anggota
baru di milis ini, jadi saya tidak tahu.

Yang ingin saya tanyakan:
Bagaimana cara memberi warna cell dengan warna tertentu jika kondisi pada
operator logika if terpenuhi? Misal , jika cell A2 lebih besar dari 2000,
maka warna cell A2 berubah menjadi merah. Atau jika cell A2 lebih besar dari
2000, maka warna cell B2 berubah menjadi hijau.

Terima kasih

[belajar-access] Memisah kata

----- Original Message -----
From: "Aksan Kurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Monday, February 01, 2010 10:33 AM
Subject: Re: [belajar-access] Memisah kata

> amiiinnn ..... amin ... amin ........
>
> aksan kurdin
>
>
>
> tio.adjie@ptssb.co.id wrote:
> >
> > [Attachment(s) <#TopText> from tio.adjie@ptssb.co.id included below]
> >
> >
> > Terima kasih Mas Aksan.
> >
> > Saya sudah mencoba kode program dari Belajar Office dan dari Mas Aksan
> > . Ke-2 nya berhasil. Terima kasih.
> >
> > Ya Allah, semoga Engkau menambah ilmu Mas Aksan dan Belajar Office,
> > dan diberi kesehatan dan duit yang banyak. Amiin.
> >
> > Salam,
> > Tio
> >
> >
> >
> >
> > *Aksan Kurdin <aksan.kurdin@gmail.com>*
> > Sent by: belajar-access@yahoogroups.com
> >
> > 01/31/2010 06:17 PM
> > Please respond to belajar-access
> >
> >
> > To: belajar-access@yahoogroups.com
> > cc:
> > Subject: Re: [belajar-access] Memisah kata
> >
> >
> >
> >
> > Periksa Reference, ada yang MISSING ?
> > kalau tidak berhasil, coba dengan 'ikan' ini.
> >
> > aksan kurdin
> > _
> > __tio.adjie@ptssb.co.id_ <mailto:tio.adjie@ptssb.co.id> wrote:
> >
> >
> >
> > Dear Pakar Access,
> > Saya sudah mencoba koding Mas Aksan dengan mengcopy modulnya tapi kok
> > masih error ya ? Dan ada tanda merah di kode modulnya spt. di bawah :
> >
> >
> >
> > Dan setelah saya buat querynya dengan mencopy kode programnya maka
> > keluar sbb. :
> >
> >
> >
> > Tolong pencerahannya.
> >
> > Terima kasih sebelumnya.
> > Salam,
> > Tio
> >
> >
> >
> > *Aksan Kurdin <aksan.kurdin@gmail.com>*
> > Sent by: belajar-access@yahoogroups.com
> >
> > 01/29/2010 10:47 AM
> > Please respond to belajar-access
> >
> >
> > To: belajar-access@yahoogroups.com
> > cc:
> > Subject: Re: [belajar-access] Memisah kata
> >
> >
> >
> >
> >
> > Bagus sekali bpk/ibu, saya coba simulasikan sudah berhasil memenuhi
> > yang diinginkan.
> >
> > Berikut adalah alternatifnya:
> > *
> >
> > modul:*
> > Public Function GetWordN(theWord As String, number As Integer) As String
> > Dim arrWord() As String, result As String
> > arrWord = Split(theWord, " ")
> > If number > (UBound(arrWord) + 1) Then
> > result = ""
> > Else
> > result = arrWord(number - 1)
> > End If
> > GetWordN = result
> > End Function
> > *
> > query:*
> > SELECT Table1.Field1,
> > GetWordN([Field1],1) AS Nama1,
> > GetWordN([Field1],2) AS Nama2,
> > GetWordN([Field1],3) AS Nama3,
> > GetWordN([Field1],4) AS Nama4,
> > GetWordN([Field1],5) AS Nama5
> > FROM Table1;*
> >
> > hasil:*
> >
> >
> >
> >
> > aksan kurdin
> >