Nah....
ayo tolong dikembangkan deh nih, sempurnain contoh menggunakan obyek
form berkali-kali dengan teknik oop-nya di vba.
idenya saya akan menampilkan list master file dalam satu form yang
reusable, tapi karena tidak bisa inherit, jadinya apa adanya:
ini untuk class module frm_list, berisi tiga property tambahan Title,
EditForm, dan FieldKey.
Option Compare Database
Option Explicit
Private str_EditForm As String
Private str_WhereCondition As String
Private str_FieldKey As String
Property Let Title(data As String)
Me.lbl_Title.Caption = data
Me.Caption = data
End Property
Property Let EditForm(data As String)
str_EditForm = data
End Property
Property Let FieldKey(data As String)
str_FieldKey = data
End Property
Private Sub cmd_Close_Click()
Me.Visible = False
End Sub
Private Sub cmd_Edit_Click()
DoCmd.OpenForm str_EditForm, , , str_FieldKey & " = '" &
Me.frm_sub.Controls(str_FieldKey) & "'", , acDialog
End Sub
Private Sub cmd_PrintList_Click()
DoCmd.RunCommand acCmdPrintPreview
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = -1
Me.Visible = False
End Sub
Selanjutnya untuk menggunakan form itu, ditempuh dengan cara seperti
yang ada di form1:
Option Compare Database
Option Explicit
Dim obj_Agency As New Form_frm_List
Dim obj_Area As New Form_frm_List
Private Sub cmd_Agency_Click()
With obj_Agency
.Title = "Agency list"
.Controls("frm_sub").SourceObject = "frm_Agency_grd"
.EditForm = "frm_Agency_edit"
.FieldKey = "AgyID"
.Visible = True
End With
End Sub
Private Sub cmd_Area_Click()
With obj_Area
.Title = "Area list"
.Controls("frm_sub").SourceObject = "frm_Area_grd"
.EditForm = "frm_Area_edit"
.FieldKey = "Area"
.Visible = True
End With
End Sub
Private Sub Form_Close()
Set obj_Agency = Nothing
Set obj_Area = Nothing
End Sub
jadi class form frm_list saya buatkan dua obyek yaitu obj_Agency dan
obj_Area.
tampilan dan sifat kedua form adalah sama, yang berbeda adalah isi data
yang ditampilkan.
ayo ada ide apa lagi nih yang bisa dialirkan dari sini ?
aksan kurdin
On 8/6/2010 10:46 AM, erna yanti wrote:
bukan cuma bergairah ni bang.....jadi tambah nafsu
apalg supporter dah banyak tu....hehe
------------------------------------------------------------------------
*From:* Aksan Kurdin <[email protected]>
*To:* [email protected]
*Sent:* Fri, August 6, 2010 10:32:27 AM
*Subject:* Re: [belajar-access] perbandingan postgere sql, sql server
dan Oracle
yah ... elo yat ...
jangan dulu ...
erna udah ikutan bergairah tuh ......
:D
aksan kurdin
(hehehehehe. ....)
On 8/6/2010 10:11 AM, Sidom Raja wrote:
Hehe, topik ini saya rasa udah selesai. Si Penanya yaitu Bu Erna
sepertinya sudah mendapat jawaban dan pertimbangan untuk pemilihan
tools. Apakah itu Microsoft Access atau PHP terhadap database server
PostgreSQL, sudah dijawab oleh Pak Aksan sebelumnya.
Salam hangat dan sukses selalu :)
Hidayat
------------------------------------------------------------------------
*From:* CGSATU <cgs...@yahoo. com>
*To:* belajar-access@ yahoogroups. com
*Sent:* Fri, August 6, 2010 9:50:54 AM
*Subject:* Re: [belajar-access] perbandingan postgere sql, sql server
dan Oracle
Astaga, sudah, sudah....
Saya pikir topik ini kok jadi melebar ya.........
Dua "suhu" ini saya yakin akan "kesaktiannya" .....
Disudahi saja ya......
Saya pikir, kalau debat masalah tool, database, konsep programming,
dan semacam, sampai mati gak akan ketemu !
Kenapa? karena semua ada kelebihan dan kekurangan masing-masing.
Sekarang kita ngomongin access saja ok ?
cgsatu
--- On *Thu, 8/5/10, Aksan Kurdin /<aksan.kurdin@ gmail.com
<http://gmail.com>>/* wrote:
From: Aksan Kurdin <aksan.kurdin@ gmail.com>
Subject: Re: [belajar-access] perbandingan postgere sql, sql
server dan Oracle
To: belajar-access@ yahoogroups. com
Date: Thursday, August 5, 2010, 4:42 PM
sayang sekali memang karena access oop-nya hibrid, dia mendukung
class module, tetapi tidak bisa diturunkan.
mudah-mudahan hidayat sidom raja bisa menyumbangkan kesaktiannya
untuk membuat access programmer lebih nyaman develop access
dengan oop yang dipaksakan, biasanya kalau butuh, kreatifitas
pasti muncul.
:)
kita memang tidak boleh fanatik terhadap satu tools. sikap
fanatik biasanya timbul karena kecintaan yang mendalam, atau pun
sebenarnya timbul karena memang bisanya ya cuma itu saja. dengan
delphi lebih memudahkan, monggo silakan gunakan delphi, yang
penting kerjaan beres, duit ngalir. tetapi karena anda sudah
bergabung dengan milis ini, besar harapan kami selaku warga
pecinta access, menanti sumbangan pengalaman dan ilmu dari mas
hidayat.
saya pancing langkah pertama ya,
bisa kah anda membuat satu sampel oop di delphi seperti cerita
anda, bisa diturunkan, yang siapa tahu bisa kita porting ke vba
style dengan segala keterbatasannya ?
aksan kurdin
